diff --git a/lib/superfox/sfox_mod.f90 b/lib/superfox/sfox_mod.f90 index 3388ed64a..1c6c450d8 100644 --- a/lib/superfox/sfox_mod.f90 +++ b/lib/superfox/sfox_mod.f90 @@ -3,6 +3,11 @@ 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 240a730fc..dfaa549c7 100644 --- a/lib/superfox/sfoxtest.f90 +++ b/lib/superfox/sfoxtest.f90 @@ -105,11 +105,6 @@ 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 @@ -234,7 +229,6 @@ 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