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
|
#ifndef GCTPC_H
#define GCTPC_H
#include "proj.h"
/* This didn't come with the original gctpc distribution.
But it *should* have. -- jamie 2/14/95 */
void gctp(double* incoor,
long* insys,
long* inzone,
double* inparm,
long* inunit,
long* indatum,
long* ipr,
char* efile,
long* jpr,
char* pfile,
double* outcoor,
long* outsys,
long* outzone,
double* outparm,
long* outunit,
long* outdatum,
char* fn27,
char* fn83,
long* iflg);
long
alberforint(double r_maj, double r_min, double lat1, double lat2, double lon0,
double lat0, double false_east, double false_north);
long
alberfor(double lon, double lat, double *x, double *y);
long
alberinvint(double r_maj, double r_min, double lat1, double lat2, double lon0,
double lat0, double false_east, double false_north);
long
alberinvint(double r_maj, double r_min, double lat1, double lat2, double lon0,
double lat0, double false_east, double false_north);
long
alberinvint(double r_maj, double r_min, double lat1, double lat2, double lon0,
double lat0, double false_east, double false_north);
long
alberinv(double x, double y, double *lon, double *lat);
long
alconforint(double r_maj, double r_min, double false_east, double false_north);
long
alconfor(double lon, double lat, double *x, double *y);
long
alconinvint(double r_maj, double r_min, double false_east, double false_north);
long
alconinv(double x, double y, double *lon, double *lat);
long
azimforint(double r_maj, double center_lon, double center_lat, double false_east,
double false_north);
long
azimfor(double lon, double lat, double *x, double *y);
long
aziminvint(double r_maj, double center_lon, double center_lat, double false_east,
double false_north);
long
aziminv(double x, double y, double *lon, double *lat);
long
eqconforint(double r_maj, double r_min, double lat1, double lat2,
double center_lon, double center_lat, double false_east,
double false_north, long int mode);
long
eqconfor(double lon, double lat, double *x, double *y);
long
eqconinvint(double r_maj, double r_min, double lat1, double lat2,
double center_lon, double center_lat, double false_east,
double false_north, long int mode);
long
eqconinv(double x, double y, double *lon, double *lat);
long
equiforint(double r_maj, double center_lon, double lat1, double false_east,
double false_north);
long
equifor(double lon, double lat, double *x, double *y);
long
equiinvint(double r_maj, double center_lon, double lat1,
double false_east, double false_north);
long
equiinv(double x, double y, double *lon, double *lat);
long
gnomforint(double r, double center_long, double center_lat,
double false_east, double false_north);
long
gnomfor(double lon, double lat, double *x, double *y);
long
gnominvint(double r, double center_long, double center_lat, double false_east,
double false_north);
long
gnominv(double x, double y, double *lon, double *lat);
long
goodforint(double r);
long
goodfor(double lon, double lat, double *x, double *y);
long
goodinvint(double r);
long
goodinv(double x, double y, double *lon, double *lat);
long
gvnspforint(double r, double h, double center_long, double center_lat,
double false_east, double false_north);
long
gvnspfor(double lon, double lat, double *x, double *y);
long
gvnspinvint(double r, double h, double center_long, double center_lat,
double false_east, double false_north);
long
gvnspinv(double x, double y, double *lon, double *lat);
long
hamforint(double r, double center_long, double false_east, double false_north);
long
hamfor(double lon, double lat, double *x, double *y);
long
haminvint(double r, double center_long, double false_east, double false_north);
long
haminv(double x, double y, double *lon, double *lat);
long
imolwforint(double r);
long
imolwfor(double lon, double lat, double *x, double *y);
long
imolwinvint(double r);
long
imolwinv(double x, double y, double *lon, double *lat);
long
lamazforint(double r, double center_long, double center_lat, double false_east,
double false_north);
long
lamazfor(double lon, double lat, double *x, double *y);
long
lamazinvint(double r, double center_long, double center_lat, double false_east,
double false_north);
long
lamazinv(double x, double y, double *lon, double *lat);
long
lamccforint(double r_maj, double r_min, double lat1, double lat2, double c_lon,
double c_lat, double false_east, double false_north);
long
lamccfor(double lon, double lat, double *x, double *y);
long
lamccinvint(double r_maj, double r_min, double lat1, double lat2, double c_lon,
double c_lat, double false_east, double false_north);
long
lamccinv(double x, double y, double *lon, double *lat);
long
merforint(double r_maj, double r_min, double center_lon, double center_lat,
double false_east, double false_north);
long
merfor(double lon, double lat, double *x, double *y);
long
merinvint(double r_maj, double r_min, double center_lon, double center_lat,
double false_east, double false_north);
long
merinv(double x, double y, double *lon, double *lat);
long
millforint(double r, double center_long, double false_east, double false_north);
long
millfor(double lon, double lat, double *x, double *y);
long
millinvint(double r, double center_long, double false_east, double false_north);
long
millinv(double x, double y, double *lon, double *lat);
long
molwforint(double r, double center_long, double false_east, double false_north);
long
molwfor(double lon, double lat, double *x, double *y);
long
molwinvint(double r, double center_long, double false_east, double false_north);
long
molwinv(double x, double y, double *lon, double *lat);
long
obleqforint(double r, double center_long, double center_lat, double shape_m,
double shape_n, double angle, double false_east, double false_north);
long
obleqfor(double lon, double lat, double *x, double *y);
long
obleqinvint(double r, double center_long, double center_lat, double shape_m,
double shape_n, double angle, double false_east, double false_north);
long
obleqinv(double x, double y, double *lon, double *lat);
long
omerforint(double r_maj, double r_min, double scale_fact, double azimuth,
double lon_orig, double lat_orig, double false_east,
double false_north, double lon1, double lat1, double lon2,
double lat2, long int mode);
long
omerfor(double lon, double lat, double *x, double *y);
long
omerinvint(double r_maj, double r_min, double scale_fact, double azimuth,
double lon_orig, double lat_orig, double false_east,
double false_north, double lon1, double lat1, double lon2,
double lat2, long int mode);
long
omerinv(double x, double y, double *lon, double *lat);
long
orthforint(double r_maj, double center_lon, double center_lat, double false_east,
double false_north);
long
orthfor(double lon, double lat, double *x, double *y);
long
orthinvint(double r_maj, double center_lon, double center_lat,
double false_east, double false_north);
long
orthinv(double x, double y, double *lon, double *lat);
long
polyforint(double r_maj, double r_min, double center_lon, double center_lat,
double false_east, double false_north);
long
polyfor(double lon, double lat, double *x, double *y);
long
polyinvint(double r_maj, double r_min, double center_lon, double center_lat,
double false_east, double false_north);
long
polyinv(double x, double y, double *lon, double *lat);
long
psforint(double r_maj, double r_min, double c_lon, double c_lat,
double false_east, double false_north);
long
psfor(double lon, double lat, double *x, double *y);
long
psinvint(double r_maj, double r_min, double c_lon, double c_lat, double false_east,
double false_north);
long
psinv(double x, double y, double *lon, double *lat);
long
robforint(double r, double center_long, double false_east, double false_north);
long
robfor(double lon, double lat, double *x, double *y);
long
robinvint(double r, double center_long, double false_east, double false_north);
long
robinv(double x, double y, double *lon, double *lat);
long
sinforint(double r, double center_long, double false_east, double false_north);
long
sinfor(double lon, double lat, double *x, double *y);
long
sininvint(double r, double center_long, double false_east, double false_north);
long
sininv(double x, double y, double *lon, double *lat);
long
somforint(double r_major, double r_minor, long int satnum, long int path,
double alf_in, double lon, double false_east, double false_north,
double time, long int start1, long int flag);
long
somfor(double lon, double lat, double *y, double *x);
long
sominvint(double r_major, double r_minor, long int satnum, long int path,
double alf_in, double lon, double false_east, double false_north,
double time, long int start1, long int flag);
long
sominv(double y, double x, double *lon, double *lat);
long
sterforint(double r_maj, double center_lon, double center_lat,
double false_east, double false_north);
long
sterfor(double lon, double lat, double *x, double *y);
long
sterinvint(double r_maj, double center_lon, double center_lat,
double false_east, double false_north);
long
sterinv(double x, double y, double *lon, double *lat);
long
stplnforint(long int zone, long int sphere, char *fn27, char *fn83);
long
stplnfor(double lon, double lat, double *x, double *y);
long
stplninvint(long int zone, long int sphere, char *fn27, char *fn83);
long
stplninv(double x, double y, double *lon, double *lat);
long
utmforint(double r_maj, double r_min, double scale_fact, long int zone);
long
utmfor(double lon, double lat, double *x, double *y);
long
tmforint(double r_maj, double r_min, double scale_fact, double center_lon,
double center_lat, double false_east, double false_north);
long
tmfor(double lon, double lat, double *x, double *y);
long
utminvint(double r_maj, double r_min, double scale_fact, long int zone);
long
utminv(double x, double y, double *lon, double *lat);
long
tminvint(double r_maj, double r_min, double scale_fact, double center_lon,
double center_lat, double false_east, double false_north);
long
tminv(double x, double y, double *lon, double *lat);
long
vandgforint(double r, double center_long, double false_east, double false_north);
long
vandgfor(double lon, double lat, double *x, double *y);
long
vandginvint(double r, double center_long, double false_east, double false_north);
long
vandginv(double x, double y, double *lon, double *lat);
long
wivforint(double r, double center_long, double false_east, double false_north);
long
wivfor(double lon, double lat, double *x, double *y);
long
wivinvint(double r, double center_long, double false_east, double false_north);
long
wivinv(double x, double y, double *lon, double *lat);
long
wviiforint(double r, double center_long, double false_east, double false_north);
long
wviifor(double lon, double lat, double *x, double *y);
long
wviiinvint(double r, double center_long, double false_east, double false_north);
long
wviiinv(double x, double y, double *lon, double *lat);
#endif /* GCTPC_H */
|
