PROGRAM SOMA_MATRIZ
   ! PROGRAMA QUE LE UMA MATRIZ E GERA A MATRIZ TRANSPOSTA 
   IMPLICIT NONE
   INTEGER  MAT(10,10), MATT(10,10),I, J, LIN, COL
   
   ! LEITURA DA DIMENSÃO DA MATRIZ   
   WRITE (*, *) "QUAL O NUMERO DE LINHAS DA MATRIZ A SER LIDA (MAX 10)?"
   READ (*, *) LIN
   WRITE (*, *) "QUAL O NUMERO DE COLUNAS (MAX 10)?"
   READ (*, *) COL
   ! LEITURA DA MATRIZ
   
   WRITE (*, *)
   WRITE (*, *) "INFORME OS DADOS DA MATRIZ: "
   WRITE (*, *)
   READ (*, *) ((MAT(I, J),J = 1,COL,1), I = 1,LIN,1)
   
   ! CALCULA MATRIZ TRANSPOSTA (O QUE ERA LINHA PASSA A SER COLUNA
   DO I= 1, COL, 1
      DO J = 1, LIN, 1
          MATT(I, J) = MAT(J,I)
      END DO
   END DO 
 
   ! IMPRESSÃO DAS MATRIZES
   WRITE (*, *) "MATRIZ LIDA:"
   DO I = 1, LIN, 1
      WRITE(*, *) (MAT(I,J) , J = 1, COL, 1)
   END DO
   WRITE (*, *) "MATRIZ TRANSPOSTA:"
   DO I = 1, COL, 1
      WRITE(*, *) (MATT(I,J) , J = 1, LIN, 1)
   END DO
   
   STOP
END PROGRAM SOMA_MATRIZ
