blob: ff3fcfbef43c6be7ca6e85f539c1fcb67d9e7f68 (
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
|
.help dtf2r Jun99 "Slalib Package"
.nf
SUBROUTINE slDTFR (IHOUR, IMIN, SEC, RAD, J)
- - - - - -
D T F R
- - - - - -
Convert hours, minutes, seconds to radians (double precision)
Given:
IHOUR int hours
IMIN int minutes
SEC dp seconds
Returned:
RAD dp 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:
slDTFD
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 July 1984
Copyright (C) 1995 Rutherford Appleton Laboratory
Copyright (C) 1995 Association of Universities for Research in Astronomy Inc.
.fi
.endhelp
|
