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

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


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