FACT++  1.0
void palGalsup ( double  dl,
double  db,
double *  dsl,
double *  dsb 
)

Definition at line 83 of file palGalsup.c.

References eraAnp(), eraAnpm(), eraC2s(), eraRxp(), and eraS2c().

Referenced by t_galsup().

83  {
84 
85  double v1[3];
86  double v2[3];
87 
88 /*
89 * System of supergalactic coordinates:
90 *
91 * SGL SGB L2 B2 (deg)
92 * - +90 47.37 +6.32
93 * 0 0 - 0
94 *
95 * Galactic to supergalactic rotation matrix:
96 */
97  double rmat[3][3] = {
98  { -0.735742574804,+0.677261296414,+0.000000000000 },
99  { -0.074553778365,-0.080991471307,+0.993922590400 },
100  { +0.673145302109,+0.731271165817,+0.110081262225 }
101  };
102 
103  /* Spherical to Cartesian */
104  eraS2c( dl, db, v1 );
105 
106  /* Galactic to Supergalactic */
107  eraRxp( rmat, v1, v2 );
108 
109  /* Cartesian to spherical */
110  eraC2s( v2, dsl, dsb );
111 
112  /* Express in conventional ranges */
113  *dsl = eraAnp( *dsl );
114  *dsb = eraAnpm( *dsb );
115 
116 }
eraS2c
void eraS2c(double theta, double phi, double c[3])
Definition: s2c.c:3
eraC2s
void eraC2s(double p[3], double *theta, double *phi)
Definition: c2s.c:3
eraRxp
void eraRxp(double r[3][3], double p[3], double rp[3])
Definition: rxp.c:3
eraAnpm
double eraAnpm(double a)
Definition: anpm.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: