*** 215,225 ****
          double          x, y;
          double          x_hi0, x_lo0, y_hi0, y_lo0, scl0 = 0;
          double          x0, y0, res0, dd0;
          double          res0_hi,res0_lo, dres0;
          double          x_hi1, x_lo1, y_hi1, y_lo1, scl1 = 0;
!         double          x1, y1, res1, dd1;
          double          res1_hi,res1_lo, dres1;
          double          x_hi2, x_lo2, y_hi2, y_lo2, scl2 = 0;
          double          x2, y2, res2, dd2;
          double          res2_hi,res2_lo, dres2;
  
--- 215,225 ----
          double          x, y;
          double          x_hi0, x_lo0, y_hi0, y_lo0, scl0 = 0;
          double          x0, y0, res0, dd0;
          double          res0_hi,res0_lo, dres0;
          double          x_hi1, x_lo1, y_hi1, y_lo1, scl1 = 0;
!         double          x1 = 0.0L, y1 = 0.0L, res1, dd1;
          double          res1_hi,res1_lo, dres1;
          double          x_hi2, x_lo2, y_hi2, y_lo2, scl2 = 0;
          double          x2, y2, res2, dd2;
          double          res2_hi,res2_lo, dres2;
  
*** 236,246 ****
          double          DTWO = ((double*)LCONST)[1];
          double          D2ON36 = ((double*)LCONST)[2];
          double          D2ON1022 = ((double*)LCONST)[3];
          double          D2ONM52 = ((double*)LCONST)[4];
  
!         double          *pz0, *pz1, *pz2;
  
          do
          {
  start0:
                  PREP(0)
--- 236,246 ----
          double          DTWO = ((double*)LCONST)[1];
          double          D2ON36 = ((double*)LCONST)[2];
          double          D2ON1022 = ((double*)LCONST)[3];
          double          D2ONM52 = ((double*)LCONST)[4];
  
!         double          *pz0, *pz1 = 0, *pz2;
  
          do
          {
  start0:
                  PREP(0)