47 double*,
const octave_idx_type&,
48 octave_idx_type*, octave_idx_type&);
50 #ifdef HAVE_QRUPDATE_LUU
52 F77_FUNC (dlu1up, DLU1UP) (
const octave_idx_type&,
const octave_idx_type&,
53 double *,
const octave_idx_type&,
54 double *,
const octave_idx_type&,
58 F77_FUNC (dlup1up, DLUP1UP) (
const octave_idx_type&,
const octave_idx_type&,
59 double *,
const octave_idx_type&,
60 double *,
const octave_idx_type&,
61 octave_idx_type *,
const double *,
62 const double *,
double *);
80 F77_XFCN (dgetrf, DGETRF, (a_nr, a_nc, tmp_data, a_nr, pipvt, info));
86 #ifdef HAVE_QRUPDATE_LUU
156 utmp.
data (), vtmp.data (),
w));
185 utmp.
data (), vtmp.data (),
w));
197 (*current_liboctave_error_handler)
198 (
"luupdate: not available in this version");
203 (*current_liboctave_error_handler)
204 (
"luupdate: not available in this version");
209 (*current_liboctave_error_handler)
210 (
"luupdate: not available in this version");
215 (*current_liboctave_error_handler)
216 (
"luupdate: not available in this version");