From 1e893ecafdc9d8e567a10e70b56a71837b866147 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 31 Aug 2022 13:10:11 -0400
Subject: [PATCH] Add column headings to echosim screen output.

---
 lib/echosim.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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