00001 //============================================================================= 00002 /*! comple*zgbmatrix operator */ 00003 inline _zgbmatrix operator*(const comple& d, const zgbmatrix& mat) 00004 {VERBOSE_REPORT; 00005 zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku); 00006 for(long i=0; i<(newmat.kl+newmat.ku+1)*newmat.n; i++){ 00007 newmat.array[i] =d*mat.array[i]; 00008 } 00009 00010 return _(newmat); 00011 }