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

Add a flag for verbose output.

Browse Source
This commit is contained in:
Joe Taylor 2024-02-08 12:36:48 -05:00
parent 56d0aac243
commit 4a1e6a19fc
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/superfox/sfoxtest.f90
View File

@ -14,6 +14,7 @@ program sfoxtest
complex cnoise(NMAX) !Complex noise complex cnoise(NMAX) !Complex noise
complex crcvd(NMAX) !Signal as received complex crcvd(NMAX) !Signal as received
real a(3) real a(3)
logical verbose
integer, allocatable :: msg0(:) !Information symbols integer, allocatable :: msg0(:) !Information symbols
integer, allocatable :: parsym(:) !Parity symbols integer, allocatable :: parsym(:) !Parity symbols
@ -23,9 +24,9 @@ program sfoxtest
character fname*17,arg*12 character fname*17,arg*12
nargs=iargc() nargs=iargc()
if(nargs.ne.9) then if(nargs.ne.10) then
print*,'Usage: sfoxtest f0 DT fspread delay M N K nfiles snr' print*,'Usage: sfoxtest f0 DT fspread delay M N K v nfiles snr'
print*,'Example: sfoxtest 1500 0.15 0.5 1.0 8 74 44 10 -10' print*,'Example: sfoxtest 1500 0.15 0.5 1.0 8 74 44 0 10 -10'
go to 999 go to 999
endif endif
call getarg(1,arg) call getarg(1,arg)
@ -43,8 +44,11 @@ program sfoxtest
call getarg(7,arg) call getarg(7,arg)
read(arg,*) kk0 read(arg,*) kk0
call getarg(8,arg) call getarg(8,arg)
read(arg,*) nfiles read(arg,*) n
verbose=n.ne.0
call getarg(9,arg) call getarg(9,arg)
read(arg,*) nfiles
call getarg(10,arg)
read(arg,*) snrdb read(arg,*) snrdb
call sfox_init(mm0,nn0,kk0) call sfox_init(mm0,nn0,kk0)
@ -125,7 +129,7 @@ program sfoxtest
delay,fspread) delay,fspread)
! Find signal freq and DT ! Find signal freq and DT
call sync_sf(crcvd,clo,snrdb,f,t) call sync_sf(crcvd,clo,verbose,f,t)
ferr=f-f1 ferr=f-f1
terr=t-xdt terr=t-xdt
if(abs(ferr).lt.3.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
@ -145,7 +149,7 @@ program sfoxtest
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
if(snrdb.ne.0) then if(verbose) then
fname='000000_000001.wav' fname='000000_000001.wav'
write(fname(8:13),'(i6.6)') ifile write(fname(8:13),'(i6.6)') ifile
open(10,file=trim(fname),access='stream',status='unknown') open(10,file=trim(fname),access='stream',status='unknown')

5
lib/superfox/sync_sf.f90
View File

@ -1,4 +1,4 @@
subroutine sync_sf(crcvd,clo,snrdb,f,t) subroutine sync_sf(crcvd,clo,verbose,f,t)
use sfox_mod use sfox_mod
parameter (MMAX=150,JMAX=300) parameter (MMAX=150,JMAX=300)
@ -6,6 +6,7 @@ subroutine sync_sf(crcvd,clo,snrdb,f,t)
complex clo(NMAX) !Complex Local Oscillator complex clo(NMAX) !Complex Local Oscillator
complex crcvd(NMAX) !Signal as received complex crcvd(NMAX) !Signal as received
complex c(0:NFFT-1) !Work array complex c(0:NFFT-1) !Work array
logical verbose
integer ipk(2) integer ipk(2)
character*1 line(-30:30),mark(0:5) character*1 line(-30:30),mark(0:5)
data mark/' ','.','-','+','X','$'/ data mark/' ','.','-','+','X','$'/
@ -29,7 +30,7 @@ subroutine sync_sf(crcvd,clo,snrdb,f,t)
ipk=maxloc(s) ipk=maxloc(s)
ipk(1)=ipk(1)-MMAX-1 ipk(1)=ipk(1)-MMAX-1
ipk(2)=ipk(2)-JMAX-1 ipk(2)=ipk(2)-JMAX-1
if(snrdb.ne.0.0) then if(verbose) then
ma=max(-MMAX,ipk(1)-10) ma=max(-MMAX,ipk(1)-10)
mb=min(MMAX,ipk(1)+10) mb=min(MMAX,ipk(1)+10)
ja=max(-JMAX,ipk(2)-30) ja=max(-JMAX,ipk(2)-30)