w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Compile the random sync pattern into sfox_mod."

Browse Source 
This reverts commit baec5dcfd25e964d6d61962ad18a429560b44eae.
This commit is contained in:
Joe Taylor 2024-02-22 14:57:17 -05:00
parent 532c808316
commit 12bcddf366
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/superfox/sfox_mod.f90
View File

@ -3,11 +3,6 @@ module sfox_mod
parameter (NMAX=15*12000) !Samples in iwave (180,000) parameter (NMAX=15*12000) !Samples in iwave (180,000)
integer MM,NQ,NN,KK,ND1,ND2,NFZ,NSPS,NS,NSYNC,NZ,NFFT,NFFT1 integer MM,NQ,NN,KK,ND1,ND2,NFZ,NSPS,NS,NSYNC,NZ,NFFT,NFFT1
integer isync(50) 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 contains
subroutine sfox_init(mm0,nn0,kk0,itu,fspread,delay,fsample,ts) subroutine sfox_init(mm0,nn0,kk0,itu,fspread,delay,fsample,ts)

6
lib/superfox/sfoxtest.f90
View File

@ -105,6 +105,11 @@ program sfoxtest
bandwidth_ratio=2500.0/fsample bandwidth_ratio=2500.0/fsample
fgood0=1.0 fgood0=1.0
! Generate a sync pattern
do i=1,NS
isync(i)=NQ*ran1(idummy)
enddo
! Generate a message ! Generate a message
msg0=0 msg0=0
do i=1,KK do i=1,KK
@ -229,6 +234,7 @@ program sfoxtest
close(10) close(10)
endif endif
! if(nharderr.le.maxerr) ngood=ngood+1
if(count(correct.ne.chansym0).eq.0) ngood=ngood+1 if(count(correct.ne.chansym0).eq.0) ngood=ngood+1
enddo ! ifile enddo ! ifile
fgoodsync=float(ngoodsync)/nfiles fgoodsync=float(ngoodsync)/nfiles