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

Endfile 19 ...

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1029 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2008-09-18 19:50:02 +00:00
parent c43cabedd3
commit cc13ce0f8f
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65.py
View File

@ -1,4 +1,4 @@
#-------------------------------------------------------------------- MAP65 #--------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *

3
map65a.F90
View File

@ -33,6 +33,9 @@ subroutine map65a(newdat)
if(nrw26.ne.0) then if(nrw26.ne.0) then
endfile (26) !Compiler bug? Don't write "end file 26" !!! endfile (26) !Compiler bug? Don't write "end file 26" !!!
rewind 26 rewind 26
rewind 19
endfile (19)
rewind 19
nrw26=0 nrw26=0
endif endif