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

Print column headings on first isnr pass.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-15 13:36:48 -05:00
parent 50f9c73ad3
commit 17d9c6bf81
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/superfox/sfoxtest.f90
View File

@ -114,8 +114,9 @@ program sfoxtest
! Generate cdat, the SuperFox waveform
call sfox_gen(chansym0,f0,fsample,syncwidth,cdat)
isnr0=-8
do isnr=-8,-20,-1
do isnr=isnr0,-20,-1
snr=isnr
if(snrdb.ne.0.0) snr=snrdb
sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snr)
@ -218,7 +219,7 @@ program sfoxtest
enddo ! ifile
fgoodsync=float(ngoodsync)/nfiles
fgood=float(ngood)/nfiles
if(isnr.eq.0) write(*,1300)
if(isnr.eq.isnr0) write(*,1300)
1300 format(' SNR iters fsync fgood averr worst rmsf rmst'/ &
'------------------------------------------------------')
ave_harderr=float(ntot)/nfiles