From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/gdev/m70vms/m70mcl.f | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 unix/gdev/m70vms/m70mcl.f

(limited to 'unix/gdev/m70vms/m70mcl.f')

diff --git a/unix/gdev/m70vms/m70mcl.f b/unix/gdev/m70vms/m70mcl.f
new file mode 100644
index 00000000..c9fb5c98
--- /dev/null
+++ b/unix/gdev/m70vms/m70mcl.f
@@ -0,0 +1,35 @@
+	subroutine m70mcl (fcb, error)
+c
+c     master clear model 70
+c
+	integer fcb(*), error
+c
+	include 'fcbu.inc'
+	external io$_rewind, ss$_normal
+	integer*4 status, iosb(2), chan, sys$qiow
+	integer*2 chan2(2), iostat, stat
+	equivalence (chan, chan2), (iosb, iostat)
+        equivalence (status, stat)
+        external ss$_timeout, ss$_powerfail
+c
+	chan2(1) = fcb(fcb_u_m70_chan)
+	chan2(2) = fcb(fcb_u_m70_chan+1)
+c
+	status = sys$qiow (, %val(chan), io$_rewind, iosb,,,,,,,,)
+	if (status) then
+           if (iosb(1)) then
+              error = 0
+           else
+              status = lib$match_cond (iosb, ss$_timeout, ss$_powerfail)
+              if (status .eq. 0) then
+                 error = 1000 + iostat
+              else
+                 error = status
+              endif
+           endif
+        else
+           error = 1000 + stat
+        endif
+c
+	return
+	end
-- 
cgit