InputProcessor – EnergyPlusFortran

Used By

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private,	parameter	::	ObjectDefAllocInc	=	100
integer,	private,	parameter	::	ANArgsDefAllocInc	=	500
integer,	private,	parameter	::	SectionDefAllocInc	=	20
integer,	private,	parameter	::	SectionsIDFAllocInc	=	20
integer,	private,	parameter	::	ObjectsIDFAllocInc	=	500
integer,	private,	parameter	::	MaxObjectNameLength	=	MaxNameLength
integer,	private,	parameter	::	MaxSectionNameLength	=	MaxNameLength
integer,	private,	parameter	::	MaxAlphaArgLength	=	MaxNameLength
integer,	private,	parameter	::	MaxInputLineLength	=	500
integer,	private,	parameter	::	MaxFieldNameLength	=	140
character(len=1),	private,	parameter	::	Blank	=	' '
character(len=*),	private,	parameter	::	AlphaNum	=	'ANan'
character(len=*),	private,	parameter	::	fmta	=	'(A)'
real(kind=r64),	private,	parameter	::	DefAutoSizeValue	=	AutoSize
real(kind=r64),	private,	parameter	::	DefAutoCalculateValue	=	AutoCalculate
integer,	private		::	NumObjectDefs	=	0
integer,	private		::	NumSectionDefs	=	0
integer,	private		::	MaxObjectDefs	=	0
integer,	private		::	MaxSectionDefs	=	0
integer,	private		::	IDDFile	=	0
integer,	private		::	IDFFile	=	0
integer,	private		::	NumLines	=	0
integer,	private		::	MaxIDFRecords	=	0
integer,	private		::	NumIDFRecords	=	0
integer,	private		::	MaxIDFSections	=	0
integer,	private		::	NumIDFSections	=	0
integer,	private,	EXTERNAL	::	GetNewUnitNumber
integer,	private		::	EchoInputFile	=	0
integer,	private		::	InputLineLength	=	0
integer,	private		::	MaxAlphaArgsFound	=	0
integer,	private		::	MaxNumericArgsFound	=	0
integer,	private		::	NumAlphaArgsFound	=	0
integer,	private		::	NumNumericArgsFound	=	0
integer,	private		::	MaxAlphaIDFArgsFound	=	0
integer,	private		::	MaxNumericIDFArgsFound	=	0
integer,	private		::	MaxAlphaIDFDefArgsFound	=	0
integer,	private		::	MaxNumericIDFDefArgsFound	=	0
integer,	public		::	NumOutOfRangeErrorsFound	=	0
integer,	public		::	NumBlankReqFieldFound	=	0
integer,	public		::	NumMiscErrorsFound	=	0
integer,	private		::	MinimumNumberOfFields	=	0
integer,	private		::	NumObsoleteObjects	=	0
integer,	private		::	TotalAuditErrors	=	0
integer,	private		::	NumSecretObjects	=	0
logical,	private		::	ProcessingIDD	=	.false.
character(len=MaxInputLineLength+50),	private		::	InputLine	=	Blank
character(len=MaxSectionNameLength),	private,	ALLOCATABLE, DIMENSION(:)	::	ListofSections
character(len=MaxObjectNameLength),	private,	ALLOCATABLE, DIMENSION(:)	::	ListofObjects
integer,	private,	ALLOCATABLE, DIMENSION(:)	::	iListOfObjects
integer,	private,	ALLOCATABLE, DIMENSION(:)	::	ObjectGotCount
integer,	private,	ALLOCATABLE, DIMENSION(:)	::	ObjectStartRecord
character(len=MaxObjectNameLength),	private		::	CurrentFieldName	=	Blank
character(len=MaxObjectNameLength),	private,	ALLOCATABLE, DIMENSION(:)	::	ObsoleteObjectsRepNames
character(len=MaxObjectNameLength),	private		::	ReplacementName	=	Blank
logical,	public		::	OverallErrorFlag	=	.false.
logical,	private		::	EchoInputLine	=	.true.
logical,	private		::	ReportRangeCheckErrors	=	.true.
logical,	private		::	FieldSet	=	.false.
logical,	private		::	RequiredField	=	.false.
logical,	private		::	RetainCaseFlag	=	.false.
logical,	private		::	ObsoleteObject	=	.false.
logical,	private		::	RequiredObject	=	.false.
logical,	private		::	UniqueObject	=	.false.
logical,	private		::	ExtensibleObject	=	.false.
logical,	private		::	StripCR	=	.false.
integer,	private		::	ExtensibleNumFields	=	0
logical,	private,	ALLOCATABLE, DIMENSION(:)	::	IDFRecordsGotten
type(ObjectsDefinition),	private,	ALLOCATABLE, DIMENSION(:)	::	ObjectDef
type(SectionsDefinition),	private,	ALLOCATABLE, DIMENSION(:)	::	SectionDef
type(FileSectionsDefinition),	private,	ALLOCATABLE, DIMENSION(:)	::	SectionsonFile
type(LineDefinition),	private,	SAVE	::	LineItem
type(LineDefinition),	private,	ALLOCATABLE, DIMENSION(:)	::	IDFRecords
type(SecretObjects),	private,	ALLOCATABLE, DIMENSION(:)	::	RepObjects

