FACT++  1.0
void palPreces ( const char  sys[3],
double  ep0,
double  ep1,
double *  ra,
double *  dc 
)

Definition at line 91 of file palPreces.c.

References eraAnp(), eraC2s(), eraRxp(), eraS2c(), palPrebn(), and palPrec().

Referenced by t_preces().

92  {
93 
94  double pm[3][3];
95  double v1[3];
96  double v2[3];
97 
98  /* Generate appropriate precession matrix */
99  if ( strncasecmp( "FK4", sys, 3 ) == 0 ) {
100  palPrebn( ep0, ep1, pm );
101  } else if (strncasecmp( "FK5", sys, 3 ) == 0 ) {
102  palPrec( ep0, ep1, pm );
103  } else {
104  *ra = -99.0;
105  *dc = -99.0;
106  return;
107  }
108 
109  /* Convert RA,Dec to x,y,z */
110  eraS2c( *ra, *dc, v1 );
111 
112  /* Precess */
113  eraRxp( pm, v1, v2 );
114 
115  /* Back to RA,Dec */
116  eraC2s( v2, ra, dc );
117  *ra = eraAnp( *ra );
118 }
void palPrec(double ep0, double ep1, double rmatp[3][3])
Definition: palPrec.c:76
void eraS2c(double theta, double phi, double c[3])
Definition: s2c.c:3
void palPrebn(double bep0, double bep1, double rmatp[3][3])
Definition: palPrebn.c:76
void eraC2s(double p[3], double *theta, double *phi)
Definition: c2s.c:3
void eraRxp(double r[3][3], double p[3], double rp[3])
Definition: rxp.c:3
double eraAnp(double a)
Definition: anp.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: