sidtim Subroutine

public subroutine sidtim(tjdh, tjdl, k, gst)

THIS SUBROUTINE COMPUTES THE GREENWICH SIDEREAL TIME (EITHER MEAN OR APPARENT) AT JULIAN DATE TJDH + TJDL.

 TJDH   = UT1 JULIAN DATE, HIGH-ORDER PART (IN)
 TJDL   = UT1 JULIAN DATE, LOW-ORDER PART (IN)
          THE JULIAN DATE MAY BE SPLIT AT ANY POINT, BUT
          FOR HIGHEST PRECISION, SET TJDH TO BE THE INTEGRAL
          PART OF THE JULIAN DATE, AND SET TJDL TO BE THE
          FRACTIONAL PART
 K      = TIME SELECTION CODE (IN)
          SET K=0 FOR GREENWICH MEAN SIDEREAL TIME
          SET K=1 FOR GREENWICH APPARENT SIDEREAL TIME
 GST    = GREENWICH (MEAN OR APPARENT) SIDEREAL TIME
          IN HOURS (OUT)

NOTE: SEE ALSO SUBROUTINE SETDT TO SET THE VALUE OF DELTA-T (DELTA-T = TT - UT1) TO BE USED HERE.

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjdh
real(kind=wp) :: tjdl
integer :: k
real(kind=wp) :: gst

Calls

proc~~sidtim~~CallsGraph proc~sidtim novas_module::sidtim getdt getdt proc~sidtim->getdt getmod getmod proc~sidtim->getmod proc~ciobas novas_module::ciobas proc~sidtim->proc~ciobas proc~cioloc novas_module::cioloc proc~sidtim->proc~cioloc proc~eqxra novas_module::eqxra proc~sidtim->proc~eqxra proc~erot novas_module::erot proc~sidtim->proc~erot proc~etilt novas_module::etilt proc~sidtim->proc~etilt proc~frame novas_module::frame proc~sidtim->proc~frame proc~nutate novas_module::nutate proc~sidtim->proc~nutate proc~preces novas_module::preces proc~sidtim->proc~preces proc~times novas_module::times proc~sidtim->proc~times proc~ciobas->proc~frame proc~ciobas->proc~nutate proc~ciobas->proc~preces proc~cioloc->proc~eqxra proc~ciord novas_module::ciord proc~cioloc->proc~ciord proc~eqxra->proc~etilt proc~etilt->getmod proc~etilt->proc~frame proc~etilt->proc~preces celpol celpol proc~etilt->celpol proc~eect2000 novas_module::eect2000 proc~etilt->proc~eect2000 proc~funarg novas_module::funarg proc~etilt->proc~funarg proc~nod~2 novas_module::nod proc~etilt->proc~nod~2 proc~nutate->proc~etilt ciofil ciofil proc~ciord->ciofil proc~anmp novas_module::anmp proc~eect2000->proc~anmp proc~nod~2->getmod proc~nu2000a novas_module::nu2000a proc~nod~2->proc~nu2000a proc~nu2000k novas_module::nu2000k proc~nod~2->proc~nu2000k proc~nu2000k->proc~funarg

Called by

proc~~sidtim~~CalledByGraph proc~sidtim novas_module::sidtim proc~celter novas_module::celter proc~celter->proc~sidtim proc~geopos novas_module::geopos proc~geopos->proc~sidtim proc~tercel novas_module::tercel proc~tercel->proc~sidtim proc~place novas_module::place proc~place->proc~geopos proc~zdaz novas_module::zdaz proc~zdaz->proc~tercel proc~mpstar novas_module::mpstar proc~mpstar->proc~place proc~places novas_module::places proc~places->proc~place