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

Tweaks to sfox test programs.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-04 22:01:53 -05:00
parent 9642d41c6d
commit 3e27ce83e6
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/superfox/rstest.f90
View File

@ -13,7 +13,7 @@ program rstest
print*,'Examples: rstest 6 63 12 0 25'
print*,' rstest 7 127 51 0 38'
print*,' rstest 8 255 51 0 102'
print*,' rstest 8 255 235 0 10'
print*,' rstest 8 255 223 0 16'
go to 999
endif
nkv=0

7
lib/superfox/sfoxtest.f90
View File

@ -76,6 +76,7 @@ program sfoxtest
if(snr.gt.90.0) sig=1.0
ngoodsync=0
ngood=0
ntot=0
do ifile=1,nfiles
xnoise=0.
@ -121,6 +122,7 @@ program sfoxtest
call get_crc14(imsg1,7*KK,ncrc)
nharderr=count(jdat.ne.idat) !Count hard errors
ntot=ntot+nharderr
if(snrdb.ne.0) then
fname='000000_000001.wav'
@ -147,8 +149,9 @@ program sfoxtest
if(isnr.eq.0) write(*,1300)
1300 format(' SNR N fsync fgood'/ &
'----------------------------')
write(*,1310) snr,nfiles,fgoodsync,fgood
1310 format(f7.2,i6,2f7.2)
ave_harderr=float(ntot)/nfiles
write(*,1310) snr,nfiles,fgoodsync,fgood,ave_harderr
1310 format(f7.2,i6,2f7.2,f7.1)
if(snrdb.ne.0.0) exit
if(fgoodsync.lt.0.5) exit
enddo ! isnr