From d8046a14dc8677a2b2cf72399bed75bb9b8c3666 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 11 Jan 2007 21:48:10 +0000
Subject: [PATCH] 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 | 10 ++++++++++
 fstatqqq.f90 | 14 ++++++++++++++
 map65a0.f90  |  9 +++++++++
 rfile3a.f90  | 13 +++++++++++++
 sysqqq.f90   | 13 +++++++++++++
 5 files changed, 59 insertions(+)
 create mode 100644 flushqqq.f90
 create mode 100644 fstatqqq.f90
 create mode 100644 map65a0.f90
 create mode 100644 rfile3a.f90
 create mode 100644 sysqqq.f90

diff --git a/flushqqq.f90 b/flushqqq.f90
new file mode 100644
index 000000000..03c996df8
--- /dev/null
+++ b/flushqqq.f90
@@ -0,0 +1,10 @@
+subroutine flushqqq(lu)
+
+#ifdef Win32
+  use dfport
+#endif
+
+  call flush(lu)
+
+  return
+end subroutine flushqqq
diff --git a/fstatqqq.f90 b/fstatqqq.f90
new file mode 100644
index 000000000..2e0cb6649
--- /dev/null
+++ b/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
diff --git a/map65a0.f90 b/map65a0.f90
new file mode 100644
index 000000000..05b275d18
--- /dev/null
+++ b/map65a0.f90
@@ -0,0 +1,9 @@
+subroutine map65a0
+
+  include 'gcom2.f90'
+
+  call map65a
+  ndecdone=1
+
+  return
+end subroutine map65a0
diff --git a/rfile3a.f90 b/rfile3a.f90
new file mode 100644
index 000000000..9f0fb5a35
--- /dev/null
+++ b/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
diff --git a/sysqqq.f90 b/sysqqq.f90
new file mode 100644
index 000000000..609253cb7
--- /dev/null
+++ b/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