eceq Subroutine

public subroutine eceq(tjd, icoord, pos1, pos2)

THIS SUBROUTINE CONVERTS AN ECLIPTIC POSITION VECTOR TO AN EQUATORIAL POSITION VECTOR.

 TJD    = TT JULIAN DATE OF EQUATOR, EQUINOX, AND ECLIPTIC
          USED FOR COORDINATES (IN)
 ICOORD = COORDINATE SYSTEM SELECTION (IN)
          SET ICOORD=0 FOR MEAN EQUATOR AND EQUINOX OF DATE
          SET ICOORD=1 FOR TRUE EQUATOR AND EQUINOX OF DATE
          (ECLIPTIC IS ALWAYS THE MEAN PLANE)
 POS1   = POSITION VECTOR, REFERRED TO SPECIFIED
          ECLIPTIC AND EQUINOX OF DATE (IN)
 POS2   = POSITION VECTOR, REFERRED TO SPECIFIED
          EQUATOR AND EQUINOX OF DATE (OUT)

NOTE: TO CONVERT ECLIPTIC VECTORS (MEAN ECLIPTIC AND EQUINOX OF OF J2000.0 ONLY) TO ICRS VECTORS, SET TJD = 0.D0 AND ICOORD = 0. EXCEPT FOR THE OUTPUT FROM THIS CASE, ALL VECTORS ARE ASSUMED TO BE WITH RESPECT TO A DYNAMICAL SYSTEM.

Arguments

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

Calls

proc~~eceq~~CallsGraph proc~eceq novas_module::eceq proc~etilt novas_module::etilt proc~eceq->proc~etilt proc~frame novas_module::frame proc~eceq->proc~frame proc~times novas_module::times proc~eceq->proc~times setvec setvec proc~eceq->setvec proc~etilt->proc~frame 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~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