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