CPPScaLapack: double-_dgematrix.hpp Source File

00001 //=============================================================================
00002 /*! double*_dgematrix operator */
00003 inline _dgematrix operator*(const double& d, const _dgematrix& mat)
00004 {
00005   dscal_(mat.Ml*mat.Nl, d, mat.Array, 1);
00006   
00007   return mat;
00008 }