init_all Subroutine

private subroutine init_all(self, cfg)

Call init(cfg) on all registered features.

Type Bound

feature_manager_t

Arguments

Type IntentOptional Attributes Name
class(feature_manager_t), intent(inout) :: self
type(watch_config_t), intent(in) :: cfg

Calls

proc~~init_all~~CallsGraph proc~init_all feature_manager_t%init_all proc~feat_init_noop watch_feature_t%feat_init_noop proc~init_all->proc~feat_init_noop

Called by

proc~~init_all~~CalledByGraph proc~init_all feature_manager_t%init_all proc~watcher_init watcher_t%watcher_init proc~watcher_init->proc~init_all

Source Code

   subroutine init_all(self, cfg)
      class(feature_manager_t), intent(inout) :: self
      type(watch_config_t), intent(in) :: cfg
      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%init(cfg)
      end do
   end subroutine init_all