Mercurial > octave-nkf
diff liboctave/dbleQR.cc @ 4663:bf7272f8ba8c
[project @ 2003-11-25 06:05:20 by jwe]
author | jwe |
---|---|
date | Tue, 25 Nov 2003 06:07:28 +0000 |
parents | 7b957b442818 |
children | e35b034d3523 |
line wrap: on
line diff
--- a/liboctave/dbleQR.cc Tue Nov 25 05:51:29 2003 +0000 +++ b/liboctave/dbleQR.cc Tue Nov 25 06:07:28 2003 +0000 @@ -115,10 +115,10 @@ lwork = 32 * n2; work.resize (lwork); - pwork = work.fortran_vec (); + double *pwork2 = work.fortran_vec (); F77_XFCN (dorgqr, DORGQR, (m, n2, min_mn, tmp_data, m, ptau, - pwork, lwork, info)); + pwork2, lwork, info)); if (f77_exception_encountered) (*current_liboctave_error_handler)