LG = 6.969290134000E-10 = 60.2146667578nsec LG/(1-LG) = 6.969290138857E-10 = 60.2146667997nsec |
double tt_tcg(LONGJD *pdJDtt, LONGJD *pdJDtcg) { double dFrac; double dInt; double dTemp; /* cal. dTCG */ dTemp = CONST_LGG * (pdJDtt->dDate - JD1977); dFrac = CONST_LGG * (pdJDtt->dTime - DTAI_TT / DAYSEC); dInt= (int)dTemp; dFrac += (dTemp - dInt); /* Calc. TCG */ pdJDtcg->dDate = pdJDtt->dDate + dInt; pdJDtcg->dTime = pdJDtt->dTime + dFrac; ljd_normalize(pdJDtcg); return ((dFrac + dInt) * DAYSEC); } |
|
|
|
|