/Proj4/pj_msfn.c

http://github.com/route-me/route-me · C · 10 lines · 9 code · 0 blank · 1 comment · 0 complexity · cf9885e461600a9f36224526df2be6b1 MD5 · raw file 

    

  1. /* determine constant small m */
    2. 

  2. #ifndef lint
    3. 

  3. static const char SCCSID[]="@(#)pj_msfn.c	4.3	93/06/12	GIE	REL";
    4. 

  4. #endif
    5. 

  5. #include <math.h>
    6. 

  6. #include "projects.h"
    7. 

  7. 	double
    8. 

  8. pj_msfn(double sinphi, double cosphi, double es) {
    9. 

  9. 	return (cosphi / sqrt (1. - es * sinphi * sinphi));
    10. 

  10. }
    11.