THIS SUBROUTINE CONVERTS A VECTOR TO ANGULAR QUANTITIES.
POS = POSITION VECTOR, EQUATORIAL RECTANGULAR
COORDINATES (IN)
RA = RIGHT ASCENSION IN HOURS (OUT)
DEC = DECLINATION IN DEGREES (OUT)
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | dimension(3) | :: | pos | |||
real(kind=wp) | :: | ra | ||||
real(kind=wp) | :: | dec |