This commit is contained in:
Joe Taylor 2024-02-08 04:11:12 -05:00
parent ca5bc0e86b
commit 464838aa78
2 changed files with 4 additions and 2 deletions

View File

@ -6,7 +6,7 @@
parameter (ND=ND1+ND2) !Total data symbols (125)
parameter (NS=24) !Sync symbols (for length)
parameter (NSPS=1024) !Samples per symbol at 12000 S/s
parameter (NSYNC=NS*NSPS) !Samples in sync waveform (23,552)
parameter (NSYNC=NS*NSPS) !Samples in sync waveform (24,576)
parameter (NZ=NSPS*(ND+NS)) !Samples in full Tx waveform (151,552)
parameter (NMAX=15*12000) !Samples in iwave (180,000)
parameter (NFFT=32768) !Length of FFT for sync waveform

View File

@ -111,12 +111,14 @@ program sfoxtest
call sync_sf(crcvd,clo,snrdb,f,t)
ferr=f-f1
terr=t-xdt
if(abs(ferr).lt.5.0 .and. abs(terr).lt.0.01) ngoodsync=ngoodsync+1
if(abs(ferr).lt.3.0 .and. abs(terr).lt.0.01) ngoodsync=ngoodsync+1
call hard_symbols(crcvd,f,t,chansym) !Get hard symbol values
nera=0
chansym=mod(chansym,nq) !Enforce 0 to nq-1
nharderr=count(chansym.ne.chansym0) !Count hard errors
! write(71,3071) f1,f,ferr,xdt,t,terr,nharderr
!3071 format(6f10.3,i6)
ntot=ntot+nharderr
nworst=max(nworst,nharderr)
call rs_decode_sf(chansym,iera,nera,nfixed) !Call the decoder