org.handhelds.familiar/packages/gnuplot/files/matrix.patch

   1 --- gnuplot-4.0.0/src/matrix.c.old      2004-04-13 18:23:58.000000000 +0100
   2 +++ gnuplot-4.0.0/src/matrix.c  2005-03-01 12:38:07.068232748 +0000
   3 @@ -290,9 +290,12 @@
   4      *d = 1.0;
   5      for (ar = a, lim = &(a[n]); ar < lim; ar++) {
   6         large = 0.0;
   7 -       for (ac = *ar, limc = &(ac[n]); ac < limc;)
   8 -           if ((temp = fabs(*ac++)) > large)
   9 +       for (ac = *ar, limc = &(ac[n]); ac < limc;){
  10 +       temp = *ac++;
  11 +       temp = fabs(temp);
  12 +           if (temp > large)
  13                 large = temp;
  14 +       }
  15         if (large == 0.0)
  16             int_error(NO_CARET, "Singular matrix in LU-DECOMP");
  17         *dp++ = 1 / large;