/Proj4/pj_msfn.c

 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}