6 std::cerr <<
"# [MARK] operator+(const dsymatrix&, const dgbmatrix&)"
11 if(matA.N!=matB.N || matA.N!=matB.M){
12 std::cerr <<
"[ERROR] operator+(dsymatrix&, dgbmatrix&)" << std::endl
13 <<
"These two matrises can not make a summation." << std::endl
14 <<
"Your input was (" << matA.N <<
"x" << matA.N <<
") + ("
15 << matB.M <<
"x" << matB.N <<
")." << std::endl;
21 for(
long i=0; i<matB.M; i++){
22 for(
long j=i; j<matA.N; j++){
23 newmat(i,j) = newmat(j,i) = matA(i,j);
25 for(
long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
26 newmat(i,j)+=matB(i,j);
38 std::cerr <<
"# [MARK] operator-(const dsymatrix&, const dgbmatrix&)"
43 if(matA.N!=matB.N || matA.N!=matB.M){
44 std::cerr <<
"[ERROR] operator+(dsymatrix&, dgbmatrix&)" << std::endl
45 <<
"These two matrises can not make a summation." << std::endl
46 <<
"Your input was (" << matA.N <<
"x" << matA.N <<
") + ("
47 << matB.M <<
"x" << matB.N <<
")." << std::endl;
53 for(
long i=0; i<matB.M; i++){
54 for(
long j=i; j<matA.N; j++){
55 newmat(i,j) = newmat(j,i) = matA(i,j);
57 for(
long j=max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
58 newmat(i,j)-=matB(i,j);
70 std::cerr <<
"# [MARK] operator*(const dsymatrix&, const dgbmatrix&)"
76 std::cerr <<
"[ERROR] operator*(dsymatrix&, dgbmatrix&)" << std::endl
77 <<
"These two matrises can not make a product." << std::endl
78 <<
"Your input was (" << matA.N <<
"x" << matA.N <<
") * ("
79 << matB.M <<
"x" << matB.N <<
")." << std::endl;
88 #pragma omp parallel for private(j,k)
89 for(i=0; i<newmat.
m; i++){
90 for(j=0; j<newmat.
n; j++){
91 for(k=max(0,j-matB.KU); k<min(matB.M,j+matB.KL+1); k++){
92 newmat(i,j)+=matA(i,k)*matB(k,j);
void zero()
Definition: dgematrix-misc.hpp:26
long const & n
matrix column size (readable)
Definition: dgematrix.hpp:15
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 operator-(const _drovector &)
Definition: _drovector-unary.hpp:15
(DO NOT USE) Smart-temporary Real Double-precision General Dence Matrix Class
Definition: _dgematrix.hpp:3
Real Double-precision General Band Matrix Class.
Definition: dgbmatrix.hpp:3
long const & m
matrix row size (readable)
Definition: dgematrix.hpp:14
friend _drovector operator*(const drovector &, const dgematrix &)
Definition: drovector-dgematrix.hpp:3
friend const _drovector & operator+(const _drovector &)
Definition: _drovector-unary.hpp:3