00001 //============================================================================= 00003 inline _zgematrix operator*(const std::complex<double>& d, const zhematrix& mat) 00004 { 00005 #ifdef CPPL_VERBOSE 00006 std::cerr << "# [MARK] operator*(const std::complex<double>&, const zhematrix&)" 00007 << std::endl; 00008 #endif//CPPL_VERBOSE 00009 00010 mat.complete(); 00011 zgematrix newmat(mat.N, mat.N); 00012 for(long i=0; i<mat.N*mat.N; i++){ newmat.array[i] =d*mat.Array[i]; } 00013 00014 return _(newmat); 00015 }