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