3767 double r5h[3][3], s5h[3];
3772 vvd(r5h[0][0], 0.9999999999999928638, 1e-14,
3773 "eraFk5hip",
"11", status);
3774 vvd(r5h[0][1], 0.1110223351022919694e-6, 1e-17,
3775 "eraFk5hip",
"12", status);
3776 vvd(r5h[0][2], 0.4411803962536558154e-7, 1e-17,
3777 "eraFk5hip",
"13", status);
3778 vvd(r5h[1][0], -0.1110223308458746430e-6, 1e-17,
3779 "eraFk5hip",
"21", status);
3780 vvd(r5h[1][1], 0.9999999999999891830, 1e-14,
3781 "eraFk5hip",
"22", status);
3782 vvd(r5h[1][2], -0.9647792498984142358e-7, 1e-17,
3783 "eraFk5hip",
"23", status);
3784 vvd(r5h[2][0], -0.4411805033656962252e-7, 1e-17,
3785 "eraFk5hip",
"31", status);
3786 vvd(r5h[2][1], 0.9647792009175314354e-7, 1e-17,
3787 "eraFk5hip",
"32", status);
3788 vvd(r5h[2][2], 0.9999999999999943728, 1e-14,
3789 "eraFk5hip",
"33", status);
3790 vvd(s5h[0], -0.1454441043328607981e-8, 1e-17,
3791 "eraFk5hip",
"s1", status);
3792 vvd(s5h[1], 0.2908882086657215962e-8, 1e-17,
3793 "eraFk5hip",
"s2", status);
3794 vvd(s5h[2], 0.3393695767766751955e-8, 1e-17,
3795 "eraFk5hip",
"s3", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
void eraFk5hip(double r5h[3][3], double s5h[3])