FACT++  1.0
void palPlanel ( double  date,
int  jform,
double  epoch,
double  orbinc,
double  anode,
double  perih,
double  aorq,
double  e,
double  aorl,
double  dm,
double  pv[6],
int *  jstat 
)

Definition at line 200 of file palPlanel.c.

References palEl2ue(), and palUe2pv().

Referenced by t_planet().

202  {
203 
204  int j;
205  double u[13];
206 
207  /* Validate elements and convert to "universal variables" parameters. */
208  palEl2ue( date, jform, epoch, orbinc, anode, perih, aorq, e, aorl,
209  dm, u, &j );
210 
211  /* Determine the position and velocity */
212  if (j == 0) {
213  palUe2pv( date, u, pv, &j);
214  if (j != 0) j = -5;
215  }
216 
217  /* Wrap up */
218  *jstat = j;
219 
220 }
void palEl2ue(double date, int jform, double epoch, double orbinc, double anode, double perih, double aorq, double e, double aorl, double dm, double u[13], int *jstat)
Definition: palEl2ue.c:178
void palUe2pv(double date, double u[13], double pv[], int *jstat)

+ Here is the call graph for this function:

+ Here is the caller graph for this function: