void palGeoc	(	double	p,
		double	h,
		double *	r,
		double *	z
	)

Definition at line 75 of file palGeoc.c.

References eraGd2gc(), and ERFA_WGS84.

Referenced by t_geoc().

                                                          {
  double xyz[3];
  const double elong = 0.0;   /* Use zero longitude */
  const double AU = 1.49597870E11;
  /* WGS84 looks to be the closest match */
  eraGd2gc( ERFA_WGS84, elong, p, h, xyz );
  *r = xyz[0] / (AU * cos(elong) );
  *z = xyz[2] / AU;
}

Here is the call graph for this function:

Here is the caller graph for this function: