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

Fix argument handling in sfoxsim.f90.

Browse Source
This commit is contained in:
Steven Franke 2024-09-21 18:28:49 -05:00
parent 77e93a81e1
commit 37f5abc35c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/superfox/sfoxsim.f90
View File

@ -39,7 +39,7 @@ program sfoxsim
83,84,86,89/ 83,84,86,89/
nargs=iargc() nargs=iargc()
if(nargs.ne.11) then if(nargs.ne.10) then
print*,'Usage: sfoxsim f0 DT Chan FoxC H1 H2 CQ FT nfiles snr' print*,'Usage: sfoxsim f0 DT Chan FoxC H1 H2 CQ FT nfiles snr'
print*,'Example: sfoxsim 750 0.0 MM K1JT 5 1 0 0 10 -15' print*,'Example: sfoxsim 750 0.0 MM K1JT 5 1 0 0 10 -15'
print*,' f0=0 to dither f0 and DT' print*,' f0=0 to dither f0 and DT'
@ -58,19 +58,19 @@ program sfoxsim
read(arg,*) xdt read(arg,*) xdt
call getarg(3,channel) call getarg(3,channel)
call getarg(4,foxcall) call getarg(4,foxcall)
call getarg(6,arg) call getarg(5,arg)
read(arg,*) nh1 read(arg,*) nh1
call getarg(7,arg) call getarg(6,arg)
read(arg,*) nh2 read(arg,*) nh2
call getarg(8,arg) call getarg(7,arg)
read(arg,*) ncq read(arg,*) ncq
bMoreCQs=ncq.ne.0 bMoreCQs=ncq.ne.0
call getarg(9,arg) call getarg(8,arg)
read(arg,*) nft read(arg,*) nft
bSendMsg=nft.ne.0 bSendMsg=nft.ne.0
call getarg(10,arg) call getarg(9,arg)
read(arg,*) nfiles read(arg,*) nfiles
call getarg(11,arg) call getarg(10,arg)
read(arg,*) snr read(arg,*) snr
fspread=0.0 fspread=0.0