misdc_evaluate Subroutine

public subroutine misdc_evaluate(this, lev, t, m)

Uses

  • proc~~misdc_evaluate~~UsesGraph proc~misdc_evaluate misdc_evaluate module~pf_mod_dtype pf_mod_dtype proc~misdc_evaluate->module~pf_mod_dtype iso_c_binding iso_c_binding module~pf_mod_dtype->iso_c_binding

Arguments

Type IntentOptional AttributesName
class(pf_misdc_t), intent(inout) :: this
class(pf_level_t), intent(inout) :: lev
real(kind=pfdp), intent(in) :: t
integer, intent(in) :: m

Called by

proc~~misdc_evaluate~~CalledByGraph proc~misdc_evaluate misdc_evaluate proc~misdc_sweep misdc_sweep proc~misdc_sweep->proc~misdc_evaluate

Contents

Source Code


Source Code

  subroutine misdc_evaluate(this, lev, t, m)
    use pf_mod_dtype
    class(pf_misdc_t), intent(inout) :: this
    real(pfdp),        intent(in)    :: t
    integer,           intent(in)    :: m
    class(pf_level_t),  intent(inout) :: lev

    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 misdc_evaluate