void palEqecl	(	double	dr,
		double	dd,
		double	date,
		double *	dl,
		double *	db
	)

Definition at line 76 of file palEqecl.c.

References eraAnp(), eraC2s(), eraRxp(), eraS2c(), palDrange(), palEcmat(), palEpj(), and palPrec().

Referenced by t_eqecl().

                                                                            {
  double v1[3], v2[3];
  double rmat[3][3];

  /* Spherical to Cartesian */
  eraS2c( dr, dd, v1 );

  /* Mean J2000 to mean of date */
  palPrec( 2000.0, palEpj(date), rmat );
  eraRxp( rmat, v1, v2 );

  /* Equatorial to ecliptic */
  palEcmat( date, rmat );
  eraRxp( rmat, v2, v1 );

  /* Cartesian to spherical */
  eraC2s( v1, dl, db );

  /* Express in conventional range */
  *dl = eraAnp( *dl );
  *db = palDrange( *db );
}

Here is the call graph for this function:

Here is the caller graph for this function: