Example #1
0
/*! 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);
}
Example #2
0
/*! 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);
}
Example #3
0
/*! 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);
}
Example #4
0
/*! 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);
}