47 float*,
const octave_idx_type&, octave_idx_type*,
50 #ifdef HAVE_QRUPDATE_LUU
52 F77_FUNC (slu1up, SLU1UP) (
const octave_idx_type&,
const octave_idx_type&,
53 float *,
const octave_idx_type&,
54 float *,
const octave_idx_type&,
58 F77_FUNC (slup1up, SLUP1UP) (
const octave_idx_type&,
const octave_idx_type&,
59 float *,
const octave_idx_type&,
60 float *,
const octave_idx_type&,
61 octave_idx_type *,
const float *,
62 const float *,
float *);
80 F77_XFCN (sgetrf, SGETRF, (a_nr, a_nc, tmp_data, a_nr, pipvt, info));
86 #ifdef HAVE_QRUPDATE_LUU
158 utmp.
data (), vtmp.data (),
w));
187 utmp.
data (), vtmp.data (),
w));
199 (*current_liboctave_error_handler)
200 (
"luupdate: not available in this version");
205 (*current_liboctave_error_handler)
206 (
"luupdate: not available in this version");
211 (*current_liboctave_error_handler)
212 (
"luupdate: not available in this version");
217 (*current_liboctave_error_handler)
218 (
"luupdate: not available in this version");