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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
include <tbset.h>
include "tbtables.h"
# tbhfkw -- find keyword for writing
# Find a "header" record for a given keyword. If the keyword is found
# the number of the parameter in the table will be returned; otherwise,
# the number will be set to zero. The search begins with the first keyword.
#
# Phil Hodge, 22-Jan-1996 Modify for FITS tables.
procedure tbhfkw (tp, keyword, parnum)
pointer tp # i: Pointer to table descriptor
char keyword[SZ_KEYWORD] # i: Keyword to be found
int parnum # o: Parameter number or zero if not found
#--
pointer sp
pointer par # buffer for header record for parameter
int k # loop index
char uckey[SZ_KEYWORD] # keyword converted to upper case
bool tbhkeq()
errchk tbhrpr
begin
if (TB_TYPE(tp) == TBL_TYPE_FITS) {
call tbffkw (tp, keyword, parnum)
return
}
call smark (sp)
call salloc (par, SZ_PARREC, TY_CHAR)
call strcpy (keyword, uckey, SZ_KEYWORD)
call strupr (uckey)
do k = 1, TB_NPAR(tp) {
call tbhrpr (tp, k, Memc[par]) # read parameter record
if (tbhkeq (uckey, Memc[par])) { # keywords equal?
parnum = k
call sfree (sp)
return # keyword has been found
}
}
parnum = 0 # keyword not found
call sfree (sp)
end
|
