subroutine prob
        integer, parameter :: ROWS = 5, COLS = 7
        real :: matrix(ROWS, COLS)
        call new_procedure(COLS, ROWS, matrix)
        print *, matrix
end subroutine

subroutine new_procedure(COLS, ROWS, matrix)
    implicit none
    integer :: COLS
    integer :: ROWS
    real :: matrix(ROWS, COLS)
    matrix(:, :) = 0.0          !<<<<<START !<<<<<END
end subroutine


program main; call prob; call flush; stop; end program