/*! return a conjugate transposed column vector */ inline _zcovector conjt(const _zrovector& rovec) {VERBOSE_REPORT; zcovector covec(rovec.l); for(long i=0; i<rovec.l; i++){ covec(i) =std::conj(rovec(i)); } rovec.destroy(); return _(covec); }
/*! return a conjugate transposed column vector */ inline _zcovector conjt(const zrovector& rovec) { #ifdef CPPL_VERBOSE std::cerr << "# [MARK] conjt(const zrovector&)" << std::endl; #endif//CPPL_VERBOSE zcovector covec(rovec.L); for(long i=0; i<rovec.L; i++){ covec(i) =std::conj(rovec(i)); } return _(covec); }
/*! return a transposed column vector */ inline _zcovector t(const zrovector& rovec) {VERBOSE_REPORT; zcovector covec(rovec.l); zcopy_(rovec.l, rovec.array, 1, covec.array, 1); return _(covec); }
/*! return a transposed column vector */ inline _zcovector t(const zrovector& rovec) { #ifdef CPPL_VERBOSE std::cerr << "# [MARK] t(const zrovector&)" << std::endl; #endif//CPPL_VERBOSE zcovector covec(rovec.L); zcopy_(rovec.L, rovec.Array, 1, covec.array, 1); return _(covec); }