blob: 5ec04d58f2c7edf93b63b4aa6126aefb19c32d19 (
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.
# ENVGETR -- Fetch an environment variable and try to interpret its value
# as a real. Abort if variable is not found or cannot be converted to
# a number.
real procedure envgetr (varname)
char varname[ARB]
double val, envgetd()
begin
val = envgetd (varname)
if (IS_INDEFD(val))
return (INDEFR)
else
return (val)
end
|
