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_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 MultiColumn%add_column proc~mapl_finalize->none~add_column none~generate_report ProfileReporter%generate_report proc~mapl_finalize->none~generate_report none~info Logger%info proc~mapl_finalize->none~info proc~get_global_time_profiler get_global_time_profiler proc~mapl_finalize->proc~get_global_time_profiler proc~mapl_return MAPL_Return proc~mapl_finalize->proc~mapl_return proc~mapl_verify MAPL_Verify proc~mapl_finalize->proc~mapl_verify proc~stop_global_time_profiler 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 TextColumn%get_num_rows_separator none~add_column->none~get_num_rows_separator none~get_width TextColumn%get_width none~add_column->none~get_width none~push_back TextColumnVector%push_back none~add_column->none~push_back none~set_width TextColumn%set_width none~add_column->none~set_width none~generate_report_profiler 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_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~4 MultiColumn%get_header none~generate_report_profiler->none~get_header~4 none~get_root_node BaseProfiler%get_root_node none~generate_report_profiler->none~get_root_node none~get_rows~6 MultiColumn%get_rows none~generate_report_profiler->none~get_rows~6 none~capacity TextColumnVector%capacity none~push_back->none~capacity none~resize~2 TextColumnVector%resize none~push_back->none~resize~2

Called by

proc~~mapl_finalize~~CalledByGraph proc~mapl_finalize MAPL_Finalize none~finalize_mpi MAPL_Cap%finalize_mpi none~finalize_mpi->proc~mapl_finalize proc~main main proc~main->proc~mapl_finalize proc~main~2 main proc~main~2->proc~mapl_finalize proc~run~12 ExtDataDriver%run proc~run~12->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 none~run~14 MAPL_Cap%run none~run~14->none~finalize_mpi program~comp_testing_driver comp_testing_driver program~comp_testing_driver->proc~main program~extdata_driver ExtData_Driver program~extdata_driver->proc~run~12 program~regrid_util Regrid_Util program~regrid_util->proc~main~2 program~capdriver_main CapDriver_Main program~capdriver_main->none~run~14

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