General – EnergyPlusFortran

Interfaces

public interface RoundSigDigits

private function rRoundSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Type Intent Optional Attributes Name

real(kind=r64), intent(in) :: RealValue

integer, intent(in) :: SigDigits

Return Value character(len=32)
private function iRoundSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: IntegerValue

integer, intent(in), optional :: SigDigits

Return Value character(len=32)

public interface TrimSigDigits

private function rTrimSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Type Intent Optional Attributes Name

real(kind=r64), intent(in) :: RealValue

integer, intent(in) :: SigDigits

Return Value character(len=32)
private function iTrimSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

Type Intent Optional Attributes Name

integer, intent(in) :: IntegerValue

integer, intent(in), optional :: SigDigits

Return Value character(len=32)

Functions

public function InterpSw(SwitchFac, A, B)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	SwitchFac
real(kind=r64),	intent(in)	::	A
real(kind=r64),	intent(in)	::	B

Return Value real(kind=r64)

public function InterpBlind(ProfAng, PropArray)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	ProfAng
real(kind=r64),	intent(in),		DIMENSION(37)	::	PropArray

Return Value real(kind=r64)

public function InterpProfAng(ProfAng, PropArray)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	ProfAng
real(kind=r64),	intent(in)			::	PropArray(37)

Return Value real(kind=r64)

public function InterpSlatAng(SlatAng, VarSlats, PropArray)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	SlatAng
logical,	intent(in)	::	VarSlats
real(kind=r64),	intent(in)	::	PropArray(MaxSlatAngs)

Return Value real(kind=r64)

public function InterpProfSlatAng(ProfAng, SlatAng, VarSlats, PropArray)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	ProfAng
real(kind=r64),	intent(in)	::	SlatAng
logical,	intent(in)	::	VarSlats
real(kind=r64),	intent(in)	::	PropArray(37,MaxSlatAngs)

Return Value real(kind=r64)

public function BlindBeamBeamTrans(ProfAng, SlatAng, SlatWidth, SlatSeparation, SlatThickness)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	ProfAng
real(kind=r64),	intent(in)	::	SlatAng
real(kind=r64),	intent(in)	::	SlatWidth
real(kind=r64),	intent(in)	::	SlatSeparation
real(kind=r64),	intent(in)	::	SlatThickness

Return Value real(kind=r64)

public function POLYF(X, A)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	X
real(kind=r64),	intent(in),		DIMENSION(6)	::	A

Return Value real(kind=r64)

public function POLY1F(X, A, N)

Arguments

Type		Name
real(kind=r64)	::	X
real(kind=r64)	::	A(N)
integer	::	N

Return Value real(kind=r64)

public function POLY2F(X, A, N)

Arguments

Type		Name
real(kind=r64)	::	X
real(kind=r64)	::	A(N)
integer	::	N

Return Value real(kind=r64)

private function rTrimSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	RealValue
integer,	intent(in)			::	SigDigits

Return Value character(len=32)

private function iTrimSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

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

Return Value character(len=32)

private function rRoundSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	RealValue
integer,	intent(in)			::	SigDigits

Return Value character(len=32)

private function iRoundSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

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

Return Value character(len=32)

public function RemoveTrailingZeros(InputString) result(ResultString)

Arguments

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

Return Value character(len=LEN(InputString))

public function JulianDay(Month, Day, LeapYearValue)

Arguments

Type	Intent		Name
integer,	intent(in)	::	Month
integer,	intent(in)	::	Day
integer,	intent(in)	::	LeapYearValue

Return Value integer

public function BetweenDates(TestDate, StartDate, EndDate)

Arguments

Type	Intent		Name
integer,	intent(in)	::	TestDate
integer,	intent(in)	::	StartDate
integer,	intent(in)	::	EndDate

Return Value logical

public function CreateSysTimeIntervalString() result(OutputString)

Arguments

None

Return Value character(len=70)

public function SafeDivide(a, b) result(c)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! returns a / b while preventing division by zero !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	a
real(kind=r64),	intent(in)			::	b

Return Value real(kind=r64)

public function FindNumberinList(WhichNumber, ListofItems, NumItems)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	WhichNumber
integer,	intent(in),	DIMENSION(*)	::	ListofItems
integer,	intent(in)		::	NumItems

Return Value integer

