blob: 7b686d103e067f92b89fbabc48055c1721e71746 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
|
