00001 //============================================================================= 00003 inline _zcovector operator*(const double& d, const _zcovector& vec) 00004 { 00005 #ifdef CPPL_VERBOSE 00006 std::cerr << "# [MARK] operator*(const double&, const _zcovector&)" 00007 << std::endl; 00008 #endif//CPPL_VERBOSE 00009 00010 zdscal_(vec.L, d, vec.Array, 1); 00011 return vec; 00012 }