From 2b7653130dbf83e1433b96f7808e993b0599a407 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 10 Apr 2006 20:59:36 +0000 Subject: [PATCH] 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 --- fivehz.F90 | 11 +++++------ wsjt.py | 2 +- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/fivehz.F90 b/fivehz.F90 index 53ba447e1..06834f88a 100644 --- a/fivehz.F90 +++ b/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 diff --git a/wsjt.py b/wsjt.py index 8660cc5a9..55ca484d5 100644 --- a/wsjt.py +++ b/wsjt.py @@ -1,4 +1,4 @@ -#------------------------------------------------------------------- WSJT +#------------------------------------------------------------------ WSJT from Tkinter import * from tkFileDialog import * import Pmw