FACT++  1.0
int eraUtcut1 ( double  utc1,
double  utc2,
double  dut1,
double *  ut11,
double *  ut12 
)

Definition at line 3 of file utcut1.c.

References eraDat(), eraJd2cal(), eraTaiut1(), eraUtctai(), and id.

Referenced by eraApco13(), eraApio13(), and t_utcut1().

69 {
70  int iy, im, id, js, jw;
71  double w, dat, dta, tai1, tai2;
72 
73 /* Look up TAI-UTC. */
74  if ( eraJd2cal(utc1, utc2, &iy, &im, &id, &w) ) return -1;
75  js = eraDat ( iy, im, id, 0.0, &dat);
76  if ( js < 0 ) return -1;
77 
78 /* Form UT1-TAI. */
79  dta = dut1 - dat;
80 
81 /* UTC to TAI to UT1. */
82  jw = eraUtctai(utc1, utc2, &tai1, &tai2);
83  if ( jw < 0 ) {
84  return -1;
85  } else if ( jw > 0 ) {
86  js = jw;
87  }
88  if ( eraTaiut1(tai1, tai2, dta, ut11, ut12) ) return -1;
89 
90 /* Status. */
91  return js;
92 
93 }
eraTaiut1
int eraTaiut1(double tai1, double tai2, double dta, double *ut11, double *ut12)
Definition: taiut1.c:3
eraUtctai
int eraUtctai(double utc1, double utc2, double *tai1, double *tai2)
Definition: utctai.c:3
id
char id[4]
Definition: FITS.h:71
eraJd2cal
int eraJd2cal(double dj1, double dj2, int *iy, int *im, int *id, double *fd)
Definition: jd2cal.c:3
eraDat
int eraDat(int iy, int im, int id, double fd, double *deltat)
Definition: dat.c:3

+ Here is the call graph for this function:

+ Here is the caller graph for this function: