w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 02:12:37 -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*,'Examples: rstest 6 63 12 0 25'
print*,' rstest 7 127 51 0 38' print*,' rstest 7 127 51 0 38'
print*,' rstest 8 255 51 0 102' print*,' rstest 8 255 51 0 102'
print*,' rstest 8 255 235 0 10' print*,' rstest 8 255 223 0 16'
go to 999 go to 999
endif endif
nkv=0 nkv=0

7
lib/superfox/sfoxtest.f90
View File

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