newExtDataDriver Function

public function newExtDataDriver(name, set_services, unusable, cap_options, rc) result(driver)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name
procedure :: set_services
class(KeywordEnforcer), intent(in), optional :: unusable
class(MAPL_CapOptions), intent(in), optional :: cap_options
integer, intent(out), optional :: rc

Return Value type(ExtDataDriver)


Calls

proc~~newextdatadriver~~CallsGraph proc~newextdatadriver newExtDataDriver proc~initialize_mpi~3 ExtDataDriver%initialize_mpi proc~newextdatadriver->proc~initialize_mpi~3 proc~mapl_initialize MAPL_Initialize proc~newextdatadriver->proc~mapl_initialize proc~mapl_return MAPL_Return proc~newextdatadriver->proc~mapl_return proc~mapl_verify MAPL_Verify proc~newextdatadriver->proc~mapl_verify proc~initialize_mpi~3->proc~mapl_return proc~initialize_mpi~3->proc~mapl_verify interface~mapl_assert MAPL_Assert proc~initialize_mpi~3->interface~mapl_assert mpi_comm_rank mpi_comm_rank proc~initialize_mpi~3->mpi_comm_rank mpi_comm_size mpi_comm_size proc~initialize_mpi~3->mpi_comm_size mpi_init mpi_init proc~initialize_mpi~3->mpi_init proc~mapl_initialize->proc~mapl_return proc~mapl_initialize->proc~mapl_verify basic_config basic_config proc~mapl_initialize->basic_config filehandler filehandler proc~mapl_initialize->filehandler initialize_profiler initialize_profiler proc~mapl_initialize->initialize_profiler load_file load_file proc~mapl_initialize->load_file proc~mapl_initialize->mpi_comm_rank mpiformatter mpiformatter proc~mapl_initialize->mpiformatter mpilock mpilock proc~mapl_initialize->mpilock none~warning Logger%warning proc~mapl_initialize->none~warning proc~initialize~15 initialize proc~mapl_initialize->proc~initialize~15 proc~start_global_time_profiler start_global_time_profiler proc~mapl_initialize->proc~start_global_time_profiler push_back push_back proc~mapl_initialize->push_back set_formatter set_formatter proc~mapl_initialize->set_formatter set_level set_level proc~mapl_initialize->set_level set_lock set_lock proc~mapl_initialize->set_lock streamhandler streamhandler proc~mapl_initialize->streamhandler 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 proc~start_global_time_profiler->proc~mapl_return proc~start_global_time_profiler->proc~mapl_verify none~start~82 TimeProfiler%start proc~start_global_time_profiler->none~start~82 proc~get_global_time_profiler get_global_time_profiler proc~start_global_time_profiler->proc~get_global_time_profiler none~start_self BaseProfiler%start_self none~start~82->none~start_self

Called by

proc~~newextdatadriver~~CalledByGraph proc~newextdatadriver newExtDataDriver interface~extdatadriver ExtDataDriver interface~extdatadriver->proc~newextdatadriver

Source Code

   function newExtDataDriver(name,set_services, unusable, cap_options, rc) result(driver)
      type(ExtDataDriver) :: driver
      character(*), intent(in) :: name
      procedure() :: set_services
      class(KeywordEnforcer),  optional, intent(in) :: unusable
      class(MAPL_CapOptions), optional, intent(in) :: cap_options
      integer, optional, intent(out) :: rc
     
      integer :: status
      _UNUSED_DUMMY(unusable)

      driver%name = name
      driver%set_services => set_services
      if (present(cap_options)) then
         driver%cap_options = cap_options
      else
         driver%cap_options = MAPL_CapOptions()
      endif
      call driver%initialize_mpi()
      call MAPL_Initialize(comm=MPI_COMM_WORLD, &
           logging_config=driver%cap_options%logging_config, &
           rc=status)
      _VERIFY(status)
      _RETURN(_SUCCESS)
   end function newExtDataDriver