w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Use sync rather than nsync, for better resolution. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6298 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-12-18 21:36:49 +00:00
parent b6d9e5dda0
commit f421ca57b7
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/stats.f90
View File

@ -31,16 +31,17 @@ program stats
nbadsync=0
do iline=1,999999
read(10,1010,end=100) nutc,nsync,nsnr,dt,nfreq,ncandidates,nhard, &
read(10,1010,end=100) nutc,sync,nsnr,dt,nfreq,ncandidates,nhard, &
ntotal,ntry,naggressive,nft,nqual,decoded
1010 format(i4.4,i3,i4,f6.2,i5,i7,i3,i4,i8,i3,i2,i5,1x,a22)
ndfreq=9999
do ifreq=600,2400,200
n=abs(nfreq-ifreq)
if(n.lt.ndfreq) ndfreq=n
enddo
1010 format(i4.4,f6.2,i4,f6.2,i5,i7,i3,i4,i8,i3,i2,i5,1x,a22)
! ndfreq=9999
! do ifreq=600,2400,200
! n=abs(nfreq-ifreq)
! if(n.lt.ndfreq) ndfreq=n
! enddo
ndfreq=abs(nfreq-1500)
if(nsync.ge.3 .and. abs(dt).le.ttol .and. ndfreq.le.nftol) then
if(sync.ge.1.0 .and. abs(dt).le.ttol .and. ndfreq.le.nftol) then
nsynced=nsynced+1
else
nbadsync=nbadsync+1