blob: 60e4e9f352e2ef07bc31f60661910980f602c440 (
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.
# IMACCF -- Test if the named field exists. NO is returned if the key is not
# found, YES otherwise.
int procedure imaccf (im, key)
pointer im # image descriptor
char key[ARB] # name of the new parameter
int idb_kwlookup(), idb_findrecord()
pointer rp
begin
if ((idb_kwlookup (key) > 0) || (idb_findrecord (im, key, rp) > 0))
return (YES)
else
return (NO)
end
|
