FACT++  1.0
int eraTf2a ( char  s,
int  ihour,
int  imin,
double  sec,
double *  rad 
)

Definition at line 4 of file tf2a.c.

References ERFA_DS2R.

Referenced by palDtf2r(), and t_tf2a().

40 {
41 
42 /* Compute the interval. */
43  *rad = ( s == '-' ? -1.0 : 1.0 ) *
44  ( 60.0 * ( 60.0 * ( (double) abs(ihour) ) +
45  ( (double) abs(imin) ) ) +
46  fabs(sec) ) * ERFA_DS2R;
47 
48 /* Validate arguments and return status. */
49  if ( ihour < 0 || ihour > 23 ) return 1;
50  if ( imin < 0 || imin > 59 ) return 2;
51  if ( sec < 0.0 || sec >= 60.0 ) return 3;
52  return 0;
53 
54 }
#define ERFA_DS2R
Definition: erfam.h:63

+ Here is the caller graph for this function: