eqec Subroutine

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

THIS SUBROUTINE CONVERTS AN EQUATORIAL POSITION VECTOR TO AN ECLIPTIC 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
          EQUATOR AND EQUINOX OF DATE (IN)
 POS2   = POSITION VECTOR, REFERRED TO SPECIFIED
          ECLIPTIC AND EQUINOX OF DATE (OUT)

NOTE: TO CONVERT ICRS VECTORS TO ECLIPTIC VECTORS (MEAN ECLIPTIC AND EQUINOX OF J2000.0 ONLY), SET TJD = 0.D0 AND ICOORD = 0. EXCEPT FOR THE INPUT TO 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~~eqec~~CallsGraph proc~eqec novas_module::eqec proc~etilt novas_module::etilt proc~eqec->proc~etilt proc~frame novas_module::frame proc~eqec->proc~frame proc~times novas_module::times proc~eqec->proc~times setvec setvec proc~eqec->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

Called by

proc~~eqec~~CalledByGraph proc~eqec novas_module::eqec proc~eqecl novas_module::eqecl proc~eqecl->proc~eqec