void palEqgal	(	double	dr,
		double	dd,
		double *	dl,
		double *	db
	)

Definition at line 80 of file palEqgal.c.

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

Referenced by t_eqgal().

                                                               {

  double v1[3];
  double v2[3];

/*
*  L2,B2 system of galactic coordinates
*
*  P = 192.25       RA of galactic north pole (mean B1950.0)
*  Q =  62.6        inclination of galactic to mean B1950.0 equator
*  R =  33          longitude of ascending node
*
*  P,Q,R are degrees
*
*  Equatorial to galactic rotation matrix (J2000.0), obtained by
*  applying the standard FK4 to FK5 transformation, for zero proper
*  motion in FK5, to the columns of the B1950 equatorial to
*  galactic rotation matrix:
*/
  double rmat[3][3] = {
    { -0.054875539726,-0.873437108010,-0.483834985808 },
    { +0.494109453312,-0.444829589425,+0.746982251810 },
    { -0.867666135858,-0.198076386122,+0.455983795705 }
  };

  /* Spherical to Cartesian */
  eraS2c( dr, dd, v1 );

  /* Equatorial to Galactic */
  eraRxp( rmat, v1, v2 );

  /* Cartesian to spherical */
  eraC2s( v2, dl, db );

  /* Express in conventional ranges */
  *dl = eraAnp( *dl );
  *db = eraAnpm( *db );

}

Here is the call graph for this function:

Here is the caller graph for this function: