m_MCTWorld Module

Uses

- m_List

Variables

Type	Visibility	Attributes		Name		Initial
type(MCTWorld),	public		::	ThisMCTWorld

Interfaces

public interface initialized

private function initialized_()

Arguments
None
Return Value logical

public interface init

private subroutine initd_(ncomps, globalcomm, mycomm, myid, myids)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncomps
integer,	intent(in)			::	globalcomm
integer,	intent(in)			::	mycomm
integer,	intent(in),	optional		::	myid
integer,		optional,	dimension(:), pointer	::	myids

private subroutine initm_(ncomps, globalcomm, mycomms, myids)

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncomps
integer,	intent(in)			::	globalcomm
integer,			dimension(:), pointer	::	mycomms
integer,			dimension(:), pointer	::	myids

private subroutine initr_(ncomps, globalcomm, rnprocspid, ridGprocid)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncomps
integer,	intent(in)			::	globalcomm
integer,	intent(in),		dimension(:)	::	rnprocspid
integer,	intent(in),		dimension(:,:)	::	ridGprocid

public interface clean

private subroutine clean_()

Arguments
None

public interface printnp

private subroutine printnp_(compid, lun)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	compid
integer,	intent(in)			::	lun

public interface NumComponents

private function NumComponents_(World)

Arguments

Type	Intent	Optional	Attributes		Name
type(MCTWorld),	intent(in)			::	World

Return Value integer

public interface ComponentNumProcs

private function ComponentNumProcs_(World, comp_id)

Arguments

Type	Intent	Optional	Attributes		Name
type(MCTWorld),	intent(in)			::	World
integer,	intent(in)			::	comp_id

Return Value integer

public interface ComponentToWorldRank

private function ComponentToWorldRank_(comp_rank, comp_id, World)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comp_rank
integer,	intent(in)			::	comp_id
type(MCTWorld),	intent(in)			::	World

Return Value integer

public interface ComponentRootRank

private function ComponentRootRank_(comp_id, World)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	comp_id
type(MCTWorld),	intent(in)			::	World

Return Value integer

Derived Types

type, public :: MCTWorld

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	MCT_comm
integer,	public		::	ncomps
integer,	public		::	mygrank
integer,	public,	dimension(:), pointer	::	nprocspid	=>	null()
integer,	public,	dimension(:,:), pointer	::	idGprocid	=>	null()