int eraTcgtt	(	double	tcg1,
		double	tcg2,
		double *	tt1,
		double *	tt2
	)

Definition at line 3 of file tcgtt.c.

References ERFA_DAYSEC, ERFA_DJM0, ERFA_DJM77, ERFA_ELG, and ERFA_TTMTAI.

Referenced by t_tcgtt().

{

/* 1977 Jan 1 00:00:32.184 TT, as MJD */
   static const double t77t = ERFA_DJM77 + ERFA_TTMTAI/ERFA_DAYSEC;

/* Result, safeguarding precision. */
   if ( tcg1 > tcg2 ) {
      *tt1 = tcg1;
      *tt2 = tcg2 - ( ( tcg1 - ERFA_DJM0 ) + ( tcg2 - t77t ) ) * ERFA_ELG;
   } else {
      *tt1 = tcg1 - ( ( tcg2 - ERFA_DJM0 ) + ( tcg1 - t77t ) ) * ERFA_ELG;
      *tt2 = tcg2;
   }

/* OK status. */
   return 0;

}

Here is the caller graph for this function: