1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
include "fitsio.h"
procedure fsphpr(ounit,simple,bitpix,naxis,naxes,
pcount,gcount,extend,status)
# write required primary header keywords
int ounit # i output file pointer
bool simple # i simple FITS file?
int bitpix # i bits per pixel
int naxis # i number of axes
int naxes[ARB] # i dimension of each axis
int pcount # i no. of group parameters
int gcount # i no. of groups
bool extend # i EXTEND keyword = TRUE?
int status # o error status
begin
call ftphpr(ounit,simple,bitpix,naxis,naxes,
pcount,gcount,extend,status)
end
|
