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