6 std::cerr <<
"# [MARK] operator+(const zhematrix&, const _zgbmatrix&)"
11 if(matA.N!=matB.
N || matA.N!=matB.
M){
12 std::cerr <<
"[ERROR] operator+(zhematrix&, _zgbmatrix&)" << 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) =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);
39 std::cerr <<
"# [MARK] operator-(const zhematrix&, const _zgbmatrix&)"
44 if(matA.N!=matB.
N || matA.N!=matB.
M){
45 std::cerr <<
"[ERROR] operator+(zhematrix&, _zgbmatrix&)" << std::endl
46 <<
"These two matrises can not make a summation." << std::endl
47 <<
"Your input was (" << matA.N <<
"x" << matA.N <<
") + ("
48 << matB.
M <<
"x" << matB.
N <<
")." << std::endl;
54 for(
long i=0; i<matB.
M; i++){
55 for(
long j=i; j<matA.N; j++){
56 newmat(i,j) =matA(i,j);
58 for(
long j=max(0,i-matB.
KL); j<min(matB.
N,i+matB.
KU+1); j++){
59 newmat(i,j)-=matB(i,j);
72 std::cerr <<
"# [MARK] operator*(const zhematrix&, const _zgbmatrix&)"
78 std::cerr <<
"[ERROR] operator*(zhematrix&, _zgbmatrix&)" << std::endl
79 <<
"These two matrises can not make a product." << std::endl
80 <<
"Your input was (" << matA.N <<
"x" << matA.N <<
") * ("
81 << matB.
M <<
"x" << matB.
N <<
")." << std::endl;
90 #pragma omp parallel for private(j,k)
91 for(i=0; i<newmat.
m; i++){
92 for(j=0; j<newmat.
n; j++){
93 for(k=max(0,j-matB.
KU); k<min(matB.
M,j+matB.
KL+1); k++){
94 newmat(i,j)+=matA(i,k)*matB(k,j);
friend _zrovector operator-(const _zrovector &)
Definition: _zrovector-unary.hpp:15
long N
matrix column size
Definition: _zgbmatrix.hpp:8
void destroy() const
Definition: _zgbmatrix-misc.hpp:3
Complex Double-precision General Dence Matrix Class.
Definition: zgematrix.hpp:3
long KU
upper band width
Definition: _zgbmatrix.hpp:10
(DO NOT USE) Smart-temporary Complex Double-precision General Dence Matrix Class
Definition: _zgematrix.hpp:3
void zero()
Definition: zgematrix-misc.hpp:26
friend _zrovector operator*(const zrovector &, const zgematrix &)
Definition: zrovector-zgematrix.hpp:3
long M
matrix row size
Definition: _zgbmatrix.hpp:7
(DO NOT USE) Smart-temporary Complex Double-precision General Band Matrix Class
Definition: _zgbmatrix.hpp:3
long const & m
matrix row size (readable)
Definition: zgematrix.hpp:14
Complex Double-precision Hermitian Matrix Class [L-type (UPLO=L) Strage].
Definition: zhematrix.hpp:4
long const & n
matrix column size (readable)
Definition: zgematrix.hpp:15
friend const _zrovector & operator+(const _zrovector &)
Definition: _zrovector-unary.hpp:3
long KL
lower band width
Definition: _zgbmatrix.hpp:9