double palRvgalc	(	double	r2000,
		double	d2000
	)

Definition at line 85 of file palRvgalc.c.

References eraPdp(), and eraS2c().

Referenced by t_rv(), and t_rvgalc().

                                              {

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

/*
*  LSR velocity due to Galactic rotation
*
*  Speed = 220 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 ] = { -108.70408, +97.86251, -164.33610 };

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

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

Here is the call graph for this function:

Here is the caller graph for this function: