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

Display fspread, delay, MaxErr.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-08 13:58:00 -05:00
parent 5e6a9d59ed
commit 62c2e5c645
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/superfox/sfoxtest.f90
View File

@ -56,10 +56,12 @@ program sfoxtest
baud=12000.0/NSPS baud=12000.0/NSPS
bw=NQ*baud bw=NQ*baud
write(*,1000) MM,NN,KK,NSPS,baud,bw,itu,fspread,delay maxerr=(NN-KK)/2
write(*,1000) MM,NN,KK,NSPS,baud,bw,itu,fspread,delay,maxerr
1000 format('M:',i2,' Base code: (',i3,',',i3,') NSPS:',i5, & 1000 format('M:',i2,' Base code: (',i3,',',i3,') NSPS:',i5, &
' Symbol Rate:',f7.3,' BW:',f6.0/ & ' Symbol Rate:',f7.3,' BW:',f6.0/ &
'Channel: ',a2,' fspread:',f5.1,' delay:',f5.1/) 'Channel: ',a2,' fspread:',f5.1,' delay:',f5.1, &
' MaxErr:',i3/)
! Allocate storage for arrays that depend on code parameters. ! Allocate storage for arrays that depend on code parameters.
allocate(msg0(1:KK)) allocate(msg0(1:KK))
@ -168,7 +170,6 @@ program sfoxtest
1120 format('Hard errors:',i4) 1120 format('Hard errors:',i4)
endif endif
maxerr=(nn-kk)/2
if(nharderr.le.maxerr) ngood=ngood+1 if(nharderr.le.maxerr) ngood=ngood+1
enddo ! ifile enddo ! ifile
fgoodsync=float(ngoodsync)/nfiles fgoodsync=float(ngoodsync)/nfiles