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

Add column headings to echosim screen output.

Browse Source
This commit is contained in:
Joe Taylor 2022-08-31 13:10:11 -04:00
parent 8f8ee53b6f
commit 1e893ecafd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/echosim.f90
View File

@ -31,7 +31,7 @@ program echosim
call getarg(2,arg) call getarg(2,arg)
read(arg,*) fdop !Doppler shift (Hz) read(arg,*) fdop !Doppler shift (Hz)
call getarg(3,arg) call getarg(3,arg)
read(arg,*) fspread !Frequency spread (Hz) (JHT Lorentzian model) read(arg,*) fspread !Frequency spread (Hz) (JHT Lorentzian model)
call getarg(4,arg) call getarg(4,arg)
read(arg,*) nfiles !Number of files read(arg,*) nfiles !Number of files
call getarg(5,arg) call getarg(5,arg)
@ -45,6 +45,9 @@ program echosim
if(snrdb.gt.90.0) sig=1.0 if(snrdb.gt.90.0) sig=1.0
dphi=twopi*(f0+fdop)*dt dphi=twopi*(f0+fdop)*dt
write(*,1000)
1000 format(' N f0 fDop fSpread SNR File name'/51('-'))
do ifile=1,nfiles do ifile=1,nfiles
phi=0.d0 phi=0.d0
do i=0,NWAVE-1 do i=0,NWAVE-1