My Project
zhematrix-zssmatrix.hpp
1 //=============================================================================
3 inline _zgematrix operator+(const zhematrix& matA, const zssmatrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const zhematrix&, const zssmatrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10 #ifdef CPPL_DEBUG
11  if(matA.N!=matB.M || matA.N!=matB.N){
12  std::cerr << "[ERROR] operator+(const zhematrix&, const zssmatrix&)"
13  << std::endl
14  << "These two matrises can not make a summation." << std::endl
15  << "Your input was (" << matA.N << "x" << matA.N << ") + ("
16  << matB.M << "x" << matB.N << ")." << std::endl;
17  exit(1);
18  }
19 #endif//CPPL_DEBUG
20 
21  zgematrix newmat(matA);
22  for(long c=0; c<matB.VOL; c++){
23  newmat(matB.Indx[c],matB.Jndx[c]) += matB.Array[c];
24  }
25 
26  return _(newmat);
27 }
28 
29 //=============================================================================
31 inline _zgematrix operator-(const zhematrix& matA, const zssmatrix& matB)
32 {
33 #ifdef CPPL_VERBOSE
34  std::cerr << "# [MARK] operator-(const zhematrix&, const zssmatrix&)"
35  << std::endl;
36 #endif//CPPL_VERBOSE
37 
38 #ifdef CPPL_DEBUG
39  if(matA.N!=matB.M || matA.N!=matB.N){
40  std::cerr << "[ERROR] operator-(const zhematrix&, const zssmatrix&)"
41  << std::endl
42  << "These two matrises can not make a subtraction." << std::endl
43  << "Your input was (" << matA.N << "x" << matA.N << ") - ("
44  << matB.M << "x" << matB.N << ")." << std::endl;
45  exit(1);
46  }
47 #endif//CPPL_DEBUG
48 
49  zgematrix newmat(matA);
50  for(long c=0; c<matB.VOL; c++){
51  newmat(matB.Indx[c],matB.Jndx[c]) -= matB.Array[c];
52  }
53 
54  return _(newmat);
55 }
56 
57 //=============================================================================
59 inline _zgematrix operator*(const zhematrix& matA, const zssmatrix& matB)
60 {
61 #ifdef CPPL_VERBOSE
62  std::cerr << "# [MARK] operator*(const zhematrix&, const zssmatrix&)"
63  << std::endl;
64 #endif//CPPL_VERBOSE
65 
66 #ifdef CPPL_DEBUG
67  if(matA.N!=matB.M){
68  std::cerr << "[ERROR] operator*(const zhematrix&, const zssmatrix&)"
69  << std::endl
70  << "These two matrises can not make a product." << std::endl
71  << "Your input was (" << matA.N << "x" << matA.N << ") * ("
72  << matB.M << "x" << matB.N << ")." << std::endl;
73  exit(1);
74  }
75 #endif//CPPL_DEBUG
76 
77  zgematrix newmat(matA.N, matB.N);
78  newmat.zero();
79 
80  for(long c=0; c<matB.VOL; c++){
81  for(long i=0; i<matA.N; i++){
82  newmat(i,matB.Jndx[c]) += matA(i,matB.Indx[c])*matB.Array[c];
83  }
84  }
85 
86  return _(newmat);
87 }
friend _zrovector operator-(const _zrovector &)
Definition: _zrovector-unary.hpp:15
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
friend _zrovector operator*(const zrovector &, const zgematrix &)
Definition: zrovector-zgematrix.hpp:3
Complex Double-precision Hermitian Matrix Class [L-type (UPLO=L) Strage].
Definition: zhematrix.hpp:4
Complex Double-precision Sparse Matrix Class.
Definition: zssmatrix.hpp:3
friend const _zrovector & operator+(const _zrovector &)
Definition: _zrovector-unary.hpp:3