Mercurial > hg > octave-nkf

diff liboctave/CMatrix.cc @ 7265:7da4a5262e2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-06 19:16:47 by jwe]
author jwe
date Thu, 06 Dec 2007 19:16:48 +0000
parents d07cb867891b
children f9df7f7520e7 6c36c5d3c38b
line wrap: on
line diff
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -2865,11 +2865,16 @@
       for (octave_idx_type i = 0; i < nc; i++)
 	{
 	  octave_idx_type k = i * nc + i;
-	  pnpp [k] = pnpp [k] + padec [j];
-	  pdpp [k] = pdpp [k] + minus_one_j * padec [j];
+	  pnpp[k] += padec[j];
+	  pdpp[k] += minus_one_j * padec[j];
 	}      
+
       npp = m * npp;
+      pnpp = npp.fortran_vec ();
+
       dpp = m * dpp;
+      pdpp = dpp.fortran_vec ();
+
       minus_one_j *= -1;
     }