CPPScaLapack: _drovector-double.hpp Source File

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