27 const GCTP_TRANSFORMATION *trans,
28 const double *in_coor,
33 const GCTP_PROJECTION *in_proj = &trans->inverse.proj;
34 const GCTP_PROJECTION *out_proj = &trans->forward.proj;
35 long insys = in_proj->proj_code;
36 long inzone = in_proj->zone;
37 long inunit = in_proj->units;
38 long inspheroid = in_proj->spheroid;
39 long outsys = out_proj->proj_code;
40 long outzone = out_proj->zone;
41 long outunit = out_proj->units;
42 long outspheroid = out_proj->spheroid;
46 gctp(in_coor, &insys, &inzone, in_proj->parameters, &inunit, &inspheroid,
47 out_coor, &outsys, &outzone, out_proj->parameters, &outunit,
70 const GCTP_TRANSFORMATION *trans,
71 const double *in_coor,
91 return call_gctp(trans, in_coor, out_coor);
97 x = in_coor[0] * trans->inverse.unit_conversion_factor;
98 y = in_coor[1] * trans->inverse.unit_conversion_factor;
100 if (trans->inverse.transform)
104 status = trans->inverse.transform(&trans->inverse,
x,
y, &
lon, &
lat);
123 if (trans->forward.transform)
125 if (trans->forward.transform(&trans->forward,
lon,
lat,
142 out_coor[0] *= trans->forward.unit_conversion_factor;
143 out_coor[1] *= trans->forward.unit_conversion_factor;