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

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

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