unix/gdev/iism70/zclm70.x


1
2
3
4
5
6
7
8
9
10
11
12

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# ZCLM70 -- Close and deallocate the IIS.

procedure zclm70 (chan, status)

int	chan
int	status

begin
	call zclsbf (chan, status)
end