Restore rfile2.f

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1622 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

map65.py

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

rfile2.f

@@ -0,0 +1,26 @@
+      subroutine rfile2(fname,buf,n,nr)
+
+C  Read data from disk.
+
+      integer RMODE
+      parameter(RMODE=0)
+      integer*1 buf(n)
+      integer open,read,close
+      integer fd
+      character fname*(*)
+      data iz/0/                            !Silence g77 warning
+
+      do i=80,1,-1
+         if(fname(i:i).ne.' ') then
+            iz=i
+            go to 10
+         endif
+      enddo
+
+ 10   fname=fname(1:iz)//char(0)
+      fd=open(fname,RMODE)                  !Open file for reading
+      nr=read(fd,buf,n)
+      i=close(fd)
+
+      return
+      end