SUBROUTINE SGETMO(A,NHRZ1,NHRZ2,LM1,ACOL_T,LM2)
!------------------------------------------------------
    REAL :: &
    A(NHRZ1,LM1),ACOL_T(LM1,NHRZ1)
!------------------------------------------------------
    DO N=1,NHRZ1
        DO L=1,LM1
            ACOL_T(L,N)=A(N,L)
        ENDDO
    ENDDO

    RETURN
    END SUBROUTINE SGETMO