SUBROUTINE SCOSPOS_R2SGF (RANGLE, DUNITS, DECPL, SANGLE, STATUS)
RANGLE = DOUBLE PRECISION (Given)
Angle in radians to be converted and formatted.
DUNITS = CHARACTER*(*) (Given)
Destination units for the angle, one of 'HOURS' or 'DEGREES'.
DECPL = INTEGER (Given)
Number of decimal places to which the seconds (or arc or time)
are to be expressed.
SANGLE = CHARACTER*(*) (Returned)
Angle in hours or degrees, formatted as a sexagesimal value.
If the attempt to format the angle as a sexagesimal value
fails an unformatted value in radians is returned.
STATUS = INTEGER (Given and Returned)
The global status.