blob: a36caa895399bc776f74c75a888a026a730846e2 (
plain) (
blame)
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
|
# WFITS header file
# The basic FITS data structure
define LEN_FITS (44 + SZ_FNAME + 1)
define BSCALE Memd[P2D($1)] # FITS bscale value
define BZERO Memd[P2D($1+2)] # FITS bzero value
define TAPEMAX Memd[P2D($1+4)] # IRAF tape max
define TAPEMIN Memd[P2D($1+6)] # IRAF tape min
define IRAFMAX Memr[P2R($1+8)] # IRAF image maximum
define IRAFMIN Memr[P2R($1+9)] # IRAF image minimum
define BLANK Meml[P2L($1+10)] # FITS blank value
define FITS_BITPIX Memi[$1+11] # FITS bits per pixel
define DATA_BITPIX Memi[$1+12] # Data bits per pixel
define SCALE Memi[$1+13] # Scale data?
define XTENSION Memi[$1+14] # FITS extension type
define BLANK_STRING Memc[P2C($1+19)] # String containing FITS blank value
define TYPE_STRING Memc[P2C($1+31)] # String containing IRAF type
define IRAFNAME Memc[P2C($1+41)] # IRAF file name
# Define the FITS record size
define FITS_RECORD 2880 # Size of standard FITS record (bytes)
# Define the supported FITS extensions
define EXT_PRIMARY 1 # the primary data array
define EXT_IMAGE 2 # the image extension
# Define the FITS data types
define FITS_BYTE 8 # Number of bits in a FITS byte
define FITS_SHORT 16 # Number of bits in a FITS short
define FITS_LONG 32 # Number of bits in a FITS long
define FITS_REAL -32 # Number of bits in a FITS real * -1
define FITS_DOUBLE -64 # Number of bits in a FITS double * -1
# Define the FITS precision in decimal digits
define BYTE_PREC 3 # Precision of FITS byte
define SHORT_PREC 5 # Precision of FITS short
define LONG_PREC 10 # Precision of FITS long
# Define the FITS blank data values
define BYTE_BLANK 0.0d0 # Blank value for a FITS byte
define SHORT_BLANK -3.2768d4 # Blank value for a FITS short
define LONG_BLANK -2.147483648d9 # Blank value for a FITS long
#define BYTE_BLANK 0 # Blank value for a FITS byte
#define SHORT_BLANK -32768 # Blank value for a FITS short
#define LONG_BLANK -2147483648 # Blank value for a FITS long
# Define the FITS integer max and min values
define BYTE_MAX 2.55d2 # Max value for a FITS byte
define BYTE_MIN 1.0d0 # Min value for a FITS byte
define SHORT_MAX 3.2767d4 # Max value for a FITS short
define SHORT_MIN -3.2767d4 # Min value for a FITS short
define LONG_MAX 2.147483647d9 # Max value for a FITS long
define LONG_MIN -2.147483647d9 # Min value for a FITS long
define PREC_RATIO .99978637d0 # Tape span reduction factor
# Define the FITS card image parameters
define LEN_CARD 80 # Length of FITS header card
define LEN_KEYWORD 8 # Length of FITS keyword
define LEN_NAXIS_KYWRD 5 # Length of the NAXIS keyword string
define COL_VALUE 11 # First column of value field
# Mapping of FITS task keywords to IRAF image header keywords
define NAXIS IM_NDIM($1) # Number of dimensions
define NAXISN IM_LEN($1, $2) # Length of each dimension
define OBJECT IM_TITLE($1) # Image title
define HISTORY IM_HISTORY($1) # History
define UNKNOWN Memc[($1+IMU-1)*SZ_STRUCT+1] # IRAF user area
define PIXTYPE IM_PIXTYPE($1) # Image pixel type
define NBPIX IM_NBPIX($1) # Number of bad pixels
define LIMTIME IM_LIMTIME($1) # Last modify limits time
define MTIME IM_MTIME($1) # Last modify time
define CTIME IM_CTIME($1) # Create time
define LEN_USERAREA 28800 # Default user area size
# Set up a structure for the WFITS parameters
# Define the required keywords
define FIRST_CARD 1 # FITS simple/xtension parameter
define SECOND_CARD 2 # FITS bitpix parameter
define THIRD_CARD 3 # FITS naxis parameter
# Define the optional FITS KEYWORD parameters
define NOPTIONS 15 # Number of optional keywords
define KEY_EXTEND 1 # FITS EXTEND keyword
define KEY_PCOUNT 2 # Number of random parameter
define KEY_GCOUNT 3 # Number of groups
define KEY_BSCALE 4 # FITS bscale parameter
define KEY_BZERO 5 # FITS bzero parameter
define KEY_BUNIT 6 # FITS physical units
define KEY_BLANK 7 # FITS value of blank pixel
define KEY_OBJECT 8 # FITS title string
define KEY_ORIGIN 9 # Origin of FITS tape
define KEY_DATE 10 # Date the tape was written
define KEY_IRAFNAME 11 # Root name of IRAF image
define KEY_IRAFMAX 12 # Maximum value of IRAF image
define KEY_IRAFMIN 13 # Minimum value of IRAF image
define KEY_IRAFBP 14 # Bits per pixel in IRAF image
define KEY_IRAFTYPE 15 # IRAF image data type
define LEN_STRING 8 # Minimum length of a string parameter
define LEN_DATE 19 # Length of the new date string
define LEN_OBJECT 63 # Maximum length of string parameter
define LEN_ALIGN 18 # Maximum length for aligning parameter
define LEN_ORIGIN 9 # Length of origin string
define LEN_BLANK 11 # Length of the blank string
define NDEC_REAL 7 # Precision of real data
define NDEC_DOUBLE 11 # Precision of double precision data
# Miscellaneous
define CENTURY 1900
define NEW_CENTURY 2000
|
