diff --git a/lib/superfox/rstest.f90 b/lib/superfox/rstest.f90 index effe18e83..bf044c79f 100644 --- a/lib/superfox/rstest.f90 +++ b/lib/superfox/rstest.f90 @@ -13,7 +13,7 @@ program rstest print*,'Examples: rstest 6 63 12 0 25' print*,' rstest 7 127 51 0 38' print*,' rstest 8 255 51 0 102' - print*,' rstest 8 255 235 0 10' + print*,' rstest 8 255 223 0 16' go to 999 endif nkv=0 diff --git a/lib/superfox/sfoxtest.f90 b/lib/superfox/sfoxtest.f90 index aa43391b6..6de819f5b 100644 --- a/lib/superfox/sfoxtest.f90 +++ b/lib/superfox/sfoxtest.f90 @@ -76,6 +76,7 @@ program sfoxtest if(snr.gt.90.0) sig=1.0 ngoodsync=0 ngood=0 + ntot=0 do ifile=1,nfiles xnoise=0. @@ -121,6 +122,7 @@ program sfoxtest call get_crc14(imsg1,7*KK,ncrc) nharderr=count(jdat.ne.idat) !Count hard errors + ntot=ntot+nharderr if(snrdb.ne.0) then fname='000000_000001.wav' @@ -147,8 +149,9 @@ program sfoxtest if(isnr.eq.0) write(*,1300) 1300 format(' SNR N fsync fgood'/ & '----------------------------') - write(*,1310) snr,nfiles,fgoodsync,fgood -1310 format(f7.2,i6,2f7.2) + ave_harderr=float(ntot)/nfiles + write(*,1310) snr,nfiles,fgoodsync,fgood,ave_harderr +1310 format(f7.2,i6,2f7.2,f7.1) if(snrdb.ne.0.0) exit if(fgoodsync.lt.0.5) exit enddo ! isnr