w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Bring msk144d2 more up to date. Runs now, but still needs more work.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7936 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2017-07-24 14:23:22 +00:00
parent d06912a075
commit 22af8aa7d3
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/msk144d2.f90
View File

@ -9,6 +9,7 @@ program msk144d2
character c character c
character*80 line character*80 line
character*512 datadir
character*500 infile character*500 infile
character*12 mycall,hiscall character*12 mycall,hiscall
character*6 mygrid character*6 mygrid
@ -17,7 +18,7 @@ program msk144d2
logical :: display_help=.false. logical :: display_help=.false.
logical*1 bShMsgs logical*1 bShMsgs
logical*1 bcontest logical*1 bcontest
logical*1 brxequal logical*1 btrain
logical*1 bswl logical*1 bswl
type(wav_header) :: wav type(wav_header) :: wav
@ -25,6 +26,8 @@ program msk144d2
integer*2 id2(30*12000) integer*2 id2(30*12000)
integer*2 ichunk(7*1024) integer*2 ichunk(7*1024)
real*8 pcoeffs(5)
type (option) :: long_options(9) = [ & type (option) :: long_options(9) = [ &
option ('ndepth',.true.,'c','ndepth',''), & option ('ndepth',.true.,'c','ndepth',''), &
option ('dxcall',.true.,'d','hiscall',''), & option ('dxcall',.true.,'d','hiscall',''), &
@ -45,8 +48,10 @@ program msk144d2
hiscall='' hiscall=''
bShMsgs=.false. bShMsgs=.false.
bcontest=.false. bcontest=.false.
brxequal=.false. btrain=.false.
bswl=.false. bswl=.false.
datadir='.'
pcoeffs=0.d0
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.)
@ -69,7 +74,7 @@ program msk144d2
case ('n') case ('n')
read (optarg(:narglen), *) ntol read (optarg(:narglen), *) ntol
case ('r') case ('r')
brxequal=.true. btrain=.true.
case ('s') case ('s')
bShMsgs=.true. bShMsgs=.true.
end select end select
@ -111,7 +116,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,bswl,line) bcontest,btrain,pcoeffs,bswl,datadir,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. &