on_after_run_all Subroutine

private subroutine on_after_run_all(self, exitstat, seconds)

Call on_after_run(exitstat, seconds) on all registered features.

Type Bound

feature_manager_t

Arguments

Type IntentOptional Attributes Name
class(feature_manager_t), intent(inout) :: self
integer, intent(in) :: exitstat
real, intent(in) :: seconds

Calls

proc~~on_after_run_all~~CallsGraph proc~on_after_run_all feature_manager_t%on_after_run_all proc~feat_after_noop watch_feature_t%feat_after_noop proc~on_after_run_all->proc~feat_after_noop

Called by

proc~~on_after_run_all~~CalledByGraph proc~on_after_run_all feature_manager_t%on_after_run_all proc~run_once run_once proc~run_once->proc~on_after_run_all proc~watcher_run watcher_t%watcher_run proc~watcher_run->proc~on_after_run_all proc~watcher_init watcher_t%watcher_init proc~watcher_init->proc~run_once

Source Code

   subroutine on_after_run_all(self, exitstat, seconds)
      class(feature_manager_t), intent(inout) :: self
      integer, intent(in) :: exitstat
      real, intent(in) :: seconds
      integer :: i
      if (.not. allocated(self%feat)) return
      do i = 1, size(self%feat)
         if (allocated(self%feat(i)%p)) call self%feat(i)%p%on_after_run(exitstat, seconds)
      end do
   end subroutine on_after_run_all