00001 //============================================================================= 00002 /*! _zhematrix*comple operator */ 00003 inline _zgematrix operator*(const _zhematrix& mat, const comple& d) 00004 {VERBOSE_REPORT; 00005 zgematrix newmat( mat.to_zgematrix() ); 00006 zscal_(mat.n*mat.n, d, newmat.array, 1); 00007 00008 return _(newmat); 00009 } 00010 00011 //============================================================================= 00012 /*! zhematrix/comple operator */ 00013 inline _zgematrix operator/(const _zhematrix& mat, const comple& d) 00014 {VERBOSE_REPORT; 00015 zgematrix newmat( mat.to_zgematrix() ); 00016 zscal_(mat.n*mat.n, 1./d, newmat.array, 1); 00017 00018 return _(newmat); 00019 }