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
201 (*current_liboctave_error_handler)
202 (
"luupdate: not available in this version");
207 (*current_liboctave_error_handler)
208 (
"luupdate: not available in this version");
213 (*current_liboctave_error_handler)
214 (
"luupdate: not available in this version");
219 (*current_liboctave_error_handler)
220 (
"luupdate: not available in this version");
void update(const ColumnVector &u, const ColumnVector &v)
#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)
octave_idx_type length(void) const
Number of elements in the array.
F77_RET_T F77_FUNC(dgetrf, DGETRF)(const octave_idx_type &
ColumnVector column(octave_idx_type i) const
void update_piv(const ColumnVector &u, const ColumnVector &v)
#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