PROGRAM bumble
    IMPLICIT NONE
    INTEGER :: i, j
    INTEGER, DIMENSION(6, 8) :: ints

    DO j = 1,8
        DO i = 1,6
            ints(i,j) = i+10*j
        END DO
    END DO

    DO i = 2,6,2
        DO j = 2,8,2
            WRITE(*,*) ints(i,j)
        END DO
    END DO
    WRITE(*,*) ((ints(i,j), j = 2,8,2), i=2,6,2)
    WRITE(*,*) TRANSPOSE(ints(2::2,2::2))
END PROGRAM bumble