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