fp t71,
   t72,
   t76,
   t75,
   t70,
   t67;
      t71 = x*x;
      t72 = x*t71;
      t76 = RATIONAL(-1.0,12.0)*x+RATIONAL(1.0,6.0)*t72;
      t75 = RATIONAL(-2.0,3.0)*t72+RATIONAL(4.0,3.0)*x;
      t70 = t71*t71;
      t67 = RATIONAL(-1.0,8.0)*t71;
      coeff_dx_m2 = t67+RATIONAL(-1.0,24.0)*t70+RATIONAL(1.0,20.0)+t76;
      coeff_dx_m1 = RATIONAL(-1.0,2.0)+t67+RATIONAL(5.0,24.0)*t70+t75;
      coeff_dx_0 = RATIONAL(5.0,4.0)*t71+t72+RATIONAL(-5.0,12.0)*t70+RATIONAL(
-5.0,2.0)*x+RATIONAL(-1.0,3.0);
      coeff_dx_p1 = RATIONAL(5.0,12.0)*t70+RATIONAL(-7.0,4.0)*t71+RATIONAL(1.0,
1.0)+t75;
      coeff_dx_p2 = RATIONAL(-1.0,4.0)+RATIONAL(7.0,8.0)*t71+RATIONAL(-5.0,24.0
)*t70+t76;
      coeff_dx_p3 = RATIONAL(1.0,24.0)*t70+RATIONAL(1.0,30.0)+t67;