misdcQ_evaluate Subroutine

  1. pf_misdcQ.f90
  2. pf_mod_misdcQ
  3. misdcQ_evaluate

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

Subroutine to evaluate function value at node m

Arguments

Type IntentOptional AttributesName
class(pf_misdcQ_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

misdcQ_evaluate

Source Code

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

    class(pf_misdcQ_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

       call this%f_eval(lev%Q(m), t, lev%index, lev%F(m,1),1)
       call this%f_eval(lev%Q(m), t, lev%index, lev%F(m,2),2)
       call this%f_eval(lev%Q(m), t, lev%index, lev%F(m,3),3)       
  end subroutine misdcQ_evaluate