Mercurial > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
4663:bf7272f8ba8c 4664:19bcdc6a9bb8
125 lwork = 32 * n2; 125 lwork = 32 * n2;
126 work.resize (lwork); 126 work.resize (lwork);
127 Complex *pwork2 = work.fortran_vec (); 127 Complex *pwork2 = work.fortran_vec ();
128 128
129 F77_XFCN (zungqr, ZUNGQR, (m, n2, min_mn, tmp_data, m, ptau, 129 F77_XFCN (zungqr, ZUNGQR, (m, n2, min_mn, tmp_data, m, ptau,
130 pwork, lwork, info)); 130 pwork2, lwork, info));
131 131
132 if (f77_exception_encountered) 132 if (f77_exception_encountered)
133 (*current_liboctave_error_handler) 133 (*current_liboctave_error_handler)
134 ("unrecoverable error in zungqr"); 134 ("unrecoverable error in zungqr");
135 else 135 else