initialize_phases Subroutine

public recursive subroutine initialize_phases(this, unusable, phases, rc)

Arguments

Type IntentOptional Attributes Name
class(ComponentDriver), intent(inout) :: this
class(KeywordEnforcer), intent(in), optional :: unusable
integer, intent(in), optional :: phases(:)
integer, intent(out), optional :: rc

Calls

proc~~initialize_phases~~CallsGraph proc~initialize_phases initialize_phases initialize initialize proc~initialize_phases->initialize proc~mapl_return MAPL_Return proc~initialize_phases->proc~mapl_return proc~mapl_verify MAPL_Verify proc~initialize_phases->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~initialize_phases~~CalledByGraph proc~initialize_phases initialize_phases proc~mapl_run_driver MAPL_run_driver proc~mapl_run_driver->proc~initialize_phases proc~run_geos run_geos proc~run_geos->proc~mapl_run_driver program~geos geos program~geos->proc~run_geos

Source Code

      recursive subroutine initialize_phases(this, unusable, phases, rc)
         class(ComponentDriver), intent(inout) :: this
         class(KeywordEnforcer), optional, intent(in) :: unusable
         integer, optional, intent(in) :: phases(:)
         integer, optional, intent(out) :: rc

         integer :: status
         integer :: i

         do i = 1, size(phases)
            call this % initialize(phase_idx=phases(i), _RC)
         end do
         
         _RETURN(_SUCCESS)
         _UNUSED_DUMMY(unusable)
      end subroutine initialize_phases