sys/clio/clcpset.x


1
2
3
4
5
6
7
8
9
10
11

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

# CLCPSET -- Close a pset.

procedure clcpset (pp)

pointer	pp		# pset descriptor

begin
	call mfree (pp, TY_STRUCT)
end