imexQ_oc_evaluate_all Subroutine

public subroutine imexQ_oc_evaluate_all(this, lev, t, flags, step)

Evaluate all function values

Arguments

Type IntentOptional AttributesName
class(pf_imexQ_oc_t), intent(inout) :: this
class(pf_level_t), intent(inout) :: lev
real(kind=pfdp), intent(in) :: t(:)
integer, intent(in), optional :: flags
integer, intent(in), optional :: step

Contents

Source Code


Source Code

  subroutine imexQ_oc_evaluate_all(this, lev, t, flags, step)
    !! Evaluate all function values
    class(pf_imexQ_oc_t),  intent(inout) :: this
    class(pf_level_t), intent(inout) :: lev
    real(pfdp),        intent(in   ) :: t(:)
    integer, intent(in), optional   :: flags, step
!     call pf_generic_evaluate_all(this, lev, t, flags, step)
    integer :: m
    
    if (.not.present(flags)) stop "IMEXQ_OC EVAL_ALL WITHOUT FLAGS"
    if (.not.present(step)) stop "IMEXQ_OC EVAL_ALL WITHOUT step"

    
    do m = 1, lev%nnodes
      call this%evaluate(lev, t(m), m, flags, step)
    end do
  end subroutine imexQ_oc_evaluate_all