w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-20 04:32:19 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix the logic for setting length of FST280 data sent from jt9 to decoder.

Browse Source
This commit is contained in:
Joe Taylor 2020-06-18 11:25:32 -04:00
parent 3172f1e976
commit 54c1df030b
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lib/jt9.f90
View File

@ -201,18 +201,11 @@ program jt9
endif endif
go to 2 go to 2
1 nutc=0 1 nutc=0
2 nsps=0 2 nsps=6912
npts=TRperiod*12000.d0 npts=TRperiod*12000.d0
if(TRperiod.eq.60.d0) then
nsps=6912
shared_data%params%nzhsym=181
npts=(TRperiod-6.d0)*12000.d0
endif
if(mode.eq.280) nsps=6912
if(nsps.eq.0) stop 'Error: bad TRperiod'
kstep=nsps/2 kstep=nsps/2
k=0 k=0
nhsym=0
nhsym0=-999 nhsym0=-999
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')
@ -258,7 +251,7 @@ program jt9
shared_data%params%ntol=20 shared_data%params%ntol=20
shared_data%params%kin=64800 shared_data%params%kin=64800
if(mode.eq.280) shared_data%params%kin=720000 !### 60 s periods ### if(mode.eq.280) shared_data%params%kin=720000 !### 60 s periods ###
shared_data%params%nzhsym=181 shared_data%params%nzhsym=nhsym
shared_data%params%ndepth=ndepth shared_data%params%ndepth=ndepth
shared_data%params%lft8apon=.true. shared_data%params%lft8apon=.true.
shared_data%params%ljt65apon=.true. shared_data%params%ljt65apon=.true.
@ -321,11 +314,6 @@ program jt9
999 continue 999 continue
! Output decoder statistics ! Output decoder statistics
call fini_timer () call fini_timer ()
! open (unit=12, file=trim(data_dir)//'/timer.out', status='unknown', position='append')
! write(12,1100) n65a,ntry65a,n65b,ntry65b,numfano,num9
!1100 format(58('-')/' JT65_1 Tries_1 JT65_2 Tries_2 JT9 Tries'/ &
! 58('-')/6i8)
! Save wisdom and free memory ! Save wisdom and free memory
iret=fftwf_export_wisdom_to_filename(wisfile) iret=fftwf_export_wisdom_to_filename(wisfile)
call four2a(a,-1,1,1,1) call four2a(a,-1,1,1,1)