My Project
_dssmatrix-dsymatrix.hpp
1 //=============================================================================
3 inline _dgematrix operator+(const _dssmatrix& matA, const dsymatrix& matB)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] operator+(const _dssmatrix&, const dsymatrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10 #ifdef CPPL_DEBUG
11  if(matA.M!=matB.N || matA.N!=matB.N){
12  std::cerr << "[ERROR] operator+(const _dssmatrix&, const dsymatrix&)"
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.N << "x" << matB.N << ")." << std::endl;
17  exit(1);
18  }
19 #endif//CPPL_DEBUG
20 
21  dgematrix 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 _dgematrix operator-(const _dssmatrix& matA, const dsymatrix& matB)
33 {
34 #ifdef CPPL_VERBOSE
35  std::cerr << "# [MARK] operator-(const _dssmatrix&, const dsymatrix&)"
36  << std::endl;
37 #endif//CPPL_VERBOSE
38 
39 #ifdef CPPL_DEBUG
40  if(matA.M!=matB.N || matA.N!=matB.N){
41  std::cerr << "[ERROR] operator-(const _dssmatrix&, const dsymatrix&)"
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  dgematrix 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 _dgematrix operator*(const _dssmatrix& matA, const dsymatrix& matB)
62 {
63 #ifdef CPPL_VERBOSE
64  std::cerr << "# [MARK] operator*(const _dssmatrix&, const dsymatrix&)"
65  << std::endl;
66 #endif//CPPL_VERBOSE
67 
68 #ifdef CPPL_DEBUG
69  if(matA.N!=matB.N){
70  std::cerr << "[ERROR] operator*(const _dssmatrix&, const dsymatrix&)"
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  dgematrix newmat(matA.M, matB.N);
80  newmat.zero();
81 
82  for(long c=0; c<matA.VOL; c++){
83  for(long i=0; i<matB.N; i++){
84  newmat(matA.Indx[c],i) += matA.Array[c]*matB(matA.Jndx[c],i);
85  }
86  }
87 
88  matA.destroy();
89  return _(newmat);
90 }
double * Array
1D array to store non-zero matrix data
Definition: _dssmatrix.hpp:11
void zero()
Definition: dgematrix-misc.hpp:26
(DO NOT USE) Smart-temporary Real Double-precision Sparse Matrix Class
Definition: _dssmatrix.hpp:3
long M
matrix row size
Definition: _dssmatrix.hpp:7
Real Double-precision General Dence Matrix Class.
Definition: dgematrix.hpp:3
Real Double-precision Symmetric Matrix Class [L-type (UPLO=L) Strage].
Definition: dsymatrix.hpp:3
friend _drovector _(drovector &)
Definition: drovector-misc.hpp:131
long * Jndx
1D array to store the j-index of non-zero matrix components
Definition: _dssmatrix.hpp:13
friend _drovector operator*(const drovector &, const dgematrix &)
Definition: drovector-dgematrix.hpp:3
(DO NOT USE) Smart-temporary Real Double-precision General Dence Matrix Class
Definition: _dgematrix.hpp:3
long VOL
the number of non-zero components
Definition: _dssmatrix.hpp:10
friend const drovector & operator+(const drovector &)
Definition: drovector-unary.hpp:3
long N
matrix column size
Definition: _dssmatrix.hpp:8
long * Indx
1D array to store the i-index of non-zero matrix components
Definition: _dssmatrix.hpp:12
void destroy() const
Definition: _dssmatrix-misc.hpp:3
friend _drovector operator-(const drovector &)
Definition: drovector-unary.hpp:15