Add column headings...

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8233 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/fox_sim.f90

@@ -54,10 +54,11 @@ program fox_sim
 
 ! Read a file with calls and grids; insert random S/N values.
 ! This is used in place of an operator-selected FIFO
-!  open(10,file='xcall.txt',status='old')
+  open(10,file='xcall.txt',status='old')
   do i=1,NCALLS
-!     read(10,1000) xcall(i),xgrid(i)
-!1000 format(a6,7x,a4)
+     read(10,1000) xcall(i),xgrid(i)
+1000 format(a6,7x,a4)
+     if(i.ne.-99) cycle
      j=mod(i-1,26)
      c1=char(ichar('A')+j)
      k=mod((i-1)/26,26)
@@ -89,6 +90,9 @@ program fox_sim
     'fail Nsig: 1     2     3     4     5          1     2     3     4     5'/ &
     71('-'))
 
+  write(*,1003)
+1003 format('Seq  s n Fox messages                      Hound messages    Logged info        i Rate'/87('-'))
+
   ntot=0
   irate=0
   MyCall='KH1DX'
@@ -142,6 +146,8 @@ program fox_sim
 1020             format(i4.4,i2,37x,a22)
               enddo
            endif
+           write(*,1021)
+1021       format(87('-'))
         enddo
         ntot(ii)=nlogged
         irate(ii)=0