Derived Types

type, private :: RangeCheckDef

Components

Type	Visibility	Attributes		Name		Initial
logical,	public		::	MinMaxChk	=	.false.
integer,	public		::	FieldNumber	=	0
character(len=MaxFieldNameLength),	public		::	FieldName	=	Blank
character(len=32),	public,	DIMENSION(2)	::	MinMaxString	=	Blank
real(kind=r64),	public,	DIMENSION(2)	::	MinMaxValue	=	0.0d0
integer,	public,	DIMENSION(2)	::	WhichMinMax	=	0
logical,	public		::	DefaultChk	=	.false.
real(kind=r64),	public		::	Default	=	0.0d0
logical,	public		::	DefAutoSize	=	.false.
logical,	public		::	AutoSizable	=	.false.
real(kind=r64),	public		::	AutoSizeValue	=	0.0d0
logical,	public		::	DefAutoCalculate	=	.false.
logical,	public		::	AutoCalculatable	=	.false.
real(kind=r64),	public		::	AutoCalculateValue	=	0.0d0

type, private :: ObjectsDefinition

Components

Type	Visibility	Attributes		Name		Initial
character(len=MaxObjectNameLength),	public		::	Name	=	Blank
integer,	public		::	NumParams	=	0
integer,	public		::	NumAlpha	=	0
integer,	public		::	NumNumeric	=	0
integer,	public		::	MinNumFields	=	0
logical,	public		::	NameAlpha1	=	.false.
logical,	public		::	UniqueObject	=	.false.
logical,	public		::	RequiredObject	=	.false.
logical,	public		::	ExtensibleObject	=	.false.
integer,	public		::	ExtensibleNum	=	0
integer,	public		::	LastExtendAlpha	=	0
integer,	public		::	LastExtendNum	=	0
integer,	public		::	ObsPtr	=	0
logical(kind=1),	public,	ALLOCATABLE, DIMENSION(:)	::	AlphaorNumeric
logical(kind=1),	public,	ALLOCATABLE, DIMENSION(:)	::	ReqField
logical(kind=1),	public,	ALLOCATABLE, DIMENSION(:)	::	AlphRetainCase
character(len=MaxFieldNameLength),	public,	ALLOCATABLE, DIMENSION(:)	::	AlphFieldChks
character(len=MaxNameLength),	public,	ALLOCATABLE, DIMENSION(:)	::	AlphFieldDefs
type(RangeCheckDef),	public,	ALLOCATABLE, DIMENSION(:)	::	NumRangeChks
integer,	public		::	NumFound	=	0

type, private :: SectionsDefinition

Components

Type	Visibility	Attributes		Name		Initial
character(len=MaxSectionNameLength),	public		::	Name	=	Blank
integer,	public		::	NumFound	=	0

type, private :: FileSectionsDefinition

Components

Type	Visibility		Name		Initial
character(len=MaxSectionNameLength),	public	::	Name	=	Blank
integer,	public	::	FirstRecord	=	0
integer,	public	::	FirstLineNo	=	0
integer,	public	::	LastRecord	=	0

type, private :: LineDefinition

Components

Type	Visibility	Attributes		Name		Initial
character(len=MaxObjectNameLength),	public		::	Name	=	Blank
integer,	public		::	NumAlphas	=	0
integer,	public		::	NumNumbers	=	0
integer,	public		::	ObjectDefPtr	=	0
character(len=MaxAlphaArgLength),	public,	ALLOCATABLE, DIMENSION(:)	::	Alphas
logical,	public,	ALLOCATABLE, DIMENSION(:)	::	AlphBlank
real(kind=r64),	public,	ALLOCATABLE, DIMENSION(:)	::	Numbers
logical,	public,	ALLOCATABLE, DIMENSION(:)	::	NumBlank

type, private :: SecretObjects

Components

Type	Visibility		Name		Initial
character(len=MaxObjectNameLength),	public	::	OldName	=	Blank
character(len=MaxObjectNameLength),	public	::	NewName	=	Blank
logical,	public	::	Deleted	=	.false.
logical,	public	::	Used	=	.false.
logical,	public	::	Transitioned	=	.false.
logical,	public	::	TransitionDefer	=	.false.

Functions

public function GetNumSectionsFound(SectionWord)

Arguments

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

Return Value integer

private function GetNumSectionsinInput()

Arguments

None

Return Value integer

public function GetNumObjectsFound(ObjectWord)

Arguments

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

Return Value integer

public function GetObjectItemNum(ObjType, ObjName)

Arguments

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

Return Value integer

public function ProcessNumber(String, ErrorFlag) result(rProcessNumber)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	String
logical,	intent(out)			::	ErrorFlag

Return Value real(kind=r64)

public function FindIteminList(String, ListofItems, NumItems)

Arguments

Type	Intent	Attributes		Name
character(len=*),	intent(in)		::	String
character(len=*),	intent(in),	DIMENSION(:)	::	ListofItems
integer,	intent(in)		::	NumItems

Return Value integer

public function FindIteminSortedList(String, ListofItems, NumItems)

Arguments

Type	Intent	Attributes		Name
character(len=*),	intent(in)		::	String
character(len=*),	intent(in),	DIMENSION(:)	::	ListofItems
integer,	intent(in)		::	NumItems

Return Value integer

public function FindItem(String, ListofItems, NumItems)

Arguments

Type	Intent	Attributes		Name
character(len=*),	intent(in)		::	String
character(len=*),	intent(in),	DIMENSION(:)	::	ListofItems
integer,	intent(in)		::	NumItems

Return Value integer

public function MakeUPPERCase(InputString) result(ResultString)

Arguments

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

Return Value character(len=len(InputString))

public function SameString(TestString1, TestString2)

Arguments

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

Return Value logical

public function GetNumRangeCheckErrorsFound()

Arguments

None

Return Value integer

private function GetNumObjectsInIDD()

Arguments

None

Return Value integer

private function FindFirstRecord(UCObjType) result(StartPointer)

Arguments

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

Return Value integer

private function FindNextRecord(UCObjType, StartPointer) result(NextPointer)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	UCObjType
integer,	intent(in)			::	StartPointer

Return Value integer

private function IPTrimSigDigits(IntegerValue) result(OutputString)

Arguments

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

Return Value character(len=32)

Subroutines

public subroutine ProcessInput()

Arguments

None

