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 j = 2,8,2
        DO i = 2,6,2
            WRITE(*,*) ints(i,j)
        END DO
    END DO
    WRITE(*,*) ((ints(i,j), i=2,6,2), j = 2,8,2)
    WRITE(*,*) ints(2::2,2::2)
END PROGRAM bumble