void palPertel	(	int	jform,
		double	date0,
		double	date1,
		double	epoch0,
		double	orbi0,
		double	anode0,
		double	perih0,
		double	aorq0,
		double	e0,
		double	am0,
		double *	epoch1,
		double *	orbi1,
		double *	anode1,
		double *	perih1,
		double *	aorq1,
		double *	e1,
		double *	am1,
		int *	jstat
	)

Definition at line 171 of file palPertel.c.

References palEl2ue(), palPertue(), and palUe2el().

Referenced by t_planet().

                             {

  double u[13], dm;
  int j, jf;

  /*  Check that the elements are either minor-planet or comet format. */
  if (jform < 2 || jform > 3) {
    *jstat = -1;
    return;
  } else {

    /*     Provisionally set the status to OK. */
    *jstat = 0;
  }

  /*  Transform the elements from conventional to universal form. */
  palEl2ue(date0,jform,epoch0,orbi0,anode0,perih0,
           aorq0,e0,am0,0.0,u,&j);
  if (j != 0) {
    *jstat = j;
    return;
  }

  /*  Update the universal elements. */
  palPertue(date1,u,&j);
  if (j > 0) {
    *jstat = j;
  } else if (j < 0) {
    *jstat = -5;
    return;
  }

  /*  Transform from universal to conventional elements. */
  palUe2el(u, jform, &jf, epoch1, orbi1, anode1, perih1,
           aorq1, e1, am1, &dm, &j);
  if (jf != jform || j != 0) *jstat = -5;
}

Here is the call graph for this function:

Here is the caller graph for this function: