Esope source files

   1 : C TRANSP    SOURCE    AM        11/05/26    21:16:48     6982           
   2 :       subroutine TRANSP (irangi, irangj, XMAT1, XMAT2)
   3 : C     MAT2=T MAT1
   4 : 
   5 :         IMPLICIT INTEGER(I-N)
   6 :         IMPLICIT REAL*8(A-H,O-Z)
   7 :         DIMENSION XMAT1(irangi,irangj), XMAT2(irangj,irangi)
   8 : *
   9 :         do i=1,irangi
  10 :            do j=1,irangj
  11 :               XMAT2(j,i)=XMAT1(i,j)
  12 :            enddo
  13 :         enddo
  14 : 
  15 :       return
  16 :         end
  17 :