Sources Esope | Cast3M

transp
C TRANSP    SOURCE    AM        11/05/26    21:16:48     6982
      subroutine TRANSP (irangi, irangj, XMAT1, XMAT2)
C     MAT2=T MAT1
 
        IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8(A-H,O-Z)
        DIMENSION XMAT1(irangi,irangj), XMAT2(irangj,irangi)
*
        do i=1,irangi
           do j=1,irangj
              XMAT2(j,i)=XMAT1(i,j)
           enddo
        enddo
 
      return
        end