/*! 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);
}
