Mercurial > octave-nkf

diff liboctave/CmplxQR.cc @ 4664:19bcdc6a9bb8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-25 06:22:02 by jwe]
author jwe
date Tue, 25 Nov 2003 06:25:00 +0000
parents bf7272f8ba8c
children e35b034d3523
line wrap: on
line diff
--- a/liboctave/CmplxQR.cc	Tue Nov 25 06:07:28 2003 +0000
+++ b/liboctave/CmplxQR.cc	Tue Nov 25 06:25:00 2003 +0000
@@ -127,7 +127,7 @@
 	  Complex *pwork2 = work.fortran_vec ();
 
 	  F77_XFCN (zungqr, ZUNGQR, (m, n2, min_mn, tmp_data, m, ptau,
-				     pwork, lwork, info));
+				     pwork2, lwork, info));
 
 	  if (f77_exception_encountered)
 	    (*current_liboctave_error_handler)