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
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>WCSLIB 4.8.2: lin.h Source File</title>
<link href="doxygen.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
</head><body>
<!-- Generated by Doxygen 1.5.6 -->
<div class="navigation" id="top">
<div class="tabs">
<ul>
<li><a href="index.html"><span>Main Page</span></a></li>
<li><a href="pages.html"><span>Related Pages</span></a></li>
<li><a href="annotated.html"><span>Data Structures</span></a></li>
<li class="current"><a href="files.html"><span>Files</span></a></li>
</ul>
</div>
<h1>lin.h</h1><a href="lin_8h.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*============================================================================</span>
<a name="l00002"></a>00002 <span class="comment"></span>
<a name="l00003"></a>00003 <span class="comment"> WCSLIB 4.8 - an implementation of the FITS WCS standard.</span>
<a name="l00004"></a>00004 <span class="comment"> Copyright (C) 1995-2011, Mark Calabretta</span>
<a name="l00005"></a>00005 <span class="comment"></span>
<a name="l00006"></a>00006 <span class="comment"> This file is part of WCSLIB.</span>
<a name="l00007"></a>00007 <span class="comment"></span>
<a name="l00008"></a>00008 <span class="comment"> WCSLIB is free software: you can redistribute it and/or modify it under the</span>
<a name="l00009"></a>00009 <span class="comment"> terms of the GNU Lesser General Public License as published by the Free</span>
<a name="l00010"></a>00010 <span class="comment"> Software Foundation, either version 3 of the License, or (at your option)</span>
<a name="l00011"></a>00011 <span class="comment"> any later version.</span>
<a name="l00012"></a>00012 <span class="comment"></span>
<a name="l00013"></a>00013 <span class="comment"> WCSLIB is distributed in the hope that it will be useful, but WITHOUT ANY</span>
<a name="l00014"></a>00014 <span class="comment"> WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS</span>
<a name="l00015"></a>00015 <span class="comment"> FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for</span>
<a name="l00016"></a>00016 <span class="comment"> more details.</span>
<a name="l00017"></a>00017 <span class="comment"></span>
<a name="l00018"></a>00018 <span class="comment"> You should have received a copy of the GNU Lesser General Public License</span>
<a name="l00019"></a>00019 <span class="comment"> along with WCSLIB. If not, see <http://www.gnu.org/licenses/>.</span>
<a name="l00020"></a>00020 <span class="comment"></span>
<a name="l00021"></a>00021 <span class="comment"> Correspondence concerning WCSLIB may be directed to:</span>
<a name="l00022"></a>00022 <span class="comment"> Internet email: mcalabre@atnf.csiro.au</span>
<a name="l00023"></a>00023 <span class="comment"> Postal address: Dr. Mark Calabretta</span>
<a name="l00024"></a>00024 <span class="comment"> Australia Telescope National Facility, CSIRO</span>
<a name="l00025"></a>00025 <span class="comment"> PO Box 76</span>
<a name="l00026"></a>00026 <span class="comment"> Epping NSW 1710</span>
<a name="l00027"></a>00027 <span class="comment"> AUSTRALIA</span>
<a name="l00028"></a>00028 <span class="comment"></span>
<a name="l00029"></a>00029 <span class="comment"> Author: Mark Calabretta, Australia Telescope National Facility</span>
<a name="l00030"></a>00030 <span class="comment"> http://www.atnf.csiro.au/~mcalabre/index.html</span>
<a name="l00031"></a>00031 <span class="comment"> $Id: lin.h,v 4.8.1.1 2011/08/15 08:07:06 cal103 Exp cal103 $</span>
<a name="l00032"></a>00032 <span class="comment">*=============================================================================</span>
<a name="l00033"></a>00033 <span class="comment">*</span>
<a name="l00034"></a>00034 <span class="comment">* WCSLIB 4.8 - C routines that implement the FITS World Coordinate System</span>
<a name="l00035"></a>00035 <span class="comment">* (WCS) standard. Refer to</span>
<a name="l00036"></a>00036 <span class="comment">*</span>
<a name="l00037"></a>00037 <span class="comment">* "Representations of world coordinates in FITS",</span>
<a name="l00038"></a>00038 <span class="comment">* Greisen, E.W., & Calabretta, M.R. 2002, A&A, 395, 1061 (Paper I)</span>
<a name="l00039"></a>00039 <span class="comment">*</span>
<a name="l00040"></a>00040 <span class="comment">* Refer to the README file provided with WCSLIB for an overview of the</span>
<a name="l00041"></a>00041 <span class="comment">* library.</span>
<a name="l00042"></a>00042 <span class="comment">*</span>
<a name="l00043"></a>00043 <span class="comment">*</span>
<a name="l00044"></a>00044 <span class="comment">* Summary of the lin routines</span>
<a name="l00045"></a>00045 <span class="comment">* ---------------------------</span>
<a name="l00046"></a>00046 <span class="comment">* These routines apply the linear transformation defined by the FITS WCS</span>
<a name="l00047"></a>00047 <span class="comment">* standard. They are based on the linprm struct which contains all</span>
<a name="l00048"></a>00048 <span class="comment">* information needed for the computations. The struct contains some members</span>
<a name="l00049"></a>00049 <span class="comment">* that must be set by the user, and others that are maintained by these</span>
<a name="l00050"></a>00050 <span class="comment">* routines, somewhat like a C++ class but with no encapsulation.</span>
<a name="l00051"></a>00051 <span class="comment">*</span>
<a name="l00052"></a>00052 <span class="comment">* Three routines, linini(), lincpy(), and linfree() are provided to manage the</span>
<a name="l00053"></a>00053 <span class="comment">* linprm struct, and another, linprt(), prints its contents.</span>
<a name="l00054"></a>00054 <span class="comment">*</span>
<a name="l00055"></a>00055 <span class="comment">* A setup routine, linset(), computes intermediate values in the linprm struct</span>
<a name="l00056"></a>00056 <span class="comment">* from parameters in it that were supplied by the user. The struct always</span>
<a name="l00057"></a>00057 <span class="comment">* needs to be set up by linset() but need not be called explicitly - refer to</span>
<a name="l00058"></a>00058 <span class="comment">* the explanation of linprm::flag.</span>
<a name="l00059"></a>00059 <span class="comment">*</span>
<a name="l00060"></a>00060 <span class="comment">* linp2x() and linx2p() implement the WCS linear transformations.</span>
<a name="l00061"></a>00061 <span class="comment">*</span>
<a name="l00062"></a>00062 <span class="comment">* An auxiliary matrix inversion routine, matinv(), is included. It uses</span>
<a name="l00063"></a>00063 <span class="comment">* LU-triangular factorization with scaled partial pivoting.</span>
<a name="l00064"></a>00064 <span class="comment">*</span>
<a name="l00065"></a>00065 <span class="comment">*</span>
<a name="l00066"></a>00066 <span class="comment">* linini() - Default constructor for the linprm struct</span>
<a name="l00067"></a>00067 <span class="comment">* ----------------------------------------------------</span>
<a name="l00068"></a>00068 <span class="comment">* linini() allocates memory for arrays in a linprm struct and sets all members</span>
<a name="l00069"></a>00069 <span class="comment">* of the struct to default values.</span>
<a name="l00070"></a>00070 <span class="comment">*</span>
<a name="l00071"></a>00071 <span class="comment">* PLEASE NOTE: every linprm struct should be initialized by linini(), possibly</span>
<a name="l00072"></a>00072 <span class="comment">* repeatedly. On the first invokation, and only the first invokation,</span>
<a name="l00073"></a>00073 <span class="comment">* linprm::flag must be set to -1 to initialize memory management, regardless</span>
<a name="l00074"></a>00074 <span class="comment">* of whether linini() will actually be used to allocate memory.</span>
<a name="l00075"></a>00075 <span class="comment">*</span>
<a name="l00076"></a>00076 <span class="comment">* Given:</span>
<a name="l00077"></a>00077 <span class="comment">* alloc int If true, allocate memory unconditionally for arrays in</span>
<a name="l00078"></a>00078 <span class="comment">* the linprm struct.</span>
<a name="l00079"></a>00079 <span class="comment">*</span>
<a name="l00080"></a>00080 <span class="comment">* If false, it is assumed that pointers to these arrays</span>
<a name="l00081"></a>00081 <span class="comment">* have been set by the user except if they are null</span>
<a name="l00082"></a>00082 <span class="comment">* pointers in which case memory will be allocated for</span>
<a name="l00083"></a>00083 <span class="comment">* them regardless. (In other words, setting alloc true</span>
<a name="l00084"></a>00084 <span class="comment">* saves having to initalize these pointers to zero.)</span>
<a name="l00085"></a>00085 <span class="comment">*</span>
<a name="l00086"></a>00086 <span class="comment">* naxis int The number of world coordinate axes, used to determine</span>
<a name="l00087"></a>00087 <span class="comment">* array sizes.</span>
<a name="l00088"></a>00088 <span class="comment">*</span>
<a name="l00089"></a>00089 <span class="comment">* Given and returned:</span>
<a name="l00090"></a>00090 <span class="comment">* lin struct linprm*</span>
<a name="l00091"></a>00091 <span class="comment">* Linear transformation parameters. Note that, in order</span>
<a name="l00092"></a>00092 <span class="comment">* to initialize memory management linprm::flag should be</span>
<a name="l00093"></a>00093 <span class="comment">* set to -1 when lin is initialized for the first time</span>
<a name="l00094"></a>00094 <span class="comment">* (memory leaks may result if it had already been</span>
<a name="l00095"></a>00095 <span class="comment">* initialized).</span>
<a name="l00096"></a>00096 <span class="comment">*</span>
<a name="l00097"></a>00097 <span class="comment">* Function return value:</span>
<a name="l00098"></a>00098 <span class="comment">* int Status return value:</span>
<a name="l00099"></a>00099 <span class="comment">* 0: Success.</span>
<a name="l00100"></a>00100 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00101"></a>00101 <span class="comment">* 2: Memory allocation failed.</span>
<a name="l00102"></a>00102 <span class="comment">*</span>
<a name="l00103"></a>00103 <span class="comment">* For returns > 1, a detailed error message is set in</span>
<a name="l00104"></a>00104 <span class="comment">* linprm::err if enabled, see wcserr_enable().</span>
<a name="l00105"></a>00105 <span class="comment">*</span>
<a name="l00106"></a>00106 <span class="comment">*</span>
<a name="l00107"></a>00107 <span class="comment">* lincpy() - Copy routine for the linprm struct</span>
<a name="l00108"></a>00108 <span class="comment">* ---------------------------------------------</span>
<a name="l00109"></a>00109 <span class="comment">* lincpy() does a deep copy of one linprm struct to another, using linini() to</span>
<a name="l00110"></a>00110 <span class="comment">* allocate memory for its arrays if required. Only the "information to be</span>
<a name="l00111"></a>00111 <span class="comment">* provided" part of the struct is copied; a call to linset() is required to</span>
<a name="l00112"></a>00112 <span class="comment">* initialize the remainder.</span>
<a name="l00113"></a>00113 <span class="comment">*</span>
<a name="l00114"></a>00114 <span class="comment">* Given:</span>
<a name="l00115"></a>00115 <span class="comment">* alloc int If true, allocate memory for the crpix, pc, and cdelt</span>
<a name="l00116"></a>00116 <span class="comment">* arrays in the destination. Otherwise, it is assumed</span>
<a name="l00117"></a>00117 <span class="comment">* that pointers to these arrays have been set by the</span>
<a name="l00118"></a>00118 <span class="comment">* user except if they are null pointers in which case</span>
<a name="l00119"></a>00119 <span class="comment">* memory will be allocated for them regardless.</span>
<a name="l00120"></a>00120 <span class="comment">*</span>
<a name="l00121"></a>00121 <span class="comment">* linsrc const struct linprm*</span>
<a name="l00122"></a>00122 <span class="comment">* Struct to copy from.</span>
<a name="l00123"></a>00123 <span class="comment">*</span>
<a name="l00124"></a>00124 <span class="comment">* Given and returned:</span>
<a name="l00125"></a>00125 <span class="comment">* lindst struct linprm*</span>
<a name="l00126"></a>00126 <span class="comment">* Struct to copy to. linprm::flag should be set to -1</span>
<a name="l00127"></a>00127 <span class="comment">* if lindst was not previously initialized (memory leaks</span>
<a name="l00128"></a>00128 <span class="comment">* may result if it was previously initialized).</span>
<a name="l00129"></a>00129 <span class="comment">*</span>
<a name="l00130"></a>00130 <span class="comment">* Function return value:</span>
<a name="l00131"></a>00131 <span class="comment">* int Status return value:</span>
<a name="l00132"></a>00132 <span class="comment">* 0: Success.</span>
<a name="l00133"></a>00133 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00134"></a>00134 <span class="comment">* 2: Memory allocation failed.</span>
<a name="l00135"></a>00135 <span class="comment">*</span>
<a name="l00136"></a>00136 <span class="comment">* For returns > 1, a detailed error message is set in</span>
<a name="l00137"></a>00137 <span class="comment">* linprm::err if enabled, see wcserr_enable().</span>
<a name="l00138"></a>00138 <span class="comment">*</span>
<a name="l00139"></a>00139 <span class="comment">*</span>
<a name="l00140"></a>00140 <span class="comment">* linfree() - Destructor for the linprm struct</span>
<a name="l00141"></a>00141 <span class="comment">* --------------------------------------------</span>
<a name="l00142"></a>00142 <span class="comment">* linfree() frees memory allocated for the linprm arrays by linini() and/or</span>
<a name="l00143"></a>00143 <span class="comment">* linset(). linini() keeps a record of the memory it allocates and linfree()</span>
<a name="l00144"></a>00144 <span class="comment">* will only attempt to free this.</span>
<a name="l00145"></a>00145 <span class="comment">*</span>
<a name="l00146"></a>00146 <span class="comment">* PLEASE NOTE: linfree() must not be invoked on a linprm struct that was not</span>
<a name="l00147"></a>00147 <span class="comment">* initialized by linini().</span>
<a name="l00148"></a>00148 <span class="comment">*</span>
<a name="l00149"></a>00149 <span class="comment">* Given:</span>
<a name="l00150"></a>00150 <span class="comment">* lin struct linprm*</span>
<a name="l00151"></a>00151 <span class="comment">* Linear transformation parameters.</span>
<a name="l00152"></a>00152 <span class="comment">*</span>
<a name="l00153"></a>00153 <span class="comment">* Function return value:</span>
<a name="l00154"></a>00154 <span class="comment">* int Status return value:</span>
<a name="l00155"></a>00155 <span class="comment">* 0: Success.</span>
<a name="l00156"></a>00156 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00157"></a>00157 <span class="comment">*</span>
<a name="l00158"></a>00158 <span class="comment">*</span>
<a name="l00159"></a>00159 <span class="comment">* linprt() - Print routine for the linprm struct</span>
<a name="l00160"></a>00160 <span class="comment">* ----------------------------------------------</span>
<a name="l00161"></a>00161 <span class="comment">* linprt() prints the contents of a linprm struct using wcsprintf(). Mainly</span>
<a name="l00162"></a>00162 <span class="comment">* intended for diagnostic purposes.</span>
<a name="l00163"></a>00163 <span class="comment">*</span>
<a name="l00164"></a>00164 <span class="comment">* Given:</span>
<a name="l00165"></a>00165 <span class="comment">* lin const struct linprm*</span>
<a name="l00166"></a>00166 <span class="comment">* Linear transformation parameters.</span>
<a name="l00167"></a>00167 <span class="comment">*</span>
<a name="l00168"></a>00168 <span class="comment">* Function return value:</span>
<a name="l00169"></a>00169 <span class="comment">* int Status return value:</span>
<a name="l00170"></a>00170 <span class="comment">* 0: Success.</span>
<a name="l00171"></a>00171 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00172"></a>00172 <span class="comment">*</span>
<a name="l00173"></a>00173 <span class="comment">*</span>
<a name="l00174"></a>00174 <span class="comment">* linset() - Setup routine for the linprm struct</span>
<a name="l00175"></a>00175 <span class="comment">* ----------------------------------------------</span>
<a name="l00176"></a>00176 <span class="comment">* linset(), if necessary, allocates memory for the linprm::piximg and</span>
<a name="l00177"></a>00177 <span class="comment">* linprm::imgpix arrays and sets up the linprm struct according to information</span>
<a name="l00178"></a>00178 <span class="comment">* supplied within it - refer to the explanation of linprm::flag.</span>
<a name="l00179"></a>00179 <span class="comment">*</span>
<a name="l00180"></a>00180 <span class="comment">* Note that this routine need not be called directly; it will be invoked by</span>
<a name="l00181"></a>00181 <span class="comment">* linp2x() and linx2p() if the linprm::flag is anything other than a</span>
<a name="l00182"></a>00182 <span class="comment">* predefined magic value.</span>
<a name="l00183"></a>00183 <span class="comment">*</span>
<a name="l00184"></a>00184 <span class="comment">* Given and returned:</span>
<a name="l00185"></a>00185 <span class="comment">* lin struct linprm*</span>
<a name="l00186"></a>00186 <span class="comment">* Linear transformation parameters.</span>
<a name="l00187"></a>00187 <span class="comment">*</span>
<a name="l00188"></a>00188 <span class="comment">* Function return value:</span>
<a name="l00189"></a>00189 <span class="comment">* int Status return value:</span>
<a name="l00190"></a>00190 <span class="comment">* 0: Success.</span>
<a name="l00191"></a>00191 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00192"></a>00192 <span class="comment">* 2: Memory allocation failed.</span>
<a name="l00193"></a>00193 <span class="comment">* 3: PCi_ja matrix is singular.</span>
<a name="l00194"></a>00194 <span class="comment">*</span>
<a name="l00195"></a>00195 <span class="comment">* For returns > 1, a detailed error message is set in</span>
<a name="l00196"></a>00196 <span class="comment">* linprm::err if enabled, see wcserr_enable().</span>
<a name="l00197"></a>00197 <span class="comment">*</span>
<a name="l00198"></a>00198 <span class="comment">*</span>
<a name="l00199"></a>00199 <span class="comment">* linp2x() - Pixel-to-world linear transformation</span>
<a name="l00200"></a>00200 <span class="comment">* -----------------------------------------------</span>
<a name="l00201"></a>00201 <span class="comment">* linp2x() transforms pixel coordinates to intermediate world coordinates.</span>
<a name="l00202"></a>00202 <span class="comment">*</span>
<a name="l00203"></a>00203 <span class="comment">* Given and returned:</span>
<a name="l00204"></a>00204 <span class="comment">* lin struct linprm*</span>
<a name="l00205"></a>00205 <span class="comment">* Linear transformation parameters.</span>
<a name="l00206"></a>00206 <span class="comment">*</span>
<a name="l00207"></a>00207 <span class="comment">* Given:</span>
<a name="l00208"></a>00208 <span class="comment">* ncoord,</span>
<a name="l00209"></a>00209 <span class="comment">* nelem int The number of coordinates, each of vector length nelem</span>
<a name="l00210"></a>00210 <span class="comment">* but containing lin.naxis coordinate elements.</span>
<a name="l00211"></a>00211 <span class="comment">*</span>
<a name="l00212"></a>00212 <span class="comment">* pixcrd const double[ncoord][nelem]</span>
<a name="l00213"></a>00213 <span class="comment">* Array of pixel coordinates.</span>
<a name="l00214"></a>00214 <span class="comment">*</span>
<a name="l00215"></a>00215 <span class="comment">* Returned:</span>
<a name="l00216"></a>00216 <span class="comment">* imgcrd double[ncoord][nelem]</span>
<a name="l00217"></a>00217 <span class="comment">* Array of intermediate world coordinates.</span>
<a name="l00218"></a>00218 <span class="comment">*</span>
<a name="l00219"></a>00219 <span class="comment">* Function return value:</span>
<a name="l00220"></a>00220 <span class="comment">* int Status return value:</span>
<a name="l00221"></a>00221 <span class="comment">* 0: Success.</span>
<a name="l00222"></a>00222 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00223"></a>00223 <span class="comment">* 2: Memory allocation failed.</span>
<a name="l00224"></a>00224 <span class="comment">* 3: PCi_ja matrix is singular.</span>
<a name="l00225"></a>00225 <span class="comment">*</span>
<a name="l00226"></a>00226 <span class="comment">* For returns > 1, a detailed error message is set in</span>
<a name="l00227"></a>00227 <span class="comment">* linprm::err if enabled, see wcserr_enable().</span>
<a name="l00228"></a>00228 <span class="comment">*</span>
<a name="l00229"></a>00229 <span class="comment">*</span>
<a name="l00230"></a>00230 <span class="comment">* linx2p() - World-to-pixel linear transformation</span>
<a name="l00231"></a>00231 <span class="comment">* -----------------------------------------------</span>
<a name="l00232"></a>00232 <span class="comment">* linx2p() transforms intermediate world coordinates to pixel coordinates.</span>
<a name="l00233"></a>00233 <span class="comment">*</span>
<a name="l00234"></a>00234 <span class="comment">* Given and returned:</span>
<a name="l00235"></a>00235 <span class="comment">* lin struct linprm*</span>
<a name="l00236"></a>00236 <span class="comment">* Linear transformation parameters.</span>
<a name="l00237"></a>00237 <span class="comment">*</span>
<a name="l00238"></a>00238 <span class="comment">* Given:</span>
<a name="l00239"></a>00239 <span class="comment">* ncoord,</span>
<a name="l00240"></a>00240 <span class="comment">* nelem int The number of coordinates, each of vector length nelem</span>
<a name="l00241"></a>00241 <span class="comment">* but containing lin.naxis coordinate elements.</span>
<a name="l00242"></a>00242 <span class="comment">*</span>
<a name="l00243"></a>00243 <span class="comment">* imgcrd const double[ncoord][nelem]</span>
<a name="l00244"></a>00244 <span class="comment">* Array of intermediate world coordinates.</span>
<a name="l00245"></a>00245 <span class="comment">*</span>
<a name="l00246"></a>00246 <span class="comment">* Returned:</span>
<a name="l00247"></a>00247 <span class="comment">* pixcrd double[ncoord][nelem]</span>
<a name="l00248"></a>00248 <span class="comment">* Array of pixel coordinates.</span>
<a name="l00249"></a>00249 <span class="comment">*</span>
<a name="l00250"></a>00250 <span class="comment">* int Status return value:</span>
<a name="l00251"></a>00251 <span class="comment">* 0: Success.</span>
<a name="l00252"></a>00252 <span class="comment">* 1: Null linprm pointer passed.</span>
<a name="l00253"></a>00253 <span class="comment">* 2: Memory allocation failed.</span>
<a name="l00254"></a>00254 <span class="comment">* 3: PCi_ja matrix is singular.</span>
<a name="l00255"></a>00255 <span class="comment">*</span>
<a name="l00256"></a>00256 <span class="comment">* For returns > 1, a detailed error message is set in</span>
<a name="l00257"></a>00257 <span class="comment">* linprm::err if enabled, see wcserr_enable().</span>
<a name="l00258"></a>00258 <span class="comment">*</span>
<a name="l00259"></a>00259 <span class="comment">*</span>
<a name="l00260"></a>00260 <span class="comment">* linprm struct - Linear transformation parameters</span>
<a name="l00261"></a>00261 <span class="comment">* ------------------------------------------------</span>
<a name="l00262"></a>00262 <span class="comment">* The linprm struct contains all of the information required to perform a</span>
<a name="l00263"></a>00263 <span class="comment">* linear transformation. It consists of certain members that must be set by</span>
<a name="l00264"></a>00264 <span class="comment">* the user ("given") and others that are set by the WCSLIB routines</span>
<a name="l00265"></a>00265 <span class="comment">* ("returned").</span>
<a name="l00266"></a>00266 <span class="comment">*</span>
<a name="l00267"></a>00267 <span class="comment">* int flag</span>
<a name="l00268"></a>00268 <span class="comment">* (Given and returned) This flag must be set to zero whenever any of the</span>
<a name="l00269"></a>00269 <span class="comment">* following members of the linprm struct are set or modified:</span>
<a name="l00270"></a>00270 <span class="comment">*</span>
<a name="l00271"></a>00271 <span class="comment">* - linprm::naxis (q.v., not normally set by the user),</span>
<a name="l00272"></a>00272 <span class="comment">* - linprm::pc,</span>
<a name="l00273"></a>00273 <span class="comment">* - linprm::cdelt.</span>
<a name="l00274"></a>00274 <span class="comment">*</span>
<a name="l00275"></a>00275 <span class="comment">* This signals the initialization routine, linset(), to recompute the</span>
<a name="l00276"></a>00276 <span class="comment">* returned members of the linprm struct. linset() will reset flag to</span>
<a name="l00277"></a>00277 <span class="comment">* indicate that this has been done.</span>
<a name="l00278"></a>00278 <span class="comment">*</span>
<a name="l00279"></a>00279 <span class="comment">* PLEASE NOTE: flag should be set to -1 when linini() is called for the</span>
<a name="l00280"></a>00280 <span class="comment">* first time for a particular linprm struct in order to initialize memory</span>
<a name="l00281"></a>00281 <span class="comment">* management. It must ONLY be used on the first initialization otherwise</span>
<a name="l00282"></a>00282 <span class="comment">* memory leaks may result.</span>
<a name="l00283"></a>00283 <span class="comment">*</span>
<a name="l00284"></a>00284 <span class="comment">* int naxis</span>
<a name="l00285"></a>00285 <span class="comment">* (Given or returned) Number of pixel and world coordinate elements.</span>
<a name="l00286"></a>00286 <span class="comment">*</span>
<a name="l00287"></a>00287 <span class="comment">* If linini() is used to initialize the linprm struct (as would normally</span>
<a name="l00288"></a>00288 <span class="comment">* be the case) then it will set naxis from the value passed to it as a</span>
<a name="l00289"></a>00289 <span class="comment">* function argument. The user should not subsequently modify it.</span>
<a name="l00290"></a>00290 <span class="comment">*</span>
<a name="l00291"></a>00291 <span class="comment">* double *crpix</span>
<a name="l00292"></a>00292 <span class="comment">* (Given) Pointer to the first element of an array of double containing</span>
<a name="l00293"></a>00293 <span class="comment">* the coordinate reference pixel, CRPIXja.</span>
<a name="l00294"></a>00294 <span class="comment">*</span>
<a name="l00295"></a>00295 <span class="comment">* double *pc</span>
<a name="l00296"></a>00296 <span class="comment">* (Given) Pointer to the first element of the PCi_ja (pixel coordinate)</span>
<a name="l00297"></a>00297 <span class="comment">* transformation matrix. The expected order is</span>
<a name="l00298"></a>00298 <span class="comment">*</span>
<a name="l00299"></a>00299 <span class="comment">= struct linprm lin;</span>
<a name="l00300"></a>00300 <span class="comment">= lin.pc = {PC1_1, PC1_2, PC2_1, PC2_2};</span>
<a name="l00301"></a>00301 <span class="comment">*</span>
<a name="l00302"></a>00302 <span class="comment">* This may be constructed conveniently from a 2-D array via</span>
<a name="l00303"></a>00303 <span class="comment">*</span>
<a name="l00304"></a>00304 <span class="comment">= double m[2][2] = {{PC1_1, PC1_2},</span>
<a name="l00305"></a>00305 <span class="comment">= {PC2_1, PC2_2}};</span>
<a name="l00306"></a>00306 <span class="comment">*</span>
<a name="l00307"></a>00307 <span class="comment">* which is equivalent to</span>
<a name="l00308"></a>00308 <span class="comment">*</span>
<a name="l00309"></a>00309 <span class="comment">= double m[2][2];</span>
<a name="l00310"></a>00310 <span class="comment">= m[0][0] = PC1_1;</span>
<a name="l00311"></a>00311 <span class="comment">= m[0][1] = PC1_2;</span>
<a name="l00312"></a>00312 <span class="comment">= m[1][0] = PC2_1;</span>
<a name="l00313"></a>00313 <span class="comment">= m[1][1] = PC2_2;</span>
<a name="l00314"></a>00314 <span class="comment">*</span>
<a name="l00315"></a>00315 <span class="comment">* The storage order for this 2-D array is the same as for the 1-D array,</span>
<a name="l00316"></a>00316 <span class="comment">* whence</span>
<a name="l00317"></a>00317 <span class="comment">*</span>
<a name="l00318"></a>00318 <span class="comment">= lin.pc = *m;</span>
<a name="l00319"></a>00319 <span class="comment">*</span>
<a name="l00320"></a>00320 <span class="comment">* would be legitimate.</span>
<a name="l00321"></a>00321 <span class="comment">*</span>
<a name="l00322"></a>00322 <span class="comment">* double *cdelt</span>
<a name="l00323"></a>00323 <span class="comment">* (Given) Pointer to the first element of an array of double containing</span>
<a name="l00324"></a>00324 <span class="comment">* the coordinate increments, CDELTia.</span>
<a name="l00325"></a>00325 <span class="comment">*</span>
<a name="l00326"></a>00326 <span class="comment">* int unity</span>
<a name="l00327"></a>00327 <span class="comment">* (Returned) True if the linear transformation matrix is unity.</span>
<a name="l00328"></a>00328 <span class="comment">*</span>
<a name="l00329"></a>00329 <span class="comment">* int padding</span>
<a name="l00330"></a>00330 <span class="comment">* (An unused variable inserted for alignment purposes only.)</span>
<a name="l00331"></a>00331 <span class="comment">*</span>
<a name="l00332"></a>00332 <span class="comment">* double *piximg</span>
<a name="l00333"></a>00333 <span class="comment">* (Returned) Pointer to the first element of the matrix containing the</span>
<a name="l00334"></a>00334 <span class="comment">* product of the CDELTia diagonal matrix and the PCi_ja matrix.</span>
<a name="l00335"></a>00335 <span class="comment">*</span>
<a name="l00336"></a>00336 <span class="comment">* double *imgpix</span>
<a name="l00337"></a>00337 <span class="comment">* (Returned) Pointer to the first element of the inverse of the</span>
<a name="l00338"></a>00338 <span class="comment">* linprm::piximg matrix.</span>
<a name="l00339"></a>00339 <span class="comment">*</span>
<a name="l00340"></a>00340 <span class="comment">* struct wcserr *err</span>
<a name="l00341"></a>00341 <span class="comment">* (Returned) If enabled, when an error status is returned this struct</span>
<a name="l00342"></a>00342 <span class="comment">* contains detailed information about the error, see wcserr_enable().</span>
<a name="l00343"></a>00343 <span class="comment">*</span>
<a name="l00344"></a>00344 <span class="comment">* int i_naxis</span>
<a name="l00345"></a>00345 <span class="comment">* (For internal use only.)</span>
<a name="l00346"></a>00346 <span class="comment">* int m_flag</span>
<a name="l00347"></a>00347 <span class="comment">* (For internal use only.)</span>
<a name="l00348"></a>00348 <span class="comment">* int m_naxis</span>
<a name="l00349"></a>00349 <span class="comment">* (For internal use only.)</span>
<a name="l00350"></a>00350 <span class="comment">* int m_padding</span>
<a name="l00351"></a>00351 <span class="comment">* (For internal use only.)</span>
<a name="l00352"></a>00352 <span class="comment">* double *m_crpix</span>
<a name="l00353"></a>00353 <span class="comment">* (For internal use only.)</span>
<a name="l00354"></a>00354 <span class="comment">* double *m_pc</span>
<a name="l00355"></a>00355 <span class="comment">* (For internal use only.)</span>
<a name="l00356"></a>00356 <span class="comment">* double *m_cdelt</span>
<a name="l00357"></a>00357 <span class="comment">* (For internal use only.)</span>
<a name="l00358"></a>00358 <span class="comment">* void *padding2</span>
<a name="l00359"></a>00359 <span class="comment">* (For internal use only.)</span>
<a name="l00360"></a>00360 <span class="comment">*</span>
<a name="l00361"></a>00361 <span class="comment">*</span>
<a name="l00362"></a>00362 <span class="comment">* Global variable: const char *lin_errmsg[] - Status return messages</span>
<a name="l00363"></a>00363 <span class="comment">* ------------------------------------------------------------------</span>
<a name="l00364"></a>00364 <span class="comment">* Error messages to match the status value returned from each function.</span>
<a name="l00365"></a>00365 <span class="comment">*</span>
<a name="l00366"></a>00366 <span class="comment">*===========================================================================*/</span>
<a name="l00367"></a>00367
<a name="l00368"></a>00368 <span class="preprocessor">#ifndef WCSLIB_LIN</span>
<a name="l00369"></a>00369 <span class="preprocessor"></span><span class="preprocessor">#define WCSLIB_LIN</span>
<a name="l00370"></a>00370 <span class="preprocessor"></span>
<a name="l00371"></a>00371 <span class="preprocessor">#include "<a class="code" href="wcserr_8h.html">wcserr.h</a>"</span>
<a name="l00372"></a>00372
<a name="l00373"></a>00373 <span class="preprocessor">#ifdef __cplusplus</span>
<a name="l00374"></a>00374 <span class="preprocessor"></span><span class="keyword">extern</span> <span class="stringliteral">"C"</span> {
<a name="l00375"></a>00375 <span class="preprocessor">#endif</span>
<a name="l00376"></a>00376 <span class="preprocessor"></span>
<a name="l00377"></a>00377
<a name="l00378"></a>00378 <span class="keyword">extern</span> <span class="keyword">const</span> <span class="keywordtype">char</span> *<a class="code" href="lin_8h.html#7bdf034bd750df1e518db9feeebf7a79" title="Status return messages.">lin_errmsg</a>[];
<a name="l00379"></a>00379
<a name="l00380"></a><a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f">00380</a> <span class="keyword">enum</span> <a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f">lin_errmsg_enum</a> {
<a name="l00381"></a><a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f2544660be2086b8225623e8a7b534dfb">00381</a> <a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f2544660be2086b8225623e8a7b534dfb">LINERR_SUCCESS</a> = 0, <span class="comment">/* Success. */</span>
<a name="l00382"></a><a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f84e4dcf5e518ba3dce985ef7c9687513">00382</a> <a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f84e4dcf5e518ba3dce985ef7c9687513">LINERR_NULL_POINTER</a> = 1, <span class="comment">/* Null linprm pointer passed. */</span>
<a name="l00383"></a><a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f28004da63d882a7df754d49047ea7f2d">00383</a> <a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1f28004da63d882a7df754d49047ea7f2d">LINERR_MEMORY</a> = 2, <span class="comment">/* Memory allocation failed. */</span>
<a name="l00384"></a><a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1fd2248fa36c9d85c91187179ae95207e8">00384</a> <a class="code" href="lin_8h.html#6690044d47c6784a4cc0ccf6f52bfc1fd2248fa36c9d85c91187179ae95207e8">LINERR_SINGULAR_MTX</a> = 3 <span class="comment">/* PCi_ja matrix is singular. */</span>
<a name="l00385"></a>00385 };
<a name="l00386"></a>00386
<a name="l00387"></a><a class="code" href="structlinprm.html">00387</a> <span class="keyword">struct </span><a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> {
<a name="l00388"></a>00388 <span class="comment">/* Initialization flag (see the prologue above). */</span>
<a name="l00389"></a>00389 <span class="comment">/*------------------------------------------------------------------------*/</span>
<a name="l00390"></a><a class="code" href="structlinprm.html#5bb0b2b2ce1f160a8a70f6437a893eea">00390</a> <span class="keywordtype">int</span> <a class="code" href="structlinprm.html#5bb0b2b2ce1f160a8a70f6437a893eea">flag</a>; <span class="comment">/* Set to zero to force initialization. */</span>
<a name="l00391"></a>00391
<a name="l00392"></a>00392 <span class="comment">/* Parameters to be provided (see the prologue above). */</span>
<a name="l00393"></a>00393 <span class="comment">/*------------------------------------------------------------------------*/</span>
<a name="l00394"></a><a class="code" href="structlinprm.html#e281f0f7ebeaf5038cc13c13946641b1">00394</a> <span class="keywordtype">int</span> <a class="code" href="structlinprm.html#e281f0f7ebeaf5038cc13c13946641b1">naxis</a>; <span class="comment">/* The number of axes, given by NAXIS. */</span>
<a name="l00395"></a><a class="code" href="structlinprm.html#3691ff3f40a0ba087637d30ffc87e6d0">00395</a> <span class="keywordtype">double</span> *<a class="code" href="structlinprm.html#3691ff3f40a0ba087637d30ffc87e6d0">crpix</a>; <span class="comment">/* CRPIXja keywords for each pixel axis. */</span>
<a name="l00396"></a><a class="code" href="structlinprm.html#4c40bec32ec40035b8c1ef13db652270">00396</a> <span class="keywordtype">double</span> *<a class="code" href="structlinprm.html#4c40bec32ec40035b8c1ef13db652270">pc</a>; <span class="comment">/* PCi_ja linear transformation matrix. */</span>
<a name="l00397"></a><a class="code" href="structlinprm.html#162762d02eaade6a53d63d70b8827caa">00397</a> <span class="keywordtype">double</span> *<a class="code" href="structlinprm.html#162762d02eaade6a53d63d70b8827caa">cdelt</a>; <span class="comment">/* CDELTia keywords for each coord axis. */</span>
<a name="l00398"></a>00398
<a name="l00399"></a>00399 <span class="comment">/* Information derived from the parameters supplied. */</span>
<a name="l00400"></a>00400 <span class="comment">/*------------------------------------------------------------------------*/</span>
<a name="l00401"></a><a class="code" href="structlinprm.html#eaaf26fd243da58fee173b075bed1de7">00401</a> <span class="keywordtype">double</span> *<a class="code" href="structlinprm.html#eaaf26fd243da58fee173b075bed1de7">piximg</a>; <span class="comment">/* Product of CDELTia and PCi_ja matrices. */</span>
<a name="l00402"></a><a class="code" href="structlinprm.html#28a705f744a32cd05dd3aa86ca58998b">00402</a> <span class="keywordtype">double</span> *<a class="code" href="structlinprm.html#28a705f744a32cd05dd3aa86ca58998b">imgpix</a>; <span class="comment">/* Inverse of the piximg matrix. */</span>
<a name="l00403"></a><a class="code" href="structlinprm.html#f0a5cac7b1d2d3a0feb6905c05b122c2">00403</a> <span class="keywordtype">int</span> <a class="code" href="structlinprm.html#f0a5cac7b1d2d3a0feb6905c05b122c2">unity</a>; <span class="comment">/* True if the PCi_ja matrix is unity. */</span>
<a name="l00404"></a>00404
<a name="l00405"></a>00405 <span class="comment">/* Error handling */</span>
<a name="l00406"></a>00406 <span class="comment">/*------------------------------------------------------------------------*/</span>
<a name="l00407"></a><a class="code" href="structlinprm.html#7f40c88135117b07a7767082ef24aba9">00407</a> <span class="keywordtype">int</span> <a class="code" href="structlinprm.html#7f40c88135117b07a7767082ef24aba9">padding</a>; <span class="comment">/* (Dummy inserted for alignment purposes.) */</span>
<a name="l00408"></a><a class="code" href="structlinprm.html#2975830d4214bb6b35cb1ca922875057">00408</a> <span class="keyword">struct </span><a class="code" href="structwcserr.html" title="Error message handling.">wcserr</a> *<a class="code" href="structlinprm.html#2975830d4214bb6b35cb1ca922875057">err</a>;
<a name="l00409"></a>00409
<a name="l00410"></a>00410 <span class="comment">/* Private - the remainder are for memory management. */</span>
<a name="l00411"></a>00411 <span class="comment">/*------------------------------------------------------------------------*/</span>
<a name="l00412"></a><a class="code" href="structlinprm.html#596f68ff17fce142f36530d72dd838c4">00412</a> <span class="keywordtype">int</span> <a class="code" href="structlinprm.html#596f68ff17fce142f36530d72dd838c4">i_naxis</a>;
<a name="l00413"></a><a class="code" href="structlinprm.html#b73e780d0792b3570fcf2cf55651f22c">00413</a> <span class="keywordtype">int</span> <a class="code" href="structlinprm.html#5ef7cce6307f640aca1080d0d5ad9ba1">m_flag</a>, <a class="code" href="structlinprm.html#eefcacedf2989970f0df2c246d84bfb7">m_naxis</a>, <a class="code" href="structlinprm.html#b73e780d0792b3570fcf2cf55651f22c">m_padding</a>;
<a name="l00414"></a><a class="code" href="structlinprm.html#7036b8527bc8b220ad8a863442631f48">00414</a> <span class="keywordtype">double</span> *<a class="code" href="structlinprm.html#091103ceb860eeed1a280effa0df28df">m_crpix</a>, *<a class="code" href="structlinprm.html#7036b8527bc8b220ad8a863442631f48">m_pc</a>, *<a class="code" href="structlinprm.html#5ac85757a7a46247e353a089374eb128">m_cdelt</a>;
<a name="l00415"></a><a class="code" href="structlinprm.html#b7a8cacb1454446f9b5a521703fcca75">00415</a> <span class="keywordtype">void</span> *<a class="code" href="structlinprm.html#b7a8cacb1454446f9b5a521703fcca75">padding2</a>;
<a name="l00416"></a>00416 };
<a name="l00417"></a>00417
<a name="l00418"></a>00418 <span class="comment">/* Size of the linprm struct in int units, used by the Fortran wrappers. */</span>
<a name="l00419"></a><a class="code" href="lin_8h.html#fce62bec193631f6e6b58c5b786cd660">00419</a> <span class="preprocessor">#define LINLEN (sizeof(struct linprm)/sizeof(int))</span>
<a name="l00420"></a>00420 <span class="preprocessor"></span>
<a name="l00421"></a>00421
<a name="l00422"></a>00422 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#7ddea28768d99f01c6be1c71a4d8fe58" title="Default constructor for the linprm struct.">linini</a>(<span class="keywordtype">int</span> alloc, <span class="keywordtype">int</span> naxis, <span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lin);
<a name="l00423"></a>00423
<a name="l00424"></a>00424 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#b8fc0ef6b34eb3327b13a00de78232b1" title="Copy routine for the linprm struct.">lincpy</a>(<span class="keywordtype">int</span> alloc, <span class="keyword">const</span> <span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *linsrc, <span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lindst);
<a name="l00425"></a>00425
<a name="l00426"></a>00426 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#ef9ead7c6ea6ab08f3ba3fc6a1c30303" title="Destructor for the linprm struct.">linfree</a>(<span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lin);
<a name="l00427"></a>00427
<a name="l00428"></a>00428 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#946005b038f5c584691630b5d39369e3" title="Print routine for the linprm struct.">linprt</a>(<span class="keyword">const</span> <span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lin);
<a name="l00429"></a>00429
<a name="l00430"></a>00430 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#5c01c0991c8d0c4437581a7c1453b09a" title="Setup routine for the linprm struct.">linset</a>(<span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lin);
<a name="l00431"></a>00431
<a name="l00432"></a>00432 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#e4947608476c198ad27759d1e562d655" title="Pixel-to-world linear transformation.">linp2x</a>(<span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lin, <span class="keywordtype">int</span> ncoord, <span class="keywordtype">int</span> nelem, <span class="keyword">const</span> <span class="keywordtype">double</span> pixcrd[],
<a name="l00433"></a>00433 <span class="keywordtype">double</span> imgcrd[]);
<a name="l00434"></a>00434
<a name="l00435"></a>00435 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#5490027e9699680dfefe370c28691243" title="World-to-pixel linear transformation.">linx2p</a>(<span class="keyword">struct</span> <a class="code" href="structlinprm.html" title="Linear transformation parameters.">linprm</a> *lin, <span class="keywordtype">int</span> ncoord, <span class="keywordtype">int</span> nelem, <span class="keyword">const</span> <span class="keywordtype">double</span> imgcrd[],
<a name="l00436"></a>00436 <span class="keywordtype">double</span> pixcrd[]);
<a name="l00437"></a>00437
<a name="l00438"></a>00438 <span class="keywordtype">int</span> <a class="code" href="lin_8h.html#cc7d26efba3ca08d36047253a9315dcc" title="Matrix inversion.">matinv</a>(<span class="keywordtype">int</span> n, <span class="keyword">const</span> <span class="keywordtype">double</span> mat[], <span class="keywordtype">double</span> inv[]);
<a name="l00439"></a>00439
<a name="l00440"></a>00440
<a name="l00441"></a>00441 <span class="comment">/* Deprecated. */</span>
<a name="l00442"></a><a class="code" href="lin_8h.html#ffec8a2c0650ebd2168d7772b2ecec19">00442</a> <span class="preprocessor">#define linini_errmsg lin_errmsg</span>
<a name="l00443"></a><a class="code" href="lin_8h.html#58c2822debf5b36daa18fe8711d724f2">00443</a> <span class="preprocessor"></span><span class="preprocessor">#define lincpy_errmsg lin_errmsg</span>
<a name="l00444"></a><a class="code" href="lin_8h.html#a6d3f59059c532b0217f570f2b4f50df">00444</a> <span class="preprocessor"></span><span class="preprocessor">#define linfree_errmsg lin_errmsg</span>
<a name="l00445"></a><a class="code" href="lin_8h.html#8970e09d61fde987211f8e64061e1fa1">00445</a> <span class="preprocessor"></span><span class="preprocessor">#define linprt_errmsg lin_errmsg</span>
<a name="l00446"></a><a class="code" href="lin_8h.html#a78f202b20674909aab523018106546e">00446</a> <span class="preprocessor"></span><span class="preprocessor">#define linset_errmsg lin_errmsg</span>
<a name="l00447"></a><a class="code" href="lin_8h.html#cb8c02645d7cc3d42e3db6ebf74de192">00447</a> <span class="preprocessor"></span><span class="preprocessor">#define linp2x_errmsg lin_errmsg</span>
<a name="l00448"></a><a class="code" href="lin_8h.html#7232df93295216e063c438671652c2b4">00448</a> <span class="preprocessor"></span><span class="preprocessor">#define linx2p_errmsg lin_errmsg</span>
<a name="l00449"></a>00449 <span class="preprocessor"></span>
<a name="l00450"></a>00450 <span class="preprocessor">#ifdef __cplusplus</span>
<a name="l00451"></a>00451 <span class="preprocessor"></span>}
<a name="l00452"></a>00452 <span class="preprocessor">#endif</span>
<a name="l00453"></a>00453 <span class="preprocessor"></span>
<a name="l00454"></a>00454 <span class="preprocessor">#endif </span><span class="comment">/* WCSLIB_LIN */</span>
</pre></div></div>
<hr size="1"><address style="text-align: right;"><small>Generated on Tue Oct 4 19:02:30 2011 for WCSLIB 4.8.2 by
<a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="middle" border="0"></a> 1.5.6 </small></address>
</body>
</html>
|
