This commit is contained in:
Joe Taylor 2024-02-02 21:08:45 -05:00
parent 7804716991
commit 9642d41c6d

View File

@ -22,8 +22,8 @@ program sfoxtest
nargs=iargc() nargs=iargc()
if(nargs.ne.8) then if(nargs.ne.8) then
print*,'Usage: synctest f0 DT fspread delay width nran nfiles snr' print*,'Usage: sfoxtest f0 DT fspread delay width nran nfiles snr'
print*,'Example: synctest 1500.0 0.15 0.5 1.0 100 0 10 -10' print*,'Example: sfoxtest 1500.0 0.15 0.5 1.0 100 0 10 -10'
go to 999 go to 999
endif endif
call getarg(1,arg) call getarg(1,arg)
@ -137,6 +137,7 @@ program sfoxtest
write(*,1120) nharderr write(*,1120) nharderr
1120 format('Hard errors:',i4) 1120 format('Hard errors:',i4)
endif endif
if(nharderr.le.38) ngood=ngood+1 !(125-49)/2 = 38 if(nharderr.le.38) ngood=ngood+1 !(125-49)/2 = 38
! write(13,1200) ifile,snr,ferr,terr,nharderr ! write(13,1200) ifile,snr,ferr,terr,nharderr
!1200 format(i5,3f10.3,i5) !1200 format(i5,3f10.3,i5)