My Project
_zhematrix-calc.hpp
1 //=============================================================================
3 inline _zhematrix t(const _zhematrix& mat)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] t(const _zhematrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10 #ifdef CPPL_DEBUG
11  std::cerr << "[WARNING] t(const zhematrix&)" << std::endl
12  << "This function call has no effect since the matrix is symmetric."
13  << std::endl;
14 #endif//CPPL_DEBUG
15 
16  return mat;
17 }
18 
19 //=============================================================================
21 inline _zgematrix i(const _zhematrix& mat)
22 {
23 #ifdef CPPL_VERBOSE
24  std::cerr << "# [MARK] i(const _zhematrix&)"
25  << std::endl;
26 #endif//CPPL_VERBOSE
27 
28  zhematrix mat_cp;
29  mat_cp.shallow_copy(mat);
30 
31  zgematrix mat_inv(mat.N,mat.N);
32  mat_inv.identity();
33 
34  mat_cp.zhesv(mat_inv);
35 
36  return _(mat_inv);
37 }
(DO NOT USE) Smart-temporary Complex Double-precision Hermitian Matrix Class
Definition: _zhematrix.hpp:3
void shallow_copy(const _zhematrix &)
Definition: zhematrix-misc.hpp:125
Complex Double-precision General Dence Matrix Class.
Definition: zgematrix.hpp:3
(DO NOT USE) Smart-temporary Complex Double-precision General Dence Matrix Class
Definition: _zgematrix.hpp:3
Complex Double-precision Hermitian Matrix Class [L-type (UPLO=L) Strage].
Definition: zhematrix.hpp:4
friend _zcovector t(const _zrovector &)
Definition: _zrovector-calc.hpp:3
long N
matrix column or row size
Definition: _zhematrix.hpp:7
long zhesv(zgematrix &)
Definition: zhematrix-lapack.hpp:6