3 int eraUtcut1(
double utc1,
double utc2,
double dut1,
4 double *ut11,
double *ut12)
70 int iy, im,
id, js, jw;
71 double w, dat, dta, tai1, tai2;
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;
85 }
else if ( jw > 0 ) {
88 if (
eraTaiut1(tai1, tai2, dta, ut11, ut12) )
return -1;
int eraTaiut1(double tai1, double tai2, double dta, double *ut11, double *ut12)
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 eraUtcut1(double utc1, double utc2, double dut1, double *ut11, double *ut12)