eqxra Subroutine

public subroutine eqxra(tjd, k, raeq)

THIS SUBROUTINE COMPUTES THE INTERMEDIATE RIGHT ASCENSION OF THE EQUINOX AT JULIAN DATE TJD, USING AN ANALYTICAL EXPRESSION FOR THE ACCUMULATED PRECESSION IN RIGHT ASCENSION. FOR THE TRUE EQUINOX THE RESULT IS THE EQUATION OF THE ORIGINS.

 TJD    = TDB JULIAN DATE (IN)
 K      = EQUINOX SELECTION CODE (IN)
          SET K=0 FOR MEAN EQUINOX
          SET K=1 FOR TRUE EQUINOX (EQUATION OF THE ORIGINS)
 RADIF  = INTERMEDIATE RIGHT ASCENSION OF THE EQUINOX,
          IN HOURS (+ OR -) (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
integer :: k
real(kind=wp) :: raeq

Calls

proc~~eqxra~~CallsGraph proc~eqxra novas_module::eqxra proc~etilt novas_module::etilt proc~eqxra->proc~etilt celpol celpol proc~etilt->celpol getmod getmod proc~etilt->getmod proc~eect2000 novas_module::eect2000 proc~etilt->proc~eect2000 proc~frame novas_module::frame proc~etilt->proc~frame proc~funarg novas_module::funarg proc~etilt->proc~funarg proc~nod~2 novas_module::nod proc~etilt->proc~nod~2 proc~preces novas_module::preces proc~etilt->proc~preces 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~~eqxra~~CalledByGraph proc~eqxra novas_module::eqxra proc~cioloc novas_module::cioloc proc~cioloc->proc~eqxra proc~sidtim novas_module::sidtim proc~sidtim->proc~eqxra proc~sidtim->proc~cioloc proc~celter novas_module::celter proc~celter->proc~cioloc proc~celter->proc~sidtim proc~ciora novas_module::ciora proc~ciora->proc~cioloc proc~gcrseq novas_module::gcrseq proc~gcrseq->proc~cioloc proc~geopos novas_module::geopos proc~geopos->proc~sidtim proc~place novas_module::place proc~place->proc~cioloc proc~place->proc~geopos proc~tercel novas_module::tercel proc~tercel->proc~cioloc proc~tercel->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