source: trunk/MagicSoft/slalib/ctf2r.c@ 9223

Last change on this file since 9223 was 731, checked in by tbretz, 24 years ago
*** empty log message ***
  • Property svn:executable set to *
File size: 1.1 KB
Line 
1#include "slalib.h"
2#include "slamac.h"
3void slaCtf2r ( int ihour, int imin, float sec, float *rad, int *j )
4/*
5** - - - - - - - - -
6** s l a C t f 2 r
7** - - - - - - - - -
8**
9** Convert hours, minutes, seconds to radians.
10**
11** (single precision)
12**
13** Given:
14** ihour int hours
15** imin int minutes
16** sec float seconds
17**
18** Returned:
19** *rad float angle in radians
20** *j int status: 0 = OK
21** 1 = ihour outside range 0-23
22** 2 = imin outside range 0-59
23** 3 = sec outside range 0-59.999...
24**
25** Called:
26** slaDtf2d
27**
28** Notes:
29**
30** 1) The result is computed even if any of the range checks fail.
31**
32** 2) The sign must be dealt with outside this routine.
33**
34** Defined in slamac.h: D2PI
35**
36** Last revision: 30 October 1993
37**
38** Copyright P.T.Wallace. All rights reserved.
39*/
40{
41 double turns;
42
43/* Convert to turns */
44 slaDtf2d ( ihour, imin, (double) sec, &turns, j );
45
46/* To radians */
47 *rad = (float) ( turns * D2PI );
48}
Note: See TracBrowser for help on using the repository browser.