CPPScaLapack: _dcovector-double.hpp Source File

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