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