00001 //============================================================================= 00002 /*! zhematrix*=double operator */ 00003 inline zhematrix& zhematrix::operator*=(const double& d) 00004 {VERBOSE_REPORT; 00005 zdscal_(n*n, d, array, 1); 00006 return *this; 00007 } 00008 00009 //============================================================================= 00010 /*! zhematrix/=double operator */ 00011 inline zhematrix& zhematrix::operator/=(const double& d) 00012 {VERBOSE_REPORT; 00013 zdscal_(n*n, 1./d, array, 1); 00014 return *this; 00015 } 00016 00017 /////////////////////////////////////////////////////////////////////////////// 00018 /////////////////////////////////////////////////////////////////////////////// 00019 /////////////////////////////////////////////////////////////////////////////// 00020 00021 //============================================================================= 00022 /*! zhematrix*double operator */ 00023 inline _zhematrix operator*(const zhematrix& mat, const double& d) 00024 {VERBOSE_REPORT; 00025 zhematrix newmat(mat.n); 00026 for(long i=0; i<mat.n*mat.n; i++){ newmat.array[i] =mat.array[i]*d; } 00027 00028 return _(newmat); 00029 } 00030 00031 //============================================================================= 00032 /*! zhematrix/double operator */ 00033 inline _zhematrix operator/(const zhematrix& mat, const double& d) 00034 {VERBOSE_REPORT; 00035 zhematrix newmat(mat.n); 00036 for(long i=0; i<mat.n*mat.n; i++){ newmat.array[i] =mat.array[i]/d; } 00037 00038 return _(newmat); 00039 }