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

Definition at line 83 of file palSupgal.c.

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

Referenced by t_supgal().

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( dsl, dsb, v1 );
105 
106  /* Supergalactic to galactic */
107  eraTrxp( rmat, v1, v2 );
108 
109  /* Cartesian to spherical */
110  eraC2s( v2, dl, db );
111 
112  /* Express in conventional ranges */
113  *dl = eraAnp( *dl );
114  *db = eraAnpm( *db );
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
eraTrxp
void eraTrxp(double r[3][3], double p[3], double trp[3])
Definition: trxp.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: