mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-18 01:52:05 -05:00
39 lines
1.1 KiB
Fortran
39 lines
1.1 KiB
Fortran
|
subroutine alignmsg(word0,nmin,msg,msglen,idone)
|
||
|
|
|
||
|
|
character*(*) word0
|
||
|
|
character*29 msg,word
|
||
|
|
|
||
|
|
word=word0//' '
|
||
|
|
idone=0
|
||
|
|
|
||
|
|
! Test for two (or more) <space> characters
|
||
|
|
if(word(1:2).eq.' ' .and. len(word).eq.2) then
|
||
|
|
i2=index(msg,' ')
|
||
|
|
if((i2.ge.1.and.i2.lt.msglen) .or. &
|
||
|
|
(msg(1:1).eq.' '.and.msg(msglen:msglen).eq.' ')) then
|
||
|
|
if(i2.eq.1) msg=msg(i2+2:msglen) !Align on EOM
|
||
|
|
if(i2.ge.2) msg=msg(i2+2:msglen)//msg(1:i2-1)
|
||
|
|
idone=1
|
||
|
|
endif
|
||
|
|
|
||
|
|
! Align on single <space> (as last resort)
|
||
|
|
else if(word(1:1).eq.' ' .and. len(word).eq.1) then
|
||
|
|
i3=index(msg,' ')
|
||
|
|
if(i3.ge.1 .and. i3.lt.msglen) msg=msg(i3+1:msglen)//msg(1:i3)
|
||
|
|
if(i3.eq.msglen) msg=msg(1:msglen)
|
||
|
|
msg=msg(1:msglen)//msg(1:msglen)
|
||
|
|
idone=1
|
||
|
|
|
||
|
|
! Align on specified word
|
||
|
|
else
|
||
|
|
call match(word,msg(1:msglen),nstart,nmatch)
|
||
|
|
if(nmatch.ge.nmin) then
|
||
|
|
if(nstart.eq.1) msg=msg(nstart:msglen)
|
||
|
|
if(nstart.gt.1) msg=msg(nstart:msglen)//msg(1:nstart-1)
|
||
|
|
idone=1
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
|
||
|
|
return
|
||
|
|
end subroutine alignmsg
|