From d6d4ad3c23a3768ce249ac5bcf288732896a6bce Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 31 Jan 2024 19:39:45 -0500 Subject: [PATCH] Minor tweaks. --- lib/superfox/synctest.f90 | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lib/superfox/synctest.f90 b/lib/superfox/synctest.f90 index 21a277129..79908b482 100644 --- a/lib/superfox/synctest.f90 +++ b/lib/superfox/synctest.f90 @@ -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