6 std::cerr <<
"# [MARK] operator+(const _zgbmatrix&, const zgbmatrix&)"
11 if(matA.
N!=matB.N || matA.
M!=matB.M){
12 std::cerr <<
"[ERROR] operator+(_zgbmatrix&, zgbmatrix&)" << std::endl
13 <<
"These two matrises can not make a summation." << std::endl
14 <<
"Your input was (" << matA.
M <<
"x" << matA.
N <<
") + ("
15 << matB.M <<
"x" << matB.N <<
")." << std::endl;
20 if(matA.
KL>=matB.KL && matA.
KU>=matB.KU){
21 for(
long i=0; i<matB.M; i++){
22 for(
long j=
max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
34 for(
long i=0; i<matA.
M; i++){
35 for(
long j=
max(0,i-matA.
KL); j<min(matA.
N,i+matA.
KU+1); j++){
36 newmat(i,j)+=matA(i,j);
38 for(
long j=
max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
39 newmat(i,j)+=matB(i,j);
53 std::cerr <<
"# [MARK] operator-(const _zgbmatrix&, const zgbmatrix&)"
58 if(matA.
N!=matB.N || matA.
M!=matB.M){
59 std::cerr <<
"[ERROR] operator-(_zgbmatrix&, zgbmatrix&)" << std::endl
60 <<
"These two matrises can not make a subtraction." << std::endl
61 <<
"Your input was (" << matA.
M <<
"x" << matA.
N <<
") - ("
62 << matB.M <<
"x" << matB.N <<
")." << std::endl;
67 if(matA.
KL>=matB.KL && matA.
KU>=matB.KU){
68 for(
long i=0; i<matB.M; i++){
69 for(
long j=
max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
81 for(
long i=0; i<matA.
M; i++){
82 for(
long j=
max(0,i-matA.
KL); j<min(matA.
N,i+matA.
KU+1); j++){
83 newmat(i,j)+=matA(i,j);
85 for(
long j=
max(0,i-matB.KL); j<min(matB.N,i+matB.KU+1); j++){
86 newmat(i,j)-=matB(i,j);
99 std::cerr <<
"# [MARK] operator*(const _zgbmatrix&, const zgbmatrix&)"
105 std::cerr <<
"[ERROR] operator*(_zgbmatrix&, zgbmatrix&)" << std::endl
106 <<
"These two matrises can not make a product." << std::endl
107 <<
"Your input was (" << matA.
M <<
"x" << matA.
N <<
") * ("
108 << matB.M <<
"x" << matB.N <<
")." << std::endl;
113 zgbmatrix newmat( matA.
M, matB.N, matA.
KU+matB.KL-1, matA.
KL+matB.KU+1 );
117 #pragma omp parallel for private(j,k)
118 for(i=0; i<newmat.
m; i++){
119 for(j=
max(0,i-newmat.
kl); j<min(newmat.
n,i+newmat.
ku+1); j++){
121 k< min( min(matA.
N,i+matA.
KU+1), min(matB.M,j+matB.KL+1) ); k++){
122 newmat(i,j)+= matA(i,k)*matB(k,j);
double max(double v1, double v2)
Return maximum.
Definition: variousFunctions.cpp:355
friend _zrovector operator-(const _zrovector &)
Definition: _zrovector-unary.hpp:15
long const & n
matrix column size (readable)
Definition: zgbmatrix.hpp:17
long N
matrix column size
Definition: _zgbmatrix.hpp:8
void destroy() const
Definition: _zgbmatrix-misc.hpp:3
long KU
upper band width
Definition: _zgbmatrix.hpp:10
Complex Double-precision General Band Matrix Class.
Definition: zgbmatrix.hpp:3
long const & m
matrix row size (readable)
Definition: zgbmatrix.hpp:16
friend _zrovector operator*(const zrovector &, const zgematrix &)
Definition: zrovector-zgematrix.hpp:3
long M
matrix row size
Definition: _zgbmatrix.hpp:7
long const & kl
lower band width (readable)
Definition: zgbmatrix.hpp:18
long const & ku
upper band width (readable)
Definition: zgbmatrix.hpp:19
(DO NOT USE) Smart-temporary Complex Double-precision General Band Matrix Class
Definition: _zgbmatrix.hpp:3
void zero()
Definition: zgbmatrix-misc.hpp:29
friend const _zrovector & operator+(const _zrovector &)
Definition: _zrovector-unary.hpp:3
long KL
lower band width
Definition: _zgbmatrix.hpp:9