w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add column headings...

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8233 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-11-10 15:02:47 +00:00
parent 7ddfc04505
commit 082490a96f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/fox_sim.f90
View File

@ -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