check_mpi_error Subroutine

public subroutine check_mpi_error(iError, event_string)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iError
character(len=*), intent(in) :: event_string

Calls

proc~~check_mpi_error~~CallsGraph proc~check_mpi_error check_mpi_error mpi_error_string mpi_error_string proc~check_mpi_error->mpi_error_string proc~tem_abort tem_abort proc~check_mpi_error->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~check_mpi_error~~CalledByGraph proc~check_mpi_error check_mpi_error proc~dump_tem_bc_prop dump_tem_BC_prop proc~dump_tem_bc_prop->proc~check_mpi_error proc~dump_tem_bc_realarray dump_tem_BC_realArray proc~dump_tem_bc_realarray->proc~check_mpi_error proc~dump_treelmesh dump_treelmesh proc~dump_treelmesh->proc~check_mpi_error proc~load_tem_bc_prop load_tem_BC_prop proc~load_tem_bc_prop->proc~check_mpi_error proc~load_tem_bc_realarray load_tem_BC_realArray proc~load_tem_bc_realarray->proc~check_mpi_error proc~load_treelmesh load_treelmesh proc~load_treelmesh->proc~check_mpi_error proc~tem_commbuf_int_fillindexed tem_commbuf_int_fillindexed proc~tem_commbuf_int_fillindexed->proc~check_mpi_error proc~tem_commbuf_int_fintyped tem_commbuf_int_fintyped proc~tem_commbuf_int_fintyped->proc~check_mpi_error proc~tem_commbuf_int_gatherindexed tem_commbuf_int_gatherindexed proc~tem_commbuf_int_gatherindexed->proc~check_mpi_error proc~tem_commbuf_long_fillindexed tem_commbuf_long_fillindexed proc~tem_commbuf_long_fillindexed->proc~check_mpi_error proc~tem_commbuf_long_fintyped tem_commbuf_long_fintyped proc~tem_commbuf_long_fintyped->proc~check_mpi_error proc~tem_commbuf_long_gatherindexed tem_commbuf_long_gatherindexed proc~tem_commbuf_long_gatherindexed->proc~check_mpi_error proc~tem_commbuf_real_fillindexed tem_commbuf_real_fillindexed proc~tem_commbuf_real_fillindexed->proc~check_mpi_error proc~tem_commbuf_real_fintyped tem_commbuf_real_fintyped proc~tem_commbuf_real_fintyped->proc~check_mpi_error proc~tem_commbuf_real_gatherindexed tem_commbuf_real_gatherindexed proc~tem_commbuf_real_gatherindexed->proc~check_mpi_error proc~tem_dump_weights tem_dump_weights proc~tem_dump_weights->proc~check_mpi_error proc~tem_init_restart_create_types tem_init_restart_create_types proc~tem_init_restart_create_types->proc~check_mpi_error proc~tem_load_weights tem_load_weights proc~tem_load_weights->proc~check_mpi_error proc~tem_restart_closeread_single tem_restart_closeRead_single proc~tem_restart_closeread_single->proc~check_mpi_error proc~tem_restart_closewrite tem_restart_closeWrite proc~tem_restart_closewrite->proc~check_mpi_error proc~tem_restart_dump_data tem_restart_dump_data proc~tem_restart_dump_data->proc~check_mpi_error proc~tem_restart_finalize tem_restart_finalize proc~tem_restart_finalize->proc~check_mpi_error proc~tem_restart_openread_single tem_restart_openRead_single proc~tem_restart_openread_single->proc~check_mpi_error proc~tem_restart_openwrite tem_restart_openWrite proc~tem_restart_openwrite->proc~check_mpi_error proc~tem_restart_readdata_single tem_restart_readData_single proc~tem_restart_readdata_single->proc~check_mpi_error proc~tem_restart_writedata tem_restart_writeData proc~tem_restart_writedata->proc~check_mpi_error

Source Code

  subroutine check_mpi_error( iError, event_string )
    integer, intent(in) :: iError
    character(len=*), intent(in) :: event_string

    character(len=100) :: IOError
    integer :: resultlen = 100
    integer :: ErrErr

    if (iError /= MPI_SUCCESS) then
      call MPI_ERROR_STRING(iError, IOError, resultlen, ErrErr)
      write(logUnit(0),*) 'MPI Error when '//trim(event_string),': ' &
        &                 //trim(IOError)
      call tem_abort()
    end if
  end subroutine check_mpi_error