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.

Tue Aug 20 12:05:06 BST 1996