finalize_io_clients_servers Subroutine

public subroutine finalize_io_clients_servers(this, unusable, rc)

Type Bound

ExtDataDriver

Arguments

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

Calls

proc~~finalize_io_clients_servers~~CallsGraph proc~finalize_io_clients_servers ExtDataDriverMod::ExtDataDriver%finalize_io_clients_servers none~finalize~3 MAPL_ServerManager::ServerManager%finalize proc~finalize_io_clients_servers->none~finalize~3 none~get_name~2 MAPL_SplitCommunicatorMod::SplitCommunicator%get_name proc~finalize_io_clients_servers->none~get_name~2 none~get_splitcomm MAPL_ServerManager::ServerManager%get_splitcomm proc~finalize_io_clients_servers->none~get_splitcomm none~terminate pFIO_ClientManagerMod::ClientManager%terminate proc~finalize_io_clients_servers->none~terminate proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~finalize_io_clients_servers->proc~mapl_return none~finalize~3->proc~mapl_return none~free_directory_resources pFIO_DirectoryServiceMod::DirectoryService%free_directory_resources none~finalize~3->none~free_directory_resources none~free_sub_comm MAPL_SimpleCommSplitterMod::SimpleCommSplitter%free_sub_comm none~finalize~3->none~free_sub_comm none~report_profile pFIO_AbstractServerMod::AbstractServer%report_profile none~finalize~3->none~report_profile proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify none~finalize~3->proc~mapl_verify none~get_splitcomm->proc~mapl_return none~terminate->proc~mapl_return none~at~11 pFIO_ClientThreadVectorMod::ClientThreadVector%at none~terminate->none~at~11 none~terminate~2 pFIO_ClientThreadMod::ClientThread%terminate none~terminate->none~terminate~2 none~wait_all pFIO_ClientThreadMod::ClientThread%wait_all none~terminate->none~wait_all at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_ThrowMod::MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception none~at_32~5 pFIO_ClientThreadVectorMod::ClientThreadVector%at_32 none~at~11->none~at_32~5 none~free_directory_resources->proc~mapl_return mpi_barrier mpi_barrier none~free_directory_resources->mpi_barrier mpi_comm_free mpi_comm_free none~free_directory_resources->mpi_comm_free mpi_free_mem mpi_free_mem none~free_directory_resources->mpi_free_mem mpi_win_free mpi_win_free none~free_directory_resources->mpi_win_free none~free_mpi_resources pFIO_MpiMutexMod::MpiMutex%free_mpi_resources none~free_directory_resources->none~free_mpi_resources none~free_sub_comm->mpi_comm_free none~report_profile->proc~mapl_return none~report_profile->proc~mapl_verify none~add_column MAPL_MultiColumn::MultiColumn%add_column none~report_profile->none~add_column none~generate_report MAPL_ProfileReporter::ProfileReporter%generate_report none~report_profile->none~generate_report none~reduce MAPL_DistributedProfiler::DistributedProfiler%reduce none~report_profile->none~reduce none~terminate~2->proc~mapl_return none~terminate~2->proc~mapl_verify none~get_connection pFIO_BaseThreadMod::BaseThread%get_connection none~terminate~2->none~get_connection send send none~terminate~2->send none~clear_requesthandle pFIO_BaseThreadMod::BaseThread%clear_RequestHandle none~wait_all->none~clear_requesthandle proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~finalize_io_clients_servers~~CalledByGraph proc~finalize_io_clients_servers ExtDataDriverMod::ExtDataDriver%finalize_io_clients_servers proc~run~6 ExtDataDriverMod::ExtDataDriver%run proc~run~6->proc~finalize_io_clients_servers program~extdata_driver ExtData_Driver program~extdata_driver->proc~run~6

Source Code

   subroutine finalize_io_clients_servers(this, unusable, rc)
     class (ExtDataDriver), target, intent(inout) :: this
     class (KeywordEnforcer), optional, intent(in) :: unusable
     integer, optional, intent(out) :: rc
     type(SplitCommunicator) :: split_comm

     _UNUSED_DUMMY(unusable)
     call this%cap_server%get_splitcomm(split_comm)
     select case(split_comm%get_name())
     case('model')
        call i_Clients%terminate()
        call o_Clients%terminate()
     end select
     call this%cap_server%finalize()
     _RETURN(_SUCCESS)

   end subroutine finalize_io_clients_servers