Mercurial > octave-nkf

comparison liboctave/dbleQR.cc @ 4663:bf7272f8ba8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-11-25 06:05:20 by jwe]
author jwe
date Tue, 25 Nov 2003 06:07:28 +0000
parents 7b957b442818
children e35b034d3523
comparison
equal deleted inserted replaced
4662:55211d6748c4 4663:bf7272f8ba8c
113 r.elem (i, j) = tmp_data[m*j+i]; 113 r.elem (i, j) = tmp_data[m*j+i];
114 } 114 }
115 115
116 lwork = 32 * n2; 116 lwork = 32 * n2;
117 work.resize (lwork); 117 work.resize (lwork);
118 pwork = work.fortran_vec (); 118 double *pwork2 = work.fortran_vec ();
119 119
120 F77_XFCN (dorgqr, DORGQR, (m, n2, min_mn, tmp_data, m, ptau, 120 F77_XFCN (dorgqr, DORGQR, (m, n2, min_mn, tmp_data, m, ptau,
121 pwork, lwork, info)); 121 pwork2, lwork, info));
122 122
123 if (f77_exception_encountered) 123 if (f77_exception_encountered)
124 (*current_liboctave_error_handler) 124 (*current_liboctave_error_handler)
125 ("unrecoverable error in dorgqr"); 125 ("unrecoverable error in dorgqr");
126 else 126 else