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

Corrected disgnostic prints in fivehz.F90.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@157 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-04-10 20:59:36 +00:00
parent 0fd52833aa
commit 9506e46c52
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fivehz.F90
View File

@ -148,21 +148,20 @@ subroutine fivehz
! Diagnostic timing information: ! Diagnostic timing information:
! t60=mod(tsec,60.d0) ! t60=mod(tsec,60.d0)
! t120=mod(tsec,120.d0)
! if(TxOK.ne.TxOKz) then ! if(TxOK.ne.TxOKz) then
! if(TxOK.eq.1) write(*,1101) 'D2:',t120,t ! if(TxOK.eq.1) write(*,1101) 'D2:',t
!1101 format(a3,2f8.1,i8) !1101 format(a3,f8.1,i8)
! if(TxOK.eq.0) then ! if(TxOK.eq.0) then
! tstop=tsec ! tstop=tsec
! write(*,1101) 'D3:',t120,t,nc0a ! write(*,1101) 'D3:',t,nc0a
! endif ! endif
! endif ! endif
! if(iptt.ne.iptt0) then ! if(iptt.ne.iptt0) then
! if(iptt.eq.1) then ! if(iptt.eq.1) then
! tstart=tsec ! tstart=tsec
! write(*,1101) 'D1:',t120,t,nc1a ! write(*,1101) 'D1:',t,nc1a
! endif ! endif
! if(iptt.eq.0) write(*,1101) 'D4:',t120,t ! if(iptt.eq.0) write(*,1101) 'D4:',t
! endif ! endif
iptt0=iptt iptt0=iptt

2
wsjt.py
View File

@ -1,4 +1,4 @@
#------------------------------------------------------------------- WSJT #------------------------------------------------------------------ WSJT
from Tkinter import * from Tkinter import *
from tkFileDialog import * from tkFileDialog import *
import Pmw import Pmw