mpstar Subroutine

public subroutine mpstar(tjd, n, ra, dec, rai, deci)

THIS SUBROUTINE COMPUTES THE ICRS POSITION OF A STAR, GIVEN ITS APPARENT PLACE AT DATE TJD. PROPER MOTION, PARALLAX, AND RADIAL VELOCITY ARE ASSUMED TO BE ZERO.

TJD    = TT JULIAN DATE OF APPARENT PLACE (IN)
N      = BODY IDENTIFICATION NUMBER FOR THE EARTH (IN)
         (NO LONGER USED)
RA     = APPARENT RIGHT ASCENSION IN HOURS, REFERRED TO
         TRUE EQUATOR AND EQUINOX OF DATE (IN)
DEC    = APPARENT DECLINATION IN DEGREES, REFERRED TO
         TRUE EQUATOR OF DATE (IN)
RAI    = ICRS RIGHT ASCENSION IN HOURS (OUT)
DECI   = ICRS DECLINATION IN DEGREES (OUT)

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: tjd
integer :: n
real(kind=wp) :: ra
real(kind=wp) :: dec
real(kind=wp) :: rai
real(kind=wp) :: deci

Calls

proc~~mpstar~~CallsGraph proc~mpstar novas_module::mpstar proc~angles novas_module::angles proc~mpstar->proc~angles proc~place novas_module::place proc~mpstar->proc~place proc~preces novas_module::preces proc~mpstar->proc~preces proc~vectrs novas_module::vectrs proc~mpstar->proc~vectrs setvec setvec proc~mpstar->setvec proc~angles->setvec proc~place->proc~angles proc~place->proc~preces proc~place->proc~vectrs proc~place->setvec proc~aberat novas_module::aberat proc~place->proc~aberat proc~astcon novas_module::astcon proc~place->proc~astcon proc~ciobas novas_module::ciobas proc~place->proc~ciobas proc~cioloc novas_module::cioloc proc~place->proc~cioloc proc~dlight novas_module::dlight proc~place->proc~dlight proc~frame novas_module::frame proc~place->proc~frame proc~geocen novas_module::geocen proc~place->proc~geocen proc~geopos novas_module::geopos proc~place->proc~geopos proc~grvdef~2 novas_module::grvdef proc~place->proc~grvdef~2 proc~limang novas_module::limang proc~place->proc~limang proc~littim novas_module::littim proc~place->proc~littim proc~nutate novas_module::nutate proc~place->proc~nutate proc~propmo novas_module::propmo proc~place->proc~propmo proc~radvl novas_module::radvl proc~place->proc~radvl proc~times novas_module::times proc~place->proc~times solsys solsys proc~place->solsys proc~vectrs->proc~astcon proc~aberat->proc~astcon proc~ciobas->proc~preces proc~ciobas->proc~frame proc~ciobas->proc~nutate proc~ciord novas_module::ciord proc~cioloc->proc~ciord proc~eqxra novas_module::eqxra proc~cioloc->proc~eqxra proc~dlight->proc~astcon proc~geocen->proc~astcon proc~geopos->proc~preces proc~geopos->proc~astcon proc~geopos->proc~frame proc~geopos->proc~nutate eqinox eqinox proc~geopos->eqinox getdt getdt proc~geopos->getdt placst placst proc~geopos->placst proc~etilt novas_module::etilt proc~geopos->proc~etilt proc~sidtim novas_module::sidtim proc~geopos->proc~sidtim proc~terra novas_module::terra proc~geopos->proc~terra resume resume proc~geopos->resume proc~grvdef~2->proc~astcon proc~grvdef~2->proc~dlight proc~grvdef~2->proc~geocen proc~grvdef~2->solsys id id proc~grvdef~2->id proc~grvd novas_module::grvd proc~grvdef~2->proc~grvd proc~limang->proc~astcon dasin dasin proc~limang->dasin proc~littim->proc~geocen proc~littim->solsys proc~nutate->proc~etilt proc~radvl->proc~astcon ciofil ciofil proc~ciord->ciofil proc~eqxra->proc~etilt proc~etilt->proc~preces 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~grvd->proc~astcon proc~sidtim->proc~preces proc~sidtim->proc~ciobas proc~sidtim->proc~cioloc proc~sidtim->proc~frame proc~sidtim->proc~nutate proc~sidtim->proc~times proc~sidtim->getdt proc~sidtim->proc~eqxra proc~sidtim->proc~etilt proc~sidtim->getmod proc~erot novas_module::erot proc~sidtim->proc~erot proc~terra->proc~astcon 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