m_AttrVect Module

Uses

- m_realkinds
- m_List

Interfaces

public interface init

private subroutine init_(aV, iList, rList, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(out)			::	aV
character(len=*),	intent(in),	optional		::	iList
character(len=*),	intent(in),	optional		::	rList
integer,	intent(in),	optional		::	lsize

private subroutine initv_(aV, bV, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(out)			::	aV
type(AttrVect),	intent(in)			::	bV
integer,	intent(in)			::	lsize

private subroutine initl_(aV, iList, rList, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(out)			::	aV
type(List),	intent(in)			::	iList
type(List),	intent(in)			::	rList
integer,	intent(in)			::	lsize

public interface clean

private subroutine clean_(aV, stat)

Arguments

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

public interface zero

private subroutine zero_(aV, zeroReals, zeroInts)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
logical,	intent(in),	optional		::	zeroReals
logical,	intent(in),	optional		::	zeroInts

public interface lsize

private function lsize_(aV)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV

Return Value integer

public interface nIAttr

private function nIAttr_(aV)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV

Return Value integer

public interface nRAttr

private function nRAttr_(aV)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV

Return Value integer

public interface indexIA

private function indexIA_(aV, item, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
character(len=*),	intent(in)			::	item
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

Return Value integer

public interface indexRA

private function indexRA_(aV, item, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
character(len=*),	intent(in)			::	item
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

Return Value integer

public interface getIList

private subroutine getIList_(item, ith, aVect)

Arguments

Type	Intent	Optional	Attributes		Name
type(String),	intent(out)			::	item
integer,	intent(in)			::	ith
type(AttrVect),	intent(in)			::	aVect

public interface getRList

private subroutine getRList_(item, ith, aVect)

Arguments

Type	Intent	Optional	Attributes		Name
type(String),	intent(out)			::	item
integer,	intent(in)			::	ith
type(AttrVect),	intent(in)			::	aVect

public interface getIListToChar

private function getIListToChar_(ith, aVect)

Arguments

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

Return Value character(kind=1), len=size)

public interface getRListToChar

private function getRListToChar_(ith, aVect)

Arguments

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

Return Value character(kind=1), len=size)

public interface exportIList

private subroutine exportIList_(aV, outIList, status)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
type(List),	intent(out)			::	outIList
integer,	intent(out),	optional		::	status

public interface exportRList

private subroutine exportRList_(aV, outRList, status)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
type(List),	intent(out)			::	outRList
integer,	intent(out),	optional		::	status

public interface exportIListToChar

private function exportIListToChar_(aV)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV

Return Value character(kind=1), len=size)

public interface exportRListToChar

private function exportRListToChar_(aV)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV

Return Value character(kind=1), len=size)

public interface appendIAttr

private subroutine appendIAttr_(aV, iList, status)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
character(len=*),	intent(in)			::	iList
integer,	intent(out),	optional		::	status

public interface appendRAttr

private subroutine appendRAttr_(aV, rList, status)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
character(len=*),	intent(in)			::	rList
integer,	intent(out),	optional		::	status

public interface exportIAttr

private subroutine exportIAttr_(aV, AttrTag, outVect, lsize, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
character(len=*),	intent(in)			::	AttrTag
integer,			dimension(:), pointer	::	outVect
integer,	intent(out),	optional		::	lsize
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

public interface exportRAttr

private subroutine exportRAttrSP_(aV, AttrTag, outVect, lsize, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
character(len=*),	intent(in)			::	AttrTag
real(kind=SP),			dimension(:), pointer	::	outVect
integer,	intent(out),	optional		::	lsize
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

private subroutine exportRAttrDP_(aV, AttrTag, outVect, lsize, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
character(len=*),	intent(in)			::	AttrTag
real(kind=DP),			dimension(:), pointer	::	outVect
integer,	intent(out),	optional		::	lsize
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

public interface importIAttr

private subroutine importIAttr_(aV, AttrTag, inVect, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
character(len=*),	intent(in)			::	AttrTag
integer,			dimension(:), pointer	::	inVect
integer,	intent(in),	optional		::	lsize

public interface importRAttr

private subroutine importRAttrSP_(aV, AttrTag, inVect, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
character(len=*),	intent(in)			::	AttrTag
real(kind=SP),			dimension(:), pointer	::	inVect
integer,	intent(in),	optional		::	lsize

private subroutine importRAttrDP_(aV, AttrTag, inVect, lsize)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
character(len=*),	intent(in)			::	AttrTag
real(kind=DP),			dimension(:), pointer	::	inVect
integer,	intent(in),	optional		::	lsize

public interface Copy

private subroutine Copy_(aVin, aVout, rList, TrList, iList, TiList, vector, sharedIndices)

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

public interface RCopy

private subroutine RCopy_(aVin, aVout, vector, sharedIndices)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVin
type(AttrVect),	intent(inout)			::	aVout
logical,	intent(in),	optional		::	vector
type(AVSharedIndicesOneType),	intent(in),	optional		::	sharedIndices

private subroutine RCopyL_(aVin, aVout, rList, TrList, vector)

Arguments

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

public interface ICopy

private subroutine ICopy_(aVin, aVout, vector, sharedIndices)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aVin
type(AttrVect),	intent(inout)			::	aVout
logical,	intent(in),	optional		::	vector
type(AVSharedIndicesOneType),	intent(in),	optional		::	sharedIndices

private subroutine ICopyL_(aVin, aVout, iList, TiList, vector)

Arguments

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

public interface Sort

private subroutine Sort_(aV, key_list, perm, descend, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV
type(List),	intent(in)			::	key_list
integer,			dimension(:), pointer	::	perm
logical,	intent(in),	optional,	dimension(:)	::	descend
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

public interface Permute

private subroutine Permute_(aV, perm, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
integer,	intent(in),		dimension(:)	::	perm
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

public interface Unpermute

private subroutine Unpermute_(aV, perm, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
integer,	intent(in),		dimension(:)	::	perm
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

public interface SortPermute

private subroutine SortPermute_(aV, key_list, descend, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(inout)			::	aV
type(List),	intent(in)			::	key_list
logical,	intent(in),	optional,	dimension(:)	::	descend
character(len=*),	intent(in),	optional		::	perrWith
character(len=*),	intent(in),	optional		::	dieWith

public interface SharedAttrIndexList

private subroutine aVaVSharedAttrIndexList_(aV1, aV2, attrib, NumShared, Indices1, Indices2)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV1
type(AttrVect),	intent(in)			::	aV2
character(len=*),	intent(in)			::	attrib
integer,	intent(out)			::	NumShared
integer,			dimension(:), pointer	::	Indices1
integer,			dimension(:), pointer	::	Indices2

public interface SharedIndices

private subroutine SharedIndices_(aV1, aV2, sharedIndices)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV1
type(AttrVect),	intent(in)			::	aV2
type(AVSharedIndices),	intent(inout)			::	sharedIndices

public interface SharedIndicesOneType

private subroutine SharedIndicesOneType_(aV1, aV2, attrib, sharedIndices)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	aV1
type(AttrVect),	intent(in)			::	aV2
character(len=*),	intent(in)			::	attrib
type(AVSharedIndicesOneType),	intent(inout)			::	sharedIndices

public interface cleanSharedIndices

private subroutine cleanSharedIndices_(sharedIndices, stat)

Arguments

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

public interface cleanSharedIndicesOneType

private subroutine cleanSharedIndicesOneType_(sharedIndices, stat)

Arguments

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

Derived Types

type, public :: AttrVect

Components

Type	Visibility	Attributes		Name		Initial
type(List),	public		::	iList
type(List),	public		::	rList
integer,	public,	dimension(:,:), pointer	::	iAttr
real(kind=FP),	public,	dimension(:,:), pointer	::	rAttr

type, public :: AVSharedIndicesOneType

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	num_indices
logical,	public		::	contiguous
character(len=7),	public		::	data_flag
integer,	public,	dimension(:), pointer	::	aVindices1
integer,	public,	dimension(:), pointer	::	aVindices2

type, public :: AVSharedIndices

Components

Type	Visibility	Attributes		Name		Initial
type(AVSharedIndicesOneType),	public		::	shared_real
type(AVSharedIndicesOneType),	public		::	shared_integer