mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-02-03 09:44:24 -05:00
Corrected disgnostic prints in fivehz.F90.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@157 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
a51df66470
commit
2b7653130d
11
fivehz.F90
11
fivehz.F90
@ -148,21 +148,20 @@ subroutine fivehz
|
||||
|
||||
! Diagnostic timing information:
|
||||
! t60=mod(tsec,60.d0)
|
||||
! t120=mod(tsec,120.d0)
|
||||
! if(TxOK.ne.TxOKz) then
|
||||
! if(TxOK.eq.1) write(*,1101) 'D2:',t120,t
|
||||
!1101 format(a3,2f8.1,i8)
|
||||
! if(TxOK.eq.1) write(*,1101) 'D2:',t
|
||||
!1101 format(a3,f8.1,i8)
|
||||
! if(TxOK.eq.0) then
|
||||
! tstop=tsec
|
||||
! write(*,1101) 'D3:',t120,t,nc0a
|
||||
! write(*,1101) 'D3:',t,nc0a
|
||||
! endif
|
||||
! endif
|
||||
! if(iptt.ne.iptt0) then
|
||||
! if(iptt.eq.1) then
|
||||
! tstart=tsec
|
||||
! write(*,1101) 'D1:',t120,t,nc1a
|
||||
! write(*,1101) 'D1:',t,nc1a
|
||||
! endif
|
||||
! if(iptt.eq.0) write(*,1101) 'D4:',t120,t
|
||||
! if(iptt.eq.0) write(*,1101) 'D4:',t
|
||||
! endif
|
||||
|
||||
iptt0=iptt
|
||||
|
Loading…
Reference in New Issue
Block a user