void palUe2el	(	const double	u[],
		int	jformr,
		int *	jform,
		double *	epoch,
		double *	orbinc,
		double *	anode,
		double *	perih,
		double *	aorq,
		double *	e,
		double *	aorl,
		double *	dm,
		int *	jstat
	)

Definition at line 212 of file palUe2el.c.

References i, PAL__GCON, PAL__SPD, and palPv2el().

                                                       {

  /*  Canonical days to seconds */
  const double CD2S = PAL__GCON / PAL__SPD;

  int i;
  double pmass, date, pv[6];

  /* Unpack the universal elements */
  pmass = u[0] - 1.0;
  date = u[2];
  for (i=0; i<3; i++) {
    pv[i] = u[i+3];
    pv[i+3] = u[i+6] * CD2S;
  }

  /* Convert the position and velocity etc into conventional elements */
  palPv2el( pv, date, pmass, jformr, jform, epoch, orbinc, anode,
            perih, aorq, e, aorl, dm, jstat );
}

Here is the call graph for this function: