46 const octave_idx_type&,
const FloatComplex*,
47 const octave_idx_type&,
const FloatComplex&,
48 FloatComplex*,
const octave_idx_type&
52 F77_FUNC (
xcdotu, XCDOTU) (
const octave_idx_type&,
const FloatComplex*,
53 const octave_idx_type&,
const FloatComplex*,
54 const octave_idx_type&, FloatComplex&);
81 if (c < 0 || c + a_len >
length ())
83 (*current_liboctave_error_handler) (
"range error for insert");
104 if (c < 0 || c + a_len >
length ())
106 (*current_liboctave_error_handler) (
"range error for insert");
158 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
160 (*current_liboctave_error_handler) (
"range error for fill");
164 if (c1 > c2) { std::swap (c1, c2); }
183 if (c1 < 0 || c2 < 0 || c1 >= len || c2 >= len)
185 (*current_liboctave_error_handler) (
"range error for fill");
189 if (c1 > c2) { std::swap (c1, c2); }
209 retval.
insert (a, nc_insert);
220 retval.
insert (a, nc_insert);
239 return do_mx_unary_map<FloatComplex, FloatComplex, std::conj<float> > (a);
247 if (c1 > c2) { std::swap (c1, c2); }
333 retval.
resize (a_nc, 0.0);
344 a_nr, a_nc, 1.0, a.
data (),
345 ld, v.
data (), 1, 0.0, y, 1
409 os <<
" " << a.
elem (i);
473 retval(i) = x1 +
static_cast<float> (i)*delta;
void mx_inline_add2(size_t n, R *r, const X *x)
#define F77_CHAR_ARG_LEN(l)
FloatComplexRowVector conj(const FloatComplexRowVector &a)
void gripe_nonconformant(const char *op, octave_idx_type op1_len, octave_idx_type op2_len)
void mx_inline_sub2(size_t n, R *r, const X *x)
FloatComplexRowVector & fill(float val)
std::ostream & operator<<(std::ostream &os, const FloatComplexRowVector &a)
bool operator==(const FloatComplexRowVector &a) const
MArray< T > transpose(void) const
FloatComplexRowVector extract_n(octave_idx_type c1, octave_idx_type n) const
FloatComplexColumnVector transpose(void) const
FloatComplexRowVector operator*(const FloatComplexRowVector &v, const FloatComplexMatrix &a)
T & elem(octave_idx_type n)
#define F77_XFCN(f, F, args)
FloatComplexRowVector & operator+=(const FloatRowVector &a)
octave_idx_type rows(void) const
F77_RET_T const double const double double * d
#define F77_CONST_CHAR_ARG2(x, l)
FloatComplexRowVector linspace(const FloatComplex &x1, const FloatComplex &x2, octave_idx_type n)
FloatComplexRowVector extract(octave_idx_type c1, octave_idx_type c2) const
F77_RET_T const double const double * f
F77_RET_T const octave_idx_type const octave_idx_type const FloatComplex const FloatComplex const octave_idx_type const FloatComplex const octave_idx_type const FloatComplex FloatComplex const octave_idx_type & F77_CHAR_ARG_LEN_DECL
F77_RET_T F77_FUNC(cgemv, CGEMV)(F77_CONST_CHAR_ARG_DECL
const FloatComplex * data(void) const
std::istream & operator>>(std::istream &is, FloatComplexRowVector &a)
void resize(octave_idx_type n, const FloatComplex &rfv=FloatComplex(0))
FloatComplex max(void) const
MArray< T > hermitian(T(*fcn)(const T &)=0) const
FloatComplexColumnVector hermitian(void) const
FloatComplex & xelem(octave_idx_type n)
bool operator!=(const FloatComplexRowVector &a) const
octave_idx_type length(void) const
Number of elements in the array.
This is a simple wrapper template that will subclass an Array type or any later type derived from ...
#define F77_CONST_CHAR_ARG_DECL
std::complex< float > FloatComplex
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type octave_idx_type octave_idx_type c1
FloatComplexRowVector & insert(const FloatRowVector &a, octave_idx_type c)
FloatComplexRowVector append(const FloatRowVector &a) const
static MArray< double > const octave_idx_type const octave_idx_type octave_idx_type r1
const FloatComplex * fortran_vec(void) const
bool mx_inline_equal(size_t n, const T1 *x, const T2 *y)
octave_idx_type cols(void) const
subroutine xcdotu(n, zx, incx, zy, incy, retval)
FloatComplexRowVector & operator-=(const FloatRowVector &a)
FloatComplex min(void) const