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
|
include "fitsio.h"
procedure fsgkyn(iunit,nkey,keywrd,value,comm,status)
# Read the name, value, and comment of the NKEYth header record
# This routine is useful for reading the entire header, one
# record at a time.
int iunit # i input file pointer
int nkey # i number of keywords
char keywrd[SZ_FKEYWORD] # o keyword name
% character fkeywr*8
char value[SZ_FSTRVAL] # o data value
% character fvalue*70
char comm[SZ_FLONGCOMM] # o keyword comment
% character fcomm*72
int status # o error status
begin
call ftgkyn(iunit,nkey,fkeywr,fvalue,fcomm,status)
call f77upk(fkeywr ,keywrd ,SZ_FKEYWORD)
call f77upk(fvalue ,value ,SZ_FSTRVAL)
call f77upk(fcomm ,comm ,SZ_FLONGCOMM)
end
|
