blob: db96671c3c5de952d3adb3f0bb3c2447049bd28f (
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
|
include "tbtables.h"
# tbfpcm -- add a comment to a FITS header parameter
# This adds a comment to a header parameter, or replaces one that is
# already there. It is an error if the header parameter is not found.
#
# Phil Hodge, 6-Jul-1995 Subroutine created
procedure tbfpcm (tp, keyword, comment)
pointer tp # i: pointer to table descriptor
char keyword[ARB] # i: keyword to be found
char comment[ARB] # i: comment string for keyword
#--
int status # 0 is OK
errchk tbferr
begin
if (comment[1] == EOS)
return
status = 0
call fsmcom (TB_FILE(tp), keyword, comment, status)
if (status != 0)
call tbferr (status)
end
|
