double palRvlsrd	(	double	r2000,
		double	d2000
	)

Definition at line 90 of file palRvlsrd.c.

References eraPdp(), and eraS2c().

Referenced by t_rv(), and t_rvlsrd().

                                              {

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

/*
*  Peculiar solar motion from Delhaye 1965: in Galactic Cartesian
*  coordinates (+9,+12,+7) km/s.  This corresponds to about 16.6 km/s
*  towards Galactic coordinates L2 = 53 deg, B2 = +25 deg, or RA,Dec
*  17 49 58.7 +28 07 04 J2000.
*
*  The solar motion is expressed here in the form of a J2000.0
*  equatorial Cartesian 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 ] = { +0.63823, +14.58542, -7.80116 };

/* 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: