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

Minor tweaks.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 19:39:45 -05:00
parent 1296134820
commit d6d4ad3c23
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/superfox/synctest.f90
View File

@ -96,14 +96,13 @@ program synctest
delay,fspread)
! Find signal freq and DT
call sync_sf(crcvd,clo,snrdb,f,t)
ferr=f-f1
terr=t-xdt
if(abs(ferr).lt.10.0 .or. abs(terr).lt.0.02) ngoodsync=ngoodsync+1
call hard_symbols(crcvd,f,t,jdat)
nharderr=count(jdat.ne.idat)
call hard_symbols(crcvd,f,t,jdat) !Get hard symbol values
nharderr=count(jdat.ne.idat) !Count hard errors
if(snrdb.ne.0) then
fname='000000_000001.wav'
@ -120,9 +119,9 @@ program synctest
write(*,1120) nharderr
1120 format('Hard errors:',i4)
endif
if(nharderr.le.38) ngood=ngood+1
write(13,1200) ifile,snr,ferr,terr,nharderr
1200 format(i5,3f10.3,i5)
if(nharderr.le.38) ngood=ngood+1 !(125-49)/2 = 38
! write(13,1200) ifile,snr,ferr,terr,nharderr
!1200 format(i5,3f10.3,i5)
enddo ! ifile
fgoodsync=float(ngoodsync)/nfiles
fgood=float(ngood)/nfiles