ESMF_MapperRunSeqUtilMod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
character(len=*),	private,	parameter	::	version	=	'$Id$'
integer,	private,	parameter	::	ESMF_COMP_PHASE_TOKEN	=	3
integer,	private,	parameter	::	ESMF_CONN_TOKEN	=	4
integer,	private,	parameter	::	ESMF_OTHER_TOKEN	=	7
integer,	private,	parameter	::	ESMF_RUNSEQ_BEGIN_TOKEN	=	5
integer,	private,	parameter	::	ESMF_RUNSEQ_END_TOKEN	=	6
integer,	private,	parameter	::	ESMF_RUNSEQ_MAXTOKENS	=	2
integer,	private,	parameter	::	ESMF_RUNSEQ_MAXTOKENSTR	=	128
integer,	private,	parameter	::	ESMF_RUNSEQ_TOK1	=	1
integer,	private,	parameter	::	ESMF_RUNSEQ_TOK2	=	2
integer,	private,	parameter	::	ESMF_TIMELOOP_BEGIN_TOKEN	=	1
integer,	private,	parameter	::	ESMF_TIMELOOP_END_TOKEN	=	2

Derived Types

type, public :: ESMF_MapperRunSeqDepGraph

Components

Type	Visibility	Attributes		Name		Initial
type(ESMF_MapperRunSeqDepGraphNode),	public,	dimension(:), pointer	::	nodes	=>	null()

type, private :: ESMF_MapperRunSeqDepGraphNode

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nchildren
type(ESMF_MapperRunSeqDepGraphNodePtr),	public,	dimension(:), allocatable	::	children
type(ESMF_RunSeqTokenizedLine),	public		::	line

type, private :: ESMF_MapperRunSeqDepGraphNodePtr

Components

Type	Visibility	Attributes		Name		Initial
type(ESMF_MapperRunSeqDepGraphNode),	public,	pointer	::	ptr	=>	null()

type, private :: ESMF_RunSeqTimeLoopInfo

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	runSeqLoopLineNum
integer,	public		::	timeLoopCount
real,	public		::	timeLoopTime

type, private :: ESMF_RunSeqTimeLoopStack

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	runSeqTimeLoopInfoIdx

type, private :: ESMF_RunSeqTokenizedCode

Components

Type	Visibility	Attributes		Name		Initial
type(ESMF_RunSeqTokenizedLine),	public,	dimension(:), allocatable	::	line

type, private :: ESMF_RunSeqTokenizedLine

Components

Type	Visibility	Attributes		Name		Initial
character(len=ESMF_RUNSEQ_MAXTOKENSTR),	public		::	tok(ESMF_RUNSEQ_MAXTOKENS)
integer,	public		::	lnum
integer,	public		::	tok_type

Functions

private function ESMF_FullStrTrim(str) result(ostr)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	str

Return Value character(len=ESMF_MAXSTR)

Subroutines

private subroutine ESMF_GetRunSeqInfo(runSeqCode, tokRunSeq, nTimeLoops, nExecLines, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=ESMF_MAXSTR),	intent(in),		dimension(:)	::	runSeqCode
type(ESMF_RunSeqTokenizedCode),	intent(in)			::	tokRunSeq
integer,	intent(out)			::	nTimeLoops
integer,	intent(out)			::	nExecLines
integer,	intent(out),	optional		::	rc

private subroutine ESMF_MapperCreateDepGraph(runSeqDepGraph, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_MapperRunSeqDepGraph),	intent(inout)			::	runSeqDepGraph
integer,	intent(out),	optional		::	rc

private subroutine ESMF_MapperPrintDepGraph(runSeqDepGraph, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_MapperRunSeqDepGraph),	intent(inout)			::	runSeqDepGraph
integer,	intent(out),	optional		::	rc

private subroutine ESMF_MapperPrintDepGraphNode(node, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_MapperRunSeqDepGraphNode),	intent(inout)			::	node
integer,	intent(out),	optional		::	rc

public subroutine ESMF_MapperProcessRunSeq(runSeqCode, runSeqDepGraph, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=ESMF_MAXSTR),	intent(in),		dimension(:)	::	runSeqCode
type(ESMF_MapperRunSeqDepGraph),	intent(out)			::	runSeqDepGraph
integer,	intent(out),	optional		::	rc

private subroutine ESMF_MapperTokenizeRunSeq(runSeqCode, tokRunSeq, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=ESMF_MAXSTR),	intent(in),		dimension(:)	::	runSeqCode
type(ESMF_RunSeqTokenizedCode),	intent(out)			::	tokRunSeq
integer,	intent(out),	optional		::	rc

private subroutine GetSeqCodeDbgInfo(runSeqCode, tokRunSeq, curLine, dbgStr, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=ESMF_MAXSTR),	intent(in),		dimension(:)	::	runSeqCode
type(ESMF_RunSeqTokenizedCode),	intent(in)			::	tokRunSeq
integer,	intent(in)			::	curLine
character(len=ESMF_MAXSTR),	intent(out)			::	dbgStr
integer,	intent(out),	optional		::	rc