00001 //============================================================================= 00002 /*! cast to _zgematrix */ 00003 inline _zgematrix _dgematrix::to_zgematrix() const 00004 {VERBOSE_REPORT; 00005 zgematrix newmat(m,n); 00006 for(long i=0; i<m*n; i++){ 00007 newmat.array[i] =comple(array[i],0.0); 00008 } 00009 00010 destroy(); 00011 return _(newmat); 00012 }