pputil Module Reference

Data Types
interface	ppsum
interface	ppmax
interface	ppmin
interface	ppbcast
interface	pptransp
interface	pptranspn
interface	guard
interface	ppcfft2
interface	ppcfft2n
interface	ppcfft1
interface	guard3_bsplines_disp

Functions/Subroutines
subroutine, public	ppinit
subroutine, public	ppexit
subroutine	ppsum_r (f, icomm, char_master)
subroutine	ppsum_ra (f, icomm, char_master)
subroutine	ppsum_raa (f, icomm, char_master)
subroutine	ppsum_raaa (f, icomm, char_master)
subroutine	ppsum_raaaa (f, icomm, char_master)
subroutine	ppsum_i (f, icomm, char_master)
subroutine	ppsum_i8 (f, icomm, char_master)
subroutine	ppsum_ia (f, icomm, char_master)
subroutine	ppsum_i8a (f, icomm, char_master)
subroutine	ppsum_iaa (f, icomm, char_master)
subroutine	ppsum_c (f, icomm, char_master)
subroutine	ppsum_ca (f, icomm, char_master)
subroutine	ppsum_caa (f, icomm, char_master)
subroutine	ppsum_caaa (f, icomm, char_master)
subroutine	ppsum_caaaa (f, icomm, char_master)
subroutine	ppmax_r (f, icomm, char_master)
subroutine	ppmax_ra (f, icomm, char_master)
subroutine	ppmax_i (f, icomm, char_master)
subroutine	ppmax_ia (f, icomm, char_master)
subroutine	ppmin_r (f, icomm, char_master)
subroutine	ppmin_ra (f, icomm, char_master)
subroutine	ppmin_i (f, icomm, char_master)
subroutine	ppmin_ia (f, icomm, char_master)
subroutine	ppbcast_r (f, icomm)
subroutine	ppbcast_ra (f, icomm)
subroutine	ppbcast_raa (f, icomm)
subroutine	ppbcast_i (f, icomm)
subroutine	ppbcast_ia (f, icomm)
subroutine	pptransp_c (a, b)
subroutine	pptransp_r (a, b)
subroutine	pptransp_i (a, b)
subroutine	pptransp2_c (a, b)
subroutine	pptransp2_r (a, b)
subroutine	pptransp2_i (a, b)
subroutine	pptranspn_r (a, b)
subroutine	pptranspn_c (a, b)
subroutine	pptranspn_i (a, b)
subroutine	pptransp2n_r (a, b)
subroutine	pptransp2n_c (a, b)
subroutine	pptransp2n_i (a, b)
subroutine, public	pptransp_mul_c (a, b)
subroutine, public	timera (icntrl, string, eltime, barrier, startstop)
subroutine	guard2 (f, nidbas, flag)
subroutine	guard3 (f, nidbas, flag)
subroutine	ppcfft2_2d (isign, f, g)
subroutine	ppcfft2_3d (isign, f, g)
subroutine	ppcfft2n_2d (isign, f, g)
subroutine	ppcfft2n_3d (isign, f, g)
type(mpi_datatype) function, public	blockcols (lda, m, n, otype)
type(mpi_datatype) function, public	blockcols2 (lda1, lda2, m, n, otype)
type(mpi_datatype) function, public	blockrows (lda, m, n, otype)
type(mpi_datatype) function, public	blockrows2 (lda1, lda2, m, n, otype)
subroutine	ppcfft1_3d (isign, f, g)
subroutine, public	barrier
subroutine, public	mpiabort
subroutine, public	pptopology (bycol)
subroutine, public	heapcheck (heapstring, heapstep)
	Print min, max, and task 0 values of the heap size.
subroutine, public	init_gather_type (rtype, block_number, block_size, stride_length, new_extent, mpi_base_type)
subroutine	partners (comm, ids, idr)
logical function	ispower2 (n)
subroutine	increment_tag (tag)
pure integer function, public	get_mpi_comm_int (comm)
pure integer function, public	get_mpi_info_int (info)

Function/Subroutine Documentation

barrier()

subroutine, public pputil::barrier

Here is the call graph for this function:

Here is the caller graph for this function:

blockcols()

type(mpi_datatype) function, public pputil::blockcols	(	integer, intent(in)	lda,
		integer, intent(in)	m,
		integer, intent(in)	n,
		type(mpi_datatype), intent(in)	otype )

Here is the call graph for this function:

Here is the caller graph for this function:

blockcols2()

type(mpi_datatype) function, public pputil::blockcols2	(	integer, intent(in)	lda1,
		integer, intent(in)	lda2,
		integer, intent(in)	m,
		integer, intent(in)	n,
		type(mpi_datatype), intent(in)	otype )

Here is the call graph for this function:

Here is the caller graph for this function:

blockrows()

type(mpi_datatype) function, public pputil::blockrows	(	integer, intent(in)	lda,
		integer, intent(in)	m,
		integer, intent(in)	n,
		type(mpi_datatype)	otype )

Here is the call graph for this function:

Here is the caller graph for this function:

blockrows2()

type(mpi_datatype) function, public pputil::blockrows2	(	integer, intent(in)	lda1,
		integer, intent(in)	lda2,
		integer, intent(in)	m,
		integer, intent(in)	n,
		type(mpi_datatype)	otype )

Here is the call graph for this function:

Here is the caller graph for this function:

get_mpi_comm_int()

pure integer function, public pputil::get_mpi_comm_int

(

type(mpi_comm), intent(in)

comm

)

Here is the call graph for this function:

Here is the caller graph for this function:

get_mpi_info_int()

pure integer function, public pputil::get_mpi_info_int

(

type(mpi_info), intent(in)

info

)

Here is the call graph for this function:

Here is the caller graph for this function:

guard2()

subroutine pputil::guard2 ( real(kind=r8), dimension(:,:), intent(inout) f, integer, intent(in) nidbas, integer, intent(in) flag )

private

guard3()

subroutine pputil::guard3 ( real(kind=r8), dimension(:,:,:), intent(inout) f, integer, intent(in) nidbas, integer, intent(in) flag )

private

heapcheck()

subroutine, public pputil::heapcheck	(	character(*), intent(in)	heapstring,
		integer, intent(in), optional	heapstep )

Print min, max, and task 0 values of the heap size.

Here is the call graph for this function:

Here is the caller graph for this function:

increment_tag()

subroutine pputil::increment_tag ( integer, intent(inout) tag )

private

Here is the caller graph for this function:

init_gather_type()

subroutine, public pputil::init_gather_type	(	type(mpi_datatype), intent(out)	rtype,
		integer, intent(in)	block_number,
		integer, intent(in)	block_size,
		integer, intent(in)	stride_length,
		integer, intent(in)	new_extent,
		type(mpi_datatype), intent(in)	mpi_base_type )

Here is the call graph for this function:

Here is the caller graph for this function:

ispower2()

logical function pputil::ispower2 ( integer, intent(in) n )

private

Here is the call graph for this function:

Here is the caller graph for this function:

mpiabort()

subroutine, public pputil::mpiabort

Here is the call graph for this function:

partners()

subroutine pputil::partners ( type(mpi_comm), intent(in) comm, integer, dimension(:), intent(out) ids, integer, dimension(:), intent(out) idr )

private

Here is the call graph for this function:

Here is the caller graph for this function:

ppbcast_i()

subroutine pputil::ppbcast_i ( integer, intent(inout) f, integer, intent(in) icomm )

private

ppbcast_ia()

subroutine pputil::ppbcast_ia ( integer, dimension (:), intent(inout) f, integer, intent(in) icomm )

private

ppbcast_r()

subroutine pputil::ppbcast_r ( real(kind=r8), intent(inout) f, integer, intent(in) icomm )

private

ppbcast_ra()

subroutine pputil::ppbcast_ra ( real(kind=r8), dimension (:), intent(inout) f, integer, intent(in) icomm )

private

ppbcast_raa()

subroutine pputil::ppbcast_raa ( real(kind=r8), dimension (:,:), intent(inout) f, integer, intent(in) icomm )

private

ppcfft1_3d()

subroutine pputil::ppcfft1_3d ( integer, intent(in) isign, complex(kind=r8), dimension (:,:,:), intent(inout) f, complex(kind=r8), dimension (:,:,:), intent(out) g )

private

ppcfft2_2d()

subroutine pputil::ppcfft2_2d ( integer, intent(in) isign, complex(kind=r8), dimension (:,:), intent(inout) f, complex(kind=r8), dimension (:,:), intent(out) g )

private

ppcfft2_3d()

subroutine pputil::ppcfft2_3d ( integer, intent(in) isign, complex(kind=r8), dimension (:,:,:), intent(inout) f, complex(kind=r8), dimension (:,:,:), intent(out) g )

private

ppcfft2n_2d()

subroutine pputil::ppcfft2n_2d ( integer, intent(in) isign, complex(kind=r8), dimension (:,:), intent(inout) f, complex(kind=r8), dimension (:,:), intent(out) g )

private

ppcfft2n_3d()

subroutine pputil::ppcfft2n_3d ( integer, intent(in) isign, complex(kind=r8), dimension (:,:,:), intent(inout) f, complex(kind=r8), dimension (:,:,:), intent(out) g )

private

ppexit()

subroutine, public pputil::ppexit

Here is the call graph for this function:

Here is the caller graph for this function:

ppinit()

subroutine, public pputil::ppinit

Here is the call graph for this function:

Here is the caller graph for this function:

ppmax_i()

