CPPScaLapack: double-dgematrix.hpp Source File

00001 //=============================================================================
00002 /*! double*dgematrix operator */
00003 inline _dgematrix operator*(const double& d, const dgematrix& mat)
00004 {
00005   _dgematrix newmat(mat.M, mat.N);
00006   for(int i=0; i<mat.Ml*mat.Nl; i++){ newmat.Array[i] =d*mat.Array[i]; }
00007   
00008   return newmat;
00009 }