double palRvlsrk	(	double	r2000,
		double	d2000
	)

Definition at line 90 of file palRvlsrk.c.

References eraPdp(), and eraS2c().

Referenced by t_rv(), and t_rvlsrk().

                                              {

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

/*
*  Standard solar motion (from Methods of Experimental Physics, ed Meeks,
*  vol 12, part C, sec 6.1.5.2, p281):
*
*  20 km/s towards RA 18h Dec +30d (1900).
*
*  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.29000, +17.31726, -10.00141 };

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