blob: 4ee37caffc119f4578b691e9f97de72dc12f9db6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# CLPUTR -- Put a real valued parameter to the CL.
procedure clputr (param, rval)
char param[ARB]
real rval
double dval
begin
if (IS_INDEFR(rval))
dval = INDEFD
else
dval = rval
call clputd (param, dval)
end
|
