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
47
48
49
50
51
52
53
|
include "tbtables.h"
include "tblfits.h" # defines FITS_KEYWORD_MISSING
# tbfnam -- change column name
# This procedure replaces the column name in a FITS table.
#
# Phil Hodge, 6-Jul-1995 Subroutine created
procedure tbfnam (tp, cp, colname)
pointer tp # i: pointer to table descriptor
pointer cp # i: pointer to column descriptor
char colname[ARB] # i: new column name
#--
pointer sp
pointer keyword # scratch for keyword name
pointer dummy # for current value, if keyword already exists
pointer comment # for comment string
int status # zero is OK
errchk tbferr
begin
call smark (sp)
call salloc (keyword, SZ_FNAME, TY_CHAR)
call salloc (dummy, SZ_FNAME, TY_CHAR)
call salloc (comment, SZ_FNAME, TY_CHAR)
call sprintf (Memc[keyword], SZ_FNAME, "TTYPE%d")
call pargi (COL_NUMBER(cp))
status = 0
# Get the comment, if the keyword already exists.
call fsgkys (TB_FILE(tp), Memc[keyword],
Memc[dummy], Memc[comment], status)
if (status != 0) {
if (status == FITS_KEYWORD_MISSING) {
status = 0
call ftcmsg()
call fsukys (TB_FILE(tp), Memc[keyword], colname,
"column name", status)
}
} else {
# Modify existing keyword value, leaving comment unchanged.
call fsmkys (TB_FILE(tp), Memc[keyword], colname,
Memc[comment], status)
}
if (status != 0)
call tbferr (status)
call sfree (sp)
end
|
