int eraEform	(	int	n,
		double *	a,
		double *	f
	)

Definition at line 3 of file eform.c.

References ERFA_GRS80, ERFA_WGS72, and ERFA_WGS84.

Referenced by eraGc2gd(), eraGd2gc(), and t_eform().

{

/* Look up a and f for the specified reference ellipsoid. */
   switch ( n ) {

   case ERFA_WGS84:
      *a = 6378137.0;
      *f = 1.0 / 298.257223563;
      break;

   case ERFA_GRS80:
      *a = 6378137.0;
      *f = 1.0 / 298.257222101;
      break;

   case ERFA_WGS72:
      *a = 6378135.0;
      *f = 1.0 / 298.26;
      break;

   default:

   /* Invalid identifier. */
      *a = 0.0;
      *f = 0.0;
      return -1;

   }

/* OK status. */
   return 0;

}

Here is the caller graph for this function: