00001
00003 inline dsymatrix::operator _zhematrix()
00004 {
00005 #ifdef CPPL_VERBOSE
00006 std::cerr << "# [MARK] dsymatrix::operator _zhematrix()"
00007 << std::endl;
00008 #endif//CPPL_VERBOSE
00009
00010 complete();
00011 zhematrix newmat(N);
00012 for(long i=0; i<N*N; i++){
00013 newmat.array[i] =std::complex<double>(array[i],0.0);
00014 }
00015
00016 #ifdef CPPL_DEBUG
00017 std::cerr << "# [NOTE] dsymatrix::operator _zhematrix() "
00018 << "A new casted matrix at " << newmat.array
00019 << " has been made." << std::endl;
00020 #endif//CPPL_DEBUG
00021
00022 return _(newmat);
00023 }