From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

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

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

diff --git a/unix/gdev/m70vms/m70rel.f b/unix/gdev/m70vms/m70rel.f
new file mode 100644
index 00000000..7b686d10
--- /dev/null
+++ b/unix/gdev/m70vms/m70rel.f
@@ -0,0 +1,19 @@
+	subroutine m70rel (fcb)
+c
+c     routine to release(DEALLOCATE) the model 70
+c
+	integer fcb(*)
+c
+	include 'fcbu.inc'
+	integer*2 dev2(2)
+	byte dev(4)
+	character*4 m70
+	equivalence (dev2,dev), (m70,dev)
+c
+	call m70cls (fcb)
+	dev2(1) = fcb(fcb_u_m70_name)
+	dev2(2) = fcb(fcb_u_m70_name+1)
+	call sys$dalloc ('_'//m70//':',)
+c
+	return
+	end
-- 
cgit