subroutine pputil::ppmax_i ( integer, intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmax_ia()

subroutine pputil::ppmax_ia ( integer, dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmax_r()

subroutine pputil::ppmax_r ( real(kind=r8), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmax_ra()

subroutine pputil::ppmax_ra ( real(kind=r8), dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmin_i()

subroutine pputil::ppmin_i ( integer, intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmin_ia()

subroutine pputil::ppmin_ia ( integer, dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmin_r()

subroutine pputil::ppmin_r ( real(kind=r8), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppmin_ra()

subroutine pputil::ppmin_ra ( real(kind=r8), dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_c()

subroutine pputil::ppsum_c ( complex(kind=r8), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_ca()

subroutine pputil::ppsum_ca ( complex(kind=r8), dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_caa()

subroutine pputil::ppsum_caa ( complex(kind=r8), dimension (:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_caaa()

subroutine pputil::ppsum_caaa ( complex(kind=r8), dimension (:,:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_caaaa()

subroutine pputil::ppsum_caaaa ( complex(kind=r8), dimension (:,:,:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_i()

subroutine pputil::ppsum_i ( integer, intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_i8()

subroutine pputil::ppsum_i8 ( integer(kind=i8), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_i8a()

subroutine pputil::ppsum_i8a ( integer(kind=i8), dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_ia()

subroutine pputil::ppsum_ia ( integer, dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_iaa()

subroutine pputil::ppsum_iaa ( integer, dimension (:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_r()

subroutine pputil::ppsum_r ( real(kind=r8), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_ra()

subroutine pputil::ppsum_ra ( real(kind=r8), dimension (:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_raa()

subroutine pputil::ppsum_raa ( real(kind=r8), dimension (:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_raaa()

subroutine pputil::ppsum_raaa ( real(kind=r8), dimension (:,:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

ppsum_raaaa()

subroutine pputil::ppsum_raaaa ( real(kind=r8), dimension (:,:,:,:), intent(inout) f, integer, intent(in) icomm, character(len=*), intent(in), optional char_master )

private

pptopology()

subroutine, public pputil::pptopology

(

logical, intent(in), optional

bycol

)

Here is the call graph for this function:

Here is the caller graph for this function:

pptransp2_c()

subroutine pputil::pptransp2_c ( complex(kind=r8), dimension(:,:,:), intent(in) a, complex(kind=r8), dimension(:,:,:), intent(out) b )

private

pptransp2_i()

subroutine pputil::pptransp2_i ( integer, dimension(:,:,:), intent(in) a, integer, dimension(:,:,:), intent(out) b )

private

pptransp2_r()

subroutine pputil::pptransp2_r ( real(kind=r8), dimension(:,:,:), intent(in) a, real(kind=r8), dimension(:,:,:), intent(out) b )

private

pptransp2n_c()

subroutine pputil::pptransp2n_c ( complex(kind=r8), dimension(:,:,:), intent(in) a, complex(kind=r8), dimension(:,:,:), intent(out) b )

private

pptransp2n_i()

subroutine pputil::pptransp2n_i ( integer, dimension(:,:,:), intent(in) a, integer, dimension(:,:,:), intent(out) b )

private

pptransp2n_r()

subroutine pputil::pptransp2n_r ( real(kind=r8), dimension(:,:,:), intent(in) a, real(kind=r8), dimension(:,:,:), intent(out) b )

private

pptransp_c()

subroutine pputil::pptransp_c ( complex(kind=r8), dimension(:,:), intent(in) a, complex(kind=r8), dimension(:,:), intent(out) b )

private

pptransp_i()

subroutine pputil::pptransp_i ( integer, dimension(:,:), intent(in) a, integer, dimension(:,:), intent(out) b )

private

pptransp_mul_c()

subroutine, public pputil::pptransp_mul_c	(	complex(kind=r8), dimension(:,:,:), intent(in)	a,
		complex(kind=r8), dimension(:,:,:), intent(inout)	b )

Here is the call graph for this function:

Here is the caller graph for this function:

pptransp_r()

subroutine pputil::pptransp_r ( real(kind=r8), dimension(:,:), intent(in) a, real(kind=r8), dimension(:,:), intent(out) b )

private

pptranspn_c()

subroutine pputil::pptranspn_c ( complex(kind=r8), dimension(:,:), intent(in) a, complex(kind=r8), dimension(:,:), intent(out) b )

private

pptranspn_i()

subroutine pputil::pptranspn_i ( integer, dimension(:,:), intent(in) a, integer, dimension(:,:), intent(out) b )

private

pptranspn_r()

subroutine pputil::pptranspn_r ( real(kind=r8), dimension(:,:), intent(in) a, real(kind=r8), dimension(:,:), intent(out) b )

private

timera()

subroutine, public pputil::timera	(	integer, intent(in)	icntrl,
		character(len=*), intent(in)	string,
		real(kind=r8), intent(out), optional	eltime,
		logical, intent(in), optional	barrier,
		character(len=4), intent(in), optional	startstop )

Here is the call graph for this function:

Here is the caller graph for this function: