-
Notifications
You must be signed in to change notification settings - Fork 10
/
fitsio.h
2089 lines (1893 loc) · 118 KB
/
fitsio.h
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
/* The FITSIO software was written by William Pence at the High Energy */
/* Astrophysic Science Archive Research Center (HEASARC) at the NASA */
/* Goddard Space Flight Center. */
/*
Copyright (Unpublished--all rights reserved under the copyright laws of
the United States), U.S. Government as represented by the Administrator
of the National Aeronautics and Space Administration. No copyright is
claimed in the United States under Title 17, U.S. Code.
Permission to freely use, copy, modify, and distribute this software
and its documentation without fee is hereby granted, provided that this
copyright notice and disclaimer of warranty appears in all copies.
DISCLAIMER:
THE SOFTWARE IS PROVIDED 'AS IS' WITHOUT ANY WARRANTY OF ANY KIND,
EITHER EXPRESSED, IMPLIED, OR STATUTORY, INCLUDING, BUT NOT LIMITED TO,
ANY WARRANTY THAT THE SOFTWARE WILL CONFORM TO SPECIFICATIONS, ANY
IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
PURPOSE, AND FREEDOM FROM INFRINGEMENT, AND ANY WARRANTY THAT THE
DOCUMENTATION WILL CONFORM TO THE SOFTWARE, OR ANY WARRANTY THAT THE
SOFTWARE WILL BE ERROR FREE. IN NO EVENT SHALL NASA BE LIABLE FOR ANY
DAMAGES, INCLUDING, BUT NOT LIMITED TO, DIRECT, INDIRECT, SPECIAL OR
CONSEQUENTIAL DAMAGES, ARISING OUT OF, RESULTING FROM, OR IN ANY WAY
CONNECTED WITH THIS SOFTWARE, WHETHER OR NOT BASED UPON WARRANTY,
CONTRACT, TORT , OR OTHERWISE, WHETHER OR NOT INJURY WAS SUSTAINED BY
PERSONS OR PROPERTY OR OTHERWISE, AND WHETHER OR NOT LOSS WAS SUSTAINED
FROM, OR AROSE OUT OF THE RESULTS OF, OR USE OF, THE SOFTWARE OR
SERVICES PROVIDED HEREUNDER."
*/
#ifndef _FITSIO_H
#define _FITSIO_H
#define CFITSIO_VERSION 4.5.0
/* Minor and micro numbers must not exceed 99 under current method
of version representataion in ffvers(). */
#define CFITSIO_MICRO 0
#define CFITSIO_MINOR 5
#define CFITSIO_MAJOR 4
#define CFITSIO_SONAME 10
/* the SONAME is incremented in a new release if the binary shared */
/* library (on linux and Mac systems) is not backward compatible */
/* with the previous release of CFITSIO */
/* CFITS_API is defined below for use on Windows systems. */
/* It is used to identify the public functions which should be exported. */
/* This has no effect on non-windows platforms where "WIN32" is not defined */
#if defined (WIN32)
#if defined(cfitsio_EXPORTS)
#define CFITS_API __declspec(dllexport)
#else
#define CFITS_API /* __declspec(dllimport) */
#endif /* CFITS_API */
#else /* defined (WIN32) */
#define CFITS_API
#endif
#include <stdio.h>
/* the following was provided by Michael Greason (GSFC) to fix a */
/* C/Fortran compatibility problem on an SGI Altix system running */
/* SGI ProPack 4 [this is a Novell SuSE Enterprise 9 derivative] */
/* and using the Intel C++ and Fortran compilers (version 9.1) */
#if defined(__INTEL_COMPILER) && defined(__itanium__)
# define mipsFortran 1
# define _MIPS_SZLONG 64
#endif
#if defined(__GLIBC__) || defined(__APPLE__) || defined(__sgi)
# include <sys/types.h> /* apparently needed on debian linux systems */
#endif /* to define off_t */
#include <stdlib.h> /* apparently needed to define size_t with gcc 2.8.1 */
#include <limits.h> /* needed for LLONG_MAX and INT64_MAX definitions */
/* Define the datatype for variables which store file offset values. */
/* The newer 'off_t' datatype should be used for this purpose, but some */
/* older compilers do not recognize this type, in which case we use 'long' */
/* instead. Note that _OFF_T is defined (or not) in stdio.h depending */
/* on whether _LARGEFILE_SOURCE is defined in sys/feature_tests.h */
/* (at least on Solaris platforms using cc) */
/* Debian systems require: "(defined(__GLIBC__) && defined(__off_t_defined))" */
/* the mingw-w64 compiler requires: "(defined(__MINGW32__) && defined(_OFF_T_DEFINED))" */
#if defined(_OFF_T) \
|| (defined(__GLIBC__) && defined(__off_t_defined)) \
|| (defined(__MINGW32__) && defined(_OFF_T_DEFINED)) \
|| defined(_MIPS_SZLONG) || defined(__APPLE__) || defined(_AIX)
# define OFF_T off_t
#elif defined(__BORLANDC__) || (defined(_MSC_VER) && (_MSC_VER>= 1400))
# define OFF_T long long
#else
# define OFF_T long
#endif
/* this block determines if the the string function name is
strtol or strtoll, and whether to use %ld or %lld in printf statements */
/*
The following 2 cases for that Athon64 were removed on 4 Jan 2006;
they appear to be incorrect now that LONGLONG is always typedef'ed
to 'long long'
|| defined(__ia64__) \
|| defined(__x86_64__) \
*/
#if (defined(__alpha) && ( defined(__unix__) || defined(__NetBSD__) )) \
|| defined(__sparcv9) || (defined(__sparc__) && defined(__arch64__)) \
|| defined(__powerpc64__) || defined(__64BIT__) \
|| (defined(_MIPS_SZLONG) && _MIPS_SZLONG == 64) \
|| defined( _MSC_VER)|| defined(__BORLANDC__)
# define USE_LL_SUFFIX 0
#else
# define USE_LL_SUFFIX 1
#endif
/*
Determine what 8-byte integer data type is available.
'long long' is now supported by most compilers, but
older MS Visual C++ compilers before V7.0 use '__int64' instead.
*/
#ifndef LONGLONG_TYPE /* this may have been previously defined */
#if defined(_MSC_VER) /* Microsoft Visual C++ */
#if (_MSC_VER < 1300) /* versions earlier than V7.0 do not have 'long long' */
typedef __int64 LONGLONG;
typedef unsigned __int64 ULONGLONG;
#else /* newer versions do support 'long long' */
typedef long long LONGLONG;
typedef unsigned long long ULONGLONG;
#endif
#elif defined( __BORLANDC__) /* for the Borland 5.5 compiler, in particular */
typedef __int64 LONGLONG;
typedef unsigned __int64 ULONGLONG;
#else
typedef long long LONGLONG;
typedef unsigned long long ULONGLONG;
#endif
#define LONGLONG_TYPE
#endif
#ifndef LONGLONG_MAX
#ifdef LLONG_MAX
/* Linux and Solaris definition */
#define LONGLONG_MAX LLONG_MAX
#define LONGLONG_MIN LLONG_MIN
#elif defined(LONG_LONG_MAX)
#define LONGLONG_MAX LONG_LONG_MAX
#define LONGLONG_MIN LONG_LONG_MIN
#elif defined(__LONG_LONG_MAX__)
/* Mac OS X & CYGWIN defintion */
#define LONGLONG_MAX __LONG_LONG_MAX__
#define LONGLONG_MIN (-LONGLONG_MAX -1LL)
#elif defined(INT64_MAX)
/* windows definition */
#define LONGLONG_MAX INT64_MAX
#define LONGLONG_MIN INT64_MIN
#elif defined(_I64_MAX)
/* windows definition */
#define LONGLONG_MAX _I64_MAX
#define LONGLONG_MIN _I64_MIN
#elif (defined(__alpha) && ( defined(__unix__) || defined(__NetBSD__) )) \
|| defined(__sparcv9) \
|| defined(__ia64__) \
|| defined(__x86_64__) \
|| defined(_SX) \
|| defined(__powerpc64__) || defined(__64BIT__) \
|| (defined(_MIPS_SZLONG) && _MIPS_SZLONG == 64)
/* sizeof(long) = 64 */
#define LONGLONG_MAX 9223372036854775807L /* max 64-bit integer */
#define LONGLONG_MIN (-LONGLONG_MAX -1L) /* min 64-bit integer */
#else
/* define a default value, even if it is never used */
#define LONGLONG_MAX 9223372036854775807LL /* max 64-bit integer */
#define LONGLONG_MIN (-LONGLONG_MAX -1LL) /* min 64-bit integer */
#endif
#endif /* end of ndef LONGLONG_MAX section */
/* ================================================================= */
/* The following exclusion if __CINT__ is defined is needed for ROOT */
#ifndef __CINT__
#include "longnam.h"
#endif
#define NIOBUF 40 /* number of IO buffers to create (default = 40) */
/* !! Significantly increasing NIOBUF may degrade performance !! */
#define IOBUFLEN 2880 /* size in bytes of each IO buffer (DONT CHANGE!) */
/* global variables */
#define FLEN_FILENAME 1025 /* max length of a filename */
#define FLEN_KEYWORD 75 /* max length of a keyword (HIERARCH convention) */
#define FLEN_CARD 81 /* length of a FITS header card */
#define FLEN_VALUE 71 /* max length of a keyword value string */
#define FLEN_COMMENT 73 /* max length of a keyword comment string */
#define FLEN_ERRMSG 81 /* max length of a FITSIO error message */
#define FLEN_STATUS 31 /* max length of a FITSIO status text string */
#define TBIT 1 /* codes for FITS table data types */
#define TBYTE 11
#define TSBYTE 12
#define TLOGICAL 14
#define TSTRING 16
#define TUSHORT 20
#define TSHORT 21
#define TUINT 30
#define TINT 31
#define TULONG 40
#define TLONG 41
#define TINT32BIT 41 /* used when returning datatype of a column */
#define TFLOAT 42
#define TULONGLONG 80
#define TLONGLONG 81
#define TDOUBLE 82
#define TCOMPLEX 83
#define TDBLCOMPLEX 163
#define TYP_STRUC_KEY 10
#define TYP_CMPRS_KEY 20
#define TYP_SCAL_KEY 30
#define TYP_NULL_KEY 40
#define TYP_DIM_KEY 50
#define TYP_RANG_KEY 60
#define TYP_UNIT_KEY 70
#define TYP_DISP_KEY 80
#define TYP_HDUID_KEY 90
#define TYP_CKSUM_KEY 100
#define TYP_WCS_KEY 110
#define TYP_REFSYS_KEY 120
#define TYP_COMM_KEY 130
#define TYP_CONT_KEY 140
#define TYP_USER_KEY 150
#define INT32BIT int /* 32-bit integer datatype. Currently this */
/* datatype is an 'int' on all useful platforms */
/* however, it is possible that that are cases */
/* where 'int' is a 2-byte integer, in which case */
/* INT32BIT would need to be defined as 'long'. */
#define BYTE_IMG 8 /* BITPIX code values for FITS image types */
#define SHORT_IMG 16
#define LONG_IMG 32
#define LONGLONG_IMG 64
#define FLOAT_IMG -32
#define DOUBLE_IMG -64
/* The following 2 codes are not true FITS */
/* datatypes; these codes are only used internally */
/* within cfitsio to make it easier for users */
/* to deal with unsigned integers. */
#define SBYTE_IMG 10
#define USHORT_IMG 20
#define ULONG_IMG 40
#define ULONGLONG_IMG 80
#define IMAGE_HDU 0 /* Primary Array or IMAGE HDU */
#define ASCII_TBL 1 /* ASCII table HDU */
#define BINARY_TBL 2 /* Binary table HDU */
#define ANY_HDU -1 /* matches any HDU type */
#define READONLY 0 /* options when opening a file */
#define READWRITE 1
/* adopt a hopefully obscure number to use as a null value flag */
#define FLOATNULLVALUE -9.11912E-36F
#define DOUBLENULLVALUE -9.1191291391491E-36
/* compression algorithm codes */
#define NO_DITHER -1
#define SUBTRACTIVE_DITHER_1 1
#define SUBTRACTIVE_DITHER_2 2
#define MAX_COMPRESS_DIM 6
#define RICE_1 11
#define GZIP_1 21
#define GZIP_2 22
#define PLIO_1 31
#define HCOMPRESS_1 41
#define BZIP2_1 51 /* not publicly supported; only for test purposes */
#define NOCOMPRESS -1
#ifndef TRUE
#define TRUE 1
#endif
#ifndef FALSE
#define FALSE 0
#endif
#define CASESEN 1 /* do case-sensitive string match */
#define CASEINSEN 0 /* do case-insensitive string match */
#define GT_ID_ALL_URI 0 /* hierarchical grouping parameters */
#define GT_ID_REF 1
#define GT_ID_POS 2
#define GT_ID_ALL 3
#define GT_ID_REF_URI 11
#define GT_ID_POS_URI 12
#define OPT_RM_GPT 0
#define OPT_RM_ENTRY 1
#define OPT_RM_MBR 2
#define OPT_RM_ALL 3
#define OPT_GCP_GPT 0
#define OPT_GCP_MBR 1
#define OPT_GCP_ALL 2
#define OPT_MCP_ADD 0
#define OPT_MCP_NADD 1
#define OPT_MCP_REPL 2
#define OPT_MCP_MOV 3
#define OPT_MRG_COPY 0
#define OPT_MRG_MOV 1
#define OPT_CMT_MBR 1
#define OPT_CMT_MBR_DEL 11
typedef struct /* structure used to store table column information */
{
char ttype[70]; /* column name = FITS TTYPEn keyword; */
LONGLONG tbcol; /* offset in row to first byte of each column */
int tdatatype; /* datatype code of each column */
LONGLONG trepeat; /* repeat count of column; number of elements */
double tscale; /* FITS TSCALn linear scaling factor */
double tzero; /* FITS TZEROn linear scaling zero point */
LONGLONG tnull; /* FITS null value for int image or binary table cols */
char strnull[20]; /* FITS null value string for ASCII table columns */
char tform[10]; /* FITS tform keyword value */
long twidth; /* width of each ASCII table column */
}tcolumn;
#define VALIDSTRUC 555 /* magic value used to identify if structure is valid */
typedef struct /* structure used to store basic FITS file information */
{
int filehandle; /* handle returned by the file open function */
int driver; /* defines which set of I/O drivers should be used */
int open_count; /* number of opened 'fitsfiles' using this structure */
char *filename; /* file name */
int validcode; /* magic value used to verify that structure is valid */
int only_one; /* flag meaning only copy the specified extension */
int noextsyntax; /* flag for file opened with request to ignore extended syntax*/
LONGLONG filesize; /* current size of the physical disk file in bytes */
LONGLONG logfilesize; /* logical size of file, including unflushed buffers */
int lasthdu; /* is this the last HDU in the file? 0 = no, else yes */
LONGLONG bytepos; /* current logical I/O pointer position in file */
LONGLONG io_pos; /* current I/O pointer position in the physical file */
int curbuf; /* number of I/O buffer currently in use */
int curhdu; /* current HDU number; 0 = primary array */
int hdutype; /* 0 = primary array, 1 = ASCII table, 2 = binary table */
int writemode; /* 0 = readonly, 1 = readwrite */
int maxhdu; /* highest numbered HDU known to exist in the file */
int MAXHDU; /* dynamically allocated dimension of headstart array */
LONGLONG *headstart; /* byte offset in file to start of each HDU */
LONGLONG headend; /* byte offest in file to end of the current HDU header */
LONGLONG ENDpos; /* byte offest to where the END keyword was last written */
LONGLONG nextkey; /* byte offset in file to beginning of next keyword */
LONGLONG datastart; /* byte offset in file to start of the current data unit */
int imgdim; /* dimension of image; cached for fast access */
LONGLONG imgnaxis[99]; /* length of each axis; cached for fast access */
int tfield; /* number of fields in the table (primary array has 2 */
int startcol; /* used by ffgcnn to record starting column number */
LONGLONG origrows; /* original number of rows (value of NAXIS2 keyword) */
LONGLONG numrows; /* number of rows in the table (dynamically updated) */
LONGLONG rowlength; /* length of a table row or image size (bytes) */
tcolumn *tableptr; /* pointer to the table structure */
LONGLONG heapstart; /* heap start byte relative to start of data unit */
LONGLONG heapsize; /* size of the heap, in bytes */
/* the following elements are related to compressed images */
/* these record the 'requested' options to be used when the image is compressed */
int request_compress_type; /* requested image compression algorithm */
long request_tilesize[MAX_COMPRESS_DIM]; /* requested tiling size */
float request_quantize_level; /* requested quantize level */
int request_quantize_method ; /* requested quantizing method */
int request_dither_seed; /* starting offset into the array of random dithering */
int request_lossy_int_compress; /* lossy compress integer image as if float image? */
int request_huge_hdu; /* use '1Q' rather then '1P' variable length arrays */
float request_hcomp_scale; /* requested HCOMPRESS scale factor */
int request_hcomp_smooth; /* requested HCOMPRESS smooth parameter */
/* these record the actual options that were used when the image was compressed */
int compress_type; /* type of compression algorithm */
long tilesize[MAX_COMPRESS_DIM]; /* size of compression tiles */
float quantize_level; /* floating point quantization level */
int quantize_method; /* floating point pixel quantization algorithm */
int dither_seed; /* starting offset into the array of random dithering */
/* other compression parameters */
int compressimg; /* 1 if HDU contains a compressed image, else 0 */
char zcmptype[12]; /* compression type string */
int zbitpix; /* FITS data type of image (BITPIX) */
int zndim; /* dimension of image */
long znaxis[MAX_COMPRESS_DIM]; /* length of each axis */
long maxtilelen; /* max number of pixels in each image tile */
long maxelem; /* maximum byte length of tile compressed arrays */
int cn_compressed; /* column number for COMPRESSED_DATA column */
int cn_uncompressed; /* column number for UNCOMPRESSED_DATA column */
int cn_gzip_data; /* column number for GZIP2 lossless compressed data */
int cn_zscale; /* column number for ZSCALE column */
int cn_zzero; /* column number for ZZERO column */
int cn_zblank; /* column number for the ZBLANK column */
double zscale; /* scaling value, if same for all tiles */
double zzero; /* zero pt, if same for all tiles */
double cn_bscale; /* value of the BSCALE keyword in header */
double cn_bzero; /* value of the BZERO keyword (may be reset) */
double cn_actual_bzero; /* actual value of the BZERO keyword */
int zblank; /* value for null pixels, if not a column */
int rice_blocksize; /* first compression parameter: Rice pixels/block */
int rice_bytepix; /* 2nd compression parameter: Rice bytes/pixel */
float hcomp_scale; /* 1st hcompress compression parameter */
int hcomp_smooth; /* 2nd hcompress compression parameter */
int *tilerow; /* row number of the array of uncompressed tiledata */
long *tiledatasize; /* length of the array of tile data in bytes */
int *tiletype; /* datatype of the array of tile (TINT, TSHORT, etc) */
void **tiledata; /* array of uncompressed tile of data, for row *tilerow */
void **tilenullarray; /* array of optional array of null value flags */
int *tileanynull; /* anynulls in the array of tile? */
char *iobuffer; /* pointer to FITS file I/O buffers */
long bufrecnum[NIOBUF]; /* file record number of each of the buffers */
int dirty[NIOBUF]; /* has the corresponding buffer been modified? */
int ageindex[NIOBUF]; /* relative age of each buffer */
} FITSfile;
typedef struct /* structure used to store basic HDU information */
{
int HDUposition; /* HDU position in file; 0 = first HDU */
FITSfile *Fptr; /* pointer to FITS file structure */
}fitsfile;
typedef struct /* structure for the iterator function column information */
{
/* elements required as input to fits_iterate_data: */
fitsfile *fptr; /* pointer to the HDU containing the column */
int colnum; /* column number in the table (use name if < 1) */
char colname[70]; /* name (= TTYPEn value) of the column (optional) */
int datatype; /* output datatype (converted if necessary */
int iotype; /* = InputCol, InputOutputCol, or OutputCol */
/* output elements that may be useful for the work function: */
void *array; /* pointer to the array (and the null value) */
long repeat; /* binary table vector repeat value */
long tlmin; /* legal minimum data value */
long tlmax; /* legal maximum data value */
char tunit[70]; /* physical unit string */
char tdisp[70]; /* suggested display format */
} iteratorCol;
#define InputCol 0 /* flag for input only iterator column */
#define InputOutputCol 1 /* flag for input and output iterator column */
#define OutputCol 2 /* flag for output only iterator column */
#define TemporaryCol 3 /* flag for temporary iterator column INTERNAL */
/*=============================================================================
*
* The following wtbarr typedef is used in the fits_read_wcstab() routine,
* which is intended for use with the WCSLIB library written by Mark
* Calabretta, http://www.atnf.csiro.au/~mcalabre/index.html
*
* In order to maintain WCSLIB and CFITSIO as independent libraries it
* was not permissible for any CFITSIO library code to include WCSLIB
* header files, or vice versa. However, the CFITSIO function
* fits_read_wcstab() accepts an array of structs defined by wcs.h within
* WCSLIB. The problem then was to define this struct within fitsio.h
* without including wcs.h, especially noting that wcs.h will often (but
* not always) be included together with fitsio.h in an applications
* program that uses fits_read_wcstab().
*
* Of the various possibilities, the solution adopted was for WCSLIB to
* define "struct wtbarr" while fitsio.h defines "typedef wtbarr", a
* untagged struct with identical members. This allows both wcs.h and
* fitsio.h to define a wtbarr data type without conflict by virtue of
* the fact that structure tags and typedef names share different
* namespaces in C. Therefore, declarations within WCSLIB look like
*
* struct wtbarr *w;
*
* while within CFITSIO they are simply
*
* wtbarr *w;
*
* but as suggested by the commonality of the names, these are really the
* same aggregate data type. However, in passing a (struct wtbarr *) to
* fits_read_wcstab() a cast to (wtbarr *) is formally required.
*===========================================================================*/
#ifndef WCSLIB_GETWCSTAB
#define WCSLIB_GETWCSTAB
typedef struct {
int i; /* Image axis number. */
int m; /* Array axis number for index vectors. */
int kind; /* Array type, 'c' (coord) or 'i' (index). */
char extnam[72]; /* EXTNAME of binary table extension. */
int extver; /* EXTVER of binary table extension. */
int extlev; /* EXTLEV of binary table extension. */
char ttype[72]; /* TTYPEn of column containing the array. */
long row; /* Table row number. */
int ndim; /* Expected array dimensionality. */
int *dimlen; /* Where to write the array axis lengths. */
double **arrayp; /* Where to write the address of the array */
/* allocated to store the array. */
} wtbarr;
/* The following exclusion if __CINT__ is defined is needed for ROOT */
#ifndef __CINT__
/* the following 3 lines are needed to support C++ compilers */
#ifdef __cplusplus
extern "C" {
#endif
#endif
int CFITS_API fits_read_wcstab(fitsfile *fptr, int nwtb, wtbarr *wtb, int *status);
/* The following exclusion if __CINT__ is defined is needed for ROOT */
#ifndef __CINT__
#ifdef __cplusplus
}
#endif
#endif
#endif /* WCSLIB_GETWCSTAB */
/* error status codes */
#define CREATE_DISK_FILE -106 /* create disk file, without extended filename syntax */
#define OPEN_DISK_FILE -105 /* open disk file, without extended filename syntax */
#define SKIP_TABLE -104 /* move to 1st image when opening file */
#define SKIP_IMAGE -103 /* move to 1st table when opening file */
#define SKIP_NULL_PRIMARY -102 /* skip null primary array when opening file */
#define USE_MEM_BUFF -101 /* use memory buffer when opening file */
#define OVERFLOW_ERR -11 /* overflow during datatype conversion */
#define PREPEND_PRIMARY -9 /* used in ffiimg to insert new primary array */
#define SAME_FILE 101 /* input and output files are the same */
#define TOO_MANY_FILES 103 /* tried to open too many FITS files */
#define FILE_NOT_OPENED 104 /* could not open the named file */
#define FILE_NOT_CREATED 105 /* could not create the named file */
#define WRITE_ERROR 106 /* error writing to FITS file */
#define END_OF_FILE 107 /* tried to move past end of file */
#define READ_ERROR 108 /* error reading from FITS file */
#define FILE_NOT_CLOSED 110 /* could not close the file */
#define ARRAY_TOO_BIG 111 /* array dimensions exceed internal limit */
#define READONLY_FILE 112 /* Cannot write to readonly file */
#define MEMORY_ALLOCATION 113 /* Could not allocate memory */
#define BAD_FILEPTR 114 /* invalid fitsfile pointer */
#define NULL_INPUT_PTR 115 /* NULL input pointer to routine */
#define SEEK_ERROR 116 /* error seeking position in file */
#define BAD_NETTIMEOUT 117 /* bad value for file download timeout setting */
#define BAD_URL_PREFIX 121 /* invalid URL prefix on file name */
#define TOO_MANY_DRIVERS 122 /* tried to register too many IO drivers */
#define DRIVER_INIT_FAILED 123 /* driver initialization failed */
#define NO_MATCHING_DRIVER 124 /* matching driver is not registered */
#define URL_PARSE_ERROR 125 /* failed to parse input file URL */
#define RANGE_PARSE_ERROR 126 /* failed to parse input file URL */
#define SHARED_ERRBASE (150)
#define SHARED_BADARG (SHARED_ERRBASE + 1)
#define SHARED_NULPTR (SHARED_ERRBASE + 2)
#define SHARED_TABFULL (SHARED_ERRBASE + 3)
#define SHARED_NOTINIT (SHARED_ERRBASE + 4)
#define SHARED_IPCERR (SHARED_ERRBASE + 5)
#define SHARED_NOMEM (SHARED_ERRBASE + 6)
#define SHARED_AGAIN (SHARED_ERRBASE + 7)
#define SHARED_NOFILE (SHARED_ERRBASE + 8)
#define SHARED_NORESIZE (SHARED_ERRBASE + 9)
#define HEADER_NOT_EMPTY 201 /* header already contains keywords */
#define KEY_NO_EXIST 202 /* keyword not found in header */
#define KEY_OUT_BOUNDS 203 /* keyword record number is out of bounds */
#define VALUE_UNDEFINED 204 /* keyword value field is blank */
#define NO_QUOTE 205 /* string is missing the closing quote */
#define BAD_INDEX_KEY 206 /* illegal indexed keyword name */
#define BAD_KEYCHAR 207 /* illegal character in keyword name or card */
#define BAD_ORDER 208 /* required keywords out of order */
#define NOT_POS_INT 209 /* keyword value is not a positive integer */
#define NO_END 210 /* couldn't find END keyword */
#define BAD_BITPIX 211 /* illegal BITPIX keyword value*/
#define BAD_NAXIS 212 /* illegal NAXIS keyword value */
#define BAD_NAXES 213 /* illegal NAXISn keyword value */
#define BAD_PCOUNT 214 /* illegal PCOUNT keyword value */
#define BAD_GCOUNT 215 /* illegal GCOUNT keyword value */
#define BAD_TFIELDS 216 /* illegal TFIELDS keyword value */
#define NEG_WIDTH 217 /* negative table row size */
#define NEG_ROWS 218 /* negative number of rows in table */
#define COL_NOT_FOUND 219 /* column with this name not found in table */
#define BAD_SIMPLE 220 /* illegal value of SIMPLE keyword */
#define NO_SIMPLE 221 /* Primary array doesn't start with SIMPLE */
#define NO_BITPIX 222 /* Second keyword not BITPIX */
#define NO_NAXIS 223 /* Third keyword not NAXIS */
#define NO_NAXES 224 /* Couldn't find all the NAXISn keywords */
#define NO_XTENSION 225 /* HDU doesn't start with XTENSION keyword */
#define NOT_ATABLE 226 /* the CHDU is not an ASCII table extension */
#define NOT_BTABLE 227 /* the CHDU is not a binary table extension */
#define NO_PCOUNT 228 /* couldn't find PCOUNT keyword */
#define NO_GCOUNT 229 /* couldn't find GCOUNT keyword */
#define NO_TFIELDS 230 /* couldn't find TFIELDS keyword */
#define NO_TBCOL 231 /* couldn't find TBCOLn keyword */
#define NO_TFORM 232 /* couldn't find TFORMn keyword */
#define NOT_IMAGE 233 /* the CHDU is not an IMAGE extension */
#define BAD_TBCOL 234 /* TBCOLn keyword value < 0 or > rowlength */
#define NOT_TABLE 235 /* the CHDU is not a table */
#define COL_TOO_WIDE 236 /* column is too wide to fit in table */
#define COL_NOT_UNIQUE 237 /* more than 1 column name matches template */
#define BAD_ROW_WIDTH 241 /* sum of column widths not = NAXIS1 */
#define UNKNOWN_EXT 251 /* unrecognizable FITS extension type */
#define UNKNOWN_REC 252 /* unrecognizable FITS record */
#define END_JUNK 253 /* END keyword is not blank */
#define BAD_HEADER_FILL 254 /* Header fill area not blank */
#define BAD_DATA_FILL 255 /* Data fill area not blank or zero */
#define BAD_TFORM 261 /* illegal TFORM format code */
#define BAD_TFORM_DTYPE 262 /* unrecognizable TFORM datatype code */
#define BAD_TDIM 263 /* illegal TDIMn keyword value */
#define BAD_HEAP_PTR 264 /* invalid BINTABLE heap address */
#define BAD_HDU_NUM 301 /* HDU number < 1 or > MAXHDU */
#define BAD_COL_NUM 302 /* column number < 1 or > tfields */
#define NEG_FILE_POS 304 /* tried to move before beginning of file */
#define NEG_BYTES 306 /* tried to read or write negative bytes */
#define BAD_ROW_NUM 307 /* illegal starting row number in table */
#define BAD_ELEM_NUM 308 /* illegal starting element number in vector */
#define NOT_ASCII_COL 309 /* this is not an ASCII string column */
#define NOT_LOGICAL_COL 310 /* this is not a logical datatype column */
#define BAD_ATABLE_FORMAT 311 /* ASCII table column has wrong format */
#define BAD_BTABLE_FORMAT 312 /* Binary table column has wrong format */
#define NO_NULL 314 /* null value has not been defined */
#define NOT_VARI_LEN 317 /* this is not a variable length column */
#define BAD_DIMEN 320 /* illegal number of dimensions in array */
#define BAD_PIX_NUM 321 /* first pixel number greater than last pixel */
#define ZERO_SCALE 322 /* illegal BSCALE or TSCALn keyword = 0 */
#define NEG_AXIS 323 /* illegal axis length < 1 */
#define NOT_GROUP_TABLE 340
#define HDU_ALREADY_MEMBER 341
#define MEMBER_NOT_FOUND 342
#define GROUP_NOT_FOUND 343
#define BAD_GROUP_ID 344
#define TOO_MANY_HDUS_TRACKED 345
#define HDU_ALREADY_TRACKED 346
#define BAD_OPTION 347
#define IDENTICAL_POINTERS 348
#define BAD_GROUP_ATTACH 349
#define BAD_GROUP_DETACH 350
#define BAD_I2C 401 /* bad int to formatted string conversion */
#define BAD_F2C 402 /* bad float to formatted string conversion */
#define BAD_INTKEY 403 /* can't interprete keyword value as integer */
#define BAD_LOGICALKEY 404 /* can't interprete keyword value as logical */
#define BAD_FLOATKEY 405 /* can't interprete keyword value as float */
#define BAD_DOUBLEKEY 406 /* can't interprete keyword value as double */
#define BAD_C2I 407 /* bad formatted string to int conversion */
#define BAD_C2F 408 /* bad formatted string to float conversion */
#define BAD_C2D 409 /* bad formatted string to double conversion */
#define BAD_DATATYPE 410 /* bad keyword datatype code */
#define BAD_DECIM 411 /* bad number of decimal places specified */
#define NUM_OVERFLOW 412 /* overflow during datatype conversion */
# define DATA_COMPRESSION_ERR 413 /* error in imcompress routines */
# define DATA_DECOMPRESSION_ERR 414 /* error in imcompress routines */
# define NO_COMPRESSED_TILE 415 /* compressed tile doesn't exist */
#define BAD_DATE 420 /* error in date or time conversion */
#define PARSE_SYNTAX_ERR 431 /* syntax error in parser expression */
#define PARSE_BAD_TYPE 432 /* expression did not evaluate to desired type */
#define PARSE_LRG_VECTOR 433 /* vector result too large to return in array */
#define PARSE_NO_OUTPUT 434 /* data parser failed not sent an out column */
#define PARSE_BAD_COL 435 /* bad data encounter while parsing column */
#define PARSE_BAD_OUTPUT 436 /* Output file not of proper type */
#define ANGLE_TOO_BIG 501 /* celestial angle too large for projection */
#define BAD_WCS_VAL 502 /* bad celestial coordinate or pixel value */
#define WCS_ERROR 503 /* error in celestial coordinate calculation */
#define BAD_WCS_PROJ 504 /* unsupported type of celestial projection */
#define NO_WCS_KEY 505 /* celestial coordinate keywords not found */
#define APPROX_WCS_KEY 506 /* approximate WCS keywords were calculated */
#define NO_CLOSE_ERROR 999 /* special value used internally to switch off */
/* the error message from ffclos and ffchdu */
/*------- following error codes are used in the grparser.c file -----------*/
#define NGP_ERRBASE (360) /* base chosen so not to interfere with CFITSIO */
#define NGP_OK (0)
#define NGP_NO_MEMORY (NGP_ERRBASE + 0) /* malloc failed */
#define NGP_READ_ERR (NGP_ERRBASE + 1) /* read error from file */
#define NGP_NUL_PTR (NGP_ERRBASE + 2) /* null pointer passed as argument */
#define NGP_EMPTY_CURLINE (NGP_ERRBASE + 3) /* line read seems to be empty */
#define NGP_UNREAD_QUEUE_FULL (NGP_ERRBASE + 4) /* cannot unread more then 1 line (or single line twice) */
#define NGP_INC_NESTING (NGP_ERRBASE + 5) /* too deep include file nesting (inf. loop ?) */
#define NGP_ERR_FOPEN (NGP_ERRBASE + 6) /* fopen() failed, cannot open file */
#define NGP_EOF (NGP_ERRBASE + 7) /* end of file encountered */
#define NGP_BAD_ARG (NGP_ERRBASE + 8) /* bad arguments passed */
#define NGP_TOKEN_NOT_EXPECT (NGP_ERRBASE + 9) /* token not expected here */
/* The following exclusion if __CINT__ is defined is needed for ROOT */
#ifndef __CINT__
/* the following 3 lines are needed to support C++ compilers */
#ifdef __cplusplus
extern "C" {
#endif
#endif
int CFITS2Unit( fitsfile *fptr );
CFITS_API fitsfile* CUnit2FITS(int unit);
/*---------------- FITS file URL parsing routines -------------*/
int CFITS_API fits_get_token (char **ptr, char *delimiter, char *token, int *isanumber);
int CFITS_API fits_get_token2(char **ptr, char *delimiter, char **token, int *isanumber, int *status);
char CFITS_API *fits_split_names(char *list);
int CFITS_API ffiurl( char *url, char *urltype, char *infile,
char *outfile, char *extspec, char *rowfilter,
char *binspec, char *colspec, int *status);
int CFITS_API ffifile (char *url, char *urltype, char *infile,
char *outfile, char *extspec, char *rowfilter,
char *binspec, char *colspec, char *pixfilter, int *status);
int CFITS_API ffifile2 (char *url, char *urltype, char *infile,
char *outfile, char *extspec, char *rowfilter,
char *binspec, char *colspec, char *pixfilter, char *compspec, int *status);
int CFITS_API ffrtnm(char *url, char *rootname, int *status);
int CFITS_API ffexist(const char *infile, int *exists, int *status);
int CFITS_API ffexts(char *extspec, int *extnum, char *extname, int *extvers,
int *hdutype, char *colname, char *rowexpress, int *status);
int CFITS_API ffextn(char *url, int *extension_num, int *status);
int CFITS_API ffurlt(fitsfile *fptr, char *urlType, int *status);
int CFITS_API ffbins(char *binspec, int *imagetype, int *haxis,
char colname[4][FLEN_VALUE], double *minin,
double *maxin, double *binsizein,
char minname[4][FLEN_VALUE], char maxname[4][FLEN_VALUE],
char binname[4][FLEN_VALUE], double *weight, char *wtname,
int *recip, int *status);
int CFITS_API ffbinr(char **binspec, char *colname, double *minin,
double *maxin, double *binsizein, char *minname,
char *maxname, char *binname, int *status);
int CFITS_API fits_copy_cell2image(fitsfile *fptr, fitsfile *newptr, char *colname,
long rownum, int *status);
int CFITS_API fits_copy_image2cell(fitsfile *fptr, fitsfile *newptr, char *colname,
long rownum, int copykeyflag, int *status);
int CFITS_API fits_copy_pixlist2image(fitsfile *infptr, fitsfile *outfptr, int firstkey, /* I - first HDU record number to start with */
int naxis, int *colnum, int *status);
int CFITS_API ffimport_file( char *filename, char **contents, int *status );
int CFITS_API ffrwrg( char *rowlist, LONGLONG maxrows, int maxranges, int *numranges,
long *minrow, long *maxrow, int *status);
int CFITS_API ffrwrgll( char *rowlist, LONGLONG maxrows, int maxranges, int *numranges,
LONGLONG *minrow, LONGLONG *maxrow, int *status);
/*---------------- FITS file I/O routines -------------*/
int CFITS_API fits_init_cfitsio(void);
int CFITS_API ffomem(fitsfile **fptr, const char *name, int mode, void **buffptr,
size_t *buffsize, size_t deltasize,
void *(*mem_realloc)(void *p, size_t newsize),
int *status);
int CFITS_API ffopen(fitsfile **fptr, const char *filename, int iomode, int *status);
int CFITS_API ffopentest(int soname, fitsfile **fptr, const char *filename, int iomode, int *status);
int CFITS_API ffdopn(fitsfile **fptr, const char *filename, int iomode, int *status);
int CFITS_API ffeopn(fitsfile **fptr, const char *filename, int iomode,
char *extlist, int *hdutype, int *status);
int CFITS_API fftopn(fitsfile **fptr, const char *filename, int iomode, int *status);
int CFITS_API ffiopn(fitsfile **fptr, const char *filename, int iomode, int *status);
int CFITS_API ffdkopn(fitsfile **fptr, const char *filename, int iomode, int *status);
int CFITS_API ffreopen(fitsfile *openfptr, fitsfile **newfptr, int *status);
int CFITS_API ffinit( fitsfile **fptr, const char *filename, int *status);
int CFITS_API ffdkinit(fitsfile **fptr, const char *filename, int *status);
int CFITS_API ffimem(fitsfile **fptr, void **buffptr,
size_t *buffsize, size_t deltasize,
void *(*mem_realloc)(void *p, size_t newsize),
int *status);
int CFITS_API fftplt(fitsfile **fptr, const char *filename, const char *tempname,
int *status);
int CFITS_API ffflus(fitsfile *fptr, int *status);
int CFITS_API ffflsh(fitsfile *fptr, int clearbuf, int *status);
int CFITS_API ffclos(fitsfile *fptr, int *status);
int CFITS_API ffdelt(fitsfile *fptr, int *status);
int CFITS_API ffflnm(fitsfile *fptr, char *filename, int *status);
int CFITS_API ffflmd(fitsfile *fptr, int *filemode, int *status);
int CFITS_API fits_delete_iraf_file(const char *filename, int *status);
/*---------------- utility routines -------------*/
float CFITS_API ffvers(float *version);
void CFITS_API ffupch(char *string);
void CFITS_API ffgerr(int status, char *errtext);
void CFITS_API ffpmsg(const char *err_message);
void CFITS_API ffpmrk(void);
int CFITS_API ffgmsg(char *err_message);
void CFITS_API ffcmsg(void);
void CFITS_API ffcmrk(void);
void CFITS_API ffrprt(FILE *stream, int status);
void CFITS_API ffcmps(char *templt, char *colname, int casesen, int *match,
int *exact);
int CFITS_API fftkey(const char *keyword, int *status);
int CFITS_API fftrec(char *card, int *status);
int CFITS_API ffnchk(fitsfile *fptr, int *status);
int CFITS_API ffkeyn(const char *keyroot, int value, char *keyname, int *status);
int CFITS_API ffnkey(int value, const char *keyroot, char *keyname, int *status);
int CFITS_API ffgkcl(char *card);
int CFITS_API ffdtyp(const char *cval, char *dtype, int *status);
int CFITS_API ffinttyp(char *cval, int *datatype, int *negative, int *status);
int CFITS_API ffpsvc(char *card, char *value, char *comm, int *status);
int CFITS_API ffgknm(char *card, char *name, int *length, int *status);
int CFITS_API ffgthd(char *tmplt, char *card, int *hdtype, int *status);
int CFITS_API ffmkky(const char *keyname, char *keyval, const char *comm, char *card, int *status);
int CFITS_API fits_translate_keyword(char *inrec, char *outrec, char *patterns[][2],
int npat, int n_value, int n_offset, int n_range, int *pat_num,
int *i, int *j, int *m, int *n, int *status);
int CFITS_API fits_translate_keywords(fitsfile *infptr, fitsfile *outfptr,
int firstkey, char *patterns[][2],
int npat, int n_value, int n_offset, int n_range, int *status);
int CFITS_API ffasfm(char *tform, int *datacode, long *width, int *decim, int *status);
int CFITS_API ffbnfm(char *tform, int *datacode, long *repeat, long *width, int *status);
int CFITS_API ffbnfmll(char *tform, int *datacode, LONGLONG *repeat, long *width, int *status);
int CFITS_API ffgabc(int tfields, char **tform, int space, long *rowlen, long *tbcol,
int *status);
int CFITS_API fits_get_section_range(char **ptr,long *secmin,long *secmax,long *incre,
int *status);
/* ffmbyt should not normally be used in application programs, but it is
defined here as a publicly available routine because there are a few
rare cases where it is needed
*/
int CFITS_API ffmbyt(fitsfile *fptr, LONGLONG bytpos, int ignore_err, int *status);
/*----------------- write single keywords --------------*/
int CFITS_API ffpky(fitsfile *fptr, int datatype, const char *keyname, void *value,
const char *comm, int *status);
int CFITS_API ffprec(fitsfile *fptr, const char *card, int *status);
int CFITS_API ffpcom(fitsfile *fptr, const char *comm, int *status);
int CFITS_API ffpunt(fitsfile *fptr, const char *keyname, const char *unit, int *status);
int CFITS_API ffphis(fitsfile *fptr, const char *history, int *status);
int CFITS_API ffpdat(fitsfile *fptr, int *status);
int CFITS_API ffverifydate(int year, int month, int day, int *status);
int CFITS_API ffgstm(char *timestr, int *timeref, int *status);
int CFITS_API ffgsdt(int *day, int *month, int *year, int *status);
int CFITS_API ffdt2s(int year, int month, int day, char *datestr, int *status);
int CFITS_API fftm2s(int year, int month, int day, int hour, int minute, double second,
int decimals, char *datestr, int *status);
int CFITS_API ffs2dt(char *datestr, int *year, int *month, int *day, int *status);
int CFITS_API ffs2tm(char *datestr, int *year, int *month, int *day, int *hour,
int *minute, double *second, int *status);
int CFITS_API ffpkyu(fitsfile *fptr, const char *keyname, const char *comm, int *status);
int CFITS_API ffpkys(fitsfile *fptr, const char *keyname, const char *value, const char *comm,int *status);
int CFITS_API ffpkls(fitsfile *fptr, const char *keyname, const char *value, const char *comm,int *status);
int CFITS_API ffplsw(fitsfile *fptr, int *status);
int CFITS_API ffpkyl(fitsfile *fptr, const char *keyname, int value, const char *comm, int *status);
int CFITS_API ffpkyj(fitsfile *fptr, const char *keyname, LONGLONG value, const char *comm, int *status);
int CFITS_API ffpkyuj(fitsfile *fptr, const char *keyname, ULONGLONG value, const char *comm, int *status);
int CFITS_API ffpkyf(fitsfile *fptr, const char *keyname, float value, int decim, const char *comm,
int *status);
int CFITS_API ffpkye(fitsfile *fptr, const char *keyname, float value, int decim, const char *comm,
int *status);
int CFITS_API ffpkyg(fitsfile *fptr, const char *keyname, double value, int decim, const char *comm,
int *status);
int CFITS_API ffpkyd(fitsfile *fptr, const char *keyname, double value, int decim, const char *comm,
int *status);
int CFITS_API ffpkyc(fitsfile *fptr, const char *keyname, float *value, int decim, const char *comm,
int *status);
int CFITS_API ffpkym(fitsfile *fptr, const char *keyname, double *value, int decim, const char *comm,
int *status);
int CFITS_API ffpkfc(fitsfile *fptr, const char *keyname, float *value, int decim, const char *comm,
int *status);
int CFITS_API ffpkfm(fitsfile *fptr, const char *keyname, double *value, int decim, const char *comm,
int *status);
int CFITS_API ffpkyt(fitsfile *fptr, const char *keyname, long intval, double frac, const char *comm,
int *status);
int CFITS_API ffptdm( fitsfile *fptr, int colnum, int naxis, long naxes[], int *status);
int CFITS_API ffptdmll( fitsfile *fptr, int colnum, int naxis, LONGLONG naxes[], int *status);
/*----------------- write array of keywords --------------*/
int CFITS_API ffpkns(fitsfile *fptr, const char *keyroot, int nstart, int nkey, char *value[],
char *comm[], int *status);
int CFITS_API ffpknl(fitsfile *fptr, const char *keyroot, int nstart, int nkey, int *value,
char *comm[], int *status);
int CFITS_API ffpknj(fitsfile *fptr, const char *keyroot, int nstart, int nkey, long *value,
char *comm[], int *status);
int CFITS_API ffpknjj(fitsfile *fptr, const char *keyroot, int nstart, int nkey, LONGLONG *value,
char *comm[], int *status);
int CFITS_API ffpknf(fitsfile *fptr, const char *keyroot, int nstart, int nkey, float *value,
int decim, char *comm[], int *status);
int CFITS_API ffpkne(fitsfile *fptr, const char *keyroot, int nstart, int nkey, float *value,
int decim, char *comm[], int *status);
int CFITS_API ffpkng(fitsfile *fptr, const char *keyroot, int nstart, int nkey, double *value,
int decim, char *comm[], int *status);
int CFITS_API ffpknd(fitsfile *fptr, const char *keyroot, int nstart, int nkey, double *value,
int decim, char *comm[], int *status);
int CFITS_API ffcpky(fitsfile *infptr,fitsfile *outfptr,int incol,int outcol,
char *rootname, int *status);
/*----------------- write required header keywords --------------*/
int CFITS_API ffphps( fitsfile *fptr, int bitpix, int naxis, long naxes[], int *status);
int CFITS_API ffphpsll( fitsfile *fptr, int bitpix, int naxis, LONGLONG naxes[], int *status);
int CFITS_API ffphpr( fitsfile *fptr, int simple, int bitpix, int naxis, long naxes[],
LONGLONG pcount, LONGLONG gcount, int extend, int *status);
int CFITS_API ffphprll( fitsfile *fptr, int simple, int bitpix, int naxis, LONGLONG naxes[],
LONGLONG pcount, LONGLONG gcount, int extend, int *status);
int CFITS_API ffphtb(fitsfile *fptr, LONGLONG naxis1, LONGLONG naxis2, int tfields, char **ttype,
long *tbcol, char **tform, char **tunit, const char *extname, int *status);
int CFITS_API ffphbn(fitsfile *fptr, LONGLONG naxis2, int tfields, char **ttype,
char **tform, char **tunit, const char *extname, LONGLONG pcount, int *status);
int CFITS_API ffphext( fitsfile *fptr, const char *xtension, int bitpix, int naxis, long naxes[],
LONGLONG pcount, LONGLONG gcount, int *status);
/*----------------- write template keywords --------------*/
int CFITS_API ffpktp(fitsfile *fptr, const char *filename, int *status);
/*------------------ get header information --------------*/
int CFITS_API ffghsp(fitsfile *fptr, int *nexist, int *nmore, int *status);
int CFITS_API ffghps(fitsfile *fptr, int *nexist, int *position, int *status);
/*------------------ move position in header -------------*/
int CFITS_API ffmaky(fitsfile *fptr, int nrec, int *status);
int CFITS_API ffmrky(fitsfile *fptr, int nrec, int *status);
/*------------------ read single keywords -----------------*/
int CFITS_API ffgnxk(fitsfile *fptr, char **inclist, int ninc, char **exclist,
int nexc, char *card, int *status);
int CFITS_API ffgrec(fitsfile *fptr, int nrec, char *card, int *status);
int CFITS_API ffgcrd(fitsfile *fptr, const char *keyname, char *card, int *status);
int CFITS_API ffgstr(fitsfile *fptr, const char *string, char *card, int *status);
int CFITS_API ffgunt(fitsfile *fptr, const char *keyname, char *unit, int *status);
int CFITS_API ffgkyn(fitsfile *fptr, int nkey, char *keyname, char *keyval, char *comm,
int *status);
int CFITS_API ffgkey(fitsfile *fptr, const char *keyname, char *keyval, char *comm,
int *status);
int CFITS_API ffgky( fitsfile *fptr, int datatype, const char *keyname, void *value,
char *comm, int *status);
int CFITS_API ffgkys(fitsfile *fptr, const char *keyname, char *value, char *comm, int *status);
int CFITS_API ffgksl(fitsfile *fptr, const char *keyname, int *length, int *status);
int CFITS_API ffgkcsl(fitsfile *fptr, const char *keyname, int *length, int *comlength, int *status);
int CFITS_API ffgkls(fitsfile *fptr, const char *keyname, char **value, char *comm, int *status);
int CFITS_API ffgsky(fitsfile *fptr, const char *keyname, int firstchar, int maxchar,
char *value, int *valuelen, char *comm, int *status);
int CFITS_API ffgskyc(fitsfile *fptr, const char *keyname, int firstchar, int maxchar,
int maxcomchar, char *value, int *valuelen, char *comm, int *comlen, int *status);
int CFITS_API fffree(void *value, int *status);
int CFITS_API fffkls(char *value, int *status);
int CFITS_API ffgkyl(fitsfile *fptr, const char *keyname, int *value, char *comm, int *status);
int CFITS_API ffgkyj(fitsfile *fptr, const char *keyname, long *value, char *comm, int *status);
int CFITS_API ffgkyjj(fitsfile *fptr, const char *keyname, LONGLONG *value, char *comm, int *status);
int CFITS_API ffgkyujj(fitsfile *fptr, const char *keyname, ULONGLONG *value, char *comm, int *status);
int CFITS_API ffgkye(fitsfile *fptr, const char *keyname, float *value, char *comm,int *status);
int CFITS_API ffgkyd(fitsfile *fptr, const char *keyname, double *value,char *comm,int *status);
int CFITS_API ffgkyc(fitsfile *fptr, const char *keyname, float *value, char *comm,int *status);
int CFITS_API ffgkym(fitsfile *fptr, const char *keyname, double *value,char *comm,int *status);
int CFITS_API ffgkyt(fitsfile *fptr, const char *keyname, long *ivalue, double *dvalue,
char *comm, int *status);
int CFITS_API ffgtdm(fitsfile *fptr, int colnum, int maxdim, int *naxis, long naxes[],
int *status);
int CFITS_API ffgtdmll(fitsfile *fptr, int colnum, int maxdim, int *naxis, LONGLONG naxes[],
int *status);
int CFITS_API ffdtdm(fitsfile *fptr, char *tdimstr, int colnum, int maxdim,
int *naxis, long naxes[], int *status);
int CFITS_API ffdtdmll(fitsfile *fptr, char *tdimstr, int colnum, int maxdim,
int *naxis, LONGLONG naxes[], int *status);
/*------------------ read array of keywords -----------------*/
int CFITS_API ffgkns(fitsfile *fptr, const char *keyname, int nstart, int nmax, char *value[],
int *nfound, int *status);
int CFITS_API ffgknl(fitsfile *fptr, const char *keyname, int nstart, int nmax, int *value,
int *nfound, int *status);
int CFITS_API ffgknj(fitsfile *fptr, const char *keyname, int nstart, int nmax, long *value,
int *nfound, int *status);
int CFITS_API ffgknjj(fitsfile *fptr, const char *keyname, int nstart, int nmax, LONGLONG *value,
int *nfound, int *status);
int CFITS_API ffgkne(fitsfile *fptr, const char *keyname, int nstart, int nmax, float *value,
int *nfound, int *status);
int CFITS_API ffgknd(fitsfile *fptr, const char *keyname, int nstart, int nmax, double *value,
int *nfound, int *status);
int CFITS_API ffh2st(fitsfile *fptr, char **header, int *status);
int CFITS_API ffhdr2str( fitsfile *fptr, int exclude_comm, char **exclist,
int nexc, char **header, int *nkeys, int *status);