blob: e8fb0a4b1fc6ea50ac37aa4eb54d8e553cf9b0fd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CLGETR -- Get a single precision floating parameter from the CL.
real procedure clgetr (param)
char param[ARB]
double dval, clgetd()
begin
dval = clgetd (param)
if (IS_INDEFD (dval))
return (INDEFR)
else
return (real(dval))
end
|
