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