SLA_CTF2R

Hour,Min,Sec to Radians

ACTION:
Convert hours, minutes, seconds to radians (single precision).
CALL:
CALL sla_CTF2R (IHOUR, IMIN, SEC, RAD, J)
GIVEN:

IHOUR

I

hours

IMIN

I

minutes

SEC

R

seconds


RETURNED:

RAD

R

angle in radians

J

I

status:

  0 = OK

  1 = IHOUR outside range 0-23

  2 = IMIN outside range 0-59

  3 = SEC outside range 0-59.999⋯


NOTES:
(1)
The result is computed even if any of the range checks fail.
(2)
The sign must be dealt with outside this routine.