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

Definition at line 88 of file palAddet.c.

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

Referenced by palGe50(), and t_addet().

88  {
89  double a[3]; /* The E-terms */
90  double v[3];
91  int i;
92 
93  /* Note the preference for IAU routines */
94 
95  /* Retrieve the E-terms */
96  palEtrms( eq, a );
97 
98  /* Spherical to Cartesian */
99  eraS2c( rm, dm, v );
100 
101  /* Include the E-terms */
102  for (i=0; i<3; i++) {
103  v[i] += a[i];
104  }
105 
106  /* Cartesian to spherical */
107  eraC2s( v, rc, dc );
108 
109  /* Bring RA into conventional range */
110  *rc = eraAnp( *rc );
111 
112 }
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: