cioloc Subroutine

public subroutine cioloc(tjd, racio, k)

THIS SUBROUTINE RETURNS THE LOCATION OF THE CELESTIAL INTERMEDIATE ORIGIN (CIO) FOR A GIVEN JULIAN DATE, AS A RIGHT ASCENSION WITH RESPECT TO EITHER THE GCRS (GEOCENTRIC ICRS) ORIGIN OR THE TRUE EQUINOX OF DATE. THE CIO IS ALWAYS LOCATED ON THE TRUE EQUATOR (=INTERMEDIATE EQUATOR) OF DATE.

 TJD    = TDB JULIAN DATE (IN)
 RACIO  = RIGHT ASCENSION OF THE CIO, IN HOURS (OUT)
 K      = REFERENCE SYSTEM IN WHICH RIGHT ASCENSION IS
          GIVEN (OUT)
          K=1 MEANS GCRS
          K=2 MEANS TRUE EQUATOR AND EQUINOX OF DATE

NOTE: IF AN EXTERNAL FILE OF CIO RIGHT ASCENSIONS IS AVAILABLE, IT WILL BE USED AND K WILL BE SET TO 1. OTHERWISE AN INTERNAL COMPUTATION WILL BE USED AND K WILL BE SET TO 2.

Arguments

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

Calls

proc~~cioloc~~CallsGraph proc~cioloc novas_module::cioloc proc~ciord novas_module::ciord proc~cioloc->proc~ciord proc~eqxra novas_module::eqxra proc~cioloc->proc~eqxra ciofil ciofil proc~ciord->ciofil 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~~cioloc~~CalledByGraph proc~cioloc novas_module::cioloc proc~celter novas_module::celter proc~celter->proc~cioloc proc~sidtim novas_module::sidtim proc~celter->proc~sidtim proc~ciora novas_module::ciora proc~ciora->proc~cioloc proc~gcrseq novas_module::gcrseq proc~gcrseq->proc~cioloc proc~place novas_module::place proc~place->proc~cioloc proc~geopos novas_module::geopos proc~place->proc~geopos proc~sidtim->proc~cioloc proc~tercel novas_module::tercel proc~tercel->proc~cioloc proc~tercel->proc~sidtim 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