3 int eraUtctai(
double utc1,
double utc2,
double *tai1,
double *tai2)
66 int iy, im,
id, j, iyt, imt, idt;
67 double u1, u2, fd, dat0, dat12, w, dat24, dlod, dleap, z1, z2, a2;
70 big1 = ( utc1 >= utc2 );
80 j =
eraJd2cal(u1, u2, &iy, &im, &
id, &fd);
82 j =
eraDat(iy, im,
id, 0.0, &dat0);
83 if ( j < 0 )
return j;
86 j =
eraDat(iy, im,
id, 0.5, &dat12);
87 if ( j < 0 )
return j;
90 j =
eraJd2cal(u1+1.5, u2-fd, &iyt, &imt, &idt, &w);
92 j =
eraDat(iyt, imt, idt, 0.0, &dat24);
93 if ( j < 0 )
return j;
96 dlod = 2.0 * (dat12 - dat0);
97 dleap = dat24 - (dat0 + dlod);
106 if (
eraCal2jd(iy, im,
id, &z1, &z2) )
return -1;
int eraUtctai(double utc1, double utc2, double *tai1, double *tai2)
int eraJd2cal(double dj1, double dj2, int *iy, int *im, int *id, double *fd)
int eraDat(int iy, int im, int id, double fd, double *deltat)
int eraCal2jd(int iy, int im, int id, double *djm0, double *djm)