VERB_code_2.3
zssmatrix-calc.hpp
1 //=============================================================================
3 inline _zssmatrix t(const zssmatrix& mat)
4 {
5 #ifdef CPPL_VERBOSE
6  std::cerr << "# [MARK] t(const zssmatrix&)"
7  << std::endl;
8 #endif//CPPL_VERBOSE
9 
10  zssmatrix newmat(mat.N,mat.M,mat.CAP);
11 
12  for(long c=0; c<mat.VOL; c++){
13  newmat.fput(mat.Jndx[c], mat.Indx[c], mat.Array[c]);
14  }
15 
16  return _(newmat);
17 }
18 
22 
23 //=============================================================================
26 inline void idamax(long& i, long& j, const zssmatrix& mat)
27 {
28 #ifdef CPPL_VERBOSE
29  std::cerr << "# [MARK] idamax(long&, long&, const zssmatrix&)"
30  << std::endl;
31 #endif//CPPL_VERBOSE
32 
33  long index( izamax_(mat.VOL, mat.Array, 1) -1 );
34  i =mat.Indx[index];
35  j =mat.Jndx[index];
36 }
37 
38 //=============================================================================
40 inline std::complex<double> damax(const zssmatrix& mat)
41 {
42 #ifdef CPPL_VERBOSE
43  std::cerr << "# [MARK] damax(const zssmatrix&)"
44  << std::endl;
45 #endif//CPPL_VERBOSE
46 
47  return mat.Array[izamax_(mat.VOL, mat.Array, 1) -1];
48 }
friend std::complex< double > damax(const _zrovector &)
Definition: _zrovector-calc.hpp:82
void fput(const long &, const long &, const std::complex< double > &)
Definition: zssmatrix-io.hpp:75
(DO NOT USE) Smart-temporary Complex Double-precision Sparse Matrix Class
Definition: _zssmatrix.hpp:3
friend _zcovector t(const _zrovector &)
Definition: _zrovector-calc.hpp:3
Complex Double-precision Sparse Matrix Class.
Definition: zssmatrix.hpp:3
friend long idamax(const _zrovector &)
Definition: _zrovector-calc.hpp:68