m_Accumulator Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	MCT_SUM	=	1
integer,	public,	parameter	::	MCT_AVG	=	2

Interfaces

public interface init

private subroutine init_(aC, iList, iAction, rList, rAction, lsize, num_steps, steps_done)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(out)			::	aC
character(len=*),	intent(in),	optional		::	iList
integer,	intent(in),	optional,	dimension(:)	::	iAction
character(len=*),	intent(in),	optional		::	rList
integer,	intent(in),	optional,	dimension(:)	::	rAction
integer,	intent(in)			::	lsize
integer,	intent(in)			::	num_steps
integer,	intent(in),	optional		::	steps_done

private subroutine inits_(aC, iList, rList, lsize, steps_done)

Arguments

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

private subroutine initv_(aC, bC, lsize, num_steps, steps_done)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(out)			::	aC
type(Accumulator),	intent(in)			::	bC
integer,	intent(in),	optional		::	lsize
integer,	intent(in),	optional		::	num_steps
integer,	intent(in),	optional		::	steps_done

private subroutine initavs_(aC, aV, acsize, steps_done)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(out)			::	aC
type(AttrVect),	intent(in)			::	aV
integer,	intent(in),	optional		::	acsize
integer,	intent(in),	optional		::	steps_done

public interface initp

private subroutine initp_(aC, iAction, rAction, num_steps, steps_done)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(out)			::	aC
integer,	intent(in),	optional,	dimension(:)	::	iAction
integer,	intent(in),	optional,	dimension(:)	::	rAction
integer,	intent(in)			::	num_steps
integer,	intent(in),	optional		::	steps_done

public interface clean

private subroutine clean_(aC, stat)

Arguments

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

public interface initialized

private function initialized_(aC, die_flag, source_name)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC
logical,	intent(in),	optional		::	die_flag
character(len=*),	intent(in),	optional		::	source_name

Return Value logical

public interface lsize

private function lsize_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC

Return Value integer

public interface NumSteps

private function NumSteps_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC

Return Value integer

public interface StepsDone

private function StepsDone_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC

Return Value integer

public interface nIAttr

private function nIAttr_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC

Return Value integer

public interface nRAttr

private function nRAttr_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC

Return Value integer

public interface indexIA

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

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC
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_(aC, item, perrWith, dieWith)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC
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, aC)

Arguments

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

public interface getRList

private subroutine getRList_(item, ith, aC)

Arguments

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

public interface exportIAttr

private subroutine exportIAttr_(aC, AttrTag, outVect, lsize)

Arguments

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

public interface exportRAttr

private subroutine exportRAttrSP_(aC, AttrTag, outVect, lsize)

Arguments

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

private subroutine exportRAttrDP_(aC, AttrTag, outVect, lsize)

Arguments

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

public interface importIAttr

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

Arguments

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

public interface importRAttr

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

Arguments

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

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

Arguments

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

public interface zero

private subroutine zero_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(inout)			::	aC

public interface SharedAttrIndexList

private subroutine aCaCSharedAttrIndexList_(aC1, aC2, attrib, NumShared, Indices1, Indices2)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(in)			::	aC1
type(Accumulator),	intent(in)			::	aC2
character(len=7),	intent(in)			::	attrib
integer,	intent(out)			::	NumShared
integer,			dimension(:), pointer	::	Indices1
integer,			dimension(:), pointer	::	Indices2

private subroutine aVaCSharedAttrIndexList_(aV, aC, attrib, NumShared, Indices1, Indices2)

Arguments

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

public interface accumulate

private subroutine accumulate_(aV, aC)

Arguments

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

public interface average

private subroutine average_(aC)

Arguments

Type	Intent	Optional	Attributes		Name
type(Accumulator),	intent(inout)			::	aC

Derived Types

type, public :: Accumulator

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	num_steps
integer,	public		::	steps_done
integer,	public,	pointer, dimension(:)	::	iAction
integer,	public,	pointer, dimension(:)	::	rAction
type(AttrVect),	public		::	data