From b8e7339e88f0427278e85bd341e66b44db571ccc Mon Sep 17 00:00:00 2001 From: Steven Franke Date: Sat, 31 Dec 2016 02:57:20 +0000 Subject: [PATCH] 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 --- lib/msk144d2.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/msk144d2.f90 b/lib/msk144d2.f90 index 8eb19d4cb..5accc98ba 100644 --- a/lib/msk144d2.f90 +++ b/lib/msk144d2.f90 @@ -18,6 +18,7 @@ program msk144d2 logical*1 bShMsgs logical*1 bcontest logical*1 brxequal + logical*1 bswl type(wav_header) :: wav @@ -45,6 +46,7 @@ program msk144d2 bShMsgs=.false. bcontest=.false. brxequal=.false. + bswl=.true. do 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)))) if( tt .ne. 0.0 ) then 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. & index(line,"^") .ne. 0 .or. & index(line,"!") .ne. 0 .or. &