blob: d7179eb31f80584b67089ec11cf764c9835d0dc2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CLGLPS -- Get a list structured short integer valued parameter from the CL.
int procedure clglps (param, sval)
char param[ARB]
short sval
int stat, clglpd()
double dval
begin
stat = clglpd (param, dval)
if (IS_INDEFD (dval))
sval = INDEFS
else
sval = short (dval)
return (stat)
end
|
