CPPLapack
 All Classes Files Functions Variables Friends
Functions
zgbmatrix-calc.hpp File Reference

Go to the source code of this file.

Functions

_zgbmatrix t (const zgbmatrix &mat)
_zgematrix i (const zgbmatrix &mat)
_zgbmatrix conj (const zgbmatrix &mat)
_zgbmatrix conjt (const zgbmatrix &mat)

Function Documentation

_zgbmatrix t ( const zgbmatrix mat) [inline]

return transposed zgbmatrix

Definition at line 3 of file zgbmatrix-calc.hpp.

References _(), i(), zgbmatrix::kl, zgbmatrix::ku, zgbmatrix::m, and zgbmatrix::n.

{VERBOSE_REPORT;
  zgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
  for(long i=0; i<newmat.m; i++){
    for(long j=std::max(long(0),i-newmat.kl); j<std::min(newmat.n,i+newmat.ku+1); j++){
      newmat(i,j) =mat(j,i);
    }
  }
  
  return _(newmat);
}
_zgematrix i ( const zgbmatrix mat) [inline]

return its inverse matrix

Definition at line 17 of file zgbmatrix-calc.hpp.

References _(), zgematrix::identity(), zgbmatrix::m, zgbmatrix::n, and zgbmatrix::zgbsv().

{VERBOSE_REPORT;
#ifdef  CPPL_DEBUG
  if(mat.m!=mat.n){
    ERROR_REPORT;
    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
    exit(1);
  }
#endif//CPPL_DEBUG
  
  zgbmatrix mat_cp(mat);
  zgematrix mat_inv(mat.m,mat.n);
  mat_inv.identity();
  mat_cp.zgbsv(mat_inv);
  
  return _(mat_inv);
}
_zgbmatrix conj ( const zgbmatrix mat) [inline]

return its conjugate matrix

Definition at line 42 of file zgbmatrix-calc.hpp.

References _(), conj(), i(), zgbmatrix::kl, zgbmatrix::ku, zgbmatrix::m, and zgbmatrix::n.

{VERBOSE_REPORT;
  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
  for(long i=0; i<mat.m; i++){
    for(long j=std::max(long(0),i-mat.kl); j<std::min(mat.n,i+mat.ku+1); j++){
      newmat(i,j) =std::conj(mat(i,j));
    }
  }
  return _(newmat);
}
_zgbmatrix conjt ( const zgbmatrix mat) [inline]

return its conjugate transposed zgbmatrix

Definition at line 55 of file zgbmatrix-calc.hpp.

References _(), conj(), i(), zgbmatrix::kl, zgbmatrix::ku, zgbmatrix::m, and zgbmatrix::n.

{VERBOSE_REPORT;
  zgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
  for(long i=0; i<newmat.m; i++){
    for(long j=std::max(long(0),i-newmat.kl); j<std::min(newmat.n,i+newmat.ku+1); j++){
      newmat(i,j) =std::conj(mat(j,i));
    }
  }
  return _(newmat);
}
 All Classes Files Functions Variables Friends