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
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");
221 (*current_liboctave_error_handler)
222 (
"luupdate: not available in this version");
#define F77_XFCN(f, F, args)
octave_idx_type rows(void) const
liboctave_error_handler current_liboctave_error_handler
std::complex< double > w(std::complex< double > z, double relerr=0)
const T * data(void) const
void resize(const dim_vector &dv, const T &rfv)
void update_piv(const FloatColumnVector &u, const FloatColumnVector &v)
F77_RET_T F77_FUNC(sgetrf, SGETRF)(const octave_idx_type &
FloatColumnVector column(octave_idx_type i) const
void update(const FloatColumnVector &u, const FloatColumnVector &v)
octave_idx_type length(void) const
Number of elements in the array.
#define OCTAVE_LOCAL_BUFFER(T, buf, size)
const T * fortran_vec(void) const
Array< octave_idx_type > ipvt
octave_idx_type cols(void) const
octave_idx_type columns(void) const