blob: 72a1fb56f80df27ce1b39516da0a49de7e65b54a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
.help ctf2r Jun99 "Slalib Package"
.nf
SUBROUTINE slCTFR (IHOUR, IMIN, SEC, RAD, J)
- - - - - -
C T F R
- - - - - -
Convert hours, minutes, seconds to radians (single precision)
Given:
IHOUR int hours
IMIN int minutes
SEC real seconds
Returned:
RAD real angle in radians
J int status: 0 = OK
1 = IHOUR outside range 0-23
2 = IMIN outside range 0-59
3 = SEC outside range 0-59.999...
Called:
slCTFD
Notes:
1) The result is computed even if any of the range checks
fail.
2) The sign must be dealt with outside this routine.
P.T.Wallace Starlink November 1984
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
