double palRvlg	(	double	r2000,
		double	d2000
	)

Definition at line 78 of file palRvlg.c.

References eraPdp(), and eraS2c().

Referenced by t_rv(), and t_rvlg().

                                            {

/* Local Variables: */
   double vb[ 3 ];

/*
*
*  Solar velocity due to Galactic rotation and translation
*
*  Speed = 300 km/s
*
*  Apex  = L2,B2  90deg, 0deg
*        = RA,Dec  21 12 01.1  +48 19 47  J2000.0
*
*  This is expressed in the form of a J2000.0 x,y,z vector:
*
*      VA(1) = X = -SPEED*COS(RA)*COS(DEC)
*      VA(2) = Y = -SPEED*SIN(RA)*COS(DEC)
*      VA(3) = Z = -SPEED*SIN(DEC)
*/

   double va[ 3 ] = { -148.23284, +133.44888, -224.09467 };

/* Convert given J2000 RA,Dec to x,y,z. */
   eraS2c( r2000, d2000, vb );

/* Compute dot product with Solar motion vector. */
   return eraPdp( va, vb );
}

Here is the call graph for this function:

Here is the caller graph for this function: