3 int eraJdcalf(
int ndp,
double dj1,
double dj2,
int iymdf[4])
63 double denom, d1, d2, f1, f2, f;
66 if ((ndp >= 0) && (ndp <= 9)) {
68 denom = pow(10.0, ndp);
91 f = floor((f1+f2)*denom + 0.5) / denom;
97 js =
eraJd2cal(d1, d2, &iymdf[0], &iymdf[1], &iymdf[2], &f);
99 iymdf[3] = (int) (f * denom);
int eraJd2cal(double dj1, double dj2, int *iy, int *im, int *id, double *fd)
int eraJdcalf(int ndp, double dj1, double dj2, int iymdf[4])