void eraLdn	(	int	n,
		eraLDBODY	b[],
		double	ob[3],
		double	sc[3],
		double	sn[3]
	)

Definition at line 3 of file ldn.c.

References eraCp(), eraLd(), eraPdp(), eraPmp(), eraPn(), eraPpsp(), ERFA_AULT, ERFA_DAYSEC, ERFA_GMIN, and i.

Referenced by eraAtciqn(), eraAticqn(), and t_ldn().

{
/* Light time for 1 AU (days) */
   const double CR = ERFA_AULT/ERFA_DAYSEC;

   int i;
   double  v[3], dt, ev[3], em, e[3];

/* Star direction prior to deflection. */
   eraCp(sc, sn);

/* Body by body. */
   for ( i = 0; i < n; i++ ) {

   /* Body to observer vector at epoch of observation (au). */
      eraPmp ( ob, b[i].pv[0], v );

   /* Minus the time since the light passed the body (days). */
      dt = eraPdp(sn,v) * CR;

   /* Neutralize if the star is "behind" the observer. */
      dt = ERFA_GMIN(dt, 0.0);

   /* Backtrack the body to the time the light was passing the body. */
      eraPpsp(v, -dt, b[i].pv[1], ev);

   /* Body to observer vector as magnitude and direction. */
      eraPn(ev, &em, e);

   /* Apply light deflection for this body. */
      eraLd ( b[i].bm, sn, sn, e, em, b[i].dl, sn );

   /* Next body. */
   }

/* Finished. */

}

Here is the call graph for this function:

Here is the caller graph for this function: