From b73d88c514b3d3c973d438bb4e33cbc3388f7d4f Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 9 Nov 2017 20:45:36 +0000 Subject: [PATCH] Cosmetic changes to fox_sim output. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8227 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/fox_sim.f90 | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lib/fox_sim.f90 b/lib/fox_sim.f90 index 043c1d25c..7c911fe62 100644 --- a/lib/fox_sim.f90 +++ b/lib/fox_sim.f90 @@ -60,7 +60,10 @@ program fox_sim minutes=nseq/4 write(13,1002) nseq,minutes,maxtimes -1002 format(/'Nseq:',i4,' Minutes:',i3,' Maxtimes:',i2) +1002 format(/'Nseq:',i4,' Minutes:',i3,' Maxtimes:',i2// & + 18x,'Logged QSOs',22x,'Rate (QSOs/hour)'/ & + 'fail Nsig: 1 2 3 4 5 1 2 3 4 5'/ & + 71('-')) ntot=0 irate=0 @@ -116,11 +119,12 @@ program fox_sim ntot(ii)=nlogged irate(ii)=0 if(iseq.gt.0) irate(ii)=nint(nlogged*3600.0/(15*iseq)) - write(*,3001) nsig,fail,nlogged -3001 format('Nsig:',i3,' Fail:',f4.1,' Logged QSOs:',i4) + write(*,1030) nsig,fail,nlogged,nc +1030 format('Nsig:',i3,' Fail:',f4.1,' Logged QSOs:',i4, & + ' Final nc:',i4) enddo write(13,1100) fail,ntot,irate -1100 format(f5.1,5i6,5x,5i6) +1100 format(f4.1,2x,5i6,5x,5i6) enddo 999 end program fox_sim