mirror of https://git.wownero.com/dsc/mxe.git
31 lines
764 B
C
31 lines
764 B
C
/*
|
|
* This file is part of MXE. See LICENSE.md for licensing information.
|
|
*/
|
|
|
|
#include <string.h>
|
|
#include <stdio.h>
|
|
#include <fitsio.h>
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
(void)argc;
|
|
|
|
fitsfile *fptr;
|
|
char card[FLEN_CARD];
|
|
int status = 0, nkeys, ii; /* MUST initialize status */
|
|
|
|
fits_open_file(&fptr, argv[1], READONLY, &status);
|
|
fits_get_hdrspace(fptr, &nkeys, NULL, &status);
|
|
|
|
for (ii = 1; ii <= nkeys; ii++) {
|
|
fits_read_record(fptr, ii, card, &status); /* read keyword */
|
|
printf("%s\n", card);
|
|
}
|
|
printf("END\n\n"); /* terminate listing with END */
|
|
fits_close_file(fptr, &status);
|
|
|
|
if (status) /* print any error messages */
|
|
fits_report_error(stderr, status);
|
|
return(status);
|
|
}
|