ciobas Subroutine

public subroutine ciobas(tjd, racio, k, x, y, z)

THIS SUBROUTINE RETURNS THE ORTHONORMAL BASIS VECTORS, WITH RESPECT TO THE GCRS (GEOCENTRIC ICRS), OF THE CELESTIAL INTERMEDIATE SYSTEM DEFINED BY THE CELESTIAL INTERMEDIATE POLE (CIP) (IN THE Z DIRECTION) AND THE CELESTIAL INTERMEDIATE ORIGIN (CIO) (IN THE X DIRECTION). A TDB JULIAN DATE AND THE RIGHT ASCENSION OF THE CIO AT THAT DATE IS REQUIRED AS INPUT. THE RIGHT ASCENSION OF THE CIO CAN BE WITH RESPECT TO EITHER THE GCRS ORIGIN OR THE TRUE EQUINOX OF DATE -- DIFFERENT ALGORITHMS ARE USED IN THE TWO CASES.

 TJD    = TDB JULIAN DATE (IN)
 RACIO  = RIGHT ASCENSION OF THE CIO, IN HOURS (IN)
 K      = REFERENCE SYSTEM IN WHICH RIGHT ASCENSION IS
          EXPRESSED (IN)
          SET K=1 FOR GCRS
          SET K=2 FOR TRUE EQUATOR AND EQUINOX OF DATE
 X      = UNIT VECTOR TOWARD THE CIO, EQUATORIAL RECTANGULAR
          COORDINATES, REFERRED TO THE GCRS (OUT)
 Y      = UNIT VECTOR TOWARD THE Y-DIRECTION, EQUATORIAL
          RECTANGULAR COORDINATES, REFERRED TO THE GCRS (OUT)
 Z      = UNIT VECTOR TOWARD NORTH CELESTIAL POLE (CIP),
          EQUATORIAL RECTANGULAR COORDINATES, REFERRED TO
          THE GCRS (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
real(kind=wp) :: racio
integer :: k
real(kind=wp), dimension(3) :: x
real(kind=wp), dimension(3) :: y
real(kind=wp), dimension(3) :: z

Calls

proc~~ciobas~~CallsGraph proc~ciobas novas_module::ciobas proc~frame novas_module::frame proc~ciobas->proc~frame proc~nutate novas_module::nutate proc~ciobas->proc~nutate proc~preces novas_module::preces proc~ciobas->proc~preces proc~etilt novas_module::etilt proc~nutate->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

Called by

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