CPPScaLapack: _dgematrix-calc.hpp Source File

00001 //=============================================================================
00002 /*! return transposed _dgematrix */
00003 inline _dgematrix t(const _dgematrix& mat)
00004 {
00005   _dgematrix newmat(mat.N,mat.M);
00006   
00007   for(long i=0; i<newmat.M; i++){ for(long j=0; j<newmat.N; j++){
00008     newmat(i,j) =mat(j,i);
00009   }}
00010   
00011   mat.destroy();
00012   return newmat;
00013 }