/Proj4/PJ_larr.c
C | 15 lines | 15 code | 0 blank | 0 comment | 1 complexity | 01e5a2d039a2cc4e4fc4ac4e88b809f5 MD5 | raw file
1#ifndef lint 2static const char SCCSID[]="@(#)PJ_larr.c 4.1 94/02/15 GIE REL"; 3#endif 4#define PROJ_PARMS__ 5#define PJ_LIB__ 6#include "projects.h" 7PROJ_HEAD(larr, "Larrivee") "\n\tMisc Sph, no inv."; 8#define SIXTH .16666666666666666 9FORWARD(s_forward); /* sphere */ 10 xy.x = 0.5 * lp.lam * (1. + sqrt(cos(lp.phi))); 11 xy.y = lp.phi / (cos(0.5 * lp.phi) * cos(SIXTH * lp.lam)); 12 return (xy); 13} 14FREEUP; if (P) pj_dalloc(P); } 15ENTRY0(larr) P->fwd = s_forward; P->inv = 0; P->es = 0.; ENDENTRY(P)