Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
SUBROUTINE WriteTabularReports
! SUBROUTINE INFORMATION:
! AUTHOR Jason Glazer
! DATE WRITTEN August 2003
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This routine hides from the main simulation that four specific
! types of tabular reports are each created. If another type of
! report is added it can be added to the list here.
IMPLICIT NONE
INTEGER EchoInputFile ! found unit number for 'eplusout.audit'
INTEGER, EXTERNAL :: FindUnitNumber
CALL FillWeatherPredefinedEntries
CALL FillRemainingPredefinedEntries
IF (WriteTabularFiles) THEN
! call each type of report in turn
CALL WriteBEPSTable
CALL WriteTableOfContents
CALL WriteVeriSumTable
CALL WriteDemandEndUseSummary
CALL WriteSourceEnergyEndUseSummary
CALL WritePredefinedTables
CALL WriteComponentSizing
CALL WriteSurfaceShadowing
CALL WriteCompCostTable
CALL WriteAdaptiveComfortTable
CALL WriteZoneLoadComponentTable
IF (DoWeathSim) THEN
CALL WriteMonthlyTables
CALL WriteTimeBinTables
END IF
ENDIF
EchoInputFile=FindUnitNumber('eplusout.audit')
Write(EchoInputFile,*) 'MonthlyInputCount=',MonthlyInputCount
Write(EchoInputFile,*) 'sizeMonthlyInput=',sizeMonthlyInput
Write(EchoInputFile,*) 'MonthlyFieldSetInputCount=',MonthlyFieldSetInputCount
Write(EchoInputFile,*) 'sizeMonthlyFieldSetInput=',sizeMonthlyFieldSetInput
Write(EchoInputFile,*) 'MonthlyTablesCount=',MonthlyTablesCount
Write(EchoInputFile,*) 'MonthlyColumnsCount=',MonthlyColumnsCount
Write(EchoInputFile,*) 'sizeReportName=',sizeReportName
Write(EchoInputFile,*) 'numReportName=',numReportName
Write(EchoInputFile,*) 'sizeSubTable=',sizeSubTable
Write(EchoInputFile,*) 'numSubTable=',numSubTable
Write(EchoInputFile,*) 'sizeColumnTag=',sizeColumnTag
Write(EchoInputFile,*) 'numColumnTag=',numColumnTag
Write(EchoInputFile,*) 'sizeTableEntry=',sizeTableEntry
Write(EchoInputFile,*) 'numTableEntry=',numTableEntry
Write(EchoInputFile,*) 'sizeCompSizeTableEntry=',sizeCompSizeTableEntry
Write(EchoInputFile,*) 'numCompSizeTableEntry=',numCompSizeTableEntry
RETURN
END SUBROUTINE WriteTabularReports