times Subroutine

public subroutine times(tdbjd, ttjd, secdif)

THIS SUBROUTINE COMPUTES THE TERRESTRIAL TIME (TT) JULIAN DATE CORRESPONDING TO A BARYCENTRIC DYNAMICAL TIME (TDB) JULIAN DATE. THE EXPRESSION USED IN THIS VERSION IS A TRUNCATED FORM OF A LONGER AND MORE PRECISE SERIES GIVEN BY FAIRHEAD & BRETAGNON (1990) A&A 229, 240. THE RESULT IS GOOD TO ABOUT 10 MICROSECONDS.

 TDBJD  = TDB JULIAN DATE (IN)
 TTJD   = TT JULIAN DATE (OUT)
 SECDIF = DIFFERENCE TDBJD-TTJD, IN SECONDS (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tdbjd
real(kind=wp) :: ttjd
real(kind=wp) :: secdif

Called by

proc~~times~~CalledByGraph proc~times novas_module::times proc~celter novas_module::celter proc~celter->proc~times proc~sidtim novas_module::sidtim proc~celter->proc~sidtim proc~ciora novas_module::ciora proc~ciora->proc~times proc~eceq novas_module::eceq proc~eceq->proc~times proc~eqec novas_module::eqec proc~eqec->proc~times proc~gcrseq novas_module::gcrseq proc~gcrseq->proc~times proc~place novas_module::place proc~place->proc~times proc~geopos novas_module::geopos proc~place->proc~geopos proc~sidtim->proc~times proc~tercel novas_module::tercel proc~tercel->proc~times proc~tercel->proc~sidtim proc~eqecl novas_module::eqecl proc~eqecl->proc~eqec proc~geopos->proc~sidtim proc~mpstar novas_module::mpstar proc~mpstar->proc~place proc~places novas_module::places proc~places->proc~place proc~zdaz novas_module::zdaz proc~zdaz->proc~tercel