Convert an angle in radians to hours, minutes, seconds (single precision).
CALL:
CALL sla_CR2TF (NDP, ANGLE, SIGN, IHMSF)
GIVEN:
NDP
I
number of decimal places of seconds
ANGLE
R
angle in radians
RETURNED:
SIGN
C
‘+’ or ‘$-$’
IHMSF
I(4)
hours, minutes, seconds, fraction
NOTES:
(1)
NDP less than zero is interpreted as zero.
(2)
The largest useful value for NDP is determined by the size of ANGLE, the format
of REAL floating-point numbers on the target machine, and the risk of overflowing
IHMSF(4). On some architectures, for ANGLE up to 2pi, the available floating-point
precision corresponds roughly to NDP=3. This is well below the ultimate limit of
NDP=9 set by the capacity of a typical 32-bit IHMSF(4).
(3)
The absolute value of ANGLE may exceed $2\pi $.
In cases where it does not, it is up to the caller to test for and handle the case where
ANGLE is very nearly $2\pi $
and rounds up to 24 hours, by testing for IHMSF(1)=24 and setting IHMSF(1-4) to
zero.