blob: e8c985c37d0fe90036f0f2326439721da39ed7e1 (
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
|
.help ctf2d Jun99 "Slalib Package"
.nf
SUBROUTINE slCTFD (IHOUR, IMIN, SEC, DAYS, J)
- - - - - -
C T F D
- - - - - -
Convert hours, minutes, seconds to days (single precision)
Given:
IHOUR int hours
IMIN int minutes
SEC real seconds
Returned:
DAYS real interval in days
J int 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.
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
|
