blob: 9eb2fcd3c740c019e3a915f82c1554c59177d3d2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
subroutine m70cls (fcb)
c
c Routine to close model 70 display
c
integer fcb(*)
include 'fcbu.inc'
c
integer*4 sys$dassgn, chan, junk
integer*2 chan2(2)
equivalence (chan, chan2)
c
c call wtexec (fcb)
c
chan2(1) = fcb(fcb_u_m70_chan)
chan2(2) = fcb(fcb_u_m70_chan+1)
c
c if (chan.ne.0) call lib$signal (%val(sys$dassgn (%val(chan))))
if (chan.ne.0) then
junk = sys$dassgn (%val(chan))
endif
c
fcb(fcb_u_m70_chan) = 0
fcb(fcb_u_m70_chan+1) = 0
c
return
end
|
