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  zgematrix newmat(matB);
22  for(long c=0; c<matA.VOL; c++){
23  newmat(matA.Indx[c],matA.Jndx[c]) += matA.Array[c];
24  }
25 
26  matA.destroy();
27  return _(newmat);
28 }
29 
30 //=============================================================================
32 inline _zgematrix operator-(const _zssmatrix& matA, const zgematrix& matB)
33 {
34 #ifdef CPPL_VERBOSE
35  std::cerr << "# [MARK] operator-(const _zssmatrix&, const zgematrix&)"
36  << std::endl;
37 #endif//CPPL_VERBOSE
38 
39 #ifdef CPPL_DEBUG
40  if(matA.M!=matB.M || matA.N!=matB.N){
41  std::cerr << "[ERROR] operator-(const _zssmatrix&, const zgematrix&)"
42  << std::endl
43  << "These two matrises can not make a subtraction." << std::endl
44  << "Your input was (" << matA.M << "x" << matA.N << ") - ("
45  << matB.N << "x" << matB.N << ")." << std::endl;
46  exit(1);
47  }
48 #endif//CPPL_DEBUG
49 
50  zgematrix newmat(-matB);
51  for(long c=0; c<matA.VOL; c++){
52  newmat(matA.Indx[c],matA.Jndx[c]) += matA.Array[c];
53  }
54 
55  matA.destroy();
56  return _(newmat);
57 }
58 
59 //=============================================================================
61 inline _zgematrix operator*(const _zssmatrix& matA, const zgematrix& matB)
62 {
63 #ifdef CPPL_VERBOSE
64  std::cerr << "# [MARK] operator*(const _zssmatrix&, const zgematrix&)"
65  << std::endl;
66 #endif//CPPL_VERBOSE
67 
68 #ifdef CPPL_DEBUG
69  if(matA.N!=matB.M){
70  std::cerr << "[ERROR] operator*(const _zssmatrix&, const zgematrix&)"
71  << std::endl
72  << "These two matrises can not make a product." << std::endl
73  << "Your input was (" << matA.M << "x" << matA.N << ") * ("
74  << matB.N << "x" << matB.N << ")." << std::endl;
75  exit(1);
76  }
77 #endif//CPPL_DEBUG
78 
79  zgematrix newmat(matA.M, matB.N);
80  newmat.zero();
81 
82  for(long c=0; c<matA.VOL; c++){
83  for(long j=0; j<matB.N; j++){
84  newmat(matA.Indx[c],j) += matA.Array[c]*matB(matA.Jndx[c],j);
85  }
86  }
87 
88  matA.destroy();
89  return _(newmat);
90 }
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 * 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 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
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