mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-28 08:06:35 -04:00
Bring the command-line MSK144 decoder up-to-date.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7436 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
8fcda35808
commit
b8e7339e88
@ -18,6 +18,7 @@ program msk144d2
|
|||||||
logical*1 bShMsgs
|
logical*1 bShMsgs
|
||||||
logical*1 bcontest
|
logical*1 bcontest
|
||||||
logical*1 brxequal
|
logical*1 brxequal
|
||||||
|
logical*1 bswl
|
||||||
|
|
||||||
type(wav_header) :: wav
|
type(wav_header) :: wav
|
||||||
|
|
||||||
@ -45,6 +46,7 @@ program msk144d2
|
|||||||
bShMsgs=.false.
|
bShMsgs=.false.
|
||||||
bcontest=.false.
|
bcontest=.false.
|
||||||
brxequal=.false.
|
brxequal=.false.
|
||||||
|
bswl=.true.
|
||||||
|
|
||||||
do
|
do
|
||||||
call getopt('c:d:ef:hm:n:rs',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
|
call getopt('c:d:ef:hm:n:rs',long_options,c,optarg,narglen,nstat,noffset,nremain,.true.)
|
||||||
@ -109,7 +111,7 @@ program msk144d2
|
|||||||
tt=sum(float(abs(id2(i:i+7*512-1))))
|
tt=sum(float(abs(id2(i:i+7*512-1))))
|
||||||
if( tt .ne. 0.0 ) then
|
if( tt .ne. 0.0 ) then
|
||||||
call mskrtd(ichunk,nutc,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall,bShMsgs, &
|
call mskrtd(ichunk,nutc,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall,bShMsgs, &
|
||||||
bcontest,brxequal,line)
|
bcontest,brxequal,bswl,line)
|
||||||
if( index(line,"&") .ne. 0 .or. &
|
if( index(line,"&") .ne. 0 .or. &
|
||||||
index(line,"^") .ne. 0 .or. &
|
index(line,"^") .ne. 0 .or. &
|
||||||
index(line,"!") .ne. 0 .or. &
|
index(line,"!") .ne. 0 .or. &
|
||||||
|
Loading…
Reference in New Issue
Block a user