ciora Subroutine

public subroutine ciora(tjd, racio)

THIS SUBROUTINE COMPUTES THE TRUE RIGHT ASCENSION OF THE CELESTIAL INTERMEDIATE ORIGIN (CIO) AT A GIVEN TT JULIAN DATE. THIS IS -(EQUATION OF THE ORIGINS).

 TJD    = TT JULIAN DATE (IN)
 RACIO  = RIGHT ASCENSION OF THE CIO, WITH RESPECT TO THE
          TRUE EQUINOX OF DATE, IN HOURS (+ OR -) (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
real(kind=wp) :: racio

Calls

proc~~ciora~~CallsGraph proc~ciora novas_module::ciora proc~ciobas novas_module::ciobas proc~ciora->proc~ciobas proc~cioloc novas_module::cioloc proc~ciora->proc~cioloc proc~frame novas_module::frame proc~ciora->proc~frame proc~nutate novas_module::nutate proc~ciora->proc~nutate proc~preces novas_module::preces proc~ciora->proc~preces proc~times novas_module::times proc~ciora->proc~times proc~ciobas->proc~frame proc~ciobas->proc~nutate proc~ciobas->proc~preces proc~ciord novas_module::ciord proc~cioloc->proc~ciord proc~eqxra novas_module::eqxra proc~cioloc->proc~eqxra proc~etilt novas_module::etilt proc~nutate->proc~etilt ciofil ciofil proc~ciord->ciofil proc~eqxra->proc~etilt proc~etilt->proc~frame proc~etilt->proc~preces celpol celpol proc~etilt->celpol getmod getmod proc~etilt->getmod 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~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