00001
00003 inline _zgematrix operator*(const _zhematrix& mat, const std::complex<double>& d)
00004 {
00005 #ifdef CPPL_VERBOSE
00006 std::cerr << "# [MARK] operator*(const _zhematrix&, const std::complex<double>&)"
00007 << std::endl;
00008 #endif//CPPL_VERBOSE
00009
00010 zgematrix newmat(mat);
00011 zscal_(mat.N*mat.N, d, newmat.array, 1);
00012
00013 return _(newmat);
00014 }
00015
00016
00018 inline _zgematrix operator/(const _zhematrix& mat, const std::complex<double>& d)
00019 {
00020 #ifdef CPPL_VERBOSE
00021 std::cerr << "# [MARK] operator/(const _zhematrix&, const std::complex<double>&)"
00022 << std::endl;
00023 #endif//CPPL_VERBOSE
00024
00025 zgematrix newmat(mat);
00026 zscal_(mat.N*mat.N, 1./d, newmat.array, 1);
00027
00028 return _(newmat);
00029 }