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

Add Tx freq as command-line argument for qra66sim.

Browse Source
This commit is contained in:
Joe Taylor 2020-08-04 13:12:51 -04:00
parent 88102af49d
commit 2e893e8994
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/qra/qra66/qra66sim.f90
View File

@ -19,21 +19,23 @@ program qra66sim
character msgsent*22
nargs=iargc()
if(nargs.ne.6) then
print *, 'Usage: qra66sim "msg" A|B fDop DT Nfiles SNR'
print *, 'Example qra66sim "K1ABC W9XYZ EN37" A 0.2 0.0 1 -10'
if(nargs.ne.7) then
print *, 'Usage: qra66sim "msg" A|B freq fDop DT Nfiles SNR'
print *, 'Example: qra66sim "K1ABC W9XYZ EN37" A 1500 0.2 0.0 1 -10'
go to 999
endif
call getarg(1,msg)
call getarg(2,csubmode)
mode66=2**(ichar(csubmode)-ichar('A'))
call getarg(3,arg)
read(arg,*) fspread
read(arg,*) f0
call getarg(4,arg)
read(arg,*) xdt
read(arg,*) fspread
call getarg(5,arg)
read(arg,*) nfiles
read(arg,*) xdt
call getarg(6,arg)
read(arg,*) nfiles
call getarg(7,arg)
read(arg,*) snrdb
rms=100.
@ -71,7 +73,6 @@ program qra66sim
enddo
endif
f0=1500.0
bandwidth_ratio=2500.0/6000.0
sig=sqrt(2*bandwidth_ratio)*10.0**(0.05*snrdb)
if(snrdb.gt.90.0) sig=1.0