00001
00003 inline _dssmatrix t(const _dssmatrix& mat)
00004 {
00005 #ifdef CPPL_VERBOSE
00006 std::cerr << "# [MARK] t(const _dssmatrix&)"
00007 << std::endl;
00008 #endif//CPPL_VERBOSE
00009
00010 long* mat_Indx(mat.Indx);
00011 mat.Indx =mat.Jndx;
00012 mat.Jndx =mat_Indx;
00013
00014 return mat;
00015 }
00016
00020
00021
00024 inline void idamax(long& i, long& j, const _dssmatrix& mat)
00025 {
00026 #ifdef CPPL_VERBOSE
00027 std::cerr << "# [MARK] idamax(long&, long&, const _dssmatrix&)"
00028 << std::endl;
00029 #endif//CPPL_VERBOSE
00030
00031 long index( idamax_(mat.VOL, mat.Array, 1) -1 );
00032 i =mat.Indx[index];
00033 j =mat.Jndx[index];
00034
00035 mat.destroy();
00036 }
00037
00038
00040 inline double damax(const _dssmatrix& mat)
00041 {
00042 #ifdef CPPL_VERBOSE
00043 std::cerr << "# [MARK] damax(const _dssmatrix&)"
00044 << std::endl;
00045 #endif//CPPL_VERBOSE
00046
00047 double val( mat.Array[idamax_(mat.VOL, mat.Array, 1) -1] );
00048
00049 mat.destroy();
00050 return val;
00051 }