blob: 1d6482d925fca589e0cb1df43280eea02d303528 (
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.
include <syserr.h>
include <plio.h>
# PLVALID -- Verify the validity of a mask descriptor.
procedure plvalid (pl)
pointer pl #I open mask descriptor
errchk syserr
begin
if (pl != NULL)
if (PL_MAGIC(pl) == PL_MAGICVAL)
if (PL_LLBP(pl) == NULL)
call syserr (SYS_PLINACTDES)
else
return
call syserr (SYS_PLINVDES)
end
|
