More code cleanup.

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

lib/fox_rx.f90

@@ -26,6 +26,7 @@ subroutine fox_rx(fail,called,fm,hm)
 1000 format(a6,1x,a6,1x,a4)
   endif
 
+! Check for a "RR73" message
   ia=index(fm,trim(cx))
   ib=index(fm,';')
   ic=index(fm,trim(called))
@@ -33,18 +34,21 @@ subroutine fox_rx(fail,called,fm,hm)
   if((ia.eq.1 .or. ic.eq.ib+2) .and. id.ge.4) then
      i1=index(fm,';')+2
      i2=index(fm,'<')-2
-     cx=fm(i1:i2)
+     cx=fm(i1:i2)                      !Callsign for next QSO
      call random_number(r)
      ireport=nint(-20+40*r)
+! Send report to next caller
      write(hm,1004) MyCall,cx,ireport
 1004 format(a6,1x,a6,' R',i3.2)
      if(hm(16:16).eq.' ') hm(16:16)='+'
   endif
 
+! Check for a message with a report to Hound
   i1=index(fm,trim(called))
   i2=index(fm,MyCall)
   if(i1.eq.1 .and. i2.ge.5 .and.   &
        (index(fm,'+').ge.8 .or. index(fm,'-').ge.8)) then
+! Send "R+rpt" to Fox
      write(hm,1004) MyCall,called,isnrx
      if(hm(16:16).eq.' ') hm(16:16)='+'
   endif

lib/fox_sim.f90

@@ -131,6 +131,8 @@ program fox_sim
 1030    format(/'Nsig:',i3,'   Fail:',f4.1,'   Logged QSOs:',i4,      &
              '   Final nc:',i4)
      enddo
+     
+! Write the summary file
      write(13,1100) fail,ntot,irate
 1100 format(f4.1,2x,5i6,5x,5i6)
   enddo

lib/fox_tx.f90

@@ -17,7 +17,8 @@ subroutine fox_tx(maxtimes,fail,called,gcalled,hm,fm,ntimes,log,logit)
 
   logit=.false.
   call random_number(r)
-  if(r.lt.fail) hm=""
+  if(r.lt.fail) hm=""                       !Fox failed to copy
+
   i2=len(trim(hm))
   if(i2.gt.10) then
      i1=index(hm,' ')