FACT++  1.0
void palSubet ( double  rc,
double  dc,
double  eq,
double *  rm,
double *  dm 
)

Definition at line 86 of file palSubet.c.

References eraAnp(), eraC2s(), eraPdp(), eraS2c(), i, and palEtrms().

Referenced by t_addet().

86  {
87  double a[3]; /* The E-terms */
88  double v[3];
89  double f;
90  int i;
91 
92  /* Note the preference for IAU routines */
93 
94  /* Retrieve the E-terms */
95  palEtrms( eq, a );
96 
97  /* Spherical to Cartesian */
98  eraS2c( rc, dc, v );
99 
100  /* Include the E-terms */
101  f = 1.0 + eraPdp( v, a );
102  for (i=0; i<3; i++) {
103  v[i] = f*v[i] - a[i];
104  }
105 
106  /* Cartesian to spherical */
107  eraC2s( v, rm, dm );
108 
109  /* Bring RA into conventional range */
110  *rm = eraAnp( *rm );
111 
112 }
eraPdp
double eraPdp(double a[3], double b[3])
Definition: pdp.c:3
i
int i
Definition: db_dim_client.c:21
eraS2c
void eraS2c(double theta, double phi, double c[3])
Definition: s2c.c:3
palEtrms
void palEtrms(double ep, double ev[3])
Definition: palEtrms.c:78
eraC2s
void eraC2s(double p[3], double *theta, double *phi)
Definition: c2s.c:3
eraAnp
double eraAnp(double a)
Definition: anp.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: