mct_mod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
logical,	public		::	mct_usealltoall	=	.false.
logical,	public		::	mct_usevector	=	.false.

Functions

public function mct_aVect_fldIndex(aVect, fld)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVect
character(len=*),	intent(in)			::	fld

Return Value integer

public function mct_gsmap_Identical(gsmap1, gsmap2)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	gsmap1
type(GlobalSegMap),	intent(in)			::	gsmap2

Return Value logical

public function mct_myindex(index, starti, counti)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN)				::	index
integer(kind=IN)				::	starti(:)
integer(kind=IN)				::	counti(:)

Return Value logical

Subroutines

public subroutine mct_aVect_info(flag, aVect, comm, pe, fld, istr)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=IN),	intent(in)			::	flag
type(AttrVect),	intent(in)			::	aVect
integer(kind=IN),	intent(in),	optional		::	comm
integer(kind=IN),	intent(in),	optional		::	pe
character(len=*),	intent(in),	optional		::	fld
character(len=*),	intent(in),	optional		::	istr

public subroutine mct_aVect_sharedFields(aVect1, aVect2, rlistout, ilistout)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVect1
type(AttrVect),	intent(in)			::	aVect2
character(len=*),	intent(inout),	optional		::	rlistout
character(len=*),	intent(inout),	optional		::	ilistout

public subroutine mct_aVect_initSharedFields(aVect1, aVect2, aVect3, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVect1
type(AttrVect),	intent(in)			::	aVect2
type(AttrVect),	intent(inout)			::	aVect3
integer(kind=IN),	intent(in)			::	lsize

public subroutine mct_aVect_getRAttr(aVect, str, data, rcode)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVect
character(len=*),	intent(in)			::	str
real(kind=R8),	intent(out)			::	data(:)
integer(kind=IN),	intent(out)			::	rcode

public subroutine mct_aVect_putRAttr(aVect, str, data, rcode)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aVect
character(len=*),	intent(in)			::	str
real(kind=R8),	intent(in)			::	data(:)
integer(kind=IN),	intent(out)			::	rcode

public subroutine mct_avect_accum(aVin, aVout, rList, TrList, iList, TiList, vector, sharedIndices, counter)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVin
type(AttrVect),	intent(inout)			::	aVout
character(len=*),	intent(in),	optional		::	rList
character(len=*),	intent(in),	optional		::	TrList
character(len=*),	intent(in),	optional		::	iList
character(len=*),	intent(in),	optional		::	TiList
logical,	intent(in),	optional		::	vector
type(AVSharedIndices),	intent(in),	optional		::	sharedIndices
integer,	intent(inout),	optional		::	counter

public subroutine mct_aVect_avg(aVect, counter)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aVect
integer,	intent(in)			::	counter

public subroutine mct_avect_mult(av, av1, fld1, avlist)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	av
type(AttrVect),	intent(in)			::	av1
character(len=*),	intent(in)			::	fld1
character(len=*),	intent(in),	optional		::	avlist

public subroutine mct_avect_vecmult(av, vec, avlist, mask_spval)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	av
real(kind=R8),	intent(in)			::	vec(:)
character(len=*),	intent(in),	optional		::	avlist
logical,	intent(in),	optional		::	mask_spval

public subroutine mct_rearr_rearrange_fldlist(avi, avo, Rearr, vector, alltoall, fldlist, tag)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	avi
type(AttrVect),	intent(inout)			::	avo
type(Rearranger),	intent(in)			::	Rearr
logical,	intent(in)			::	vector
logical,	intent(in)			::	alltoall
character(len=*),	intent(in)			::	fldlist
integer(kind=IN),	intent(in),	optional		::	tag