00001 //============================================================================= 00002 /*! comple*_zhematrix operator */ 00003 inline _zgematrix operator*(const comple& d, const _zhematrix& mat) 00004 {VERBOSE_REPORT; 00005 zgematrix newmat( mat.to_zgematrix() ); 00006 zscal_(mat.n*mat.n, d, newmat.array, 1); 00007 00008 mat.destroy(); 00009 return _(newmat); 00010 }