blob: 01a71cb162b49c189e96cfd7b15b3a6fcd3bd565 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <syserr.h>
include "idb.h"
# IMGETD -- Get an image header parameter of type double floating. If the
# named parameter is a standard parameter return the value directly,
# else scan the user area for the named parameter and decode the value.
double procedure imgetd (im, key)
pointer im # image descriptor
char key[ARB] # parameter to be returned
int ip
double dval
pointer sp, sval
int ctod()
errchk syserrs, imgstr
begin
call smark (sp)
call salloc (sval, SZ_LINE, TY_CHAR)
ip = 1
call imgstr (im, key, Memc[sval], SZ_LINE)
if (ctod (Memc[sval], ip, dval) == 0)
call syserrs (SYS_IDBTYPE, key)
call sfree (sp)
return (dval)
end
|
