void palPvobs	(	double	p,
		double	h,
		double	stl,
		double	pv[6]
	)

Definition at line 77 of file palPvobs.c.

References eraGd2gc(), ERFA_DAU, ERFA_WGS84, and PAL__SR.

Referenced by palPlantu(), palRdplan(), and t_pvobs().

                                                             {

/* Local Variables: */
   double xyz[3], z, r, s, c, v;

/* Geodetic to geocentric conversion (WGS84 reference ellipsoid). */
   eraGd2gc( ERFA_WGS84, 0.0, p, h, xyz );

/* Convert from metres to AU */
   r = xyz[ 0 ]/ERFA_DAU;
   z = xyz[ 2 ]/ERFA_DAU;

/* Functions of ST. */
   s = sin( stl );
   c = cos( stl );

/* Speed. */
   v = PAL__SR*r;

/* Position. */
   pv[ 0 ] = r*c;
   pv[ 1 ] = r*s;
   pv[ 2 ] = z;

/* Velocity. */
   pv[ 3 ] = -v*s;
   pv[ 4 ] = v*c;
   pv[ 5 ] = 0.0;

}

Here is the call graph for this function:

Here is the caller graph for this function: