gcrseq Subroutine

public subroutine gcrseq(tjd, icoord, rag, decg, ra, dec)

THIS SUBROUTINE CONVERTS GCRS RIGHT ASCENSION AND DECLINATION TO COORDINATES WITH RESPECT TO THE EQUATOR OF DATE (MEAN OR TRUE). FOR COORDINATES WITH RESPECT TO THE TRUE EQUATOR OF DATE, THE ORIGIN OF RIGHT ASCENSION CAN BE EITHER THE TRUE EQUINOX OR THE CELESTIAL INTERMEDIATE ORIGIN (CIO).

 TJD    = TT JULIAN DATE OF EQUATOR TO BE USED FOR
          OUTPUT COORDINATES (IN)
 ICOORD = COORDINATE SYSTEM SELECTION FOR OUTPUT
          COORDINATES (IN)
          SET ICOORD=0 FOR MEAN EQUATOR AND EQUINOX OF DATE
          SET ICOORD=1 FOR TRUE EQUATOR AND EQUINOX OF DATE
          SET ICOORD=2 FOR TRUE EQUATOR AND CIO OF DATE
 RAG    = GCRS RIGHT ASCENSION IN HOURS (IN)
 DECG   = GCRS DECLINATION IN DEGREES (IN)
 RA     = RIGHT ASCENSION IN HOURS, REFERRED TO SPECIFIED
          EQUATOR AND RIGHT ASCENSION ORIGIN OF DATE (OUT)
 DEC    = DECLINATION IN DEGREES, REFERRED TO SPECIFIED
             EQUATOR OF DATE (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
integer :: icoord
real(kind=wp) :: rag
real(kind=wp) :: decg
real(kind=wp) :: ra
real(kind=wp) :: dec

Calls

proc~~gcrseq~~CallsGraph proc~gcrseq novas_module::gcrseq proc~angles novas_module::angles proc~gcrseq->proc~angles proc~ciobas novas_module::ciobas proc~gcrseq->proc~ciobas proc~cioloc novas_module::cioloc proc~gcrseq->proc~cioloc proc~frame novas_module::frame proc~gcrseq->proc~frame proc~nutate novas_module::nutate proc~gcrseq->proc~nutate proc~preces novas_module::preces proc~gcrseq->proc~preces proc~times novas_module::times proc~gcrseq->proc~times setvec setvec proc~angles->setvec 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