VERB_code_2.3
_zssmatrix-_zgematrix.hpp
1 //=============================================================================
3 inline _zgematrix operator+(const _zssmatrix& matA, const _zgematrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const _zssmatrix&, const _zgematrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10 #ifdef CPPL_DEBUG
11  if(matA.M!=matB.M || matA.N!=matB.N){
12  std::cerr << "[ERROR] operator+(const _zssmatrix&, const _zgematrix&)"
13  << std::endl
14  << "These two matrises can not make a summation." << std::endl
15  << "Your input was (" << matA.M << "x" << matA.N << ") + ("
16  << matB.M << "x" << matB.N << ")." << std::endl;
17  exit(1);
18  }
19 #endif//CPPL_DEBUG
20 
21  for(long c=0; c<matA.VOL; c++){
22  matB(matA.Indx[c],matA.Jndx[c]) += matA.Array[c];
23  }
24 
25  matA.destroy();
26  return matB;
27 }
28 
29 //=============================================================================
31 inline _zgematrix operator-(const _zssmatrix& matA, const _zgematrix& matB)
32 {
33 #ifdef CPPL_VERBOSE
34  std::cerr << "# [MARK] operator-(const _zssmatrix&, const _zgematrix&)"
35  << std::endl;
36 #endif//CPPL_VERBOSE
37 
38 #ifdef CPPL_DEBUG
39  if(matA.M!=matB.M || matA.N!=matB.N){
40  std::cerr << "[ERROR] operator-(const _zssmatrix&, const _zgematrix&)"
41  << std::endl
42  << "These two matrises can not make a subtraction." << std::endl
43  << "Your input was (" << matA.M << "x" << matA.N << ") - ("
44  << matB.N << "x" << matB.N << ")." << std::endl;
45  exit(1);
46  }
47 #endif//CPPL_DEBUG
48 
50  for(int i=0; i<matB.M*matB.N; i++){
51  matB.Array[i] = -matB.Array[i];
52  }
53 
54  for(long c=0; c<matA.VOL; c++){
55  matB(matA.Indx[c],matA.Jndx[c]) += matA.Array[c];
56  }
57 
58  matA.destroy();
59  return matB;
60 }
61 
62 //=============================================================================
64 inline _zgematrix operator*(const _zssmatrix& matA, const _zgematrix& matB)
65 {
66 #ifdef CPPL_VERBOSE
67  std::cerr << "# [MARK] operator*(const _zssmatrix&, const _zgematrix&)"
68  << std::endl;
69 #endif//CPPL_VERBOSE
70 
71 #ifdef CPPL_DEBUG
72  if(matA.N!=matB.M){
73  std::cerr << "[ERROR] operator*(const _zssmatrix&, const _zgematrix&)"
74  << std::endl
75  << "These two matrises can not make a product." << std::endl
76  << "Your input was (" << matA.M << "x" << matA.N << ") * ("
77  << matB.N << "x" << matB.N << ")." << std::endl;
78  exit(1);
79  }
80 #endif//CPPL_DEBUG
81 
82  zgematrix newmat(matA.M, matB.N);
83  newmat.zero();
84 
85  for(long c=0; c<matA.VOL; c++){
86  for(long j=0; j<matB.N; j++){
87  newmat(matA.Indx[c],j) += matA.Array[c]*matB(matA.Jndx[c],j);
88  }
89  }
90 
91  matA.destroy();
92  matB.destroy();
93  return _(newmat);
94 }
friend _zrovector _(zrovector &)
Definition: zrovector-misc.hpp:131
long M
matrix row size
Definition: _zssmatrix.hpp:7
long VOL
the number of non-zero components
Definition: _zssmatrix.hpp:10
(DO NOT USE) Smart-temporary Complex Double-precision Sparse Matrix Class
Definition: _zssmatrix.hpp:3
long N
matrix column size
Definition: _zgematrix.hpp:8
std::complex< double > * Array
1D Array to store matrix data
Definition: _zgematrix.hpp:9
long * Jndx
1D array to store the j-index of non-zero matrix components
Definition: _zssmatrix.hpp:13
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
void destroy() const
Definition: _zgematrix-misc.hpp:3
void zero()
Definition: zgematrix-misc.hpp:26
std::complex< double > * Array
1D array to store non-zero matrix data
Definition: _zssmatrix.hpp:11
void destroy() const
Definition: _zssmatrix-misc.hpp:3
long M
matrix row size
Definition: _zgematrix.hpp:7
friend const zrovector & operator+(const zrovector &)
Definition: zrovector-unary.hpp:3
friend _zrovector operator*(const zrovector &, const zgematrix &)
Definition: zrovector-zgematrix.hpp:3
friend _zrovector operator-(const zrovector &)
Definition: zrovector-unary.hpp:15
long N
matrix column size
Definition: _zssmatrix.hpp:8
long * Indx
1D array to store the i-index of non-zero matrix components
Definition: _zssmatrix.hpp:12