void palFk54z	(	double	r2000,
		double	d2000,
		double	bepoch,
		double *	r1950,
		double *	d1950,
		double *	dr1950,
		double *	dd1950
	)

Definition at line 97 of file palFk54z.c.

References palFk524().

Referenced by t_fk54z().

                                                              {

/* Local Variables: */
   double r, d, px, rv, y;

/* FK5 equinox J2000 (any epoch) to FK4 equinox B1950 epoch B1950. */
   palFk524( r2000, d2000, 0.0, 0.0, 0.0, 0.0, &r, &d, dr1950, dd1950,
             &px, &rv );

/* Fictitious proper motion to epoch "bepoch". */
   y = bepoch - 1950.0;
   *r1950 = r + *dr1950*y;
   *d1950 = d + *dd1950*y;

}

Here is the call graph for this function:

Here is the caller graph for this function: