mpi_debug.F90 File Reference

Go to the source code of this file.

Modules
module	mpi_debug_oct_m

Functions/Subroutines
subroutine, public	mpi_debug_oct_m::mpi_debug_init (rank, info)
subroutine	mpi_debug_oct_m::mpi_debug_open_trace (iunit)
subroutine, public	mpi_debug_oct_m::mpi_debug_statistics ()
subroutine, public	mpi_debug_oct_m::mpi_debug_in (comm, index)
subroutine, public	mpi_debug_oct_m::mpi_debug_out (comm, index)
subroutine	mpi_debug_oct_m::mpi_time_accum (index, sec, sec_diff)

Variables
integer, parameter	mpi_debug_oct_m::c_num_mpi_routines = 18
integer, parameter, public	mpi_debug_oct_m::c_mpi_barrier = 1
integer, parameter, public	mpi_debug_oct_m::c_mpi_scatterv = 2
integer, parameter, public	mpi_debug_oct_m::c_mpi_gatherv = 3
integer, parameter, public	mpi_debug_oct_m::c_mpi_gather = 4
integer, parameter, public	mpi_debug_oct_m::c_mpi_alltoallv = 5
integer, parameter, public	mpi_debug_oct_m::c_mpi_allgatherv = 6
integer, parameter, public	mpi_debug_oct_m::c_mpi_bcast = 7
integer, parameter, public	mpi_debug_oct_m::c_mpi_allreduce = 8
integer, parameter, public	mpi_debug_oct_m::c_mpi_alltoall = 9
integer, parameter, public	mpi_debug_oct_m::c_mpi_allgather = 10
integer, parameter, public	mpi_debug_oct_m::c_mpi_file_read = 11
integer, parameter, public	mpi_debug_oct_m::c_mpi_file_write = 12
integer, parameter, public	mpi_debug_oct_m::c_mpi_send = 13
integer, parameter, public	mpi_debug_oct_m::c_mpi_recv = 14
integer, parameter, public	mpi_debug_oct_m::c_mpi_isend = 15
integer, parameter, public	mpi_debug_oct_m::c_mpi_irecv = 16
integer, parameter, public	mpi_debug_oct_m::c_mpi_wait = 17
integer, parameter, public	mpi_debug_oct_m::c_mpi_waitall = 18
character(len=14), dimension(c_num_mpi_routines), public	mpi_debug_oct_m::mpi_rlabel = (/ 'MPI_BARRIER ', 'MPI_SCATTERV ', 'MPI_GATHERV ', 'MPI_GATHER ', 'MPI_ALLTOALLV ', 'MPI_ALLGATHERV', 'MPI_BCAST ', 'MPI_ALLREDUCE ', 'MPI_ALLTOALL ', 'MPI_ALLGATHER ', 'MPI_FILE_READ ', 'MPI_FILE_WRITE', 'MPI_SEND ', 'MPI_RECV ', 'MPI_ISEND ', 'MPI_IRECV ', 'MPI_WAIT ', 'MPI_WAITALL ' /)
integer, dimension(c_num_mpi_routines), public	mpi_debug_oct_m::call_counter = 0
real(real64), dimension(c_num_mpi_routines), public	mpi_debug_oct_m::sec_accum = 0_real64
real(real64)	mpi_debug_oct_m::sec_in
logical	mpi_debug_oct_m::debug_info
integer	mpi_debug_oct_m::mpi_rank
integer, parameter	mpi_debug_oct_m::unit_offset = 1000
	max_lun is currently 99, i.e. we can hardwire unit_offset above 1000 More...