public function DetermineMinuteForReporting(IndexTypeKey) result(ActualTimeMin)

Arguments

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

Return Value integer

public function LogicalToInteger(Flag)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	Flag

Return Value integer

public function GetCurrentHVACTime()

Arguments

None

Return Value real(kind=r64)

public function GetPreviousHVACTime()

Arguments

None

Return Value real(kind=r64)

public function CreateHVACTimeIntervalString() result(OutputString)

Arguments

None

Return Value character(len=32)

public function CreateTimeString(Time) result(OutputString)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	Time

Return Value character(len=10)

private function CreateTimeIntervalString(StartTime, EndTime) result(OutputString)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	StartTime
real(kind=r64),	intent(in)			::	EndTime

Return Value character(len=32)

Subroutines

public subroutine SolveRegulaFalsi(Eps, MaxIte, Flag, XRes, f, X_0, X_1, Par)

Arguments

Type

Intent

Optional

Attributes

Name

real(kind=r64),

intent(in)

Eps

integer,

intent(in)

MaxIte

integer,

intent(out)

Flag

real(kind=r64),

intent(out)

XRes

public function f(X, Par) result(Y)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	X
real(kind=r64),	intent(in),	optional	DIMENSION(:)	::	Par

Return Value real(kind=r64)

real(kind=r64),

intent(in)

X_0

real(kind=r64),

intent(in)

X_1

real(kind=r64),

intent(in),

optional

DIMENSION(:)

Par

public subroutine MovingAvg(DataIn, NumDataItems, NumItemsInAvg, SmoothedData)

Arguments

Type	Intent	Attributes		Name
real(kind=r64),	intent(in),	DIMENSION(NumDataItems)	::	DataIn
integer,	intent(in)		::	NumDataItems
integer,	intent(in)		::	NumItemsInAvg
real(kind=r64),	intent(out),	DIMENSION(NumDataItems)	::	SmoothedData

public subroutine ProcessDateString(String, PMonth, PDay, PWeekDay, DateType, ErrorsFound, PYear)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	String
integer,	intent(out)		::	PMonth
integer,	intent(out)		::	PDay
integer,	intent(out)		::	PWeekDay
integer,	intent(out)		::	DateType
logical,	intent(inout)		::	ErrorsFound
integer,	intent(out),	optional	::	PYear

private subroutine DetermineDateTokens(String, NumTokens, TokenDay, TokenMonth, TokenWeekDay, DateType, ErrorsFound, TokenYear)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	String
integer,	intent(out)		::	NumTokens
integer,	intent(out)		::	TokenDay
integer,	intent(out)		::	TokenMonth
integer,	intent(out)		::	TokenWeekDay
integer,	intent(out)		::	DateType
logical,	intent(inout)		::	ErrorsFound
integer,	intent(out),	optional	::	TokenYear

private subroutine ValidateMonthDay(String, Day, Month, ErrorsFound)

Arguments

Type	Intent		Name
character(len=*),	intent(in)	::	String
integer,	intent(in)	::	Day
integer,	intent(in)	::	Month
logical,	intent(out)	::	ErrorsFound

public subroutine InvJulianDay(Number, PMonth, PDay, LeapYr)

Arguments

Type	Intent		Name
integer,	intent(in)	::	Number
integer,	intent(out)	::	PMonth
integer,	intent(out)	::	PDay
integer,	intent(in)	::	LeapYr

public subroutine Invert3By3Matrix(A, InverseA)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(in)			::	A(3,3)
real(kind=r64),	intent(out)			::	InverseA(3,3)

public subroutine ITERATE(ResultX, Tol, X0, Y0, X1, Y1, Iter, Cnvg)

Arguments

Type	Intent		Name
real(kind=r64),	intent(out)	::	ResultX
real(kind=r64),	intent(in)	::	Tol
real(kind=r64),	intent(inout)	::	X0
real(kind=r64),	intent(inout)	::	Y0
real(kind=r64),	intent(inout)	::	X1
real(kind=r64),	intent(inout)	::	Y1
integer,	intent(in)	::	Iter
integer,	intent(out)	::	Cnvg

public subroutine DecodeMonDayHrMin(Item, Month, Day, Hour, Minute)

Arguments

