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

Add Watterson channel model to the SuperFox synctest.

Browse Source
This commit is contained in:
Joe Taylor 2024-01-31 11:37:19 -05:00
parent 88838fca62
commit efedc50fe1
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/superfox/synctest.f90
View File

@ -22,9 +22,9 @@ program synctest
data mark/' ','.','-','+','X','$'/ data mark/' ','.','-','+','X','$'/
nargs=iargc() nargs=iargc()
if(nargs.ne.4) then if(nargs.ne.6) then
print*,'Usage: synctest f0 DT width snr' print*,'Usage: synctest f0 DT fspread delay width snr'
print*,'Example: synctest 1500.0 2.5 1500 -20' print*,'Example: synctest 1500.0 2.5 0.0 0.0 100 -20'
go to 999 go to 999
endif endif
call getarg(1,arg) call getarg(1,arg)
@ -32,8 +32,12 @@ program synctest
call getarg(2,arg) call getarg(2,arg)
read(arg,*) xdt read(arg,*) xdt
call getarg(3,arg) call getarg(3,arg)
read(arg,*) syncwidth read(arg,*) fspread
call getarg(4,arg) call getarg(4,arg)
read(arg,*) delay
call getarg(5,arg)
read(arg,*) syncwidth
call getarg(6,arg)
read(arg,*) snrdb read(arg,*) snrdb
rms=100. rms=100.
@ -93,6 +97,10 @@ program synctest
crcvd=0. crcvd=0.
crcvd(1:NMAX)=cdat(1:NMAX) + cnoise crcvd(1:NMAX)=cdat(1:NMAX) + cnoise
if(fspread.ne.0 .or. delay.ne.0) call watterson(crcvd,NMAX,NZ,fsample, &
delay,fspread)
ccf=0. ccf=0.
df=12000.0/NFFT !0.366211 df=12000.0/NFFT !0.366211
i1=60*nsps i1=60*nsps