Sources Esope | Cast3M

aeqbt
C AEQBT     SOURCE    CHAT      07/10/22    21:15:00     5921
      SUBROUTINE AEQBT(A,B,N,M)
C ANTOINE LE 29/01/01
C
C  A=B^(T) POUR UNE MATRICE B DE DEPART N*M
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      IMPLICIT REAL*8(A-H,O-Z)
      IMPLICIT INTEGER (I-N)
*     INTEGER N,M
*      REAL *8 A(M,N),B(N,M)
       dimension A(M,*),B(N,*)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      DO I=1,M
         DO J=1,N
       A(I,J)=B(J,I)
       END DO
      END DO
      RETURN
      END