fortran read matrix

PROGRAM CROUT
    implicit none
    real(8),allocatable,dimension(:,:):: matriz
    integer:: i,j,k,n,m
    open(unit=24,file="matriz.txt")

    read(24,*) n, m

    allocate(matriz(n,m))

    matriz(:,:) = 0

    read(24,*) matriz
    matriz = transpose(matriz)

    do i=1,n
        write(6,*) (matriz(i,j),j=1,m)
    enddo

    read(5,*)
END PROGRAM