00001 //============================================================================= 00002 /*! double*_dcovector operator */ 00003 inline _dcovector operator*(const double& d, const _dcovector& vec) 00004 {VERBOSE_REPORT; 00005 dscal_(vec.l, d, vec.array, 1); 00006 return vec; 00007 }