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

Code cleanup.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-09 13:36:01 -05:00
parent 05cae7b911
commit dc6f78d50b
2 changed files with 35 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/superfox/sfox_mod.f90
View File

@ -7,11 +7,12 @@ contains
subroutine sfox_init(mm0,nn0,kk0,itu,fspread,delay)
character*2 itu
integer isps(23)
integer isps(30)
integer iloc(1)
data isps/1000,1008,1024,1050,1080,1120,1152,1176,1200,1260, &
1280,1296,1344,1350,1372,1400,1440,1470,1500,1512, &
1536,1568,1600/
1536,1568,1600,1620,1680,1728,1920,1944,1960,2000/
MM=mm0 !Bits per symbol
NQ=2**MM !Q, number of MFSK tones
@ -19,18 +20,17 @@ contains
KK=kk0 !Information symbols, before puncture
ND1=25 !Data symbols before sync
ND2=NN-2-ND1 !Data symbols after sync
ND=ND1+ND2 !Total data symbols (125)
ND=ND1+ND2 !Total data symbols
NFZ=3 !First zero
tsync=2.0
jsps=nint((12.6-tsync)*12000.0/ND)
iloc=minloc(abs(isps-jsps))
NSPS=isps(iloc(1)) !Samples per symbol
NS=nint(tsync*12000.0/NSPS)
if(mod(NS,2).eq.1) NS=NS+1
NSYNC=NS*NSPS !Samples in sync waveform (24,576)
NZ=NSPS*(ND+NS) !Samples in full Tx waveform (151,552)
NSYNC=NS*NSPS !Samples in sync waveform
NZ=NSPS*(ND+NS) !Samples in full Tx waveform
NFFT=32768 !Length of FFT for sync waveform
NFFT1=2*NSPS !Length of FFTs for symbol spectra

48
lib/superfox/sfoxtest.f90
View File

@ -55,13 +55,16 @@ program sfoxtest
syncwidth=100.0
baud=12000.0/NSPS
bw=NQ*baud
maxerr=(NN-KK)/2
write(*,1000) MM,NN,KK,NSPS,baud,bw,itu,fspread,delay,maxerr
tsync=NSYNC/12000.0
txt=(NN-2+NS)*NSPS/12000.0
write(*,1000) MM,NN,KK,NSPS,baud,bw,itu,fspread,delay,maxerr, &
tsync,txt
1000 format('M:',i2,' Base code: (',i3,',',i3,') NSPS:',i5, &
' Symbol Rate:',f7.3,' BW:',f6.0/ &
'Channel: ',a2,' fspread:',f5.1,' delay:',f5.1, &
' MaxErr:',i3/)
'Channel: ',a2,' fspread:',f4.1,' delay:',f5.1, &
' MaxErr:',i3,' tsync:',f4.1,' TxT:',f5.1/)
! Allocate storage for arrays that depend on code parameters.
allocate(msg0(1:KK))
@ -102,6 +105,8 @@ program sfoxtest
ngood=0
ntot=0
nworst=0
sqt=0.
sqf=0.
do ifile=1,nfiles
xnoise=0.
@ -137,8 +142,11 @@ program sfoxtest
call sync_sf(crcvd,clo,verbose,f,t)
ferr=f-f1
terr=t-xdt
if(abs(ferr).lt.3.0 .and. abs(terr).lt.0.01) ngoodsync=ngoodsync+1
! if(abs(terr).lt.0.01) ngoodsync=ngoodsync+1
if(abs(ferr).lt.3.0 .and. abs(terr).lt.0.01) then
ngoodsync=ngoodsync+1
sqt=sqt + terr*terr
sqf=sqf + ferr*ferr
endif
a=0.
a(1)=1500.0-f
@ -148,8 +156,6 @@ program sfoxtest
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
@ -174,20 +180,24 @@ program sfoxtest
enddo ! ifile
fgoodsync=float(ngoodsync)/nfiles
fgood=float(ngood)/nfiles
if(isnr.eq.0) write(*,1300)
1300 format(' SNR N fsync fgood averr worst'/ &
'-----------------------------------------')
ave_harderr=float(ntot)/nfiles
write(*,1310) snr,nfiles,fgoodsync,fgood,ave_harderr,nworst
1310 format(f7.2,i6,2f7.2,f7.1,i6)
if(snrdb.eq.0.0) then
if(isnr.eq.0) write(*,1300)
1300 format(' SNR iters fsync fgood averr worst rmsf rmst'/ &
'-----------------------------------------------------')
ave_harderr=float(ntot)/nfiles
rmst=sqrt(sqt/ngoodsync)
rmsf=sqrt(sqf/ngoodsync)
write(*,1310) snr,nfiles,fgoodsync,fgood,ave_harderr,nworst, &
rmsf,rmst
1310 format(f7.2,i6,2f7.2,f7.1,i6,f7.2,f6.3)
if(snrdb.eq.0 .and. fgood.le.0.5 .and. fgood0.gt.0.5) then
threshold=isnr + 1 - (fgood0-0.50)/(fgood0-fgood+0.000001)
if(fgood.le.0.5 .and. fgood0.gt.0.5) then
threshold=isnr + 1 - (fgood0-0.50)/(fgood0-fgood+0.000001)
endif
fgood0=fgood
endif
fgood0=fgood
if(snrdb.ne.0.0) exit
if(fgood.eq.0.0) exit
! if(fgood.eq.0.0) exit
if(fgoodsync.lt.0.5) exit
enddo ! isnr
write(*,1320) threshold