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

Minor code cleanup to ft4sim.f90 and ft4sim_mult.f90.

Browse Source
This commit is contained in:
Joe Taylor 2019-02-27 09:34:40 -05:00
parent 278c544a6a
commit 1c617e2367
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lib/ft4/ft4sim.f90
View File

@ -24,10 +24,10 @@ program ft4sim
! Get command-line argument(s) ! Get command-line argument(s)
nargs=iargc() nargs=iargc()
if(nargs.ne.8) then if(nargs.ne.8) then
print*,'Usage: ft4sim "message" f0 DT fdop del width nfiles snr' print*,'Usage: ft4sim "message" f0 DT fdop del nfiles snr'
print*,'Examples: ft4sim "K1ABC W9XYZ EN37" 1500.0 0.0 0.1 1.0 0 10 -18' print*,'Examples: ft4sim "K1ABC W9XYZ EN37" 1500.0 0.0 0.1 1.0 10 -15'
print*,' ft4sim "WA9XYZ/R KA1ABC/R FN42" 1500.0 0.0 0.1 1.0 0 10 -18' print*,' ft4sim "WA9XYZ/R KA1ABC/R FN42" 1500.0 0.0 0.1 1.0 10 -15'
print*,' ft4sim "K1ABC RR73; W9XYZ <KH1/KH7Z> -11" 300 0 0 0 25 1 -10' print*,' ft4sim "K1ABC RR73; W9XYZ <KH1/KH7Z> -11" 300 0 0 0 1 -10'
go to 999 go to 999
endif endif
call getarg(1,msg37) !Message to be transmitted call getarg(1,msg37) !Message to be transmitted
@ -40,10 +40,8 @@ program ft4sim
call getarg(5,arg) call getarg(5,arg)
read(arg,*) delay !Watterson delay (ms) read(arg,*) delay !Watterson delay (ms)
call getarg(6,arg) call getarg(6,arg)
read(arg,*) width !Filter transition width (Hz)
call getarg(7,arg)
read(arg,*) nfiles !Number of files read(arg,*) nfiles !Number of files
call getarg(8,arg) call getarg(7,arg)
read(arg,*) snrdb !SNR_2500 read(arg,*) snrdb !SNR_2500
nfiles=abs(nfiles) nfiles=abs(nfiles)
@ -125,7 +123,6 @@ program ft4sim
wave=real(c) wave=real(c)
peak=maxval(abs(wave(ia:ib))) peak=maxval(abs(wave(ia:ib)))
nslots=1 nslots=1
if(width.gt.0.0) call filt8(f0,nslots,width,wave)
if(snrdb.lt.90) then if(snrdb.lt.90) then
do i=1,NMAX !Add gaussian noise at specified SNR do i=1,NMAX !Add gaussian noise at specified SNR

4
lib/ft4/ft4sim_mult.f90
View File

@ -21,8 +21,8 @@ program ft4sim_mult
! Get command-line argument(s) ! Get command-line argument(s)
nargs=iargc() nargs=iargc()
if(nargs.ne.2) then if(nargs.ne.2) then
print*,'Usage: ft4sim nsigs nfiles' print*,'Usage: ft4sim_mult nsigs nfiles'
print*,'Example: ft4sim 20 8 ' print*,'Example: ft4sim_mult 20 8 '
go to 999 go to 999
endif endif
call getarg(1,arg) call getarg(1,arg)