blob: 440c8bdb874c63d8a181762a04fbbf4c19a6bdbf (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
include "fitsio.h"
procedure fsgrec(iunit,nrec,record,status)
# Read the Nth 80-byte header record
# This routine is useful for reading the entire header, one
# record at a time.
int iunit # i input file pointer
int nrec # i number of keywords
char record[SZ_FCARD] # o 80-char header record
% character frecor*80
int status # o error status
begin
call ftgrec(iunit,nrec,frecor,status)
call f77upk(frecor,record,SZ_FCARD)
end
|
