update_array Subroutine

subroutine update_array()

populate the array using the start/end indices

Arguments

None

Called by

proc~~update_array~~CalledByGraph proc~update_array problem_22::update_array proc~initialize problem_22::initialize proc~initialize->proc~update_array proc~drop problem_22::drop proc~initialize->proc~drop proc~move_piece_down problem_22::move_piece_down proc~move_piece_down->proc~update_array proc~drop->proc~move_piece_down program~problem_22 problem_22 program~problem_22->proc~initialize

Source Code

    subroutine update_array()
        !! populate the array using the start/end indices
        integer :: i
        array = 0
        do i = 1, n_lines
            array(istart_array(i,1):iend_array(i,1),&
                  istart_array(i,2):iend_array(i,2),&
                  istart_array(i,3):iend_array(i,3)) = i
        end do
    end subroutine update_array