m_GlobalSegMap Module

Interfaces

public interface init

private subroutine initd_(GSMap, start, length, root, my_comm, comp_id, pe_loc, gsize, numel)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(out)			::	GSMap
integer,	intent(in),		dimension(:)	::	start
integer,	intent(in),		dimension(:)	::	length
integer,	intent(in)			::	root
integer,	intent(in)			::	my_comm
integer,	intent(in)			::	comp_id
integer,		optional,	dimension(:), pointer	::	pe_loc
integer,	intent(in),	optional		::	gsize
integer,	intent(in),	optional		::	numel

private subroutine initr_(GSMap, ngseg, start, length, pe_loc, root, my_comm, comp_id, gsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(out)			::	GSMap
integer,	intent(in)			::	ngseg
integer,	intent(in),		dimension(:)	::	start
integer,	intent(in),		dimension(:)	::	length
integer,	intent(in),		dimension(:)	::	pe_loc
integer,	intent(in)			::	root
integer,	intent(in)			::	my_comm
integer,	intent(in)			::	comp_id
integer,	intent(in),	optional		::	gsize

private subroutine initp_(GSMap, comp_id, ngseg, gsize, start, length, pe_loc)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(out)			::	GSMap
integer,	intent(in)			::	comp_id
integer,	intent(in)			::	ngseg
integer,	intent(in)			::	gsize
integer,	intent(in),		dimension(:)	::	start
integer,	intent(in),		dimension(:)	::	length
integer,	intent(in),		dimension(:)	::	pe_loc

private subroutine initp1_(GSMap, comp_id, ngseg, gsize, all_arrays)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(out)			::	GSMap
integer,	intent(in)			::	comp_id
integer,	intent(in)			::	ngseg
integer,	intent(in)			::	gsize
integer,	intent(in),		dimension(:)	::	all_arrays

private subroutine initp0_(GSMap, comp_id, ngseg, gsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(out)			::	GSMap
integer,	intent(in)			::	comp_id
integer,	intent(in)			::	ngseg
integer,	intent(in)			::	gsize

private subroutine init_index_(GSMap, lindx, my_comm, comp_id, lsize, gsize)

Special case if this processor doesn't have any data indices

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(out)			::	GSMap
integer,	intent(in),		dimension(:)	::	lindx
integer,	intent(in)			::	my_comm
integer,	intent(in)			::	comp_id
integer,	intent(in),	optional		::	lsize
integer,	intent(in),	optional		::	gsize

public interface clean

private subroutine clean_(GSMap, stat)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(inout)			::	GSMap
integer,	intent(out),	optional		::	stat

public interface comp_id

private function comp_id_(GSMap)

Arguments

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

Return Value integer

public interface gsize

private function gsize_(GSMap)

Arguments

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

Return Value integer

public interface GlobalStorage

private function GlobalStorage_(GSMap)

Arguments

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

Return Value integer

public interface ProcessStorage

private function ProcessStorage_(GSMap, PEno)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in)			::	PEno

Return Value integer

public interface OrderedPoints

private subroutine OrderedPoints_(GSMap, PEno, Points)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in)			::	PEno
integer,			dimension(:), pointer	::	Points

public interface lsize

private function lsize_(GSMap, comm)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in)			::	comm

Return Value integer

public interface ngseg

private function ngseg_(GSMap)

Arguments

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

Return Value integer

public interface nlseg

private function nlseg_(GSMap, pID)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in)			::	pID

Return Value integer

public interface max_nlseg

private function max_nlseg_(gsmap)

Arguments

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

Return Value integer

public interface active_pes

private subroutine active_pes_(GSMap, n_active, pe_list)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(out)			::	n_active
integer,		optional,	dimension(:), pointer	::	pe_list

public interface peLocs

private subroutine peLocs_(pointGSMap, npoints, points, pe_locs)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	pointGSMap
integer,	intent(in)			::	npoints
integer,	intent(in),		dimension(:)	::	points
integer,	intent(out),		dimension(:)	::	pe_locs

public interface haloed

private function haloed_(GSMap)

Arguments

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

Return Value logical

public interface rank

private subroutine rank1_(GSMap, i_g, rank)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in)			::	i_g
integer,	intent(out)			::	rank

private subroutine rankm_(GSMap, i_g, num_loc, rank)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in)			::	i_g
integer,	intent(out)			::	num_loc
integer,			dimension(:), pointer	::	rank

public interface Sort

private subroutine Sort_(GSMap, key1, key2, perm)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	GSMap
integer,	intent(in),		dimension(:)	::	key1
integer,	intent(in),	optional,	dimension(:)	::	key2
integer,			dimension(:), pointer	::	perm

public interface Permute

private subroutine PermuteInPlace_(GSMap, perm)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(inout)			::	GSMap
integer,	intent(in),		dimension(:)	::	perm

public interface SortPermute

private subroutine SortPermuteInPlace_(GSMap, key1, key2)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(inout)			::	GSMap
integer,	intent(in),		dimension(:)	::	key1
integer,	intent(in),	optional,	dimension(:)	::	key2

public interface increasing

private function increasing_(gsmap)

Arguments

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

Return Value logical

public interface copy

private subroutine copy_(src, dest)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	src
type(GlobalSegMap),	intent(out)			::	dest

public interface print

private subroutine print_(gsmap, lun)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	gsmap
integer,	intent(in)			::	lun

private subroutine printFromRootnp_(gsmap, mycomm, lun)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(in)			::	gsmap
integer,	intent(in)			::	mycomm
integer,	intent(in)			::	lun

Derived Types

type, public :: GlobalSegMap

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	comp_id
integer,	public		::	ngseg
integer,	public		::	gsize
integer,	public,	dimension(:), pointer	::	start
integer,	public,	dimension(:), pointer	::	length
integer,	public,	dimension(:), pointer	::	pe_loc