mpi_debug_oct_m Module Reference

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

Variables
integer, parameter	c_num_mpi_routines = 12
integer, parameter, public	c_mpi_barrier = 1
integer, parameter, public	c_mpi_scatterv = 2
integer, parameter, public	c_mpi_gatherv = 3
integer, parameter, public	c_mpi_gather = 4
integer, parameter, public	c_mpi_alltoallv = 5
integer, parameter, public	c_mpi_allgatherv = 6
integer, parameter, public	c_mpi_bcast = 7
integer, parameter, public	c_mpi_allreduce = 8
integer, parameter, public	c_mpi_alltoall = 9
integer, parameter, public	c_mpi_allgather = 10
integer, parameter, public	c_mpi_file_read = 11
integer, parameter, public	c_mpi_file_write = 12
character(len=14), dimension(c_num_mpi_routines), public	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' /)
integer, dimension(c_num_mpi_routines), public	call_counter = 0
real(real64), dimension(c_num_mpi_routines), public	sec_accum = 0_real64
real(real64)	sec_in
logical	debug_info
integer	mpi_rank
integer, parameter	unit_offset = 1000
	max_lun is currently 99, i.e. we can hardwire unit_offset above 1000 More...

Function/Subroutine Documentation

mpi_debug_init()

subroutine, public mpi_debug_oct_m::mpi_debug_init	(	integer, intent(in)	rank,
		logical, intent(in)	info
	)

Definition at line 181 of file mpi_debug.F90.

mpi_debug_open_trace()

subroutine mpi_debug_oct_m::mpi_debug_open_trace ( integer, intent(out)  iunit )

private

Definition at line 190 of file mpi_debug.F90.

mpi_debug_statistics()

subroutine, public mpi_debug_oct_m::mpi_debug_statistics

Definition at line 204 of file mpi_debug.F90.

mpi_debug_in()

subroutine, public mpi_debug_oct_m::mpi_debug_in	(	type(mpi_comm), intent(in)	comm,
		integer, intent(in)	index
	)

Definition at line 240 of file mpi_debug.F90.

mpi_debug_out()

subroutine, public mpi_debug_oct_m::mpi_debug_out	(	type(mpi_comm), intent(in)	comm,
		integer, intent(in)	index
	)

Definition at line 264 of file mpi_debug.F90.

mpi_time_accum()

subroutine mpi_debug_oct_m::mpi_time_accum ( integer, intent(in)  index, real(real64), intent(in)  sec, real(real64), intent(out)  sec_diff  )

private

Definition at line 289 of file mpi_debug.F90.

Variable Documentation

c_num_mpi_routines

integer, parameter mpi_debug_oct_m::c_num_mpi_routines = 12

private

Definition at line 135 of file mpi_debug.F90.

c_mpi_barrier

integer, parameter, public mpi_debug_oct_m::c_mpi_barrier = 1

Definition at line 137 of file mpi_debug.F90.

c_mpi_scatterv

integer, parameter, public mpi_debug_oct_m::c_mpi_scatterv = 2

Definition at line 137 of file mpi_debug.F90.

c_mpi_gatherv

integer, parameter, public mpi_debug_oct_m::c_mpi_gatherv = 3

Definition at line 137 of file mpi_debug.F90.

c_mpi_gather

integer, parameter, public mpi_debug_oct_m::c_mpi_gather = 4

Definition at line 137 of file mpi_debug.F90.

c_mpi_alltoallv

integer, parameter, public mpi_debug_oct_m::c_mpi_alltoallv = 5

Definition at line 137 of file mpi_debug.F90.

c_mpi_allgatherv

integer, parameter, public mpi_debug_oct_m::c_mpi_allgatherv = 6

Definition at line 137 of file mpi_debug.F90.

c_mpi_bcast

integer, parameter, public mpi_debug_oct_m::c_mpi_bcast = 7

Definition at line 137 of file mpi_debug.F90.

c_mpi_allreduce

integer, parameter, public mpi_debug_oct_m::c_mpi_allreduce = 8

Definition at line 137 of file mpi_debug.F90.

c_mpi_alltoall

integer, parameter, public mpi_debug_oct_m::c_mpi_alltoall = 9

Definition at line 137 of file mpi_debug.F90.

c_mpi_allgather

integer, parameter, public mpi_debug_oct_m::c_mpi_allgather = 10

Definition at line 137 of file mpi_debug.F90.

c_mpi_file_read

integer, parameter, public mpi_debug_oct_m::c_mpi_file_read = 11

Definition at line 137 of file mpi_debug.F90.

c_mpi_file_write

integer, parameter, public mpi_debug_oct_m::c_mpi_file_write = 12

Definition at line 137 of file mpi_debug.F90.

mpi_rlabel

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' /)

Definition at line 151 of file mpi_debug.F90.

call_counter

integer, dimension(c_num_mpi_routines), public mpi_debug_oct_m::call_counter = 0

Definition at line 167 of file mpi_debug.F90.

sec_accum

real(real64), dimension(c_num_mpi_routines), public mpi_debug_oct_m::sec_accum = 0_real64

Definition at line 168 of file mpi_debug.F90.

sec_in

real(real64) mpi_debug_oct_m::sec_in

private

Definition at line 170 of file mpi_debug.F90.

debug_info

logical mpi_debug_oct_m::debug_info

private

Definition at line 172 of file mpi_debug.F90.

mpi_rank

integer mpi_debug_oct_m::mpi_rank

private

Definition at line 173 of file mpi_debug.F90.

unit_offset

integer, parameter mpi_debug_oct_m::unit_offset = 1000

private

max_lun is currently 99, i.e. we can hardwire unit_offset above 1000

Definition at line 176 of file mpi_debug.F90.