imexQ_evaluate Subroutine

  1. pf_imexQ.f90
  2. pf_mod_imexQ
  3. imexQ_evaluate

public subroutine imexQ_evaluate(this, lev, t, m, flags, step)

Subroutine to evaluate function value at node m

Arguments

Type IntentOptional AttributesName
class(pf_imexQ_t), intent(inout) :: this
class(pf_level_t), intent(inout) :: lev

Current level
real(kind=pfdp), intent(in) :: t

Time at which to evaluate
integer, intent(in) :: m

Node at which to evaluate
integer, intent(in), optional :: flags
integer, intent(in), optional :: step

Contents

Source Code

imexQ_evaluate

Source Code

  subroutine imexQ_evaluate(this, lev, t, m, flags, step)

    class(pf_imexQ_t),  intent(inout) :: this
    class(pf_level_t), intent(inout) :: lev  !!  Current level
    real(pfdp),        intent(in   ) :: t    !!  Time at which to evaluate
    integer,           intent(in   ) :: m    !!  Node at which to evaluate
    integer, intent(in), optional   :: flags, step

    if (this%explicit) &
       call this%f_eval(lev%Q(m), t, lev%index, lev%F(m,1),1)
    if (this%implicit) &
         call this%f_eval(lev%Q(m), t, lev%index, lev%F(m,2),2)
  end subroutine imexQ_evaluate