diff --git a/lib/echosim.f90 b/lib/echosim.f90 index 20d8354b4..bc15b0e98 100644 --- a/lib/echosim.f90 +++ b/lib/echosim.f90 @@ -31,7 +31,7 @@ program echosim call getarg(2,arg) read(arg,*) fdop !Doppler shift (Hz) 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) read(arg,*) nfiles !Number of files call getarg(5,arg) @@ -45,6 +45,9 @@ program echosim if(snrdb.gt.90.0) sig=1.0 dphi=twopi*(f0+fdop)*dt + write(*,1000) +1000 format(' N f0 fDop fSpread SNR File name'/51('-')) + do ifile=1,nfiles phi=0.d0 do i=0,NWAVE-1