pf_generic_evaluate_all Subroutine

  1. pf_utils.f90
  2. pf_mod_utils
  3. pf_generic_evaluate_all

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

Generic evaluate all Each sweeper can define its own evaluate_all or use this generic one

Arguments

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

Called by

proc~~pf_generic_evaluate_all~~CalledByGraph proc~pf_generic_evaluate_all pf_generic_evaluate_all proc~imexq_evaluate_all imexQ_evaluate_all proc~imexq_evaluate_all->proc~pf_generic_evaluate_all proc~imex_evaluate_all imex_evaluate_all proc~imex_evaluate_all->proc~pf_generic_evaluate_all proc~magpicard_evaluate_all magpicard_evaluate_all proc~magpicard_evaluate_all->proc~pf_generic_evaluate_all proc~misdc_evaluate_all misdc_evaluate_all proc~misdc_evaluate_all->proc~pf_generic_evaluate_all proc~verlet_evaluate_all verlet_evaluate_all proc~verlet_evaluate_all->proc~pf_generic_evaluate_all proc~amisdc_evaluate_all amisdc_evaluate_all proc~amisdc_evaluate_all->proc~pf_generic_evaluate_all proc~misdcq_evaluate_all misdcQ_evaluate_all proc~misdcq_evaluate_all->proc~pf_generic_evaluate_all

Contents

Source Code

pf_generic_evaluate_all

Source Code

  subroutine pf_generic_evaluate_all(this, lev, t, flags, step)
    class(pf_sweeper_t), intent(in)  :: this
    class(pf_level_t),  intent(inout) :: lev
    real(pfdp),        intent(in)    :: t(:)
    integer, optional, intent(in)    :: flags, step

    integer :: m
        
!     which = 1
!     if(present(flags)) which = flags
    
!     mystep = 1
!     if(present(step)) mystep = step
    
    do m = 1, lev%nnodes
       call lev%ulevel%sweeper%evaluate(lev, t(m), m, flags=flags, step=step)
    end do
  end subroutine pf_generic_evaluate_all