/Proj4/pj_msfn.c
C | 10 lines | 9 code | 0 blank | 1 comment | 0 complexity | cf9885e461600a9f36224526df2be6b1 MD5 | raw file
1/* determine constant small m */ 2#ifndef lint 3static const char SCCSID[]="@(#)pj_msfn.c 4.3 93/06/12 GIE REL"; 4#endif 5#include <math.h> 6#include "projects.h" 7 double 8pj_msfn(double sinphi, double cosphi, double es) { 9 return (cosphi / sqrt (1. - es * sinphi * sinphi)); 10}