diff --git a/lib/superfox/sfox_mod.f90 b/lib/superfox/sfox_mod.f90 index 1c6c450d8..3388ed64a 100644 --- a/lib/superfox/sfox_mod.f90 +++ b/lib/superfox/sfox_mod.f90 @@ -3,11 +3,6 @@ module sfox_mod parameter (NMAX=15*12000) !Samples in iwave (180,000) integer MM,NQ,NN,KK,ND1,ND2,NFZ,NSPS,NS,NSYNC,NZ,NFFT,NFFT1 integer isync(50) - data isync/ 53, 11, 96, 67,119, 49, 83, 8, 92, 85, & !Random sync pattern - 49, 80,113, 66, 83, 30, 33, 97, 96,116, & - 9, 34,114, 35, 66, 45, 31, 62,108,106, & - 4,126, 86, 98, 7, 49, 61,121,119,115, & - 40, 89, 0, 46, 34,126, 35, 80, 21, 94/ contains subroutine sfox_init(mm0,nn0,kk0,itu,fspread,delay,fsample,ts) diff --git a/lib/superfox/sfoxtest.f90 b/lib/superfox/sfoxtest.f90 index dfaa549c7..240a730fc 100644 --- a/lib/superfox/sfoxtest.f90 +++ b/lib/superfox/sfoxtest.f90 @@ -105,6 +105,11 @@ program sfoxtest bandwidth_ratio=2500.0/fsample fgood0=1.0 +! Generate a sync pattern + do i=1,NS + isync(i)=NQ*ran1(idummy) + enddo + ! Generate a message msg0=0 do i=1,KK @@ -229,6 +234,7 @@ program sfoxtest close(10) endif +! if(nharderr.le.maxerr) ngood=ngood+1 if(count(correct.ne.chansym0).eq.0) ngood=ngood+1 enddo ! ifile fgoodsync=float(ngoodsync)/nfiles