Type	Intent		Name
integer,	intent(in)	::	Item
integer,	intent(out)	::	Month
integer,	intent(out)	::	Day
integer,	intent(out)	::	Hour
integer,	intent(out)	::	Minute

public subroutine EncodeMonDayHrMin(Item, Month, Day, Hour, Minute)

Arguments

Type	Intent		Name
integer,	intent(out)	::	Item
integer,	intent(in)	::	Month
integer,	intent(in)	::	Day
integer,	intent(in)	::	Hour
integer,	intent(in)	::	Minute

private subroutine ParseTime(Time, Hours, Minutes, Seconds)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	Time
integer,	intent(out)	::	Hours
integer,	intent(out)	::	Minutes
real(kind=r64),	intent(out)	::	Seconds

public subroutine ScanForReports(ReportName, DoReport, ReportKey, Option1, Option2)

Arguments

Type	Intent	Optional		Name
character(len=*),	intent(in)		::	ReportName
logical,	intent(out)		::	DoReport
character(len=*),	intent(in),	optional	::	ReportKey
character(len=*),	intent(inout),	optional	::	Option1
character(len=*),	intent(inout),	optional	::	Option2

public subroutine ReallocateRealArray(Array, ArrayMax, ArrayInc)

Arguments

Type	Intent	Attributes		Name
real(kind=r64),	intent(inout),	ALLOCATABLE, DIMENSION(:)	::	Array
integer,	intent(inout)		::	ArrayMax
integer,	intent(in)		::	ArrayInc

public subroutine CheckCreatedZoneItemName(calledFrom, CurrentObject, ZoneName, MaxZoneNameLength, ItemName, ItemNames, NumItems, ResultName, ErrFlag)

Arguments

Type	Intent	Attributes		Name
character(len=*),	intent(in)		::	calledFrom
character(len=*),	intent(in)		::	CurrentObject
character(len=*),	intent(in)		::	ZoneName
integer,	intent(in)		::	MaxZoneNameLength
character(len=*),	intent(in)		::	ItemName
character(len=*),	intent(in),	DIMENSION(:)	::	ItemNames
integer,	intent(in)		::	NumItems
character(len=*),	intent(inout)		::	ResultName
logical,	intent(inout)		::	ErrFlag

General Module

Uses:

Used By

Interfaces

public interface RoundSigDigits

private function rRoundSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

private function iRoundSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

public interface TrimSigDigits

private function rTrimSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

private function iTrimSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

Functions

public function InterpSw(SwitchFac, A, B)

Arguments

Return Value real(kind=r64)

public function InterpBlind(ProfAng, PropArray)

Arguments

Return Value real(kind=r64)

public function InterpProfAng(ProfAng, PropArray)

Arguments

Return Value real(kind=r64)

public function InterpSlatAng(SlatAng, VarSlats, PropArray)

Arguments

Return Value real(kind=r64)

public function InterpProfSlatAng(ProfAng, SlatAng, VarSlats, PropArray)

Arguments

Return Value real(kind=r64)

public function BlindBeamBeamTrans(ProfAng, SlatAng, SlatWidth, SlatSeparation, SlatThickness)

Arguments

Return Value real(kind=r64)

public function POLYF(X, A)

Arguments

Return Value real(kind=r64)

public function POLY1F(X, A, N)

Arguments

Return Value real(kind=r64)

public function POLY2F(X, A, N)

Arguments

Return Value real(kind=r64)

private function rTrimSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

private function iTrimSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

private function rRoundSigDigits(RealValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

private function iRoundSigDigits(IntegerValue, SigDigits) result(OutputString)

Arguments

Return Value character(len=32)

public function RemoveTrailingZeros(InputString) result(ResultString)

Arguments

Return Value character(len=LEN(InputString))

public function JulianDay(Month, Day, LeapYearValue)

Arguments

Return Value integer

public function BetweenDates(TestDate, StartDate, EndDate)

Arguments

Return Value logical

public function CreateSysTimeIntervalString() result(OutputString)

Arguments

Return Value character(len=70)

public function SafeDivide(a, b) result(c)

Arguments

Return Value real(kind=r64)

public function FindNumberinList(WhichNumber, ListofItems, NumItems)

Arguments

Return Value integer

public function DetermineMinuteForReporting(IndexTypeKey) result(ActualTimeMin)

Arguments

Return Value integer

public function LogicalToInteger(Flag)