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
|
#ifndef vimoswcslib_h_
#define vimoswcslib_h_
/*=============================================================================
*
* WCSLIB - an implementation of the FITS WCS proposal.
* Copyright (C) 1995-1999, Mark Calabretta
*
* This library is free software; you can redistribute it and/or modify it
* under the terms of the GNU Library General Public License as published
* by the Free Software Foundation; either version 2 of the License, or (at
* your option) any later version.
*
* This library is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library
* General Public License for more details.
*
* You should have received a copy of the GNU Library General Public License
* along with this library; if not, write to the Free Software Foundation,
* Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* Correspondence concerning WCSLIB may be directed to:
* Internet email: mcalabre@atnf.csiro.au
* Postal address: Dr. Mark Calabretta,
* Australia Telescope National Facility,
* P.O. Box 76,
* Epping, NSW, 2121,
* AUSTRALIA
*
* Author: Mark Calabretta, Australia Telescope National Facility
* $Id: vimoswcslib.h,v 1.1.1.1 2008-10-21 09:10:12 cizzo Exp $
*===========================================================================*/
#ifdef __cplusplus
extern "C" {
#endif
#if !defined(__STDC__) && !defined(__cplusplus)
#ifndef const
#define const
#endif
#endif
struct prjprm {
int flag;
int n;
double r0;
double p[10];
double w[10];
};
#if __STDC__ || defined(__cplusplus)
int vimosazpset(struct prjprm *);
int azpfwd(const double, const double, struct prjprm *, double *, double *);
int azprev(const double, const double, struct prjprm *, double *, double *);
int vimostanset(struct prjprm *);
int tanfwd(const double, const double, struct prjprm *, double *, double *);
int tanrev(const double, const double, struct prjprm *, double *, double *);
int vimossinset(struct prjprm *);
int sinfwd(const double, const double, struct prjprm *, double *, double *);
int sinrev(const double, const double, struct prjprm *, double *, double *);
int vimosstgset(struct prjprm *);
int stgfwd(const double, const double, struct prjprm *, double *, double *);
int stgrev(const double, const double, struct prjprm *, double *, double *);
int vimosarcset(struct prjprm *);
int arcfwd(const double, const double, struct prjprm *, double *, double *);
int arcrev(const double, const double, struct prjprm *, double *, double *);
int vimoszpnset(struct prjprm *);
int zpnfwd(const double, const double, struct prjprm *, double *, double *);
int zpnrev(const double, const double, struct prjprm *, double *, double *);
int vimoszeaset(struct prjprm *);
int zeafwd(const double, const double, struct prjprm *, double *, double *);
int zearev(const double, const double, struct prjprm *, double *, double *);
int vimosairset(struct prjprm *);
int airfwd(const double, const double, struct prjprm *, double *, double *);
int airrev(const double, const double, struct prjprm *, double *, double *);
int vimoscypset(struct prjprm *);
int cypfwd(const double, const double, struct prjprm *, double *, double *);
int cyprev(const double, const double, struct prjprm *, double *, double *);
int vimoscarset(struct prjprm *);
int carfwd(const double, const double, struct prjprm *, double *, double *);
int carrev(const double, const double, struct prjprm *, double *, double *);
int vimosmerset(struct prjprm *);
int merfwd(const double, const double, struct prjprm *, double *, double *);
int merrev(const double, const double, struct prjprm *, double *, double *);
int vimosceaset(struct prjprm *);
int ceafwd(const double, const double, struct prjprm *, double *, double *);
int cearev(const double, const double, struct prjprm *, double *, double *);
int vimoscopset(struct prjprm *);
int copfwd(const double, const double, struct prjprm *, double *, double *);
int coprev(const double, const double, struct prjprm *, double *, double *);
int vimoscodset(struct prjprm *);
int codfwd(const double, const double, struct prjprm *, double *, double *);
int codrev(const double, const double, struct prjprm *, double *, double *);
int vimoscoeset(struct prjprm *);
int coefwd(const double, const double, struct prjprm *, double *, double *);
int coerev(const double, const double, struct prjprm *, double *, double *);
int vimoscooset(struct prjprm *);
int coofwd(const double, const double, struct prjprm *, double *, double *);
int coorev(const double, const double, struct prjprm *, double *, double *);
int vimosbonset(struct prjprm *);
int bonfwd(const double, const double, struct prjprm *, double *, double *);
int bonrev(const double, const double, struct prjprm *, double *, double *);
int vimospcoset(struct prjprm *);
int pcofwd(const double, const double, struct prjprm *, double *, double *);
int pcorev(const double, const double, struct prjprm *, double *, double *);
int glsset(struct prjprm *);
int glsfwd(const double, const double, struct prjprm *, double *, double *);
int glsrev(const double, const double, struct prjprm *, double *, double *);
int vimosparset(struct prjprm *);
int parfwd(const double, const double, struct prjprm *, double *, double *);
int parrev(const double, const double, struct prjprm *, double *, double *);
int vimosaitset(struct prjprm *);
int aitfwd(const double, const double, struct prjprm *, double *, double *);
int aitrev(const double, const double, struct prjprm *, double *, double *);
int vimosmolset(struct prjprm *);
int molfwd(const double, const double, struct prjprm *, double *, double *);
int molrev(const double, const double, struct prjprm *, double *, double *);
int vimoscscset(struct prjprm *);
int cscfwd(const double, const double, struct prjprm *, double *, double *);
int cscrev(const double, const double, struct prjprm *, double *, double *);
int vimosqscset(struct prjprm *);
int qscfwd(const double, const double, struct prjprm *, double *, double *);
int qscrev(const double, const double, struct prjprm *, double *, double *);
int vimostscset(struct prjprm *);
int tscfwd(const double, const double, struct prjprm *, double *, double *);
int tscrev(const double, const double, struct prjprm *, double *, double *);
#else
int vimosazpset(), azpfwd(), azprev();
int vimostanset(), tanfwd(), tanrev();
int vimossinset(), sinfwd(), sinrev();
int vimosstgset(), stgfwd(), stgrev();
int vimosarcset(), arcfwd(), arcrev();
int vimoszpnset(), zpnfwd(), zpnrev();
int vimoszeaset(), zeafwd(), zearev();
int vimosairset(), airfwd(), airrev();
int vimoscypset(), cypfwd(), cyprev();
int vimoscarset(), carfwd(), carrev();
int vimosmerset(), merfwd(), merrev();
int vimosceaset(), ceafwd(), cearev();
int vimoscopset(), copfwd(), coprev();
int vimoscodset(), codfwd(), codrev();
int vimoscoeset(), coefwd(), coerev();
int vimoscooset(), coofwd(), coorev();
int vimosbonset(), bonfwd(), bonrev();
int vimospcoset(), pcofwd(), pcorev();
int glsset(), glsfwd(), glsrev();
int vimosparset(), parfwd(), parrev();
int vimosaitset(), aitfwd(), aitrev();
int vimosmolset(), molfwd(), molrev();
int vimoscscset(), cscfwd(), cscrev();
int vimosqscset(), qscfwd(), qscrev();
int vimostscset(), tscfwd(), tscrev();
#endif
extern const char *prjset_errmsg[];
extern const char *prjfwd_errmsg[];
extern const char *prjrev_errmsg[];
#define PRJSET 137
extern int npcode;
extern char pcodes[25][4];
struct celprm {
int flag;
double ref[4];
double euler[5];
#if __STDC__ || defined(__cplusplus)
int (*prjfwd)(const double, const double,
struct prjprm *,
double *, double *);
int (*prjrev)(const double, const double,
struct prjprm *,
double *, double *);
#else
int (*prjfwd)();
int (*prjrev)();
#endif
};
#if __STDC__ || defined(__cplusplus)
int vimoscelset(const char *, struct celprm *, struct prjprm *);
int celfwd(const char *,
const double, const double,
struct celprm *,
double *, double *,
struct prjprm *,
double *, double *);
int celrev(const char *,
const double, const double,
struct prjprm *,
double *, double *,
struct celprm *,
double *, double *);
#else
int vimoscelset(), celfwd(), celrev();
#endif
extern const char *vimoscelset_errmsg[];
extern const char *celfwd_errmsg[];
extern const char *celrev_errmsg[];
#define CELSET 137
struct linprm {
int flag;
int naxis;
double *crpix;
double *pc;
double *cdelt;
/* Intermediates. */
double *piximg;
double *imgpix;
};
#if __STDC__ || defined(__cplusplus)
int vimoslinset(struct linprm *);
int linfwd(const double[], struct linprm *, double[]);
int linrev(const double[], struct linprm *, double[]);
int vimosmatinv(const int, const double [], double []);
#else
int vimoslinset(), linfwd(), linrev(), vimosmatinv();
#endif
extern const char *vimoslinset_errmsg[];
extern const char *linfwd_errmsg[];
extern const char *linrev_errmsg[];
#define LINSET 137
struct vimoswcsprm {
int flag;
char pcode[4];
char lngtyp[5], lattyp[5];
int lng, lat;
int cubeface;
};
#if __STDC__ || defined(__cplusplus)
int vimoswcsset(const int,
const char[][9],
struct vimoswcsprm *);
int vimoswcsfwd(const char[][9],
struct vimoswcsprm *,
const double[],
const double[],
struct celprm *,
double *,
double *,
struct prjprm *,
double[],
struct linprm *,
double[]);
int vimoswcsrev(const char[][9],
struct vimoswcsprm *,
const double[],
struct linprm *,
double[],
struct prjprm *,
double *,
double *,
const double[],
struct celprm *,
double[]);
int vimoswcsmix(const char[][9],
struct vimoswcsprm *,
const int,
const int,
const double[],
const double,
int,
double[],
const double[],
struct celprm *,
double *,
double *,
struct prjprm *,
double[],
struct linprm *,
double[]);
#else
int vimoswcsset(), vimoswcsfwd(), vimoswcsrev(), vimoswcsmix();
#endif
extern const char *vimoswcsset_errmsg[];
extern const char *vimoswcsfwd_errmsg[];
extern const char *vimoswcsrev_errmsg[];
extern const char *vimoswcsmix_errmsg[];
#define VIMOSWCSSET 137
#if __STDC__ || defined(__cplusplus)
int sphfwd(const double, const double,
const double [],
double *, double *);
int sphrev(const double, const double,
const double [],
double *, double *);
#else
int sphfwd(), sphrev();
#endif
#ifdef PI
#undef PI
#endif
#ifdef D2R
#undef D2R
#endif
#ifdef R2D
#undef R2D
#endif
#ifdef SQRT2
#undef SQRT2
#endif
#ifdef SQRT2INV
#undef SQRT2INV
#endif
#define PI 3.141592653589793238462643
#define D2R PI/180.0
#define R2D 180.0/PI
#define SQRT2 1.4142135623730950488
#define SQRT2INV 1.0/SQRT2
#if !defined(__STDC__) && !defined(__cplusplus)
#ifndef const
#define const
#endif
#endif
#if __STDC__ || defined(__cplusplus)
double cosdeg(const double);
double sindeg(const double);
double tandeg(const double);
double acosdeg(const double);
double asindeg(const double);
double atandeg(const double);
double atan2deg(const double, const double);
#else
double cosdeg();
double sindeg();
double tandeg();
double acosdeg();
double asindeg();
double atandeg();
double atan2deg();
#endif
/* Domain tolerance for asin and acos functions. */
#define VIMOSWCSTRIG_TOL 1e-10
#ifdef __cplusplus
};
#endif
#endif /* vimoswcslib_h_ */
/* Feb 3 2000 Doug Mink - Make cplusplus ifdefs for braces all-inclusive
*
* Feb 15 2001 Doug Mink - Undefine math constants if already defined
*/
|
