blob: df3377c7409d528d8480d7992e0d189c6f456164 (
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"
# tbfhdl -- delete a header keyword from a FITS table
# This routine deletes one header keyword (by number) from the current HDU
# in a FITS file.
#
# Phil Hodge, 3-Oct-1995 Subroutine created
procedure tbfhdl (tp, parnum)
pointer tp # io: pointer to table descriptor
int parnum # i: number of the parameter to be deleted
#--
int status # zero is OK
errchk tbferr
begin
status = 0
# Delete the keyword.
call ftdrec (TB_FILE(tp), parnum, status)
if (status != 0)
call tbferr (status)
TB_NPAR(tp) = TB_NPAR(tp) - 1
end
|