CPPScaLapack: _dgematrix-double.hpp Source File

00001 //=============================================================================
00002 /*! _dgematrix*double operator */
00003 inline _dgematrix operator*(const _dgematrix& mat, const double& d)
00004 {
00005   dscal_(mat.Ml*mat.Ml, d, mat.Array, 1);
00006   
00007   return mat;
00008 }
00009 
00010 //=============================================================================
00011 /*! _dgematrix/double operator */
00012 inline _dgematrix operator/(const _dgematrix& mat, const double& d)
00013 {
00014   dscal_(mat.Ml*mat.Nl, 1./d, mat.Array, 1);
00015   
00016   return mat;
00017 }