From bf3d6534476b0916f2d0905500cb8771134beabc Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 18 Sep 2008 19:50:02 +0000 Subject: [PATCH] Endfile 19 ... git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1029 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- map65.py | 2 +- map65a.F90 | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/map65.py b/map65.py index 8322f1673..cdd6eaeb5 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#-------------------------------------------------------------------- MAP65 +#--------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import * diff --git a/map65a.F90 b/map65a.F90 index af8d0d76c..42bcf4b55 100644 --- a/map65a.F90 +++ b/map65a.F90 @@ -33,6 +33,9 @@ subroutine map65a(newdat) if(nrw26.ne.0) then endfile (26) !Compiler bug? Don't write "end file 26" !!! rewind 26 + rewind 19 + endfile (19) + rewind 19 nrw26=0 endif