CPPScaLapack: dgematrix-unary.hpp Source File

00001 //=============================================================================
00002 /*! +dgematrix operator */
00003 inline const dgematrix& operator+(const dgematrix& mat)
00004 {
00005   return mat;
00006 }
00007 
00008 //=============================================================================
00009 /*! -dgematrix operator */
00010 inline _dgematrix operator-(const dgematrix& mat)
00011 {
00012   _dgematrix newmat(mat.M,mat.N);
00013   for(long i=0; i<newmat.Ml*newmat.Nl; i++){ newmat.Array[i]=-mat.Array[i]; }
00014   return newmat;
00015 }