Esope source files

   1 : C AEQBT     SOURCE    CHAT      07/10/22    21:15:00     5921           
   2 :       SUBROUTINE AEQBT(A,B,N,M)
   3 : C ANTOINE LE 29/01/01
   4 : C
   5 : C  A=B^(T) POUR UNE MATRICE B DE DEPART N*M
   6 : C
   7 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   8 :       IMPLICIT REAL*8(A-H,O-Z)
   9 :       IMPLICIT INTEGER (I-N)      
  10 : *     INTEGER N,M
  11 : *      REAL *8 A(M,N),B(N,M)
  12 :        dimension A(M,*),B(N,*)
  13 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  14 :       DO I=1,M
  15 :          DO J=1,N
  16 :        A(I,J)=B(J,I)
  17 :        END DO
  18 :       END DO
  19 :       RETURN
  20 :       END
  21 :