w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-26 15:16:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a few more passings of parameters from jt9 to decoder, for FST280.

Browse Source
This commit is contained in:
Joe Taylor 2020-06-17 20:31:54 -04:00
parent 5c3a340f72
commit 07721761a9
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/fst280_decode.f90
View File

@ -49,7 +49,7 @@ contains
integer*1 message101(101),message74(74) integer*1 message101(101),message74(74)
logical badsync,unpk77_success logical badsync,unpk77_success
integer*2 iwave(300*12000) integer*2 iwave(300*12000)
hmod=1 !### pass as arg ### hmod=1 !### pass as arg ###
Keff=91 Keff=91
ndeep=3 ndeep=3

12
lib/jt9.f90
View File

@ -202,20 +202,18 @@ program jt9
go to 2 go to 2
1 nutc=0 1 nutc=0
2 nsps=0 2 nsps=0
npts=TRperiod*12000.d0
if(TRperiod.eq.60.d0) then if(TRperiod.eq.60.d0) then
nsps=6912 nsps=6912
shared_data%params%nzhsym=181 shared_data%params%nzhsym=181
npts=(TRperiod-6.d0)*12000.d0
endif endif
if(mode.eq.280) then if(mode.eq.280) nsps=6912
nsps=6912
npts=TRperiod*12000.d0
endif
if(nsps.eq.0) stop 'Error: bad TRperiod' if(nsps.eq.0) stop 'Error: bad TRperiod'
kstep=nsps/2 kstep=nsps/2
k=0 k=0
nhsym0=-999 nhsym0=-999
npts=(TRperiod-6.d0)*12000.d0
if(iarg .eq. offset + 1) then if(iarg .eq. offset + 1) then
call init_timer (trim(data_dir)//'/timer.out') call init_timer (trim(data_dir)//'/timer.out')
call timer('jt9 ',0) call timer('jt9 ',0)
@ -250,7 +248,7 @@ program jt9
close(unit=wav%lun) close(unit=wav%lun)
shared_data%params%nutc=nutc shared_data%params%nutc=nutc
shared_data%params%ndiskdat=.true. shared_data%params%ndiskdat=.true.
shared_data%params%ntr=60 shared_data%params%ntr=TRperiod
shared_data%params%nfqso=nrxfreq shared_data%params%nfqso=nrxfreq
shared_data%params%newdat=.true. shared_data%params%newdat=.true.
shared_data%params%npts8=74736 shared_data%params%npts8=74736