fp t4,
   t3,
   t2,
   t1;
      t4 = x*x;
      t3 = x*t4;
      t2 = RATIONAL(1.0,2.0);
      t1 = RATIONAL(-1.0,2.0);
      coeff_I_m1 = t4+(x+t3)*t1;
      coeff_I_0 = RATIONAL(-5.0,2.0)*t4+RATIONAL(1.0,1.0)+RATIONAL(3.0,2.0)*t3;
      coeff_I_p1 = RATIONAL(-3.0,2.0)*t3+t2*x+RATIONAL(2.0,1.0)*t4;
      coeff_I_p2 = t2*t3+t1*t4;