int eraTcbtdb	(	double	tcb1,
		double	tcb2,
		double *	tdb1,
		double *	tdb2
	)

Definition at line 3 of file tcbtdb.c.

References ERFA_DAYSEC, ERFA_DJM0, ERFA_DJM77, ERFA_ELB, ERFA_TDB0, and ERFA_TTMTAI.

Referenced by t_tcbtdb().

{

/* 1977 Jan 1 00:00:32.184 TT, as two-part JD */
   static const double t77td = ERFA_DJM0 + ERFA_DJM77;
   static const double t77tf = ERFA_TTMTAI/ERFA_DAYSEC;

/* TDB (days) at TAI 1977 Jan 1.0 */
   static const double tdb0 = ERFA_TDB0/ERFA_DAYSEC;

   double d;

/* Result, safeguarding precision. */
   if ( tcb1 > tcb2 ) {
      d = tcb1 - t77td;
      *tdb1 = tcb1;
      *tdb2 = tcb2 + tdb0 - ( d + ( tcb2 - t77tf ) ) * ERFA_ELB;
   } else {
      d = tcb2 - t77td;
      *tdb1 = tcb1 + tdb0 - ( d + ( tcb1 - t77tf ) ) * ERFA_ELB;
      *tdb2 = tcb2;
   }

/* Status (always OK). */
   return 0;

}

Here is the caller graph for this function: