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
28
29
30
|
/* headsimple.c
*/
#include <xos.h>
#include <fitsy.h>
FITSHead ft_headsimple(mem, bytes, naxis, naxes, bitpix)
void *mem;
int bytes;
int bitpix;
int naxis;
int *naxes;
{
FITSHead fits;
int i;
if ( mem ) memset(mem, 0, bytes);
fits = ft_headinit((FITSCard) mem, bytes);
ft_headappl(fits, "SIMPLE" , 0, 1 , NULL);
ft_headappi(fits, "BITPIX" , 0, bitpix , NULL);
ft_headappi(fits, "NAXIS" , 0, naxis , NULL);
for ( i = 1; i <= naxis; i++ ) {
ft_headappi(fits, "NAXIS" , 1, naxes[i], NULL);
}
return fits;
}
|