blob: fe972bcb370b85d485e220a02b6850265a3846c4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# PL_CREATE -- Create an empty mask with the given dimensionality and size.
# A newly created mask has all line pointers pointing to the empty line,
# which is stored as the first entry in the line list buffer.
pointer procedure pl_create (naxes, axlen, depth)
int naxes #I number of axes (dimensionality of mask)
long axlen[ARB] #I length of each axis
int depth #I mask depth, bits
pointer pl
pointer pl_open()
errchk pl_open
begin
pl = pl_open (NULL)
call pl_ssize (pl, naxes, axlen, depth)
return (pl)
end
|
