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

Correct a typo. Always output summary decoding results.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-10 09:47:11 -05:00
parent 05d720201a
commit 129ee5439a
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lib/superfox/sfoxtest.f90
View File

@ -54,7 +54,7 @@ program sfoxtest
call sfox_init(mm0,nn0,kk0,itu,fspread,delay) call sfox_init(mm0,nn0,kk0,itu,fspread,delay)
syncwidth=100.0 syncwidth=100.0
baud=12000.0/NSPS baud=12000.0/NSPS
tsym=1.0/naud tsym=1.0/baud
bw=NQ*baud bw=NQ*baud
maxerr=(NN-KK)/2 maxerr=(NN-KK)/2
tsync=NSYNC/12000.0 tsync=NSYNC/12000.0
@ -181,22 +181,18 @@ program sfoxtest
enddo ! ifile enddo ! ifile
fgoodsync=float(ngoodsync)/nfiles fgoodsync=float(ngoodsync)/nfiles
fgood=float(ngood)/nfiles fgood=float(ngood)/nfiles
if(snrdb.eq.0.0) then if(isnr.eq.0) write(*,1300)
if(isnr.eq.0) write(*,1300) 1300 format(' SNR iters fsync fgood averr worst rmsf rmst'/ &
1300 format(' SNR iters fsync fgood averr worst rmsf rmst'/ & '------------------------------------------------------')
'-----------------------------------------------------') ave_harderr=float(ntot)/nfiles
ave_harderr=float(ntot)/nfiles rmst=sqrt(sqt/ngoodsync)
rmst=sqrt(sqt/ngoodsync) rmsf=sqrt(sqf/ngoodsync)
rmsf=sqrt(sqf/ngoodsync) write(*,1310) snr,nfiles,fgoodsync,fgood,ave_harderr,nworst,rmsf,rmst
write(*,1310) snr,nfiles,fgoodsync,fgood,ave_harderr,nworst, & 1310 format(f7.2,i6,2f7.2,f7.1,i6,f7.2,f6.3)
rmsf,rmst if(fgood.le.0.5 .and. fgood0.gt.0.5) then
1310 format(f7.2,i6,2f7.2,f7.1,i6,f7.2,f6.3) threshold=isnr + 1 - (fgood0-0.50)/(fgood0-fgood+0.000001)
if(fgood.le.0.5 .and. fgood0.gt.0.5) then
threshold=isnr + 1 - (fgood0-0.50)/(fgood0-fgood+0.000001)
endif
fgood0=fgood
endif endif
fgood0=fgood
if(snrdb.ne.0.0) exit if(snrdb.ne.0.0) exit
! if(fgood.eq.0.0) exit ! if(fgood.eq.0.0) exit
if(fgoodsync.lt.0.5) exit if(fgoodsync.lt.0.5) exit