nutate Subroutine

public subroutine nutate(tjd, pos1, pos2)

THIS SUBROUTINE NUTATES EQUATORIAL RECTANGULAR COORDINATES FROM THE MEAN DYNAMICAL EQUATOR AND EQUINOX OF EPOCH TO THE TRUE EQUATOR AND EQUINOX OF EPOCH. SEE EXPLANATORY SUPPLEMENT TO THE ASTRONOMICAL ALMANAC, PP. 114-115.

 TJD    = TDB JULIAN DATE OF EPOCH (IN)
 POS1   = POSITION VECTOR, GEOCENTRIC EQUATORIAL RECTANGULAR
          COORDINATES, REFERRED TO MEAN DYNAMICAL EQUATOR AND
          EQUINOX OF EPOCH (IN)
 POS2   = POSITION VECTOR, GEOCENTRIC EQUATORIAL RECTANGULAR
          COORDINATES, REFERRED TO TRUE EQUATOR AND EQUINOX
          OF EPOCH (OUT)

NOTE: IF TJD IS NEGATIVE, INVERSE NUTATION (TRUE TO MEAN) IS APPLIED.

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
real(kind=wp), dimension(3) :: pos1
real(kind=wp), dimension(3) :: pos2

Calls

proc~~nutate~~CallsGraph proc~nutate novas_module::nutate proc~etilt novas_module::etilt proc~nutate->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~~nutate~~CalledByGraph proc~nutate novas_module::nutate proc~celter novas_module::celter proc~celter->proc~nutate proc~ciobas novas_module::ciobas proc~celter->proc~ciobas proc~sidtim novas_module::sidtim proc~celter->proc~sidtim proc~ciobas->proc~nutate proc~ciora novas_module::ciora proc~ciora->proc~nutate proc~ciora->proc~ciobas proc~gcrseq novas_module::gcrseq proc~gcrseq->proc~nutate proc~gcrseq->proc~ciobas proc~geopos novas_module::geopos proc~geopos->proc~nutate proc~geopos->proc~sidtim proc~place novas_module::place proc~place->proc~nutate proc~place->proc~ciobas proc~place->proc~geopos proc~sidtim->proc~nutate proc~sidtim->proc~ciobas proc~tercel novas_module::tercel proc~tercel->proc~nutate proc~tercel->proc~ciobas 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