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 |