fp t7,
   t6,
   t5,
   t4,
   t3,
   t2,
   t1;
      t7 = RATIONAL(-1.0,2.0);
      t6 = RATIONAL(1.0,4.0);
      t5 = RATIONAL(1.0,2.0);
      t4 = t7*y;
      t3 = t7*x;
      t2 = t5*x;
      t1 = t5*y;
      coeff_I_0_0 = RATIONAL(3.0,4.0)+t4+t3;
      coeff_I_p1_0 = t6+t4+t2;
      coeff_I_0_p1 = t3+t6+t1;
      coeff_I_p1_p1 = t1+RATIONAL(-1.0,4.0)+t2;