amisdc_evaluate Subroutine

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

Uses

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

Arguments

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

Contents

Source Code


Source Code

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

    call this%f1eval(lev%Q(m), t, lev%index, lev%F(m,1))
    call this%f2eval(lev%Q(m), t, lev%index, lev%F(m,2))
    call this%f3eval(lev%Q(m), t, lev%index, lev%F(m,3))
  end subroutine amisdc_evaluate