imk_evaluate_all Subroutine

  subroutine imk_evaluate_all(this, lev, t, flags, step)
    class(pf_imk_t),   intent(inout) :: this
    class(pf_level_t), intent(inout) :: lev
    real(pfdp),        intent(in   ) :: t(:)
    integer, optional,   intent(in)    :: flags, step

    integer :: m
    if (this%rk) then
       call lev%ulevel%sweeper%evaluate(lev, t(1), 1)
    else
       do m = 1, lev%nnodes
          call lev%ulevel%sweeper%evaluate(lev, t(m), m)
       end do
    end if
  end subroutine imk_evaluate_all