00001 //============================================================================= 00003 inline _zgematrix operator*(const std::complex<double>& d, const _zgematrix& mat) 00004 { 00005 #ifdef CPPL_VERBOSE 00006 std::cerr << "# [MARK] operator*(const std::complex<double>&, const _zgematrix&)" 00007 << std::endl; 00008 #endif//CPPL_VERBOSE 00009 00010 zscal_(mat.M*mat.N, d, mat.Array, 1); 00011 return mat; 00012 }