Mercurial > octave-nkf

diff liboctave/CMatrix.cc @ 3095:528f4270e904

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-11-14 03:58:45 by jwe]
author jwe
date Fri, 14 Nov 1997 03:59:32 +0000
parents a6a00badcc12
children 02766207b74c
line wrap: on
line diff
--- a/liboctave/CMatrix.cc	Sat Oct 18 17:43:14 1997 +0000
+++ b/liboctave/CMatrix.cc	Fri Nov 14 03:59:32 1997 +0000
@@ -2366,7 +2366,7 @@
 	  for (int j = 0; j < nc; j++)
 	    {
 	      Complex d = elem (0, j);
-	      retval.elem (0, 0) += d * d;
+	      retval.elem (0, 0) += d * conj (d);
 	    }
 	}
       else if (nc == 1)
@@ -2376,7 +2376,7 @@
 	  for (int i = 0; i < nr; i++)
 	    {
 	      Complex d = elem (i, 0);
-	      retval.elem (0, 0) += d * d;
+	      retval.elem (0, 0) += d * conj (d);
 	    }
 	}
       else
@@ -2388,7 +2388,7 @@
 	      for (int i = 0; i < nr; i++)
 		{
 		  Complex d = elem (i, j);
-		  retval.elem (0, j) += d * d;
+		  retval.elem (0, j) += d * conj (d);
 		}
 	    }
 	}