Compile the random sync pattern into sfox_mod.

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)

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