6 std::cerr <<
"# [MARK] t(const zgematrix&)"
12 for(
long i=0; i<newmat.M; i++){
for(
long j=0; j<newmat.N; j++){
13 newmat(i,j) =mat(j,i);
24 std::cerr <<
"# [MARK] i(const zgematrix&)"
30 std::cerr <<
"[ERROR] i(zgematrix&) " << std::endl
31 <<
"This matrix is not square and has no inverse matrix."
33 <<
"Your input was (" << mat.M <<
"x" << mat.N <<
")."
39 zgematrix mat_cp(mat), mat_inv(mat.M,mat.N);
41 mat_cp.zgesv(mat_inv);
55 std::cerr <<
"# [MARK] conj(const zgematrix&)"
60 for(
long i=0; i<mat.M; i++){
for(
long j=0; j<mat.N; j++){
61 newmat(i,j) =std::conj(mat(i,j));
72 std::cerr <<
"# [MARK] conjt(const zgematrix&)"
77 for(
long i=0; i<newmat.M; i++){
for(
long j=0; j<newmat.N; j++){
78 newmat(i,j) =std::conj(mat(j,i));
94 std::cerr <<
"# [MARK] idamax(long&, long&, const zgematrix&)"
98 long index( izamax_(mat.M*mat.N, mat.Array, 1) -1 );
108 std::cerr <<
"# [MARK] damax(const zgematrix&)"
112 return mat.Array[izamax_(mat.M*mat.N, mat.Array, 1) -1];
friend std::complex< double > damax(const _zrovector &)
Definition: _zrovector-calc.hpp:82
void identity()
Definition: zgematrix-misc.hpp:38
Complex Double-precision General Dence Matrix Class.
Definition: zgematrix.hpp:3
friend _zcovector conjt(const _zrovector &)
Definition: _zrovector-calc.hpp:33
(DO NOT USE) Smart-temporary Complex Double-precision General Dence Matrix Class
Definition: _zgematrix.hpp:3
friend _zrovector conj(const _zrovector &)
Definition: _zrovector-calc.hpp:20
friend _zcovector t(const _zrovector &)
Definition: _zrovector-calc.hpp:3
friend long idamax(const _zrovector &)
Definition: _zrovector-calc.hpp:68