private subroutine ProcessDataDicFile(ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(inout)			::	ErrorsFound

private subroutine AddSectionDef(ProposedSection, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ProposedSection
logical,	intent(inout)			::	ErrorsFound

private subroutine AddObjectDefandParse(ProposedObject, CurPos, EndofFile, ErrorsFound)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	ProposedObject
integer,	intent(inout)	::	CurPos
logical,	intent(inout)	::	EndofFile
logical,	intent(inout)	::	ErrorsFound

private subroutine ProcessInputDataFile()

Arguments

None

private subroutine ValidateSection(ProposedSection, LineNo)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ProposedSection
integer,	intent(in)			::	LineNo

private subroutine ValidateObjectandParse(ProposedObject, CurPos, EndofFile)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	ProposedObject
integer,	intent(inout)	::	CurPos
logical,	intent(inout)	::	EndofFile

private subroutine ValidateSectionsInput()

Arguments

None

private subroutine GetListofSectionsinInput(SectionList, NuminList)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(out),		DIMENSION(:)	::	SectionList
integer,	intent(out)			::	NuminList

private subroutine GetRecordLocations(Which, FirstRecord, LastRecord)

Arguments

Type	Intent		Name
integer,	intent(in)	::	Which
integer,	intent(out)	::	FirstRecord
integer,	intent(out)	::	LastRecord

public subroutine GetObjectItem(Object, Number, Alphas, NumAlphas, Numbers, NumNumbers, Status, NumBlank, AlphaBlank, AlphaFieldNames, NumericFieldNames)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	Object
integer,	intent(in)			::	Number
character(len=*),	intent(out),		DIMENSION(:)	::	Alphas
integer,	intent(out)			::	NumAlphas
real(kind=r64),	intent(out),		DIMENSION(:)	::	Numbers
integer,	intent(out)			::	NumNumbers
integer,	intent(out)			::	Status
logical,	intent(out),	optional	DIMENSION(:)	::	NumBlank
logical,	intent(out),	optional	DIMENSION(:)	::	AlphaBlank
character(len=*),		optional	DIMENSION(:)	::	AlphaFieldNames
character(len=*),		optional	DIMENSION(:)	::	NumericFieldNames

private subroutine TellMeHowManyObjectItemArgs(Object, Number, NumAlpha, NumNumbers, Status)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	Object
integer,	intent(in)	::	Number
integer,	intent(out)	::	NumAlpha
integer,	intent(out)	::	NumNumbers
integer,	intent(out)	::	Status

private subroutine GetObjectItemfromFile(Which, ObjectWord, AlphaArgs, NumAlpha, NumericArgs, NumNumeric, AlphaBlanks, NumericBlanks)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	Which
character(len=*),	intent(out)			::	ObjectWord
character(len=*),	intent(out),	optional	DIMENSION(:)	::	AlphaArgs
integer,	intent(out)			::	NumAlpha
real(kind=r64),	intent(out),	optional	DIMENSION(:)	::	NumericArgs
integer,	intent(out)			::	NumNumeric
logical,	intent(out),	optional	DIMENSION(:)	::	AlphaBlanks
logical,	intent(out),	optional	DIMENSION(:)	::	NumericBlanks

private subroutine ReadInputLine(UnitNumber, CurPos, BlankLine, InputLineLength, EndofFile, MinMax, WhichMinMax, MinMaxString, Value, Default, DefString, AutoSizable, AutoCalculatable, RetainCase, ErrorsFound)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	UnitNumber
integer,	intent(inout)		::	CurPos
logical,	intent(inout)		::	BlankLine
integer,	intent(inout)		::	InputLineLength
logical,	intent(inout)		::	EndofFile
logical,	intent(inout),	optional	::	MinMax
integer,	intent(inout),	optional	::	WhichMinMax
character(len=*),	intent(inout),	optional	::	MinMaxString
real(kind=r64),	intent(inout),	optional	::	Value
logical,	intent(inout),	optional	::	Default
character(len=*),	intent(inout),	optional	::	DefString
logical,	intent(inout),	optional	::	AutoSizable
logical,	intent(inout),	optional	::	AutoCalculatable
logical,	intent(inout),	optional	::	RetainCase
logical,	intent(inout),	optional	::	ErrorsFound

private subroutine ExtendObjectDefinition(ObjectNum, NumNewArgsLimit)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ObjectNum
integer,	intent(inout)			::	NumNewArgsLimit

private subroutine ProcessMinMaxDefLine(UCInputLine, WhichMinMax, MinMaxString, Value, DefaultString, ErrLevel)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	UCInputLine
integer,	intent(out)	::	WhichMinMax
character(len=*),	intent(out)	::	MinMaxString
real(kind=r64),	intent(out)	::	Value
character(len=*),	intent(out)	::	DefaultString
integer,	intent(out)	::	ErrLevel

public subroutine VerifyName(NameToVerify, NamesList, NumOfNames, ErrorFound, IsBlank, StringToDisplay)

Arguments

Type	Intent	Attributes		Name
character(len=*),	intent(in)		::	NameToVerify
character(len=*),	intent(in),	DIMENSION(:)	::	NamesList
integer,	intent(in)		::	NumOfNames
logical,	intent(out)		::	ErrorFound
logical,	intent(out)		::	IsBlank
character(len=*),	intent(in)		::	StringToDisplay

public subroutine RangeCheck(ErrorsFound, WhatFieldString, WhatObjectString, ErrorLevel, LowerBoundString, LowerBoundCondition, UpperBoundString, UpperBoundCondition, ValueString, WhatObjectName)

Arguments

Type	Intent	Optional		Name
logical,	intent(inout)		::	ErrorsFound
character(len=*),	intent(in)		::	WhatFieldString
character(len=*),	intent(in)		::	WhatObjectString
character(len=*),	intent(in)		::	ErrorLevel
character(len=*),	intent(in),	optional	::	LowerBoundString
logical,	intent(in),	optional	::	LowerBoundCondition
character(len=*),	intent(in),	optional	::	UpperBoundString
logical,	intent(in),	optional	::	UpperBoundCondition
character(len=*),	intent(in),	optional	::	ValueString
character(len=*),	intent(in),	optional	::	WhatObjectName

private subroutine InternalRangeCheck(Value, FieldNumber, WhichObject, PossibleAlpha, AutoSizable, AutoCalculatable)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	Value
integer,	intent(in)	::	FieldNumber
integer,	intent(in)	::	WhichObject
character(len=*),	intent(in)	::	PossibleAlpha
logical,	intent(in)	::	AutoSizable
logical,	intent(in)	::	AutoCalculatable

private subroutine TurnOnReportRangeCheckErrors()

Arguments

None

private subroutine TurnOffReportRangeCheckErrors()

Arguments

None

private subroutine GetListOfObjectsInIDD(ObjectNames, Number)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(out),		DIMENSION(:)	::	ObjectNames
integer,	intent(out)			::	Number

private subroutine GetObjectDefInIDD(ObjectWord, NumArgs, AlphaorNumeric, RequiredFields, MinNumFields)

Arguments

Type	Intent	Attributes		Name
character(len=*),	intent(in)		::	ObjectWord
integer,	intent(out)		::	NumArgs
logical,	intent(out),	DIMENSION(:)	::	AlphaorNumeric
logical,	intent(out),	DIMENSION(:)	::	RequiredFields
integer,	intent(out)		::	MinNumFields

public subroutine GetObjectDefMaxArgs(ObjectWord, NumArgs, NumAlpha, NumNumeric)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	ObjectWord
integer,	intent(out)	::	NumArgs
integer,	intent(out)	::	NumAlpha
integer,	intent(out)	::	NumNumeric

private subroutine GetIDFRecordsStats(iNumberOfRecords, iNumberOfDefaultedFields, iTotalFieldsWithDefaults, iNumberOfAutosizedFields, iTotalAutoSizableFields, iNumberOfAutoCalcedFields, iTotalAutoCalculatableFields)

Arguments

Type	Intent		Name
integer,	intent(inout)	::	iNumberOfRecords
integer,	intent(inout)	::	iNumberOfDefaultedFields
integer,	intent(inout)	::	iTotalFieldsWithDefaults
integer,	intent(inout)	::	iNumberOfAutosizedFields
integer,	intent(inout)	::	iTotalAutoSizableFields
integer,	intent(inout)	::	iNumberOfAutoCalcedFields
integer,	intent(inout)	::	iTotalAutoCalculatableFields

public subroutine ReportOrphanRecordObjects()

Arguments

None

private subroutine InitSecretObjects()

Arguments

None

private subroutine MakeTransition(ObjPtr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	ObjPtr

private subroutine AddRecordFromSection(Which)

Arguments

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

public subroutine PreProcessorCheck(PreP_Fatal)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(inout)			::	PreP_Fatal

public subroutine CompactObjectsCheck()

Arguments

None

public subroutine ParametricObjectsCheck()

Arguments

None

public subroutine PreScanReportingVariables()

Arguments

None

private subroutine AddVariablesForMonthlyReport(ReportName)

Arguments

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

private subroutine AddRecordToOutputVariableStructure(KeyValue, VariableName)

Arguments

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

private subroutine ReAllocateAndPreserveOutputVariablesForSimulation()

Arguments

None

private subroutine DumpCurrentLineBuffer(StartLine, cStartLine, cStartName, CurLine, NumConxLines, LineBuf, CurQPtr)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	StartLine
character(len=*),	intent(in)		::	cStartLine
character(len=*),	intent(in)		::	cStartName
integer,	intent(in)		::	CurLine
integer,	intent(in)		::	NumConxLines
character(len=*),	intent(in),	DIMENSION(:)	::	LineBuf
integer,	intent(in)		::	CurQPtr

private subroutine ShowAuditErrorMessage(Severity, ErrorMessage)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	Severity
character(len=*)				::	ErrorMessage

InputProcessor Module

Uses:

Used By

Variables

Derived Types

type, private :: RangeCheckDef

Components

type, private :: ObjectsDefinition

Components

type, private :: SectionsDefinition

Components

type, private :: FileSectionsDefinition

Components

type, private :: LineDefinition

Components

type, private :: SecretObjects

Components

Functions

public function GetNumSectionsFound(SectionWord)

Arguments

Return Value integer

private function GetNumSectionsinInput()

Arguments

Return Value integer

public function GetNumObjectsFound(ObjectWord)

Arguments

Return Value integer

public function GetObjectItemNum(ObjType, ObjName)

Arguments

Return Value integer

public function ProcessNumber(String, ErrorFlag) result(rProcessNumber)

Arguments

Return Value real(kind=r64)

public function FindIteminList(String, ListofItems, NumItems)

Arguments

Return Value integer

public function FindIteminSortedList(String, ListofItems, NumItems)

Arguments

Return Value integer

public function FindItem(String, ListofItems, NumItems)

Arguments

Return Value integer

public function MakeUPPERCase(InputString) result(ResultString)

Arguments

Return Value character(len=len(InputString))

public function SameString(TestString1, TestString2)

Arguments

Return Value logical

public function GetNumRangeCheckErrorsFound()

Arguments

Return Value integer

private function GetNumObjectsInIDD()

Arguments

Return Value integer

private function FindFirstRecord(UCObjType) result(StartPointer)

Arguments

Return Value integer

private function FindNextRecord(UCObjType, StartPointer) result(NextPointer)

Arguments

Return Value integer

private function IPTrimSigDigits(IntegerValue) result(OutputString)

Arguments

Return Value character(len=32)

Subroutines

public subroutine ProcessInput()

Arguments

private subroutine ProcessDataDicFile(ErrorsFound)

Arguments

private subroutine AddSectionDef(ProposedSection, ErrorsFound)

Arguments

private subroutine AddObjectDefandParse(ProposedObject, CurPos, EndofFile, ErrorsFound)

Arguments

private subroutine ProcessInputDataFile()

Arguments

private subroutine ValidateSection(ProposedSection, LineNo)

Arguments

private subroutine ValidateObjectandParse(ProposedObject, CurPos, EndofFile)

Arguments

private subroutine ValidateSectionsInput()

Arguments