00001 //============================================================================= 00002 /*! cast to _zhematrix */ 00003 inline _zhematrix _dsymatrix::to_zhematrix() const 00004 {VERBOSE_REPORT; 00005 zhematrix newmat(n); 00006 for(long i=0; i<n; i++){ 00007 for(long j=0; j<=i; j++){ 00008 newmat(i,j) =comple((*this)(i,j),0.0); 00009 } 00010 } 00011 00012 destroy(); 00013 return _(newmat); 00014 } 00015 00016 /////////////////////////////////////////////////////////////////////////////// 00017 /////////////////////////////////////////////////////////////////////////////// 00018 /////////////////////////////////////////////////////////////////////////////// 00019 00020 //============================================================================= 00021 /*! convert to _dgematrix */ 00022 inline _dgematrix _dsymatrix::to_dgematrix() const 00023 {VERBOSE_REPORT; 00024 dgematrix newmat(n,n); 00025 for(long i=0; i<n; i++){ 00026 for(long j=0; j<n; j++){ 00027 newmat(i,j) =(*this)(i,j); 00028 } 00029 } 00030 00031 destroy(); 00032 return _(newmat); 00033 }