Additional needed files

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

flushqqq.f90

@@ -0,0 +1,10 @@
+subroutine flushqqq(lu)
+
+#ifdef Win32
+  use dfport
+#endif
+
+  call flush(lu)
+
+  return
+end subroutine flushqqq

fstatqqq.f90

@@ -0,0 +1,14 @@
+subroutine fstatqqq(lu,istat,ierr)
+
+#ifdef Win32
+  use dfport
+#endif
+
+#ifdef Win32
+  ierr=fstat(lu,istat)
+#else
+  call fstat(lu,istat,ierr)
+#endif
+
+  return
+end subroutine fstatqqq

map65a0.f90

@@ -0,0 +1,9 @@
+subroutine map65a0
+
+  include 'gcom2.f90'
+
+  call map65a
+  ndecdone=1
+
+  return
+end subroutine map65a0

rfile3a.f90

@@ -0,0 +1,13 @@
+!----------------------------------------------------- rfile3a
+subroutine rfile3a(infile,ibuf,n,ierr)
+
+  character*11 infile
+  integer*1 ibuf(n)
+
+  open(10,file=infile,form='binary',status='old',err=998)
+  read(10,end=998) ibuf
+  ierr=0
+  go to 999
+998 ierr=1002
+999 return
+end subroutine rfile3a

sysqqq.f90

@@ -0,0 +1,13 @@
+subroutine sysqqq(cmnd,iret)
+
+#ifdef Win32
+  use dfport
+#else
+  integer system
+#endif
+  character*(*) cmnd
+
+!  iret=system(cmnd)
+
+  return
+end subroutine sysqqq