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

Tweaks.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/superfox/sfox_params.f90
View File

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

4
lib/superfox/sfoxtest.f90
View File

@ -111,12 +111,14 @@ program sfoxtest
call sync_sf(crcvd,clo,snrdb,f,t) call sync_sf(crcvd,clo,snrdb,f,t)
ferr=f-f1 ferr=f-f1
terr=t-xdt 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 call hard_symbols(crcvd,f,t,chansym) !Get hard symbol values
nera=0 nera=0
chansym=mod(chansym,nq) !Enforce 0 to nq-1 chansym=mod(chansym,nq) !Enforce 0 to nq-1
nharderr=count(chansym.ne.chansym0) !Count hard errors 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 ntot=ntot+nharderr
nworst=max(nworst,nharderr) nworst=max(nworst,nharderr)
call rs_decode_sf(chansym,iera,nera,nfixed) !Call the decoder call rs_decode_sf(chansym,iera,nera,nfixed) !Call the decoder