MAPL_Finalize Subroutine

public subroutine MAPL_Finalize(unusable, comm, rc)

Arguments

Type IntentOptional Attributes Name
class(KeywordEnforcer), intent(in), optional :: unusable
integer, intent(in), optional :: comm
integer, intent(out), optional :: rc

Calls

proc~~mapl_finalize~~CallsGraph proc~mapl_finalize MAPL_ApplicationSupport::MAPL_Finalize finalize_profiler finalize_profiler proc~mapl_finalize->finalize_profiler mpi_barrier mpi_barrier proc~mapl_finalize->mpi_barrier mpi_comm_rank mpi_comm_rank proc~mapl_finalize->mpi_comm_rank mpi_comm_size mpi_comm_size proc~mapl_finalize->mpi_comm_size none~add_column MAPL_MultiColumn::MultiColumn%add_column proc~mapl_finalize->none~add_column none~generate_report MAPL_ProfileReporter::ProfileReporter%generate_report proc~mapl_finalize->none~generate_report none~info PFL_Logger::Logger%info proc~mapl_finalize->none~info proc~get_global_time_profiler mapl_TimeProfiler_private::get_global_time_profiler proc~mapl_finalize->proc~get_global_time_profiler proc~mapl_return MAPL_ErrorHandlingMod::MAPL_Return proc~mapl_finalize->proc~mapl_return proc~mapl_verify MAPL_ErrorHandlingMod::MAPL_Verify proc~mapl_finalize->proc~mapl_verify proc~stop_global_time_profiler mapl_TimeProfiler::stop_global_time_profiler proc~mapl_finalize->proc~stop_global_time_profiler get_num_rows_header get_num_rows_header none~add_column->get_num_rows_header none~get_num_rows_separator MAPL_TextColumn::TextColumn%get_num_rows_separator none~add_column->none~get_num_rows_separator none~get_width MAPL_TextColumn::TextColumn%get_width none~add_column->none~get_width none~push_back MAPL_TextColumnVector::TextColumnVector%push_back none~add_column->none~push_back none~set_width MAPL_TextColumn::TextColumn%set_width none~add_column->none~set_width none~generate_report_profiler MAPL_ProfileReporter::ProfileReporter%generate_report_profiler none~generate_report->none~generate_report_profiler 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 proc~mapl_verify->proc~mapl_throw_exception proc~stop_global_time_profiler->proc~get_global_time_profiler proc~stop_global_time_profiler->proc~mapl_return proc~stop_global_time_profiler->proc~mapl_verify none~generate_report_profiler->none~get_width none~get_header MAPL_MultiColumn::MultiColumn%get_header none~generate_report_profiler->none~get_header none~get_root_node mapl_BaseProfiler::BaseProfiler%get_root_node none~generate_report_profiler->none~get_root_node none~get_rows MAPL_MultiColumn::MultiColumn%get_rows none~generate_report_profiler->none~get_rows none~capacity MAPL_TextColumnVector::TextColumnVector%capacity none~push_back->none~capacity none~resize MAPL_TextColumnVector::TextColumnVector%resize none~push_back->none~resize

Called by

proc~~mapl_finalize~~CalledByGraph proc~mapl_finalize MAPL_ApplicationSupport::MAPL_Finalize proc~main comp_testing_driver::main proc~main->proc~mapl_finalize proc~main~2 Regrid_Util::main proc~main~2->proc~mapl_finalize proc~run~6 ExtDataDriverMod::ExtDataDriver%run proc~run~6->proc~mapl_finalize program~time_ave time_ave program~time_ave->proc~mapl_finalize program~ut_regridding ut_ReGridding program~ut_regridding->proc~mapl_finalize program~comp_testing_driver comp_testing_driver program~comp_testing_driver->proc~main program~extdata_driver ExtData_Driver program~extdata_driver->proc~run~6 program~regrid_util Regrid_Util program~regrid_util->proc~main~2

Source Code

   subroutine MAPL_Finalize(unusable,comm,rc)
      class (KeywordEnforcer), optional, intent(in) :: unusable
      integer, optional, intent(in) :: comm
      integer, optional, intent(out) :: rc

      integer :: comm_world,status

      _UNUSED_DUMMY(unusable)

      if (present(comm)) then
         comm_world = comm
      else
         comm_world=MPI_COMM_WORLD
      end if
      call stop_global_time_profiler(rc=status)
      _VERIFY(status)
      call report_global_profiler(comm=comm_world)
      call finalize_profiler()
      call finalize_pflogger()
      _RETURN(_SUCCESS)

   end subroutine MAPL_Finalize