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

Added flushqqq calls to wsjt1.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@218 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-08-01 16:08:36 +00:00
parent 9ba3471dfe
commit 882cb0b933
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

8
wsjt1.F
View File

@ -295,7 +295,7 @@ C Now the multi-tone decoding
+ line(j)(29:31).eq.' ') goto 10 + line(j)(29:31).eq.' ') goto 10
write(lumsg,1050) line(j) !Write to decoded.txt write(lumsg,1050) line(j) !Write to decoded.txt
1050 format(a79) 1050 format(a79)
if(lcum) write(21,1050) line(j) !Write to decoded.cum if(lcum) write(21,1050) line(j) !Write to ALL.TXT
read(line(j),1060) sig,msg3 read(line(j),1060) sig,msg3
1060 format(16x,f3.0,9x,a3) 1060 format(16x,f3.0,9x,a3)
if(sig.gt.smax) then if(sig.gt.smax) then
@ -315,9 +315,11 @@ C Now the multi-tone decoding
800 continue 800 continue
call s2shape(s2,nchan,nz,tbest) call s2shape(s2,nchan,nz,tbest)
900 continue 900 LDecoded = ((NSyncOK.gt.0) .or. npkept.gt.0)
end file 11 end file 11
LDecoded = ((NSyncOK.gt.0) .or. npkept.gt.0) call flushqqq(11)
call flushqqq(12)
call flushqqq(21)
return return
end end