GetInternalHeatGainsInput Subroutine

  1. HeatBalanceInternalHeatGains.f90
  2. InternalHeatGains
  3. GetInternalHeatGainsInput

private subroutine GetInternalHeatGainsInput()

proc~~getinternalheatgainsinput~~UsesGraph proc~getinternalheatgainsinput GetInternalHeatGainsInput module~general General module~general->proc~getinternalheatgainsinput module~inputprocessor InputProcessor module~inputprocessor->proc~getinternalheatgainsinput module~outputreportpredefined OutputReportPredefined module~outputreportpredefined->proc~getinternalheatgainsinput module~dataipshortcuts DataIPShortCuts module~dataipshortcuts->proc~getinternalheatgainsinput module~dataipshortcuts->module~inputprocessor module~schedulemanager ScheduleManager module~schedulemanager->proc~getinternalheatgainsinput module~datainterfaces DataInterfaces module~datainterfaces->proc~getinternalheatgainsinput module~datainterfaces->module~inputprocessor module~datainterfaces->module~schedulemanager module~dataprecisionglobals DataPrecisionGlobals module~dataprecisionglobals->module~general module~dataprecisionglobals->module~inputprocessor module~dataprecisionglobals->module~outputreportpredefined module~dataprecisionglobals->module~dataipshortcuts module~dataprecisionglobals->module~schedulemanager module~dataprecisionglobals->module~datainterfaces module~dataglobals DataGlobals module~dataprecisionglobals->module~dataglobals module~datasystemvariables DataSystemVariables module~dataprecisionglobals->module~datasystemvariables module~datasizing DataSizing module~dataprecisionglobals->module~datasizing module~dataenvironment DataEnvironment module~dataprecisionglobals->module~dataenvironment module~datastringglobals DataStringGlobals module~datastringglobals->module~inputprocessor module~datastringglobals->module~datasystemvariables module~dataglobals->module~inputprocessor module~dataglobals->module~outputreportpredefined module~dataglobals->module~dataipshortcuts module~dataglobals->module~schedulemanager module~dataglobals->module~datasizing module~dataglobals->module~dataenvironment module~datasystemvariables->module~inputprocessor module~datasizing->module~inputprocessor module~dataenvironment->module~schedulemanager
Help

Arguments

None

Calls

proc~~getinternalheatgainsinput~~CallsGraph proc~getinternalheatgainsinput GetInternalHeatGainsInput calphafieldnames calphafieldnames proc~getinternalheatgainsinput->calphafieldnames roundsigdigits roundsigdigits proc~getinternalheatgainsinput->roundsigdigits interface~setupemsactuator SetupEMSActuator proc~getinternalheatgainsinput->interface~setupemsactuator interface~setupoutputvariable SetupOutputVariable proc~getinternalheatgainsinput->interface~setupoutputvariable interface~predeftableentry PreDefTableEntry proc~getinternalheatgainsinput->interface~predeftableentry proc~getobjectdefmaxargs GetObjectDefMaxArgs proc~getinternalheatgainsinput->proc~getobjectdefmaxargs zoneintgain zoneintgain proc~getinternalheatgainsinput->zoneintgain interface~showcontinueerror ShowContinueError proc~getinternalheatgainsinput->interface~showcontinueerror interface~setupemsinternalvariable SetupEMSInternalVariable proc~getinternalheatgainsinput->interface~setupemsinternalvariable zonelist zonelist proc~getinternalheatgainsinput->zonelist interface~showwarningerror ShowWarningError proc~getinternalheatgainsinput->interface~showwarningerror interface~setupzoneinternalgain SetupZoneInternalGain proc~getinternalheatgainsinput->interface~setupzoneinternalgain peopleobjects peopleobjects proc~getinternalheatgainsinput->peopleobjects surface surface proc~getinternalheatgainsinput->surface lalphafieldblanks lalphafieldblanks proc~getinternalheatgainsinput->lalphafieldblanks interface~checkschedulevalue CheckScheduleValue proc~getinternalheatgainsinput->interface~checkschedulevalue proc~getscheduleminvalue GetScheduleMinValue proc~getinternalheatgainsinput->proc~getscheduleminvalue proc~getschedulename GetScheduleName proc~getinternalheatgainsinput->proc~getschedulename interface~showsevereerror ShowSevereError proc~getinternalheatgainsinput->interface~showsevereerror cnumericfieldnames cnumericfieldnames proc~getinternalheatgainsinput->cnumericfieldnames lights lights proc~getinternalheatgainsinput->lights proc~verifyname VerifyName proc~getinternalheatgainsinput->proc~verifyname proc~getobjectitem GetObjectItem proc~getinternalheatgainsinput->proc~getobjectitem lnumericfieldblanks lnumericfieldblanks proc~getinternalheatgainsinput->lnumericfieldblanks zonegasobjects zonegasobjects proc~getinternalheatgainsinput->zonegasobjects interface~showfatalerror ShowFatalError proc~getinternalheatgainsinput->interface~showfatalerror checkcreatedzoneitemname checkcreatedzoneitemname proc~getinternalheatgainsinput->checkcreatedzoneitemname znrpt znrpt proc~getinternalheatgainsinput->znrpt proc~finditeminlist FindIteminList proc~getinternalheatgainsinput->proc~finditeminlist refrigcasecredit refrigcasecredit proc~getinternalheatgainsinput->refrigcasecredit zoneinteeuse zoneinteeuse proc~getinternalheatgainsinput->zoneinteeuse zonegas zonegas proc~getinternalheatgainsinput->zonegas proc~getnumobjectsfound GetNumObjectsFound proc~getinternalheatgainsinput->proc~getnumobjectsfound zoneelectricobjects zoneelectricobjects proc~getinternalheatgainsinput->zoneelectricobjects zonehweq zonehweq proc~getinternalheatgainsinput->zonehweq zoneelectric zoneelectric proc~getinternalheatgainsinput->zoneelectric hotwatereqobjects hotwatereqobjects proc~getinternalheatgainsinput->hotwatereqobjects proc~getscheduleindex GetScheduleIndex proc~getinternalheatgainsinput->proc~getscheduleindex proc~samestring SameString proc~getinternalheatgainsinput->proc~samestring steameqobjects steameqobjects proc~getinternalheatgainsinput->steameqobjects lightsobjects lightsobjects proc~getinternalheatgainsinput->lightsobjects othereqobjects othereqobjects proc~getinternalheatgainsinput->othereqobjects zonesteameq zonesteameq proc~getinternalheatgainsinput->zonesteameq people people proc~getinternalheatgainsinput->people zoneothereq zoneothereq proc~getinternalheatgainsinput->zoneothereq proc~getschedulemaxvalue GetScheduleMaxValue proc~getinternalheatgainsinput->proc~getschedulemaxvalue zoneco2gen zoneco2gen proc~getinternalheatgainsinput->zoneco2gen zone zone proc~getinternalheatgainsinput->zone zonebbheat zonebbheat proc~getinternalheatgainsinput->zonebbheat proc~charpredeftableentry CharPreDefTableEntry interface~predeftableentry->proc~charpredeftableentry proc~realpredeftableentry RealPreDefTableEntry interface~predeftableentry->proc~realpredeftableentry proc~intpredeftableentry IntPreDefTableEntry interface~predeftableentry->proc~intpredeftableentry proc~getobjectdefmaxargs->proc~finditeminlist proc~makeuppercase MakeUPPERCase proc~getobjectdefmaxargs->proc~makeuppercase proc~finditeminsortedlist FindIteminSortedList proc~getobjectdefmaxargs->proc~finditeminsortedlist proc~showsevereerror ShowSevereError proc~getobjectdefmaxargs->proc~showsevereerror proc~icheckschedulevalue iCheckScheduleValue interface~checkschedulevalue->proc~icheckschedulevalue proc~rcheckschedulevalue rCheckScheduleValue interface~checkschedulevalue->proc~rcheckschedulevalue proc~showfatalerror ShowFatalError proc~getscheduleminvalue->proc~showfatalerror proc~processscheduleinput ProcessScheduleInput proc~getschedulename->proc~processscheduleinput proc~verifyname->proc~showsevereerror proc~finditem FindItem proc~verifyname->proc~finditem proc~getobjectitem->proc~finditeminlist proc~getobjectitem->proc~samestring proc~getobjectitem->proc~makeuppercase proc~getobjectitem->proc~finditeminsortedlist proc~getobjectitem->proc~showfatalerror proc~showwarningerror ShowWarningError proc~getobjectitem->proc~showwarningerror proc~getobjectitemfromfile GetObjectItemfromFile proc~getobjectitem->proc~getobjectitemfromfile proc~processinput ProcessInput proc~getobjectitem->proc~processinput proc~iptrimsigdigits IPTrimSigDigits proc~getobjectitem->proc~iptrimsigdigits proc~getnumobjectsfound->proc~finditeminlist proc~getnumobjectsfound->proc~makeuppercase proc~getnumobjectsfound->proc~finditeminsortedlist proc~getnumobjectsfound->proc~showwarningerror proc~getscheduleindex->proc~processscheduleinput finditeminlist finditeminlist proc~getscheduleindex->finditeminlist proc~samestring->proc~makeuppercase proc~getschedulemaxvalue->proc~showfatalerror proc~incrementtableentry incrementTableEntry proc~charpredeftableentry->proc~incrementtableentry proc~realpredeftableentry->proc~incrementtableentry proc~intpredeftableentry->proc~incrementtableentry proc~finditeminsortedlist->proc~samestring proc~finditeminsortedlist->proc~makeuppercase proc~showerrormessage ShowErrorMessage proc~showsevereerror->proc~showerrormessage matchcounts matchcounts proc~showsevereerror->matchcounts messagesearch messagesearch proc~showsevereerror->messagesearch createsqliteerrorrecord createsqliteerrorrecord proc~showsevereerror->createsqliteerrorrecord proc~displaystring DisplayString proc~showerrormessage->proc~displaystring proc~showerrormessage->proc~showfatalerror proc~showfatalerror->roundsigdigits proc~showfatalerror->proc~showerrormessage proc~showfatalerror->createsqliteerrorrecord proc~showfatalerror->proc~displaystring proc~abortenergyplus AbortEnergyPlus proc~showfatalerror->proc~abortenergyplus proc~abortenergyplus->roundsigdigits proc~abortenergyplus->proc~displaystring proc~testairpathintegrity TestAirPathIntegrity proc~abortenergyplus->proc~testairpathintegrity updatesqlitesimulationrecord updatesqlitesimulationrecord proc~abortenergyplus->updatesqlitesimulationrecord checkmarkednodes checkmarkednodes proc~abortenergyplus->checkmarkednodes reportairloopconnections reportairloopconnections proc~abortenergyplus->reportairloopconnections proc~showrecurringerrors ShowRecurringErrors proc~abortenergyplus->proc~showrecurringerrors testcompsetinletoutletnodes testcompsetinletoutletnodes proc~abortenergyplus->testcompsetinletoutletnodes proc~summarizeerrors SummarizeErrors proc~abortenergyplus->proc~summarizeerrors reportsurfaceerrors reportsurfaceerrors proc~abortenergyplus->reportsurfaceerrors reportloopconnections reportloopconnections proc~abortenergyplus->reportloopconnections proc~closemiscopenfiles CloseMiscOpenFiles proc~abortenergyplus->proc~closemiscopenfiles setupnodevarsforreporting setupnodevarsforreporting proc~abortenergyplus->setupnodevarsforreporting closesocket closesocket proc~abortenergyplus->closesocket proc~closeoutopenfiles CloseOutOpenFiles proc~abortenergyplus->proc~closeoutopenfiles proc~reportsurfaces ReportSurfaces proc~abortenergyplus->proc~reportsurfaces testbranchintegrity testbranchintegrity proc~abortenergyplus->testbranchintegrity checkplantonabort checkplantonabort proc~abortenergyplus->checkplantonabort proc~epelapsedtime epElapsedTime proc~abortenergyplus->proc~epelapsedtime proc~epstoptime epStopTime proc~abortenergyplus->proc~epstoptime proc~epsummarytimes epSummaryTimes proc~abortenergyplus->proc~epsummarytimes proc~showmessage ShowMessage proc~abortenergyplus->proc~showmessage checknodeconnections checknodeconnections proc~abortenergyplus->checknodeconnections proc~testairpathintegrity->proc~showsevereerror airtozonenodeinfo airtozonenodeinfo proc~testairpathintegrity->airtozonenodeinfo nodeid nodeid proc~testairpathintegrity->nodeid proc~showcontinueerror ShowContinueError proc~testairpathintegrity->proc~showcontinueerror proc~showrecurringerrors->roundsigdigits proc~showrecurringerrors->createsqliteerrorrecord proc~showrecurringerrors->proc~showmessage updatesqliteerrorrecord updatesqliteerrorrecord proc~showrecurringerrors->updatesqliteerrorrecord removetrailingzeros removetrailingzeros proc~showrecurringerrors->removetrailingzeros recurringerrors recurringerrors proc~showrecurringerrors->recurringerrors proc~summarizeerrors->matchcounts proc~summarizeerrors->proc~showmessage summaries summaries proc~summarizeerrors->summaries moredetails moredetails proc~summarizeerrors->moredetails closedfsfile closedfsfile proc~closemiscopenfiles->closedfsfile closereportillummaps closereportillummaps proc~closemiscopenfiles->closereportillummaps proc~detailsforsurfaces DetailsForSurfaces proc~reportsurfaces->proc~detailsforsurfaces proc~setupschemecolors SetUpSchemeColors proc~reportsurfaces->proc~setupschemecolors proc~vrmlout VRMLOut proc~reportsurfaces->proc~vrmlout scanforreports scanforreports proc~reportsurfaces->scanforreports proc~dxfoutwireframe DXFOutWireFrame proc~reportsurfaces->proc~dxfoutwireframe proc~costinfoout CostInfoOut proc~reportsurfaces->proc~costinfoout proc~linesout LinesOut proc~reportsurfaces->proc~linesout proc~reportsurfaces->proc~showwarningerror proc~dxfout DXFOut proc~reportsurfaces->proc~dxfout proc~epstoptime->proc~showfatalerror tstop tstop proc~epstoptime->tstop proc~epsummarytimes->roundsigdigits proc~showmessage->proc~showerrormessage proc~showcontinueerror->proc~showerrormessage proc~showcontinueerror->updatesqliteerrorrecord proc~detailsforsurfaces->roundsigdigits proc~detailsforsurfaces->surface proc~detailsforsurfaces->zone getschedulename getschedulename proc~detailsforsurfaces->getschedulename oscm oscm proc~detailsforsurfaces->oscm nominalu nominalu proc~detailsforsurfaces->nominalu framedivider framedivider proc~detailsforsurfaces->framedivider getschedulemaxvalue getschedulemaxvalue proc~detailsforsurfaces->getschedulemaxvalue 2 2 proc~detailsforsurfaces->2 proc~computenominaluwithconvcoeffs ComputeNominalUwithConvCoeffs proc~detailsforsurfaces->proc~computenominaluwithconvcoeffs 3 3 proc~detailsforsurfaces->3 osc osc proc~detailsforsurfaces->osc trimsigdigits trimsigdigits proc~detailsforsurfaces->trimsigdigits construct construct proc~detailsforsurfaces->construct 4 4 proc~detailsforsurfaces->4 proc~csurfaceclass cSurfaceClass proc~detailsforsurfaces->proc~csurfaceclass userintconvectioncoeffs userintconvectioncoeffs proc~detailsforsurfaces->userintconvectioncoeffs userextconvectioncoeffs userextconvectioncoeffs proc~detailsforsurfaces->userextconvectioncoeffs getscheduleminvalue getscheduleminvalue proc~detailsforsurfaces->getscheduleminvalue surfacewindow surfacewindow proc~detailsforsurfaces->surfacewindow proc~setupschemecolors->proc~showwarningerror getobjectitemnum getobjectitemnum proc~setupschemecolors->getobjectitemnum getobjectdefmaxargs getobjectdefmaxargs proc~setupschemecolors->getobjectdefmaxargs proc~matchandsetcolortextstring MatchAndSetColorTextString proc~setupschemecolors->proc~matchandsetcolortextstring getobjectitem getobjectitem proc~setupschemecolors->getobjectitem proc~vrmlout->surface proc~vrmlout->zone proc~vrmlout->proc~showfatalerror proc~vrmlout->proc~showcontinueerror proc~vrmlout->proc~showwarningerror proc~triangulate Triangulate proc~vrmlout->proc~triangulate proc~getnewunitnumber GetNewUnitNumber proc~vrmlout->proc~getnewunitnumber proc~dxfoutwireframe->surface proc~dxfoutwireframe->zone proc~dxfoutwireframe->proc~showfatalerror proc~dxfoutwireframe->trimsigdigits proc~dxfoutwireframe->surfacewindow proc~dxfoutwireframe->proc~getnewunitnumber zonedaylight zonedaylight proc~dxfoutwireframe->zonedaylight dxfcolorno dxfcolorno proc~dxfoutwireframe->dxfcolorno proc~costinfoout->surface proc~costinfoout->proc~showfatalerror proc~costinfoout->construct proc~costinfoout->proc~csurfaceclass proc~costinfoout->proc~getnewunitnumber proc~linesout->roundsigdigits proc~linesout->surface proc~linesout->proc~showfatalerror proc~linesout->proc~showcontinueerror proc~linesout->proc~showwarningerror proc~linesout->proc~csurfaceclass proc~linesout->proc~getnewunitnumber proc~showwarningerror->proc~showerrormessage proc~showwarningerror->matchcounts proc~showwarningerror->messagesearch proc~showwarningerror->createsqliteerrorrecord proc~dxfout->surface proc~dxfout->zone proc~dxfout->proc~showfatalerror proc~dxfout->proc~showcontinueerror proc~dxfout->proc~showwarningerror proc~dxfout->trimsigdigits proc~dxfout->surfacewindow proc~dxfout->proc~triangulate proc~dxfout->proc~getnewunitnumber proc~dxfout->zonedaylight proc~dxfout->dxfcolorno illummapcalc illummapcalc proc~dxfout->illummapcalc proc~computenominaluwithconvcoeffs->surface finditem finditem proc~matchandsetcolortextstring->finditem proc~triangulate->roundsigdigits proc~triangulate->proc~showmessage proc~triangulate->proc~showcontinueerror proc~triangulate->proc~showwarningerror csurfaceclass csurfaceclass proc~triangulate->csurfaceclass proc~generate_ears generate_ears proc~triangulate->proc~generate_ears proc~calcrfflrcoordinatetransformation CalcRfFlrCoordinateTransformation proc~triangulate->proc~calcrfflrcoordinatetransformation proc~calcwallcoordinatetransformation CalcWallCoordinateTransformation proc~triangulate->proc~calcwallcoordinatetransformation proc~polygon_contains_point_2d polygon_contains_point_2d proc~generate_ears->proc~polygon_contains_point_2d proc~angle_2dvector angle_2dvector proc~generate_ears->proc~angle_2dvector proc~icheckschedulevalue->proc~showfatalerror proc~rcheckschedulevalue->proc~showfatalerror proc~processscheduleinput->roundsigdigits proc~processscheduleinput->proc~showsevereerror proc~processscheduleinput->proc~displaystring proc~processscheduleinput->proc~showfatalerror proc~processscheduleinput->proc~showcontinueerror proc~processscheduleinput->proc~showwarningerror proc~processscheduleinput->trimsigdigits proc~processscheduleinput->getobjectdefmaxargs proc~processscheduleinput->getobjectitem proc~processscheduleinput->finditem proc~processscheduleinput->finditeminlist verifyname verifyname proc~processscheduleinput->verifyname samestring samestring proc~processscheduleinput->samestring proc~processintervalfields ProcessIntervalFields proc~processscheduleinput->proc~processintervalfields processdatestring processdatestring proc~processscheduleinput->processdatestring setupemsactuator setupemsactuator proc~processscheduleinput->setupemsactuator proc~processfordaytypes ProcessForDayTypes proc~processscheduleinput->proc~processfordaytypes julianday julianday proc~processscheduleinput->julianday getnumobjectsfound getnumobjectsfound proc~processscheduleinput->getnumobjectsfound proc~externalinterfacesetschedule ExternalInterfaceSetSchedule proc~processscheduleinput->proc~externalinterfacesetschedule processnumber processnumber proc~processscheduleinput->processnumber checkforactualfilename checkforactualfilename proc~processscheduleinput->checkforactualfilename interface~checkschedulevalueminmax CheckScheduleValueMinMax proc~processscheduleinput->interface~checkschedulevalueminmax proc~reportscheduledetails ReportScheduleDetails proc~processscheduleinput->proc~reportscheduledetails proc~processintervalfields->proc~showsevereerror proc~processintervalfields->proc~showcontinueerror proc~processintervalfields->proc~showwarningerror proc~decodehhmmfield DecodeHHMMField proc~processintervalfields->proc~decodehhmmfield proc~processfordaytypes->proc~showsevereerror proc~dcheckschedulevalueminmax2 dCheckScheduleValueMinMax2 interface~checkschedulevalueminmax->proc~dcheckschedulevalueminmax2 proc~rcheckschedulevalueminmax1 rCheckScheduleValueMinMax1 interface~checkschedulevalueminmax->proc~rcheckschedulevalueminmax1 proc~rcheckschedulevalueminmax2 rCheckScheduleValueMinMax2 interface~checkschedulevalueminmax->proc~rcheckschedulevalueminmax2 proc~dcheckschedulevalueminmax1 dCheckScheduleValueMinMax1 interface~checkschedulevalueminmax->proc~dcheckschedulevalueminmax1 proc~reportscheduledetails->roundsigdigits invjulianday invjulianday proc~reportscheduledetails->invjulianday proc~decodehhmmfield->proc~showsevereerror proc~decodehhmmfield->proc~showcontinueerror proc~decodehhmmfield->proc~showwarningerror proc~dcheckschedulevalueminmax2->proc~showfatalerror proc~rcheckschedulevalueminmax1->proc~showfatalerror proc~rcheckschedulevalueminmax2->proc~showfatalerror proc~dcheckschedulevalueminmax1->proc~showfatalerror proc~finditem->proc~finditeminlist proc~finditem->proc~makeuppercase proc~processinput->calphafieldnames proc~processinput->lalphafieldblanks proc~processinput->cnumericfieldnames proc~processinput->lnumericfieldblanks proc~processinput->proc~finditeminlist proc~processinput->proc~samestring proc~processinput->proc~makeuppercase proc~processinput->proc~finditeminsortedlist proc~processinput->proc~showsevereerror proc~processinput->proc~displaystring proc~processinput->proc~showfatalerror proc~processinput->proc~showcontinueerror proc~processinput->proc~showwarningerror proc~processinput->proc~iptrimsigdigits setupandsort setupandsort proc~processinput->setupandsort proc~processdatadicfile ProcessDataDicFile proc~processinput->proc~processdatadicfile calphaargs calphaargs proc~processinput->calphaargs rnumericargs rnumericargs proc~processinput->rnumericargs matchversion matchversion proc~processinput->matchversion proc~getidfrecordsstats GetIDFRecordsStats proc~processinput->proc~getidfrecordsstats proc~processinputdatafile ProcessInputDataFile proc~processinput->proc~processinputdatafile proc~initsecretobjects InitSecretObjects proc~processinput->proc~initsecretobjects programpath programpath proc~processinput->programpath proc~processdatadicfile->proc~showsevereerror proc~processdatadicfile->proc~iptrimsigdigits proc~readinputline ReadInputLine proc~processdatadicfile->proc~readinputline proc~addsectiondef AddSectionDef proc~processdatadicfile->proc~addsectiondef proc~addobjectdefandparse AddObjectDefandParse proc~processdatadicfile->proc~addobjectdefandparse proc~processinputdatafile->proc~showsevereerror proc~processinputdatafile->proc~showmessage proc~processinputdatafile->proc~iptrimsigdigits proc~processinputdatafile->proc~readinputline proc~validatesection ValidateSection proc~processinputdatafile->proc~validatesection proc~validateobjectandparse ValidateObjectandParse proc~processinputdatafile->proc~validateobjectandparse proc~readinputline->proc~makeuppercase proc~readinputline->proc~showsevereerror proc~readinputline->proc~showfatalerror proc~readinputline->proc~showcontinueerror proc~readinputline->proc~iptrimsigdigits proc~processnumber ProcessNumber proc~readinputline->proc~processnumber proc~processminmaxdefline ProcessMinMaxDefLine proc~readinputline->proc~processminmaxdefline proc~addsectiondef->proc~finditeminlist proc~addsectiondef->proc~makeuppercase proc~addsectiondef->proc~showsevereerror proc~addsectiondef->proc~showcontinueerror proc~addsectiondef->proc~showwarningerror proc~addobjectdefandparse->proc~finditeminlist proc~addobjectdefandparse->proc~makeuppercase proc~addobjectdefandparse->proc~showsevereerror proc~addobjectdefandparse->proc~showcontinueerror proc~addobjectdefandparse->proc~showwarningerror proc~addobjectdefandparse->proc~iptrimsigdigits proc~addobjectdefandparse->proc~readinputline proc~processminmaxdefline->proc~makeuppercase proc~processminmaxdefline->proc~showsevereerror proc~processminmaxdefline->proc~iptrimsigdigits proc~processminmaxdefline->proc~processnumber proc~validatesection->proc~finditeminlist proc~validatesection->proc~samestring proc~validatesection->proc~makeuppercase proc~validatesection->proc~finditeminsortedlist proc~validatesection->proc~showcontinueerror proc~validatesection->proc~showwarningerror proc~addrecordfromsection AddRecordFromSection proc~validatesection->proc~addrecordfromsection proc~validateobjectandparse->proc~finditeminlist proc~validateobjectandparse->proc~makeuppercase proc~validateobjectandparse->proc~finditeminsortedlist proc~validateobjectandparse->proc~showsevereerror proc~validateobjectandparse->proc~showcontinueerror proc~validateobjectandparse->proc~showwarningerror proc~validateobjectandparse->proc~iptrimsigdigits proc~validateobjectandparse->proc~readinputline proc~validateobjectandparse->proc~processnumber proc~showauditerrormessage ShowAuditErrorMessage proc~validateobjectandparse->proc~showauditerrormessage proc~internalrangecheck InternalRangeCheck proc~validateobjectandparse->proc~internalrangecheck proc~dumpcurrentlinebuffer DumpCurrentLineBuffer proc~validateobjectandparse->proc~dumpcurrentlinebuffer proc~maketransition MakeTransition proc~validateobjectandparse->proc~maketransition proc~extendobjectdefinition ExtendObjectDefinition proc~validateobjectandparse->proc~extendobjectdefinition proc~addrecordfromsection->proc~showsevereerror proc~addrecordfromsection->proc~showcontinueerror proc~addrecordfromsection->proc~iptrimsigdigits proc~addrecordfromsection->proc~showauditerrormessage proc~addrecordfromsection->proc~internalrangecheck proc~internalrangecheck->proc~showsevereerror proc~internalrangecheck->proc~iptrimsigdigits proc~dumpcurrentlinebuffer->proc~showmessage proc~dumpcurrentlinebuffer->proc~iptrimsigdigits proc~maketransition->proc~finditeminlist proc~maketransition->proc~samestring proc~maketransition->proc~makeuppercase proc~maketransition->proc~showsevereerror proc~maketransition->proc~showfatalerror proc~extendobjectdefinition->proc~displaystring proc~extendobjectdefinition->proc~iptrimsigdigits
Help

Called By

proc~~getinternalheatgainsinput~~CalledByGraph proc~getinternalheatgainsinput GetInternalHeatGainsInput proc~manageinternalheatgains ManageInternalHeatGains proc~manageinternalheatgains->proc~getinternalheatgainsinput
Help

Source Code

GetInternalHeatGainsInput

Source Code

SUBROUTINE GetInternalHeatGainsInput

          ! SUBROUTINE INFORMATION:
          !       AUTHOR         Linda K. Lawrie
          !       DATE WRITTEN   September 1997
          !       MODIFIED       September 1998, FW
          !                      May 2009, BG: added calls to setup for possible EMS override
          !       RE-ENGINEERED  August 2000, RKS

          ! PURPOSE OF THIS SUBROUTINE:
          ! This subroutine gets the Internal Heat Gain Data for the Zones.
          ! Sets up the various data that will be used later with the
          ! schedulemanager to determine the actual values.

          ! METHODOLOGY EMPLOYED:
          ! The GetObjectItem routines are employed to retrieve the data.

          ! REFERENCES:
          ! IDD Objects:
          ! People
          ! Lights
          ! ElectricEquipment
          ! GasEquipment
          ! SteamEquipment
          ! HotWaterEquipment
          ! OtherEquipment
          ! ZoneBaseboard:OutdoorTemperatureControlled

          ! USE STATEMENTS:
  USE DataIPShortCuts
  USE InputProcessor
  USE ScheduleManager
  USE General, ONLY: RoundSigDigits, CheckCreatedZoneItemName
  USE OutputReportPredefined
  USE DataInterfaces, ONLY: SetupOutputVariable, SetupEMSInternalVariable

  IMPLICIT NONE    ! Enforce explicit typing of all variables in this routine

          ! SUBROUTINE ARGUMENT DEFINITIONS:
          ! na

          ! SUBROUTINE PARAMETER DEFINITIONS:
  CHARACTER(len=*), PARAMETER :: Blank=' '
  CHARACTER(len=*), PARAMETER :: fmta='(A)'
  CHARACTER(len=*), PARAMETER :: RoutineName='GetInternalHeatGains: '
          ! INTERFACE BLOCK SPECIFICATIONS:
          ! na

          ! DERIVED TYPE DEFINITIONS:
          ! na

          ! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
  CHARACTER(len=MaxNameLength), DIMENSION(:), ALLOCATABLE :: AlphaName
  LOGICAL                                     :: ErrorsFound=.false. ! If errors found in input
  LOGICAL                                     :: IsNotOK             ! Flag to verify name
  REAL(r64), DIMENSION(:), ALLOCATABLE        :: IHGNumbers
  INTEGER                                     :: IOStat
  LOGICAL                                     :: IsBlank
  INTEGER                                     :: Loop
  LOGICAL                                     :: MustInpSch
  INTEGER                                     :: NumAlpha
  INTEGER                                     :: NumNumber
  INTEGER                                     :: MaxAlpha
  INTEGER                                     :: MaxNumber
  INTEGER                                     :: OptionNum
  INTEGER                                     :: lastOption
  LOGICAL, DIMENSION(:), ALLOCATABLE          :: RepVarSet
  !   Variables for reporting nominal internal gains
  REAL(r64) LightTot     ! Total Lights for calculating lights per square meter
  REAL(r64) ElecTot       ! Total Electric Load for calculating electric per square meter
  REAL(r64) GasTot        ! Total Gas load for calculating gas per square meter
  REAL(r64) OthTot        ! Total Other load for calculating other load per square meter
  REAL(r64) HWETot        ! Total Hot Water Equipment for calculating HWE per square meter
  REAL(r64) StmTot        ! Total Steam for calculating Steam per square meter
  CHARACTER(len=3) BBHeatInd ! Yes if BBHeat in zone, no if not.
  INTEGER Loop1
  CHARACTER(len=MaxNameLength) :: StringOut
  REAL(r64) SchMin
  REAL(r64) SchMax
  LOGICAL :: UsingThermalComfort=.false.
!unused  LOGICAL :: ErrFlag
  CHARACTER(len=MaxNameLength) :: liteName
  INTEGER :: zonePt
  REAL(r64) :: mult
  REAL(r64) :: sumArea = 0.0d0
  REAL(r64) :: sumPower = 0.0d0
  INTEGER   :: ZoneNum
  REAL(r64) :: maxOccupLoad
  CHARACTER(len=MaxNameLength) :: CurrentModuleObject
  LOGICAL :: ErrFlag
  INTEGER :: Item
  INTEGER :: ZLItem
  INTEGER :: Item1
  INTEGER :: MaxZoneNameLengthInZoneList

          ! FLOW:
  ALLOCATE(ZoneIntGain(NumOfZones))
  ALLOCATE(ZnRpt(NumOfZones))
  ALLOCATE(ZoneIntEEuse(NumOfZones))
  ALLOCATE(RefrigCaseCredit(NumOfZones))

  ALLOCATE(RepVarSet(NumOfZones))
  RepVarSet=.true.

  ! Determine argument length of objects gotten by this routine
  MaxAlpha=-100
  MaxNumber=-100
  CurrentModuleObject='People'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='Lights'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='ElectricEquipment'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='GasEquipment'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='HotWaterEquipment'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='SteamEquipment'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='OtherEquipment'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='ZoneBaseboard:OutdoorTemperatureControlled'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)
  CurrentModuleObject='ZoneContaminantSourceAndSink:CarbonDioxide'
  CALL GetObjectDefMaxArgs(CurrentModuleObject,Loop,NumAlpha,NumNumber)
  MaxAlpha=MAX(MaxAlpha,NumAlpha)
  MaxNumber=MAX(MaxNumber,NumNumber)

  ALLOCATE(IHGNumbers(MaxNumber))
  ALLOCATE(AlphaName(MaxAlpha))
  IHGNumbers=0.0d0
  AlphaName=' '

  !CurrentModuleObject='Zone'
  DO Loop=1,NumOfZones
  ! Overall Zone Variables
    CALL SetupOutputVariable('Zone Total Internal Radiant Heating Energy [J]',ZnRpt(Loop)%TotRadiantGain,  &
                    'Zone','Sum',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Radiant Heating Rate [W]',ZnRpt(Loop)%TotRadiantGainRate,  &
                    'Zone','Average',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Visible Radiation Heating Energy [J]',ZnRpt(Loop)%TotVisHeatGain,  &
                    'Zone','Sum',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Visible Radiation Heating Rate [W]',ZnRpt(Loop)%TotVisHeatGainRate,  &
                    'Zone','Average',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Convective Heating Energy [J]',ZnRpt(Loop)%TotConvectiveGain,  &
                    'Zone','Sum',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Convective Heating Rate [W]',ZnRpt(Loop)%TotConvectiveGainRate,  &
                    'Zone','Average',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Latent Gain Energy [J]',ZnRpt(Loop)%TotLatentGain,  &
                    'Zone','Sum',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Latent Gain Rate [W]',ZnRpt(Loop)%TotLatentGainRate,  &
                    'Zone','Average',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Total Heating Energy [J]',ZnRpt(Loop)%TotTotalHeatGain,  &
                    'Zone','Sum',Zone(Loop)%Name)
    CALL SetupOutputVariable('Zone Total Internal Total Heating Rate [W]',ZnRpt(Loop)%TotTotalHeatGainRate,  &
                    'Zone','Average',Zone(Loop)%Name)
  END DO

  ! PEOPLE: Includes both information related to the heat balance and thermal comfort
  ! First, allocate and initialize the People derived type
  CurrentModuleObject='People'
  NumPeopleStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(PeopleObjects(NumPeopleStatements))

  TotPeople=0
  ErrFlag=.false.
  DO Item=1,NumPeopleStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),PeopleObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    PeopleObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      PeopleObjects(Item)%StartPtr=TotPeople+1
      TotPeople=TotPeople+1
      PeopleObjects(Item)%NumOfZones=1
      PeopleObjects(Item)%ZoneListActive=.false.
      PeopleObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      PeopleObjects(Item)%StartPtr=TotPeople+1
      TotPeople=TotPeople+ZoneList(ZLItem)%NumOfZones
      PeopleObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      PeopleObjects(Item)%ZoneListActive=.true.
      PeopleObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotPeople=0
  ENDIF

  ALLOCATE(People(TotPeople))

  IF (TotPeople > 0) THEN
    Loop=0
    DO Item = 1, NumPeopleStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,PeopleObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. PeopleObjects(Item)%ZoneListActive) THEN
          People(Loop)%Name = AlphaName(1)
          People(Loop)%ZonePtr = PeopleObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(PeopleObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(PeopleObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        PeopleObjects(Item)%Name,     &
                                        People%Name,           &
                                        Loop-1,                       &
                                        People(Loop)%Name,            &
                                        ErrFlag)
          People(Loop)%ZonePtr = ZoneList(PeopleObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        People(Loop)%NumberOfPeoplePtr  = GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (People(Loop)%NumberOfPeoplePtr == 0) THEN
          IF (Item1 == 1) THEN  ! only show error on first one
            IF (lAlphaFieldBlanks(3)) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//' is required.')
            ELSE
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
            ENDIF
            ErrorsFound=.true.
          ENDIF
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(People(Loop)%NumberOfPeoplePtr)
          SchMax=GetScheduleMaxValue(People(Loop)%NumberOfPeoplePtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (Item1 == 1) THEN
              IF (SchMin < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                   '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (Item1 == 1) THEN
              IF (SchMax < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                   '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
          ENDIF
        ENDIF

        ! Number of people calculation method.
        SELECT CASE (AlphaName(4))
          CASE('PEOPLE')
            People(Loop)%NumberOfPeople = IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 People will result.')
            ENDIF

          CASE('PEOPLE/AREA')
            IF (People(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(2) >= 0.0d0) THEN
                People(Loop)%NumberOfPeople = IHGNumbers(2)*Zone(People(Loop)%ZonePtr)%FloorArea
                IF (Zone(People(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 People will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                                 '", invalid '//TRIM(cNumericFieldNames(2))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(2),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 People will result.')
            ENDIF

          CASE('AREA/PERSON')
            IF (People(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(3) > 0.0d0) THEN
                People(Loop)%NumberOfPeople = Zone(People(Loop)%ZonePtr)%FloorArea/IHGNumbers(3)
                IF (Zone(People(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 People will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                                 '", invalid '//TRIM(cNumericFieldNames(3))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(3),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 People will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                 TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "People", "People/Area", "Area/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max people
        People(Loop)%NomMinNumberPeople=People(Loop)%NumberOfPeople*SchMin
        People(Loop)%NomMaxNumberPeople=People(Loop)%NumberOfPeople*SchMax

        IF (People(Loop)%ZonePtr > 0) THEN
          Zone(People(Loop)%ZonePtr)%TotOccupants = Zone(People(Loop)%ZonePtr)%TotOccupants + People(Loop)%NumberOfPeople
        ENDIF

        People(Loop)%FractionRadiant   = IHGNumbers(4)
        People(Loop)%FractionConvected = 1.0d0-People(Loop)%FractionRadiant
        IF (Item1 == 1) THEN
          IF (People(Loop)%FractionConvected < 0.0d0) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cNumericFieldNames(4))//' < 0.0, value ='//  &
                                   TRIM(RoundSigDigits(IHGNumbers(4),2)))
            ErrorsFound=.true.
          ENDIF
        ENDIF

        IF (NumNumber .GE. 5 .and. .not. lNumericFieldBlanks(5)) THEN
          People(Loop)%UserSpecSensFrac = IHGNumbers(5)
        ELSE
          People(Loop)%UserSpecSensFrac = AutoCalculate
        ENDIF

        IF (NumNumber == 6 .and. .not. lNumericFieldBlanks(6)) THEN
          People(Loop)%CO2RateFactor = IHGNumbers(6)
        ELSE
          People(Loop)%CO2RateFactor = 3.82d-8 ! m3/s-W
        ENDIF
        If (People(Loop)%CO2RateFactor .LT. 0.d0) Then
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cNumericFieldNames(6))//' < 0.0, value ='//  &
                             TRIM(RoundSigDigits(IHGNumbers(6),2)))
          ErrorsFound=.true.
        End If

        People(Loop)%ActivityLevelPtr  = GetScheduleIndex(AlphaName(5))
        IF (People(Loop)%ActivityLevelPtr == 0) THEN
          IF (Item1 == 1) THEN
            IF (lAlphaFieldBlanks(5)) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(5))//' is required.')
            ELSE
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", invalid '//TRIM(cAlphaFieldNames(5))//' entered='//TRIM(AlphaName(5)))
            ENDIF
            ErrorsFound=.true.
          ENDIF
        ELSE   ! Check values in Schedule
          SchMin=GetScheduleMinValue(People(Loop)%ActivityLevelPtr)
          SchMax=GetScheduleMaxValue(People(Loop)%ActivityLevelPtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (Item1 == 1) THEN
              IF (SchMin < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(5))//' minimum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(5))//  &
                                   '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (Item1 == 1) THEN
              IF (SchMax < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(5))//' maximum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(5))//  &
                                   '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
          ELSEIF (SchMin < 70.0d0 .or. SchMax > 1000.0d0) THEN
            IF (Item1 == 1) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(5))//' values')
              CALL ShowContinueError('fall outside typical range [70,1000] W/person for Thermal Comfort Reporting.')
              CALL ShowContinueError('Odd comfort values may result; Schedule="'//TRIM(AlphaName(5))//'".')
              CALL ShowContinueError('Entered min/max range=['//trim(RoundSigDigits(SchMin,1))//','//  &
                                   trim(RoundSigDigits(SchMax,1))//'] W/person.')
            ENDIF
          ENDIF
        ENDIF

        ! Following is an optional parameter (ASHRAE 55 warnings
        IF (NumAlpha >= 6) THEN
          IF (SameString(AlphaName(6),'Yes')) THEN
            People(Loop)%Show55Warning = .TRUE.
          ELSEIF (.not. SameString(AlphaName(6),'No') .and. .not. lAlphaFieldBlanks(6)) THEN
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                   '", '//TRIM(cAlphaFieldNames(6))//' field should be Yes or No')
              CALL ShowContinueError('...Field value="'//trim(AlphaName(6))//'" is invalid.')
              ErrorsFound=.true.
            ENDIF
          END IF
        END IF

        IF (NumAlpha > 6) THEN ! Optional parameters present--thermal comfort data follows...
          MustInpSch=.false.
          UsingThermalComfort=.false.
          lastOption = NumAlpha

          DO OptionNum = 14,lastOption

            SELECT CASE (AlphaName(OptionNum))

              CASE ('FANGER')
                People(Loop)%Fanger = .TRUE.
                MustInpSch=.true.
                UsingThermalComfort=.true.

              CASE ('PIERCE')
                People(Loop)%Pierce = .TRUE.
                MustInpSch=.true.
                UsingThermalComfort=.true.

              CASE ('KSU')
                People(Loop)%KSU    = .TRUE.
                MustInpSch=.true.
                UsingThermalComfort=.true.

              CASE ('ADAPTIVEASH55')
                People(Loop)%AdaptiveASH55 = .TRUE.
                AdaptiveComfortRequested_ASH55=.true.
                MustInpSch=.true.
                UsingThermalComfort=.true.

              CASE ('ADAPTIVECEN15251')
                People(Loop)%AdaptiveCEN15251 = .TRUE.
                AdaptiveComfortRequested_CEN15251=.true.
                MustInpSch=.true.
                UsingThermalComfort=.true.

              CASE (Blank) ! Blank input field--just ignore this

              CASE DEFAULT ! An invalid keyword was entered--warn but ignore
                IF (Item1 == 1) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                               '", invalid '//TRIM(cAlphaFieldNames(OptionNum))//' Option='//TRIM(AlphaName(OptionNum)))
                  CALL ShowContinueError('Valid Values are "Fanger", "Pierce", "KSU", "AdaptiveASH55", "AdaptiveCEN15251"')
                ENDIF
            END SELECT

          END DO

          IF (UsingThermalComfort) THEN

            ! Set the default value of MRTCalcType as 'ZoneAveraged'
            People(Loop)%MRTCalcType = ZoneAveraged

            ! MRT Calculation Type and Surface Name
            SELECT CASE (AlphaName(7))

                CASE ('ZONEAVERAGED')
                  People(Loop)%MRTCalcType = ZoneAveraged

                CASE ('SURFACEWEIGHTED')
                  People(Loop)%MRTCalcType = SurfaceWeighted
                  People(Loop)%SurfacePtr = FindIteminList(AlphaName(8),Surface%Name,TotSurfaces)
                  IF (People(Loop)%SurfacePtr == 0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                     '", '//TRIM(cAlphaFieldNames(7))//'='//TRIM(AlphaName(7))//  &
                                     ' invalid Surface Name='//TRIM(AlphaName(8)))
                      ErrorsFound=.true.
                    ENDIF
                  ELSEIF (Surface(People(Loop)%SurfacePtr)%Zone /= People(Loop)%ZonePtr) THEN
                    CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", Surface referenced in '//TRIM(cAlphaFieldNames(7))//'='//TRIM(AlphaName(8))//  &
                                   ' in different zone.')
                    CALL ShowContinueError('Surface is in Zone='//TRIM(Zone(Surface(People(Loop)%SurfacePtr)%Zone)%Name)// &
                                     ' and '//TRIM(CurrentModuleObject)//' is in Zone='//TRIM(AlphaName(2)))
                    ErrorsFound=.true.
                  ENDIF

                CASE ('ANGLEFACTOR')
                  People(Loop)%MRTCalcType = AngleFactor
                  People(Loop)%AngleFactorListName = AlphaName(8)

                CASE (Blank) ! Blank input field--just ignore this
                    IF (MustInpSch .and. Item1 == 1)   &
                       CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", blank '//TRIM(cAlphaFieldNames(7)))

                CASE DEFAULT ! An invalid keyword was entered--warn but ignore
                    IF (MustInpSch .and. Item1 == 1)  THEN
                      CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                  '", invalid '//TRIM(cAlphaFieldNames(7))//'='//TRIM(AlphaName(7)))
                      CALL ShowContinueError('...Valid values are "ZoneAveraged", "SurfaceWeighted", "AngleFactor".')
                    ENDIF
            END SELECT

            IF (.not. lAlphaFieldBlanks(9)) THEN
              People(Loop)%WorkEffPtr  = GetScheduleIndex(AlphaName(9))
              IF (People(Loop)%WorkEffPtr == 0) THEN
                IF (Item1 == 1) THEN
                  CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                       '", invalid '//TRIM(cAlphaFieldNames(9))//' entered='//TRIM(AlphaName(9)))
                  ErrorsFound=.true.
                ENDIF
              ELSE  ! check min/max on schedule
                SchMin=GetScheduleMinValue(People(Loop)%WorkEffPtr)
                SchMax=GetScheduleMaxValue(People(Loop)%WorkEffPtr)
                IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
                  IF (SchMin < 0.0d0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                         '", '//TRIM(cAlphaFieldNames(9))//', minimum is < 0.0')
                      CALL ShowContinueError('Schedule="'//TRIM(AlphaName(9))//  &
                                         '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                      ErrorsFound=.true.
                    ENDIF
                  ENDIF
                  IF (SchMax < 0.0d0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                         '", '//TRIM(cAlphaFieldNames(9))//', maximum is < 0.0')
                      CALL ShowContinueError('Schedule="'//TRIM(AlphaName(9))//  &
                                         '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                      ErrorsFound=.true.
                    ENDIF
                  ENDIF
                ENDIF
                IF (SchMax > 1.0d0) THEN
                  IF (Item1 == 1) THEN
                    CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                       '", '//TRIM(cAlphaFieldNames(9))//', maximum is > 1.0')
                    CALL ShowContinueError('Schedule="'//TRIM(AlphaName(9))//'"; '//  &
                                    'Entered min/max range=['//trim(RoundSigDigits(SchMin,1))//','//  &
                                     trim(RoundSigDigits(SchMax,1))//'] Work Efficiency.')
                  ENDIF
                ENDIF
              ENDIF
            ELSEIF (MustInpSch) THEN
              IF (Item1 == 1) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                     '", blank '//TRIM(cAlphaFieldNames(9))//' is required for this item.')
                ErrorsFound=.true.
              ENDIF
            ENDIF

            IF (.not. lAlphaFieldBlanks(10) .or. AlphaName(10) /= ' ') THEN
              SELECT CASE (AlphaName(10))
                CASE('CLOTHINGINSULATIONSCHEDULE')
                  People(Loop)%ClothingType = 1
                  People(Loop)%ClothingPtr  = GetScheduleIndex(AlphaName(12))
                  IF (People(Loop)%ClothingPtr == 0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                           '", invalid '//TRIM(cAlphaFieldNames(12))//' entered='//TRIM(AlphaName(12)))
                      ErrorsFound=.true.
                    ENDIF
                  ELSE  ! check min/max on schedule
                    SchMin=GetScheduleMinValue(People(Loop)%ClothingPtr)
                    SchMax=GetScheduleMaxValue(People(Loop)%ClothingPtr)
                    IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
                      IF (SchMin < 0.0d0) THEN
                        IF (Item1 == 1) THEN
                          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                             '", '//TRIM(cAlphaFieldNames(12))//', minimum is < 0.0')
                          CALL ShowContinueError('Schedule="'//TRIM(AlphaName(12))//  &
                                             '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                          ErrorsFound=.true.
                        ENDIF
                      ENDIF
                      IF (SchMax < 0.0d0) THEN
                        IF (Item1 == 1) THEN
                          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                             '", '//TRIM(cAlphaFieldNames(12))//', maximum is < 0.0')
                          CALL ShowContinueError('Schedule="'//TRIM(AlphaName(12))//  &
                                             '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                          ErrorsFound=.true.
                        ENDIF
                      ENDIF
                    ENDIF
                    IF (SchMax > 2.0d0) THEN
                      IF (Item1 == 1) THEN
                        CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                           '", '//TRIM(cAlphaFieldNames(12))//', maximum is > 2.0')
                        CALL ShowContinueError('Schedule="'//TRIM(AlphaName(12))//'"; '//  &
                                        'Entered min/max range=['//trim(RoundSigDigits(SchMin,1))//','//  &
                                         trim(RoundSigDigits(SchMax,1))//'] Clothing.')
                      ENDIF
                    ENDIF
                  ENDIF

                CASE('DYNAMICCLOTHINGMODELASHRAE55')
                  People(Loop)%ClothingType = 2

                CASE('CALCULATIONMETHODSCHEDULE')
                  People(Loop)%ClothingType = 3
                  People(Loop)%ClothingMethodPtr  = GetScheduleIndex(AlphaName(11))
                  IF (People(Loop)%ClothingMethodPtr == 0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                           '", invalid '//TRIM(cAlphaFieldNames(11))//' entered='//TRIM(AlphaName(11)))
                      ErrorsFound=.true.
                    ENDIF
                  ENDIF
                  IF (CheckScheduleValue(People(Loop)%ClothingMethodPtr,1)) THEN
                    People(Loop)%ClothingPtr  = GetScheduleIndex(AlphaName(12))
                    IF (People(Loop)%ClothingPtr == 0) THEN
                      IF (Item1 == 1) THEN
                        CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                           '", invalid '//TRIM(cAlphaFieldNames(12))//' entered='//TRIM(AlphaName(12)))
                        ErrorsFound=.true.
                      ENDIF
                    ENDIF
                  ENDIF

                CASE DEFAULT
                    CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(People(Loop)%Name)//  &
                                       '", invalid '//TRIM(cAlphaFieldNames(10))//', value  ='//  &
                                       TRIM(AlphaName(10)))
                    CALL ShowContinueError('...Valid values are "ClothingInsulationSchedule",'//   &
                                           '"DynamicClothingModelASHRAE55a", "CalculationMethodSchedule".')
                    ErrorsFound=.true.
              END SELECT
            ENDIF

            IF (.not. lAlphaFieldBlanks(13)) THEN
              People(Loop)%AirVelocityPtr  = GetScheduleIndex(AlphaName(13))
              IF (People(Loop)%AirVelocityPtr == 0) THEN
                IF (Item1 == 1) THEN
                  CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                       '", invalid '//TRIM(cAlphaFieldNames(13))//' entered='//TRIM(AlphaName(13)))
                  ErrorsFound=.true.
                ENDIF
              ELSE  ! check min/max on schedule
                SchMin=GetScheduleMinValue(People(Loop)%AirVelocityPtr)
                SchMax=GetScheduleMaxValue(People(Loop)%AirVelocityPtr)
                IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
                  IF (SchMin < 0.0d0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                         '", '//TRIM(cAlphaFieldNames(13))//', minimum is < 0.0')
                      CALL ShowContinueError('Schedule="'//TRIM(AlphaName(13))//  &
                                         '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                      ErrorsFound=.true.
                    ENDIF
                  ENDIF
                  IF (SchMax < 0.0d0) THEN
                    IF (Item1 == 1) THEN
                      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                         '", '//TRIM(cAlphaFieldNames(13))//', maximum is < 0.0')
                      CALL ShowContinueError('Schedule="'//TRIM(AlphaName(13))//  &
                                         '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                      ErrorsFound=.true.
                    ENDIF
                  ENDIF
                ENDIF
              ENDIF
            ELSEIF (MustInpSch) THEN
              IF (Item1 == 1) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                     '", blank '//TRIM(cAlphaFieldNames(13))//' is required for this item.')
                ErrorsFound=.true.
              ENDIF
            ENDIF

          ENDIF ! usingthermalcomfort block

        END IF  ! ...end of thermal comfort data IF-THEN block  (NumAlphas > 6)

        IF (People(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('People Occupant Count []',People(Loop)%NumOcc, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Radiant Heating Energy [J]',People(Loop)%RadGainEnergy, &
                                 'Zone','Sum',People(Loop)%Name)
        CALL SetupOutputVariable('People Radiant Heating Rate [W]',People(Loop)%RadGainRate, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Convective Heating Energy [J]',People(Loop)%ConGainEnergy, &
                                 'Zone','Sum',People(Loop)%Name)
        CALL SetupOutputVariable('People Convective Heating Rate [W]',People(Loop)%ConGainRate, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Sensible Heating Energy [J]',People(Loop)%SenGainEnergy, &
                                 'Zone','Sum',People(Loop)%Name)
        CALL SetupOutputVariable('People Sensible Heating Rate [W]',People(Loop)%SenGainRate, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Latent Gain Energy [J]',People(Loop)%LatGainEnergy, &
                                 'Zone','Sum',People(Loop)%Name)
        CALL SetupOutputVariable('People Latent Gain Rate [W]',People(Loop)%LatGainRate, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Total Heating Energy [J]',People(Loop)%TotGainEnergy, &
                                 'Zone','Sum',People(Loop)%Name)
        CALL SetupOutputVariable('People Total Heating Rate [W]',People(Loop)%TotGainRate, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Air Temperature [C]',People(Loop)%TemperatureInZone, &
                                 'Zone','Average',People(Loop)%Name)
        CALL SetupOutputVariable('People Air Relative Humidity [%]',People(Loop)%RelativeHumidityInZone, &
                                 'Zone','Average',People(Loop)%Name)

        ! Zone total report variables
        IF (RepVarSet(People(Loop)%ZonePtr)) THEN
          RepVarSet(People(Loop)%ZonePtr)=.false.
          CALL SetupOutputVariable('Zone People Occupant Count []',ZnRpt(People(Loop)%ZonePtr)%PeopleNumOcc, &
                                   'Zone','Average',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Radiant Heating Energy [J]',ZnRpt(People(Loop)%ZonePtr)%PeopleRadGain, &
                                   'Zone','Sum',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Radiant Heating Rate [W]',ZnRpt(People(Loop)%ZonePtr)%PeopleRadGainRate, &
                                   'Zone','Average',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Convective Heating Energy [J]',ZnRpt(People(Loop)%ZonePtr)%PeopleConGain, &
                                   'Zone','Sum',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Convective Heating Rate [W]',ZnRpt(People(Loop)%ZonePtr)%PeopleConGainRate, &
                                   'Zone','Average',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Sensible Heating Energy [J]',ZnRpt(People(Loop)%ZonePtr)%PeopleSenGain, &
                                   'Zone','Sum',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Sensible Heating Rate [W]',ZnRpt(People(Loop)%ZonePtr)%PeopleSenGainRate, &
                                   'Zone','Average',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Latent Gain Energy [J]',ZnRpt(People(Loop)%ZonePtr)%PeopleLatGain, &
                                   'Zone','Sum',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Latent Gain Rate [W]',ZnRpt(People(Loop)%ZonePtr)%PeopleLatGainRate, &
                                   'Zone','Average',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Total Heating Energy [J]',ZnRpt(People(Loop)%ZonePtr)%PeopleTotGain, &
                                   'Zone','Sum',Zone(People(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone People Total Heating Rate [W]',ZnRpt(People(Loop)%ZonePtr)%PeopleTotGainRate, &
                                   'Zone','Average',Zone(People(Loop)%ZonePtr)%Name)
        ENDIF

        IF (AnyEnergyManagementSystemInModel) THEN
          CALL SetupEMSActuator('People', People(Loop)%Name, 'Number of People', '[each]', &
                    People(Loop)%EMSPeopleOn  , People(Loop)%EMSNumberOfPeople )
          CALL SetupEMSInternalVariable( 'People Count Design Level'  , People(Loop)%Name,  '[each]', &
                                       People(Loop)%NumberOfPeople )
        ENDIF

        !setup internal gains
        IF (.not. ErrorsFound)   &
           CALL SetupZoneInternalGain(People(Loop)%ZonePtr, &
                           'People', &
                           People(Loop)%Name, &
                           IntGainTypeOf_People, &
                           ConvectionGainRate       = People(Loop)%ConGainRate,&
                           ThermalRadiationGainRate = People(Loop)%RadGainRate, &
                           LatentGainRate           = People(Loop)%LatGainRate, &
                           CarbonDioxideGainRate    = People(Loop)%CO2GainRate)

      END DO ! Item1 - number of zones
    END DO ! Item - number of people statements
  ENDIF ! TotPeople > 0

  !transfer the nominal number of people in a zone to the tabular reporting
  DO Loop = 1,NumOfZones
    IF (Zone(Loop)%TotOccupants > 0.0d0) THEN
      IF (Zone(Loop)%FloorArea > 0.0d0 .and. Zone(Loop)%FloorArea/Zone(Loop)%TotOccupants < .1d0) THEN
        CALL ShowWarningError(RoutineName//'Zone="'//trim(Zone(Loop)%Name)//'" occupant density is extremely high.')
        IF (Zone(Loop)%FloorArea > 0.0d0) THEN
          CALL ShowContinueError('Occupant Density=['//trim(RoundSigDigits(Zone(Loop)%TotOccupants/Zone(Loop)%FloorArea,0))//  &
              '] person/m2.')
        ENDIF
        CALL ShowContinueError('Occupant Density=['//trim(RoundSigDigits(Zone(Loop)%FloorArea/Zone(Loop)%TotOccupants,3))//  &
           '] m2/person. Problems in Temperature Out of Bounds may result.')
      ENDIF
      maxOccupLoad=0.0d0
      DO Loop1=1,TotPeople
        IF (People(Loop1)%ZonePtr /= Loop) CYCLE
        IF (maxOccupLoad < GetScheduleMaxValue(People(Loop1)%NumberOfPeoplePtr)*People(Loop1)%NumberOfPeople) THEN
          maxOccupLoad=GetScheduleMaxValue(People(Loop1)%NumberOfPeoplePtr)*People(Loop1)%NumberOfPeople
          MaxNumber=People(Loop1)%NumberOfPeoplePtr
          OptionNum=Loop1
        ENDIF
      ENDDO
      IF (maxOccupLoad > Zone(Loop)%TotOccupants) THEN
        IF (Zone(Loop)%FloorArea > 0.0d0 .and. Zone(Loop)%FloorArea/maxOccupLoad < .1d0) THEN
          CALL ShowWarningError(RoutineName//'Zone="'//trim(Zone(Loop)%Name)//  &
               '" occupant density at a maximum schedule value is extremely high.')
          IF (Zone(Loop)%FloorArea > 0.0d0) THEN
            CALL ShowContinueError('Occupant Density=['//  &
               trim(RoundSigDigits(maxOccupLoad/Zone(Loop)%FloorArea,0))//  &
                '] person/m2.')
          ENDIF
          CALL ShowContinueError('Occupant Density=['//trim(RoundSigDigits(Zone(Loop)%FloorArea/maxOccupLoad,3))//  &
             '] m2/person. Problems in Temperature Out of Bounds may result.')
          CALL ShowContinueError('Check values in People='//trim(People(OptionNum)%Name)//', Number of People Schedule='//  &
             trim(GetScheduleName(MaxNumber)))
        ENDIF
      ENDIF
    ENDIF

    IF (Zone(Loop)%IsNominalControlled) THEN !conditioned zones only
      IF (Zone(Loop)%TotOccupants .GT. 0.0d0) THEN
        Zone(Loop)%isNominalOccupied = .true.
        CALL PreDefTableEntry(pdchOaoNomNumOcc1,Zone(Loop)%name,Zone(Loop)%TotOccupants)
        CALL PreDefTableEntry(pdchOaoNomNumOcc2,Zone(Loop)%name,Zone(Loop)%TotOccupants)
      END IF
    END IF
  END DO

  RepVarSet=.true.
  CurrentModuleObject='Lights'
  NumLightsStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(LightsObjects(NumLightsStatements))

  TotLights=0
  ErrFlag=.false.
  DO Item=1,NumLightsStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),LightsObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    LightsObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      LightsObjects(Item)%StartPtr=TotLights+1
      TotLights=TotLights+1
      LightsObjects(Item)%NumOfZones=1
      LightsObjects(Item)%ZoneListActive=.false.
      LightsObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      LightsObjects(Item)%StartPtr=TotLights+1
      TotLights=TotLights+ZoneList(ZLItem)%NumOfZones
      LightsObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      LightsObjects(Item)%ZoneListActive=.true.
      LightsObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotLights=0
  ENDIF

  ALLOCATE(Lights(TotLights))

  IF (TotLights > 0) THEN
    Loop=0
    DO Item = 1, NumLightsStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,LightsObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. LightsObjects(Item)%ZoneListActive) THEN
          Lights(Loop)%Name = AlphaName(1)
          Lights(Loop)%ZonePtr = LightsObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(LightsObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(LightsObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        LightsObjects(Item)%Name,     &
                                        Lights%Name,           &
                                        Loop-1,                       &
                                        Lights(Loop)%Name,            &
                                        ErrFlag)
          Lights(Loop)%ZonePtr = ZoneList(LightsObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        Lights(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (Lights(Loop)%SchedPtr == 0) THEN
          IF (Item1 == 1) THEN
            IF (lAlphaFieldBlanks(3)) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//' is required.')
            ELSE
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
            ENDIF
            ErrorsFound=.true.
          ENDIF
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(Lights(Loop)%SchedPtr)
          SchMax=GetScheduleMaxValue(Lights(Loop)%SchedPtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (Item1 == 1) THEN
              IF (SchMin < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                   '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (Item1 == 1) THEN
              IF (SchMax < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                   '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
          ENDIF
        ENDIF

        ! Lights Design Level calculation method.
        SELECT CASE (AlphaName(4))
          CASE('LIGHTINGLEVEL')
            Lights(Loop)%DesignLevel=IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 Lights will result.')
            ENDIF

          CASE('WATTS/AREA')
            IF (Lights(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(2) >= 0.0d0) THEN
                Lights(Loop)%DesignLevel=IHGNumbers(2)*Zone(Lights(Loop)%ZonePtr)%FloorArea
                IF (Zone(Lights(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 Lights will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                                 '", invalid '//TRIM(cNumericFieldNames(2))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(2),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 Lights will result.')
            ENDIF

          CASE('WATTS/PERSON')
            IF (Lights(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(3) >= 0.0d0) THEN
                Lights(Loop)%DesignLevel=IHGNumbers(3)*Zone(Lights(Loop)%ZonePtr)%TotOccupants
                IF (Zone(Lights(Loop)%ZonePtr)%TotOccupants <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Total Occupants = 0.  0 Lights will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                                 '", invalid '//TRIM(cNumericFieldNames(3))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(3),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(Lights(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 Lights will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                   TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "LightingLevel", "Watts/Area", "Watts/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max lighting level
        Lights(Loop)%NomMinDesignLevel=Lights(Loop)%DesignLevel*SchMin
        Lights(Loop)%NomMaxDesignLevel=Lights(Loop)%DesignLevel*SchMax

        Lights(Loop)%FractionReturnAir=IHGNumbers(4)
        Lights(Loop)%FractionRadiant=IHGNumbers(5)
        Lights(Loop)%FractionShortWave=IHGNumbers(6)
        Lights(Loop)%FractionReplaceable=IHGNumbers(7)
        Lights(Loop)%FractionReturnAirPlenTempCoeff1=IHGNumbers(8)
        Lights(Loop)%FractionReturnAirPlenTempCoeff2=IHGNumbers(9)

        Lights(Loop)%FractionConvected=1.0d0 - (Lights(Loop)%FractionReturnAir +   &
                                              Lights(Loop)%FractionRadiant   +   &
                                              Lights(Loop)%FractionShortWave)
        IF (ABS(Lights(Loop)%FractionConvected) <= .001d0) Lights(Loop)%FractionConvected=0.0d0
        IF (Lights(Loop)%FractionConvected < 0.0d0) THEN
          IF (Item1 == 1) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", Sum of Fractions > 1.0')
            ErrorsFound=.true.
          ENDIF
        ENDIF

        ! Note: if FractionReturnAirIsCalculated = Yes and there is a return-air plenum:
        ! (1) The input values of FractionReturnAir, FractionRadiant and FractionShortWave, and the
        ! value of FractionConvected calculated from these are used in the zone sizing calculations;
        ! (2) in the regular calculation, FractionReturnAir is calculated each time step in
        ! Subr. InitInternalHeatGains as a function of the zone's return plenum air temperature
        ! using FractionReturnAirPlenTempCoeff1 and FractionReturnAirPlenTempCoeff2; then
        ! FractionRadiant and FractionConvected are adjusted from their input values such that
        ! FractionReturnAir + FractionRadiant + FractionShortWave + FractionConvected = 1.0, assuming
        ! FractionShortWave is constant and equal to its input value.

        IF (NumAlpha > 4) THEN
          Lights(Loop)%EndUseSubcategory = AlphaName(5)
        ELSE
          Lights(Loop)%EndUseSubcategory = 'General'
        END IF

        IF (lAlphaFieldBlanks(6)) THEN
          Lights(Loop)%FractionReturnAirIsCalculated=.false.
        ELSEIF (AlphaName(6) /= 'YES' .and. AlphaName(6) /= 'NO') THEN
          IF (Item1 == 1) THEN
            CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", invalid '//TRIM(cAlphaFieldNames(6))//', value  ='//  &
                                   TRIM(AlphaName(6)))
            CALL ShowContinueError('.. Return Air Fraction from Plenum will NOT be calculated.')
          ENDIF
          Lights(Loop)%FractionReturnAirIsCalculated=.false.
        ELSE
          Lights(Loop)%FractionReturnAirIsCalculated=(AlphaName(6) == 'YES')
        ENDIF

        IF (Lights(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('Lights Electric Power [W]',Lights(Loop)%Power, &
                                  'Zone','Average',Lights(Loop)%Name)

        CALL SetupOutputVariable('Lights Radiant Heating Energy [J]',Lights(Loop)%RadGainEnergy, &
                                  'Zone','Sum',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Radiant Heating Rate [W]',Lights(Loop)%RadGainRate, &
                                  'Zone','Average',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Visible Radiation Heating Energy [J]',Lights(Loop)%VisGainEnergy, &
                                  'Zone','Sum',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Visible Radiation Heating Rate [W]',Lights(Loop)%VisGainRate, &
                                  'Zone','Average',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Convective Heating Energy [J]',Lights(Loop)%ConGainEnergy, &
                                  'Zone','Sum',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Convective Heating Rate [W]',Lights(Loop)%ConGainRate, &
                                  'Zone','Average',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Return Air Heating Energy [J]',Lights(Loop)%RetAirGainEnergy, &
                                  'Zone','Sum',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Return Air Heating Rate [W]',Lights(Loop)%RetAirGainRate, &
                                  'Zone','Average',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Total Heating Energy [J]',Lights(Loop)%TotGainEnergy, &
                                  'Zone','Sum',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Total Heating Rate [W]',Lights(Loop)%TotGainRate, &
                                  'Zone','Average',Lights(Loop)%Name)
        CALL SetupOutputVariable('Lights Electric Energy [J]',Lights(Loop)%Consumption, &
                                  'Zone','Sum',Lights(Loop)%Name,ResourceTypeKey='Electricity', &
                                  GroupKey='Building',ZoneKey=Zone(Lights(Loop)%ZonePtr)%Name, &
                                  EndUseKey='InteriorLights',EndUseSubKey=Lights(Loop)%EndUseSubcategory, &
                                  ZoneMult=Zone(Lights(Loop)%ZonePtr)%Multiplier, &
                                  ZoneListMult=Zone(Lights(Loop)%ZonePtr)%ListMultiplier)

        ! Zone total report variables
        IF (RepVarSet(Lights(Loop)%ZonePtr)) THEN
          RepVarSet(Lights(Loop)%ZonePtr)=.false.
          CALL SetupOutputVariable('Zone Lights Electric Power [W]',ZnRpt(Lights(Loop)%ZonePtr)%LtsPower, &
                                    'Zone','Average',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Electric Energy [J]',ZnRpt(Lights(Loop)%ZonePtr)%LtsElecConsump,  &
                                    'Zone','Sum',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Radiant Heating Energy [J]',ZnRpt(Lights(Loop)%ZonePtr)%LtsRadGain, &
                                    'Zone','Sum',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Radiant Heating Rate [W]',ZnRpt(Lights(Loop)%ZonePtr)%LtsRadGainRate, &
                                    'Zone','Average',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Visible Radiation Heating Energy [J]',ZnRpt(Lights(Loop)%ZonePtr)%LtsVisGain,  &
                                    'Zone','Sum',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Visible Radiation Heating Rate [W]',ZnRpt(Lights(Loop)%ZonePtr)%LtsVisGainRate,  &
                                    'Zone','Average',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Convective Heating Energy [J]',ZnRpt(Lights(Loop)%ZonePtr)%LtsConGain,  &
                                    'Zone','Sum',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Convective Heating Rate [W]',ZnRpt(Lights(Loop)%ZonePtr)%LtsConGainRate,  &
                                    'Zone','Average',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Return Air Heating Energy [J]',ZnRpt(Lights(Loop)%ZonePtr)%LtsRetAirGain,  &
                                    'Zone','Sum',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Return Air Heating Rate [W]',ZnRpt(Lights(Loop)%ZonePtr)%LtsRetAirGainRate,  &
                                    'Zone','Average',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Total Heating Energy [J]',ZnRpt(Lights(Loop)%ZonePtr)%LtsTotGain,  &
                                    'Zone','Sum',Zone(Lights(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Lights Total Heating Rate [W]',ZnRpt(Lights(Loop)%ZonePtr)%LtsTotGainRate,  &
                                    'Zone','Average',Zone(Lights(Loop)%ZonePtr)%Name)
        END IF

        IF (AnyEnergyManagementSystemInModel) Then
          CALL SetupEMSActuator('Lights', Lights(Loop)%Name, 'Electric Power Level', '[W]', &
                    Lights(Loop)%EMSLightsOn  , Lights(Loop)%EMSLightingPower )
          CALL SetupEMSInternalVariable( 'Lighting Power Design Level', Lights(Loop)%Name, '[W]' ,&
                                           Lights(Loop)%DesignLevel )
        ENDIF ! EMS
                !setup internal gains
        IF (.not. ErrorsFound)   &
          CALL SetupZoneInternalGain(Lights(Loop)%ZonePtr, &
                           'Lights', &
                           Lights(Loop)%Name, &
                           IntGainTypeOf_Lights, &
                           ConvectionGainRate          = Lights(Loop)%ConGainRate,&
                           ThermalRadiationGainRate    = Lights(Loop)%RadGainRate, &
                           ReturnAirConvectionGainRate = Lights(Loop)%RetAirGainRate)


        ! send values to predefined lighting summary report
        liteName = Lights(loop)%Name
        zonePt = Lights(loop)%ZonePtr
        mult = Zone(zonePt)%Multiplier * Zone(zonePt)%ListMultiplier
        sumArea = sumArea + Zone(zonePt)%FloorArea * mult
        sumPower = sumPower + Lights(loop)%DesignLevel * mult
        CALL PreDefTableEntry(pdchInLtZone,liteName,Zone(zonePt)%Name)
        IF(Zone(zonePt)%FloorArea .GT. 0.0d0)THEN
          CALL PreDefTableEntry(pdchInLtDens,liteName,Lights(loop)%DesignLevel / Zone(zonePt)%FloorArea, 4)
        ELSE
          CALL PreDefTableEntry(pdchInLtDens,liteName,constant_zero, 4)
        END IF
        CALL PreDefTableEntry(pdchInLtArea,liteName,Zone(zonePt)%FloorArea * mult)
        CALL PreDefTableEntry(pdchInLtPower,liteName,Lights(loop)%DesignLevel * mult)
        CALL PreDefTableEntry(pdchInLtEndUse,liteName,Lights(loop)%EndUseSubcategory)
        CALL PreDefTableEntry(pdchInLtSchd,liteName,GetScheduleName(Lights(loop)%SchedPtr))
        CALL PreDefTableEntry(pdchInLtRetAir,liteName,Lights(loop)%FractionReturnAir,4)
      END DO ! Item1 - zones
    END DO ! Item = Number of Lights Objects
  END IF  ! TotLights > 0 check
  ! add total line to lighting summary table
  IF(sumArea .GT. 0.0d0)THEN
    CALL PreDefTableEntry(pdchInLtDens,'Interior Lighting Total',sumPower/sumArea, 4)  !** line 792
  ELSE
    CALL PreDefTableEntry(pdchInLtDens,'Interior Lighting Total',constant_zero, 4)
  END IF
  CALL PreDefTableEntry(pdchInLtArea,'Interior Lighting Total',sumArea)
  CALL PreDefTableEntry(pdchInLtPower,'Interior Lighting Total',sumPower)

  RepVarSet=.true.
  CurrentModuleObject='ElectricEquipment'
  NumZoneElectricStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(ZoneElectricObjects(NumZoneElectricStatements))

  TotElecEquip=0
  ErrFlag=.false.
  DO Item=1,NumZoneElectricStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),ZoneElectricObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    ZoneElectricObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      ZoneElectricObjects(Item)%StartPtr=TotElecEquip+1
      TotElecEquip=TotElecEquip+1
      ZoneElectricObjects(Item)%NumOfZones=1
      ZoneElectricObjects(Item)%ZoneListActive=.false.
      ZoneElectricObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      ZoneElectricObjects(Item)%StartPtr=TotElecEquip+1
      TotElecEquip=TotElecEquip+ZoneList(ZLItem)%NumOfZones
      ZoneElectricObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      ZoneElectricObjects(Item)%ZoneListActive=.true.
      ZoneElectricObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotElecEquip=0
  ENDIF

  ALLOCATE(ZoneElectric(TotElecEquip))

  IF (TotElecEquip > 0) THEN
    Loop=0
    DO Item = 1, NumZoneElectricStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,ZoneElectricObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. ZoneElectricObjects(Item)%ZoneListActive) THEN
          ZoneElectric(Loop)%Name = AlphaName(1)
          ZoneElectric(Loop)%ZonePtr = ZoneElectricObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(ZoneElectricObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(ZoneElectricObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        ZoneElectricObjects(Item)%Name,     &
                                        ZoneElectric%Name,           &
                                        Loop-1,                       &
                                        ZoneElectric(Loop)%Name,            &
                                        ErrFlag)
          ZoneElectric(Loop)%ZonePtr = ZoneList(ZoneElectricObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        ZoneElectric(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (ZoneElectric(Loop)%SchedPtr == 0) THEN
          IF (lAlphaFieldBlanks(3)) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//' is required.')
          ELSE
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
          ENDIF
          ErrorsFound=.true.
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(ZoneElectric(Loop)%SchedPtr)
          SchMax=GetScheduleMaxValue(ZoneElectric(Loop)%SchedPtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (SchMin < 0.0d0) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
              CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                 '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
              ErrorsFound=.true.
            ENDIF
            IF (SchMax < 0.0d0) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
              CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                 '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
              ErrorsFound=.true.
            ENDIF
          ENDIF
        ENDIF

        ! Electric equipment design level calculation method.
        SELECT CASE (AlphaName(4))
          CASE('EQUIPMENTLEVEL')
            ZoneElectric(Loop)%DesignLevel=IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 Electric Equipment will result.')
            ENDIF

          CASE('WATTS/AREA')
            IF (ZoneElectric(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(2) >= 0.0d0) THEN
                ZoneElectric(Loop)%DesignLevel=IHGNumbers(2)*Zone(ZoneElectric(Loop)%ZonePtr)%FloorArea
                IF (Zone(ZoneElectric(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 Electric Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cNumericFieldNames(2))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(2),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 Electric Equipment will result.')
            ENDIF

          CASE('WATTS/PERSON')
            IF (ZoneElectric(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(3) >= 0.0d0) THEN
                ZoneElectric(Loop)%DesignLevel=IHGNumbers(3)*Zone(ZoneElectric(Loop)%ZonePtr)%TotOccupants
                IF (Zone(ZoneElectric(Loop)%ZonePtr)%TotOccupants <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Total Occupants = 0.  0 Electric Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cNumericFieldNames(3))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(3),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 Electric Equipment will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                 TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "EquipmentLevel", "Watts/Area", "Watts/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max equipment level
        ZoneElectric(Loop)%NomMinDesignLevel=ZoneElectric(Loop)%DesignLevel*SchMin
        ZoneElectric(Loop)%NomMaxDesignLevel=ZoneElectric(Loop)%DesignLevel*SchMax

        ZoneElectric(Loop)%FractionLatent=IHGNumbers(4)
        ZoneElectric(Loop)%FractionRadiant=IHGNumbers(5)
        ZoneElectric(Loop)%FractionLost=IHGNumbers(6)
                   ! FractionConvected is a calculated field
        ZoneElectric(Loop)%FractionConvected=1.0d0 - (ZoneElectric(Loop)%FractionLatent +   &
                                                    ZoneElectric(Loop)%FractionRadiant +   &
                                                    ZoneElectric(Loop)%FractionLost)
        IF (ABS(ZoneElectric(Loop)%FractionConvected) <= .001d0) ZoneElectric(Loop)%FractionConvected=0.0d0
        IF (ZoneElectric(Loop)%FractionConvected < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", Sum of Fractions > 1.0')
          ErrorsFound=.true.
        ENDIF

        IF (NumAlpha > 4) THEN
          ZoneElectric(Loop)%EndUseSubcategory = AlphaName(5)
        ELSE
          ZoneElectric(Loop)%EndUseSubcategory = 'General'
        END IF

        IF (ZoneElectric(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('Electric Equipment Electric Power [W]',ZoneElectric(Loop)%Power, &
                                 'Zone','Average',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Electric Energy [J]',ZoneElectric(Loop)%Consumption, &
                                 'Zone','Sum',ZoneElectric(Loop)%Name,ResourceTypeKey='Electricity', &
                                 GroupKey='Building',ZoneKey=Zone(ZoneElectric(Loop)%ZonePtr)%Name, &
                                 EndUseKey='InteriorEquipment',EndUseSubKey=ZoneElectric(Loop)%EndUseSubcategory, &
                                 ZoneMult=Zone(ZoneElectric(Loop)%ZonePtr)%Multiplier, &
                                 ZoneListMult=Zone(ZoneElectric(Loop)%ZonePtr)%ListMultiplier)

        CALL SetupOutputVariable('Electric Equipment Radiant Heating Energy [J]',ZoneElectric(Loop)%RadGainEnergy, &
                                 'Zone','Sum',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Radiant Heating Rate [W]',ZoneElectric(Loop)%RadGainRate, &
                                 'Zone','Average',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Convective Heating Energy [J]',ZoneElectric(Loop)%ConGainEnergy, &
                                 'Zone','Sum',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Convective Heating Rate [W]',ZoneElectric(Loop)%ConGainRate, &
                                 'Zone','Average',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Latent Gain Energy [J]',ZoneElectric(Loop)%LatGainEnergy, &
                                 'Zone','Sum',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Latent Gain Rate [W]',ZoneElectric(Loop)%LatGainRate, &
                                 'Zone','Average',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Lost Heat Energy [J]',ZoneElectric(Loop)%LostEnergy, &
                                 'Zone','Sum',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Lost Heat Rate [W]',ZoneElectric(Loop)%LostRate, &
                                 'Zone','Average',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Total Heating Energy [J]',ZoneElectric(Loop)%TotGainEnergy, &
                                 'Zone','Sum',ZoneElectric(Loop)%Name)
        CALL SetupOutputVariable('Electric Equipment Total Heating Rate [W]',ZoneElectric(Loop)%TotGainRate, &
                                 'Zone','Average',ZoneElectric(Loop)%Name)

        ! Zone total report variables
        IF (RepVarSet(ZoneElectric(Loop)%ZonePtr)) THEN
          RepVarSet(ZoneElectric(Loop)%ZonePtr)=.false.
          CALL SetupOutputVariable('Zone Electric Equipment Electric Power [W]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecPower, &
                                   'Zone','Average',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Electric Energy [J]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecConsump, &
                                   'Zone','Sum',Zone(ZoneElectric(Loop)%ZonePtr)%Name)

          CALL SetupOutputVariable('Zone Electric Equipment Radiant Heating Energy [J]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecRadGain, &
                                   'Zone','Sum',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Radiant Heating Rate [W]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecRadGainRate, &
                                   'Zone','Average',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Convective Heating Energy [J]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecConGain, &
                                   'Zone','Sum',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Convective Heating Rate [W]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecConGainRate, &
                                   'Zone','Average',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Latent Gain Energy [J]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecLatGain, &
                                   'Zone','Sum',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Latent Gain Rate [W]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecLatGainRate, &
                                   'Zone','Average',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Lost Heat Energy [J]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecLost, &
                                   'Zone','Sum',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Lost Heat Rate [W]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecLostRate, &
                                   'Zone','Average',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Total Heating Energy [J]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecTotGain, &
                                   'Zone','Sum',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Electric Equipment Total Heating Rate [W]',  &
             ZnRpt(ZoneElectric(Loop)%ZonePtr)%ElecTotGainRate, &
                                   'Zone','Average',Zone(ZoneElectric(Loop)%ZonePtr)%Name)
        ENDIF

        IF (AnyEnergyManagementSystemInModel) Then
          CALL SetupEMSActuator('ElectricEquipment', ZoneElectric(Loop)%Name, 'Electric Power Level', '[W]', &
                    ZoneElectric(Loop)%EMSZoneEquipOverrideOn  , ZoneElectric(Loop)%EMSEquipPower )
          CALL SetupEMSInternalVariable( 'Plug and Process Power Design Level', ZoneElectric(Loop)%Name, '[W]' ,&
                                           ZoneElectric(Loop)%DesignLevel )
        ENDIF ! EMS

        IF (.not. ErrorsFound)   &
          CALL SetupZoneInternalGain(ZoneElectric(Loop)%ZonePtr, &
                   'ElectricEquipment', &
                   ZoneElectric(Loop)%Name, &
                   IntGainTypeOf_ElectricEquipment, &
                   ConvectionGainRate          = ZoneElectric(Loop)%ConGainRate,&
                   ThermalRadiationGainRate    = ZoneElectric(Loop)%RadGainRate, &
                   LatentGainRate              = ZoneElectric(Loop)%LatGainRate)

      END DO ! Item1
    END DO ! Item - Number of ZoneElectric objects
  END IF ! Check on number of ZoneElectric


  RepVarSet=.true.
  CurrentModuleObject='GasEquipment'
  NumZoneGasStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(ZoneGasObjects(NumZoneGasStatements))

  TotGasEquip=0
  ErrFlag=.false.
  DO Item=1,NumZoneGasStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),ZoneGasObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    ZoneGasObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      ZoneGasObjects(Item)%StartPtr=TotGasEquip+1
      TotGasEquip=TotGasEquip+1
      ZoneGasObjects(Item)%NumOfZones=1
      ZoneGasObjects(Item)%ZoneListActive=.false.
      ZoneGasObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      ZoneGasObjects(Item)%StartPtr=TotGasEquip+1
      TotGasEquip=TotGasEquip+ZoneList(ZLItem)%NumOfZones
      ZoneGasObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      ZoneGasObjects(Item)%ZoneListActive=.true.
      ZoneGasObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotGasEquip=0
  ENDIF

  ALLOCATE(ZoneGas(TotGasEquip))

  IF (TotGasEquip > 0) THEN
    Loop=0
    DO Item = 1, NumZoneGasStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,ZoneGasObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. ZoneGasObjects(Item)%ZoneListActive) THEN
          ZoneGas(Loop)%Name = AlphaName(1)
          ZoneGas(Loop)%ZonePtr = ZoneGasObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(ZoneGasObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(ZoneGasObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        ZoneGasObjects(Item)%Name,     &
                                        ZoneGas%Name,           &
                                        Loop-1,                       &
                                        ZoneGas(Loop)%Name,            &
                                        ErrFlag)
          ZoneGas(Loop)%ZonePtr = ZoneList(ZoneGasObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        ZoneGas(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (ZoneGas(Loop)%SchedPtr == 0) THEN
          IF (Item1 == 1) THEN
            IF (lAlphaFieldBlanks(3)) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//' is required.')
            ELSE
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
            ENDIF
            ErrorsFound=.true.
          ENDIF
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(ZoneGas(Loop)%SchedPtr)
          SchMax=GetScheduleMaxValue(ZoneGas(Loop)%SchedPtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (Item1 == 1) THEN
              IF (SchMin < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                   '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (Item1 == 1) THEN
              IF (SchMax < 0.0d0) THEN
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
                CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                   '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
                ErrorsFound=.true.
              ENDIF
            ENDIF
          ENDIF
        ENDIF

        ! equipment design level calculation method.
        SELECT CASE (AlphaName(4))
          CASE('EQUIPMENTLEVEL')
            ZoneGas(Loop)%DesignLevel=IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 Gas Equipment will result.')
            ENDIF

          CASE('WATTS/AREA','POWER/AREA')
            IF (ZoneGas(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(2) >= 0.0d0) THEN
                ZoneGas(Loop)%DesignLevel=IHGNumbers(2)*Zone(ZoneGas(Loop)%ZonePtr)%FloorArea
                IF (Zone(ZoneGas(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 Gas Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                                 '", invalid '//TRIM(cNumericFieldNames(2))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(2),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 Gas Equipment will result.')
            ENDIF

          CASE('WATTS/PERSON','POWER/PERSON')
            IF (ZoneGas(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(3) >= 0.0d0) THEN
                ZoneGas(Loop)%DesignLevel=IHGNumbers(3)*Zone(ZoneGas(Loop)%ZonePtr)%TotOccupants
                IF (Zone(ZoneGas(Loop)%ZonePtr)%TotOccupants <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Total Occupants = 0.  0 Gas Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                                 '", invalid '//TRIM(cNumericFieldNames(3))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(3),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(ZoneGas(Loop)%Name)//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 Gas Equipment will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                 TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "EquipmentLevel", "Watts/Area", "Watts/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max equipment level
        ZoneGas(Loop)%NomMinDesignLevel=ZoneGas(Loop)%DesignLevel*SchMin
        ZoneGas(Loop)%NomMaxDesignLevel=ZoneGas(Loop)%DesignLevel*SchMax

        ZoneGas(Loop)%FractionLatent=IHGNumbers(4)
        ZoneGas(Loop)%FractionRadiant=IHGNumbers(5)
        ZoneGas(Loop)%FractionLost=IHGNumbers(6)

        IF ((NumNumber .EQ. 7) .OR. (.not. lNumericFieldBlanks(7))) THEN
          ZoneGas(Loop)%CO2RateFactor=IHGNumbers(7)
        END IF
        If (ZoneGas(Loop)%CO2RateFactor .LT. 0.d0) Then
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                           '", '//TRIM(cNumericFieldNames(7))//' < 0.0, value ='//  &
                           TRIM(RoundSigDigits(IHGNumbers(7),2)))
          ErrorsFound=.true.
        End If
        If (ZoneGas(Loop)%CO2RateFactor .GT. 4.0d-7) Then
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cNumericFieldNames(7))//' > 4.0E-7, value ='//  &
                             TRIM(RoundSigDigits(IHGNumbers(7),2)))
          ErrorsFound=.true.
        End If
                   ! FractionConvected is a calculated field
        ZoneGas(Loop)%FractionConvected=1.0d0 - (ZoneGas(Loop)%FractionLatent  +  &
                                               ZoneGas(Loop)%FractionRadiant  +  &
                                               ZoneGas(Loop)%FractionLost)
        IF (ABS(ZoneGas(Loop)%FractionConvected) <= .001d0) ZoneGas(Loop)%FractionConvected=0.0d0
        IF (ZoneGas(Loop)%FractionConvected < 0.0d0) THEN
          IF (Item1 == 1) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                   '", Sum of Fractions > 1.0')
            ErrorsFound=.true.
          ENDIF
        ENDIF

        IF (NumAlpha > 4) THEN
          ZoneGas(Loop)%EndUseSubcategory = AlphaName(5)
        ELSE
          ZoneGas(Loop)%EndUseSubcategory = 'General'
        END IF

        IF (ZoneGas(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('Gas Equipment Gas Rate [W]',ZoneGas(Loop)%Power, &
                                 'Zone','Average',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Gas Energy [J]',ZoneGas(Loop)%Consumption, &
                                 'Zone','Sum',ZoneGas(Loop)%Name,ResourceTypeKey='Gas', &
                                 GroupKey='Building',ZoneKey=Zone(ZoneGas(Loop)%ZonePtr)%Name, &
                                 EndUseKey='InteriorEquipment',EndUseSubKey=ZoneGas(Loop)%EndUseSubcategory, &
                                 ZoneMult=Zone(ZoneGas(Loop)%ZonePtr)%Multiplier, &
                                 ZoneListMult=Zone(ZoneGas(Loop)%ZonePtr)%ListMultiplier)

        CALL SetupOutputVariable('Gas Equipment Radiant Heating Energy [J]',ZoneGas(Loop)%RadGainEnergy, &
                                 'Zone','Sum',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Convective Heating Energy [J]',ZoneGas(Loop)%ConGainEnergy, &
                                 'Zone','Sum',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Latent Gain Energy [J]',ZoneGas(Loop)%LatGainEnergy, &
                                 'Zone','Sum',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Lost Heat Energy [J]',ZoneGas(Loop)%LostEnergy, &
                                 'Zone','Sum',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Total Heating Energy [J]',ZoneGas(Loop)%TotGainEnergy, &
                                 'Zone','Sum',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Radiant Heating Rate [W]',ZoneGas(Loop)%RadGainRate, &
                                 'Zone','Average',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Convective Heating Rate [W]',ZoneGas(Loop)%ConGainRate, &
                                 'Zone','Average',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Latent Gain Rate [W]',ZoneGas(Loop)%LatGainRate, &
                                 'Zone','Average',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Lost Heat Rate [W]',ZoneGas(Loop)%LostRate, &
                                 'Zone','Average',ZoneGas(Loop)%Name)
        CALL SetupOutputVariable('Gas Equipment Total Heating Rate [W]',ZoneGas(Loop)%TotGainRate, &
                                 'Zone','Average',ZoneGas(Loop)%Name)

        ! Zone total report variables
        IF (RepVarSet(ZoneGas(Loop)%ZonePtr)) THEN
          RepVarSet(ZoneGas(Loop)%ZonePtr)=.false.

          CALL SetupOutputVariable('Zone Gas Equipment Gas Rate [W]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasPower, &
                                   'Zone','Average',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Gas Energy [J]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasConsump, &
                                   'Zone','Sum',Zone(ZoneGas(Loop)%ZonePtr)%Name)

          CALL SetupOutputVariable('Zone Gas Equipment Radiant Heating Energy [J]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasRadGain, &
                                   'Zone','Sum',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Radiant Heating Rate [W]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasRadGainRate, &
                                   'Zone','Average',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Convective Heating Energy [J]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasConGain, &
                                   'Zone','Sum',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Convective Heating Rate [W]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasConGainRate, &
                                   'Zone','Average',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Latent Gain Energy [J]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasLatGain, &
                                   'Zone','Sum',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Latent Gain Rate [W]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasLatGainRate, &
                                   'Zone','Average',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Lost Heat Energy [J]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasLost, &
                                   'Zone','Sum',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Lost Heat Rate [W]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasLostRate, &
                                   'Zone','Average',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Total Heating Energy [J]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasTotGain, &
                                   'Zone','Sum',Zone(ZoneGas(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Gas Equipment Total Heating Rate [W]',ZnRpt(ZoneGas(Loop)%ZonePtr)%GasTotGainRate, &
                                   'Zone','Average',Zone(ZoneGas(Loop)%ZonePtr)%Name)
        ENDIF

        IF (AnyEnergyManagementSystemInModel) Then
          CALL SetupEMSActuator('GasEquipment', ZoneGas(Loop)%Name, 'Gas Power Level', '[W]', &
                    ZoneGas(Loop)%EMSZoneEquipOverrideOn  , ZoneGas(Loop)%EMSEquipPower )
          CALL SetupEMSInternalVariable( 'Gas Process Power Design Level', ZoneGas(Loop)%Name, '[W]' ,&
                                           ZoneGas(Loop)%DesignLevel )
        ENDIF ! EMS

        IF (.not. ErrorsFound)   &
          CALL SetupZoneInternalGain(ZoneGas(Loop)%ZonePtr, &
                   'GasEquipment', &
                   ZoneGas(Loop)%Name, &
                   IntGainTypeOf_GasEquipment, &
                   ConvectionGainRate          = ZoneGas(Loop)%ConGainRate, &
                   ThermalRadiationGainRate    = ZoneGas(Loop)%RadGainRate, &
                   CarbonDioxideGainRate       = ZoneGas(Loop)%CO2GainRate, &
                   LatentGainRate              = ZoneGas(Loop)%LatGainRate)

      END DO ! Item1
    END DO ! Item - number of gas statements
  ENDIF  ! check for number of gas statements


  RepVarSet=.true.
  CurrentModuleObject='HotWaterEquipment'
  NumHotWaterEqStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(HotWaterEqObjects(NumHotWaterEqStatements))

  TotHWEquip=0
  ErrFlag=.false.
  DO Item=1,NumHotWaterEqStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),HotWaterEqObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    HotWaterEqObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      HotWaterEqObjects(Item)%StartPtr=TotHWEquip+1
      TotHWEquip=TotHWEquip+1
      HotWaterEqObjects(Item)%NumOfZones=1
      HotWaterEqObjects(Item)%ZoneListActive=.false.
      HotWaterEqObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      HotWaterEqObjects(Item)%StartPtr=TotHWEquip+1
      TotHWEquip=TotHWEquip+ZoneList(ZLItem)%NumOfZones
      HotWaterEqObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      HotWaterEqObjects(Item)%ZoneListActive=.true.
      HotWaterEqObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotHWEquip=0
  ENDIF

  ALLOCATE(ZoneHWEq(TotHWEquip))

  IF (TotHWEquip > 0) THEN
    Loop=0
    DO Item = 1, NumHotWaterEqStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,HotWaterEqObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. HotWaterEqObjects(Item)%ZoneListActive) THEN
          ZoneHWEq(Loop)%Name = AlphaName(1)
          ZoneHWEq(Loop)%ZonePtr = HotWaterEqObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(HotWaterEqObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(HotWaterEqObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        HotWaterEqObjects(Item)%Name,     &
                                        ZoneHWEq%Name,           &
                                        Loop-1,                       &
                                        ZoneHWEq(Loop)%Name,            &
                                        ErrFlag)
          ZoneHWEq(Loop)%ZonePtr = ZoneList(HotWaterEqObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        ZoneHWEq(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (ZoneHWEq(Loop)%SchedPtr == 0) THEN
          IF (lAlphaFieldBlanks(3)) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//' is required.')
          ELSE
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
          ENDIF
          ErrorsFound=.true.
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(ZoneHWEq(Loop)%SchedPtr)
          SchMax=GetScheduleMaxValue(ZoneHWEq(Loop)%SchedPtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (SchMin < 0.0d0) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
              CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                 '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
              ErrorsFound=.true.
            ENDIF
            IF (SchMax < 0.0d0) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
              CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                 '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
              ErrorsFound=.true.
            ENDIF
          ENDIF
        ENDIF

        ! Hot Water equipment design level calculation method.
        SELECT CASE (AlphaName(4))
          CASE('EQUIPMENTLEVEL')
            ZoneHWEq(Loop)%DesignLevel=IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE('WATTS/AREA','POWER/AREA')
            IF (ZoneHWEq(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(2) >= 0.0d0) THEN
                ZoneHWEq(Loop)%DesignLevel=IHGNumbers(2)*Zone(ZoneHWEq(Loop)%ZonePtr)%FloorArea
                IF (Zone(ZoneHWEq(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 Hot Water Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cNumericFieldNames(2))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(2),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE('WATTS/PERSON','POWER/PERSON')
            IF (ZoneHWEq(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(3) >= 0.0d0) THEN
                ZoneHWEq(Loop)%DesignLevel=IHGNumbers(3)*Zone(ZoneHWEq(Loop)%ZonePtr)%TotOccupants
                IF (Zone(ZoneHWEq(Loop)%ZonePtr)%TotOccupants <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Total Occupants = 0.  0 Hot Water Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cNumericFieldNames(3))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(3),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                 TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "EquipmentLevel", "Watts/Area", "Watts/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max equipment level
        ZoneHWEq(Loop)%NomMinDesignLevel=ZoneHWEq(Loop)%DesignLevel*SchMin
        ZoneHWEq(Loop)%NomMaxDesignLevel=ZoneHWEq(Loop)%DesignLevel*SchMax

        ZoneHWEq(Loop)%FractionLatent=IHGNumbers(4)
        ZoneHWEq(Loop)%FractionRadiant=IHGNumbers(5)
        ZoneHWEq(Loop)%FractionLost=IHGNumbers(6)
                    ! FractionConvected is a calculated field
        ZoneHWEq(Loop)%FractionConvected=1.0d0 - (ZoneHWEq(Loop)%FractionLatent +   &
                                                    ZoneHWEq(Loop)%FractionRadiant +   &
                                                    ZoneHWEq(Loop)%FractionLost)
        IF (ABS(ZoneHWEq(Loop)%FractionConvected) <= .001d0) ZoneHWEq(Loop)%FractionConvected=0.0d0
        IF (ZoneHWEq(Loop)%FractionConvected < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", Sum of Fractions > 1.0')
          ErrorsFound=.true.
        ENDIF

        IF (NumAlpha > 4) THEN
          ZoneHWEq(Loop)%EndUseSubcategory = AlphaName(5)
        ELSE
          ZoneHWEq(Loop)%EndUseSubcategory = 'General'
        END IF

        IF (ZoneHWEq(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('Hot Water Equipment District Heating Rate [W]', ZoneHWEq(Loop)%Power, &
                                 'Zone','Average',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment District Heating Energy [J]',ZoneHWEq(Loop)%Consumption, &
                                 'Zone','Sum',ZoneHWEq(Loop)%Name,ResourceTypeKey='DistrictHeating', &
                                 GroupKey='Building',ZoneKey=Zone(ZoneHWEq(Loop)%ZonePtr)%Name, &
                                 EndUseKey='InteriorEquipment',EndUseSubKey=ZoneHWEq(Loop)%EndUseSubcategory, &
                                 ZoneMult=Zone(ZoneHWEq(Loop)%ZonePtr)%Multiplier, &
                                 ZoneListMult=Zone(ZoneHWEq(Loop)%ZonePtr)%ListMultiplier)

        CALL SetupOutputVariable('Hot Water Equipment Radiant Heating Energy [J]',ZoneHWEq(Loop)%RadGainEnergy, &
                                 'Zone','Sum',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Radiant Heating Rate [W]',ZoneHWEq(Loop)%RadGainRate, &
                                 'Zone','Average',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Convective Heating Energy [J]',ZoneHWEq(Loop)%ConGainEnergy, &
                                 'Zone','Sum',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Convective Heating Rate [W]',ZoneHWEq(Loop)%ConGainRate, &
                                 'Zone','Average',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Latent Gain Energy [J]',ZoneHWEq(Loop)%LatGainEnergy, &
                                 'Zone','Sum',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Latent Gain Rate [W]',ZoneHWEq(Loop)%LatGainRate, &
                                 'Zone','Average',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Lost Heat Energy [J]',ZoneHWEq(Loop)%LostEnergy, &
                                 'Zone','Sum',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Lost Heat Rate [W]',ZoneHWEq(Loop)%LostRate, &
                                 'Zone','Average',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Total Heating Energy [J]',ZoneHWEq(Loop)%TotGainEnergy, &
                                 'Zone','Sum',ZoneHWEq(Loop)%Name)
        CALL SetupOutputVariable('Hot Water Equipment Total Heating Rate [W]',ZoneHWEq(Loop)%TotGainRate, &
                                 'Zone','Average',ZoneHWEq(Loop)%Name)

        ! Zone total report variables
        IF (RepVarSet(ZoneHWEq(Loop)%ZonePtr)) THEN
          RepVarSet(ZoneHWEq(Loop)%ZonePtr)=.false.
          CALL SetupOutputVariable('Zone Hot Water Equipment District Heating Rate [W]', &
                                   ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWPower, &
                                   'Zone','Average',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment District Heating Energy [J]', &
                                   ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWConsump, &
                                   'Zone','Sum',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)

          CALL SetupOutputVariable('Zone Hot Water Equipment Radiant Heating Energy [J]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWRadGain, &
                                   'Zone','Sum',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Radiant Heating Rate [W]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWRadGainRate, &
                                   'Zone','Average',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Convective Heating Energy [J]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWConGain, &
                                   'Zone','Sum',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Convective Heating Rate [W]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWConGainRate, &
                                   'Zone','Average',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Latent Gain Energy [J]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWLatGain, &
                                   'Zone','Sum',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Latent Gain Rate [W]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWLatGainRate, &
                                   'Zone','Average',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Lost Heat Energy [J]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWLost, &
                                   'Zone','Sum',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Lost Heat Rate [W]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWLostRate, &
                                   'Zone','Average',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Total Heating Energy [J]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWTotGain, &
                                   'Zone','Sum',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Hot Water Equipment Total Heating Rate [W]',  &
             ZnRpt(ZoneHWEq(Loop)%ZonePtr)%HWTotGainRate, &
                                   'Zone','Average',Zone(ZoneHWEq(Loop)%ZonePtr)%Name)
        ENDIF

        IF (AnyEnergyManagementSystemInModel) Then
          CALL SetupEMSActuator('HotWaterEquipment', ZoneHWEq(Loop)%Name, 'District Heating Power Level', '[W]', &
                    ZoneHWEq(Loop)%EMSZoneEquipOverrideOn  , ZoneHWEq(Loop)%EMSEquipPower )
          CALL SetupEMSInternalVariable( 'Process District Heat Design Level', ZoneHWEq(Loop)%Name, '[W]' ,&
                                           ZoneHWEq(Loop)%DesignLevel )
        ENDIF ! EMS

        IF (.not. ErrorsFound)   &
          CALL SetupZoneInternalGain(ZoneHWEq(Loop)%ZonePtr, &
                   'HotWaterEquipment', &
                   ZoneHWEq(Loop)%Name, &
                   IntGainTypeOf_HotWaterEquipment, &
                   ConvectionGainRate          = ZoneHWEq(Loop)%ConGainRate,&
                   ThermalRadiationGainRate    = ZoneHWEq(Loop)%RadGainRate, &
                   LatentGainRate              = ZoneHWEq(Loop)%LatGainRate)

      END DO ! Item1
    END DO ! Item - number of hot water statements
  END IF

  RepVarSet=.true.
  CurrentModuleObject='SteamEquipment'
  NumSteamEqStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(SteamEqObjects(NumSteamEqStatements))

  TotStmEquip=0
  ErrFlag=.false.
  DO Item=1,NumSteamEqStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),SteamEqObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    SteamEqObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      SteamEqObjects(Item)%StartPtr=TotStmEquip+1
      TotStmEquip=TotStmEquip+1
      SteamEqObjects(Item)%NumOfZones=1
      SteamEqObjects(Item)%ZoneListActive=.false.
      SteamEqObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      SteamEqObjects(Item)%StartPtr=TotStmEquip+1
      TotStmEquip=TotStmEquip+ZoneList(ZLItem)%NumOfZones
      SteamEqObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      SteamEqObjects(Item)%ZoneListActive=.true.
      SteamEqObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotStmEquip=0
  ENDIF

  ALLOCATE(ZoneSteamEq(TotStmEquip))

  IF (TotStmEquip > 0) THEN
    Loop=0
    DO Item = 1, NumSteamEqStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,SteamEqObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. SteamEqObjects(Item)%ZoneListActive) THEN
          ZoneSteamEq(Loop)%Name = AlphaName(1)
          ZoneSteamEq(Loop)%ZonePtr = SteamEqObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(SteamEqObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(SteamEqObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        SteamEqObjects(Item)%Name,     &
                                        ZoneSteamEq%Name,           &
                                        Loop-1,                       &
                                        ZoneSteamEq(Loop)%Name,            &
                                        ErrFlag)
          ZoneSteamEq(Loop)%ZonePtr = ZoneList(SteamEqObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        ZoneSteamEq(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (ZoneSteamEq(Loop)%SchedPtr == 0) THEN
          IF (lAlphaFieldBlanks(3)) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//' is required.')
          ELSE
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
          ENDIF
          ErrorsFound=.true.
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(ZoneSteamEq(Loop)%SchedPtr)
          SchMax=GetScheduleMaxValue(ZoneSteamEq(Loop)%SchedPtr)
          IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
            IF (SchMin < 0.0d0) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
              CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                 '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
              ErrorsFound=.true.
            ENDIF
            IF (SchMax < 0.0d0) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
              CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                                 '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
              ErrorsFound=.true.
            ENDIF
          ENDIF
        ENDIF

        ! Hot Water equipment design level calculation method.
        SELECT CASE (AlphaName(4))
          CASE('EQUIPMENTLEVEL')
            ZoneSteamEq(Loop)%DesignLevel=IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE('WATTS/AREA','POWER/AREA')
            IF (ZoneSteamEq(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(2) >= 0.0d0) THEN
                ZoneSteamEq(Loop)%DesignLevel=IHGNumbers(2)*Zone(ZoneSteamEq(Loop)%ZonePtr)%FloorArea
                IF (Zone(ZoneSteamEq(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 Hot Water Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cNumericFieldNames(2))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(2),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE('WATTS/PERSON','POWER/PERSON')
            IF (ZoneSteamEq(Loop)%ZonePtr /= 0) THEN
              IF (IHGNumbers(3) >= 0.0d0) THEN
                ZoneSteamEq(Loop)%DesignLevel=IHGNumbers(3)*Zone(ZoneSteamEq(Loop)%ZonePtr)%TotOccupants
                IF (Zone(ZoneSteamEq(Loop)%ZonePtr)%TotOccupants <= 0.0d0) THEN
                  CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                    '", specifies '//TRIM(cNumericFieldNames(2))//', but Total Occupants = 0.  0 Hot Water Equipment will result.')
                ENDIF
              ELSE
                CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cNumericFieldNames(3))//', value  [<0.0]='//  &
                                 TRIM(RoundSigDigits(IHGNumbers(3),3)))
                ErrorsFound=.true.
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                 TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "EquipmentLevel", "Watts/Area", "Watts/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max equipment level
        ZoneSteamEq(Loop)%NomMinDesignLevel=ZoneSteamEq(Loop)%DesignLevel*SchMin
        ZoneSteamEq(Loop)%NomMaxDesignLevel=ZoneSteamEq(Loop)%DesignLevel*SchMax

        ZoneSteamEq(Loop)%FractionLatent=IHGNumbers(4)
        ZoneSteamEq(Loop)%FractionRadiant=IHGNumbers(5)
        ZoneSteamEq(Loop)%FractionLost=IHGNumbers(6)
                    ! FractionConvected is a calculated field
        ZoneSteamEq(Loop)%FractionConvected=1.0d0 - (ZoneSteamEq(Loop)%FractionLatent +   &
                                                    ZoneSteamEq(Loop)%FractionRadiant +   &
                                                    ZoneSteamEq(Loop)%FractionLost)
        IF (ABS(ZoneSteamEq(Loop)%FractionConvected) <= .001d0) ZoneSteamEq(Loop)%FractionConvected=0.0d0
        IF (ZoneSteamEq(Loop)%FractionConvected < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", Sum of Fractions > 1.0')
          ErrorsFound=.true.
        ENDIF

        IF (NumAlpha > 4) THEN
          ZoneSteamEq(Loop)%EndUseSubcategory = AlphaName(5)
        ELSE
          ZoneSteamEq(Loop)%EndUseSubcategory = 'General'
        END IF

        IF (ZoneSteamEq(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('Steam Equipment District Heating Rate [W]', ZoneSteamEq(Loop)%Power, &
                                 'Zone','Average',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment District Heating Energy [J]', ZoneSteamEq(Loop)%Consumption, &
                                 'Zone','Sum',ZoneSteamEq(Loop)%Name,ResourceTypeKey='DistrictHeating', &
                                 GroupKey='Building',ZoneKey=Zone(ZoneSteamEq(Loop)%ZonePtr)%Name, &
                                 EndUseKey='InteriorEquipment',EndUseSubKey=ZoneSteamEq(Loop)%EndUseSubcategory, &
                                 ZoneMult=Zone(ZoneSteamEq(Loop)%ZonePtr)%Multiplier, &
                                 ZoneListMult=Zone(ZoneSteamEq(Loop)%ZonePtr)%ListMultiplier)

        CALL SetupOutputVariable('Steam Equipment Radiant Heating Energy [J]',ZoneSteamEq(Loop)%RadGainEnergy, &
                                 'Zone','Sum',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Radiant Heating Rate [W]',ZoneSteamEq(Loop)%RadGainRate, &
                                 'Zone','Average',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Convective Heating Energy [J]',ZoneSteamEq(Loop)%ConGainEnergy, &
                                 'Zone','Sum',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Convective Heating Rate [W]',ZoneSteamEq(Loop)%ConGainRate, &
                                 'Zone','Average',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Latent Gain Energy [J]',ZoneSteamEq(Loop)%LatGainEnergy, &
                                 'Zone','Sum',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Latent Gain Rate [W]',ZoneSteamEq(Loop)%LatGainRate, &
                                 'Zone','Average',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Lost Heat Energy [J]',ZoneSteamEq(Loop)%LostEnergy, &
                                 'Zone','Sum',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Lost Heat Rate [W]',ZoneSteamEq(Loop)%LostRate, &
                                 'Zone','Average',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Total Heating Energy [J]',ZoneSteamEq(Loop)%TotGainEnergy, &
                                 'Zone','Sum',ZoneSteamEq(Loop)%Name)
        CALL SetupOutputVariable('Steam Equipment Total Heating Rate [W]',ZoneSteamEq(Loop)%TotGainRate, &
                                 'Zone','Average',ZoneSteamEq(Loop)%Name)

        ! Zone total report variables
        IF (RepVarSet(ZoneSteamEq(Loop)%ZonePtr)) THEN
          RepVarSet(ZoneSteamEq(Loop)%ZonePtr)=.false.
          CALL SetupOutputVariable('Zone Steam Equipment District Heating Rate [W]', &
                                   ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamPower, &
                                   'Zone','Average',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment District Heating Energy [J]', &
                                   ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamConsump, &
                                   'Zone','Sum',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)

          CALL SetupOutputVariable('Zone Steam Equipment Radiant Heating Energy [J]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamRadGain, &
                                   'Zone','Sum',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Radiant Heating Rate [W]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamRadGainRate, &
                                   'Zone','Average',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Convective Heating Energy [J]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamConGain, &
                                   'Zone','Sum',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Convective Heating Rate [W]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamConGainRate, &
                                   'Zone','Average',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Latent Gain Energy [J]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamLatGain, &
                                   'Zone','Sum',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Latent Gain Rate [W]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamLatGainRate, &
                                   'Zone','Average',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Lost Heat Energy [J]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamLost, &
                                   'Zone','Sum',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Lost Heat Rate [W]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamLostRate, &
                                   'Zone','Average',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Total Heating Energy [J]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamTotGain, &
                                   'Zone','Sum',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Steam Equipment Total Heating Rate [W]',  &
             ZnRpt(ZoneSteamEq(Loop)%ZonePtr)%SteamTotGainRate, &
                                   'Zone','Average',Zone(ZoneSteamEq(Loop)%ZonePtr)%Name)
        ENDIF

        IF (AnyEnergyManagementSystemInModel) Then
          CALL SetupEMSActuator('SteamEquipment', ZoneSteamEq(Loop)%Name, 'District Heating Power Level', '[W]', &
                    ZoneSteamEq(Loop)%EMSZoneEquipOverrideOn  , ZoneSteamEq(Loop)%EMSEquipPower )
          CALL SetupEMSInternalVariable( 'Process Steam District Heat Design Level', ZoneSteamEq(Loop)%Name, '[W]' ,&
                                           ZoneSteamEq(Loop)%DesignLevel )
        ENDIF ! EMS

        IF (.not. ErrorsFound)   &
          CALL SetupZoneInternalGain(ZoneSteamEq(Loop)%ZonePtr, &
                       'SteamEquipment', &
                       ZoneSteamEq(Loop)%Name, &
                       IntGainTypeOf_SteamEquipment, &
                       ConvectionGainRate          = ZoneSteamEq(Loop)%ConGainRate,&
                       ThermalRadiationGainRate    = ZoneSteamEq(Loop)%RadGainRate, &
                       LatentGainRate              = ZoneSteamEq(Loop)%LatGainRate)

      END DO ! Item1
    END DO ! Item - number of hot water statements
  END IF

  RepVarSet=.true.
  CurrentModuleObject='OtherEquipment'
  NumOtherEqStatements=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(OtherEqObjects(NumOtherEqStatements))

  TotOthEquip=0
  ErrFlag=.false.
  DO Item=1,NumOtherEqStatements
    CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)
    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),OtherEqObjects%Name,Item-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      ErrFlag=.true.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    OtherEqObjects(Item)%Name = AlphaName(1)

    Item1=FindItemInList(AlphaName(2),Zone%Name,NumOfZones)
    ZLItem=0
    IF (Item1 == 0 .and. NumOfZoneLists > 0) &
        ZLItem=FindItemInList(AlphaName(2),ZoneList%Name,NumOfZoneLists)
    IF (Item1 > 0) THEN
      OtherEqObjects(Item)%StartPtr=TotOthEquip+1
      TotOthEquip=TotOthEquip+1
      OtherEqObjects(Item)%NumOfZones=1
      OtherEqObjects(Item)%ZoneListActive=.false.
      OtherEqObjects(Item)%ZoneOrZoneListPtr=Item1
    ELSEIF (ZLItem > 0) THEN
      OtherEqObjects(Item)%StartPtr=TotOthEquip+1
      TotOthEquip=TotOthEquip+ZoneList(ZLItem)%NumOfZones
      OtherEqObjects(Item)%NumOfZones=ZoneList(ZLItem)%NumOfZones
      OtherEqObjects(Item)%ZoneListActive=.true.
      OtherEqObjects(Item)%ZoneOrZoneListPtr=ZLItem
    ELSE
      CALL ShowSevereError(trim(CurrentModuleObject)//'="'//trim(AlphaName(1))//'" invalid '//  &
           trim(cAlphaFieldNames(2))//'="'//trim(AlphaName(2))//'" not found.')
      ErrorsFound=.true.
      ErrFlag=.true.
    ENDIF
  ENDDO

  IF (ErrFlag) THEN
    CALL ShowSevereError(RoutineName//'Errors with invalid names in '//trim(CurrentModuleObject)//  &
       ' objects.')
    CALL ShowContinueError('...These will not be read in.  Other errors may occur.')
    TotOthEquip=0
  ENDIF

  ALLOCATE(ZoneOtherEq(TotOthEquip))

  IF (TotOthEquip > 0) THEN
    Loop=0
    DO Item = 1, NumOtherEqStatements
      AlphaName  = Blank
      IHGNumbers = 0.0d0

      CALL GetObjectItem(CurrentModuleObject,Item,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                     AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                     AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

      DO Item1=1,OtherEqObjects(Item)%NumOfZones
        Loop=Loop+1
        IF (.not. OtherEqObjects(Item)%ZoneListActive) THEN
          ZoneOtherEq(Loop)%Name = AlphaName(1)
          ZoneOtherEq(Loop)%ZonePtr = OtherEqObjects(Item)%ZoneOrZoneListPtr
        ELSE
          CALL CheckCreatedZoneItemName(RoutineName,CurrentModuleObject,  &
                                        Zone(ZoneList(OtherEqObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1))%Name,  &
                                        ZoneList(OtherEqObjects(Item)%ZoneOrZoneListPtr)%MaxZoneNameLength,  &
                                        OtherEqObjects(Item)%Name,     &
                                        ZoneOtherEq%Name,           &
                                        Loop-1,                       &
                                        ZoneOtherEq(Loop)%Name,            &
                                        ErrFlag)
          ZoneOtherEq(Loop)%ZonePtr = ZoneList(OtherEqObjects(Item)%ZoneOrZoneListPtr)%Zone(Item1)
          IF (ErrFlag) ErrorsFound=.true.
        ENDIF

        ZoneOtherEq(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
        SchMin=0.0d0
        SchMax=0.0d0
        IF (ZoneOtherEq(Loop)%SchedPtr == 0) THEN
          IF (lAlphaFieldBlanks(3)) THEN
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", '//TRIM(cAlphaFieldNames(3))//' is required.')
          ELSE
            CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
          ENDIF
          ErrorsFound=.true.
        ELSE  ! check min/max on schedule
          SchMin=GetScheduleMinValue(ZoneOtherEq(Loop)%SchedPtr)
          SchMax=GetScheduleMaxValue(ZoneOtherEq(Loop)%SchedPtr)
        ENDIF

        ! Hot Water equipment design level calculation method.
        SELECT CASE (AlphaName(4))
          CASE('EQUIPMENTLEVEL')
            ZoneOtherEq(Loop)%DesignLevel=IHGNumbers(1)
            IF (lNumericFieldBlanks(1)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(1))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE('WATTS/AREA','POWER/AREA')
            IF (ZoneOtherEq(Loop)%ZonePtr /= 0) THEN
              ZoneOtherEq(Loop)%DesignLevel=IHGNumbers(2)*Zone(ZoneOtherEq(Loop)%ZonePtr)%FloorArea
              IF (Zone(ZoneOtherEq(Loop)%ZonePtr)%FloorArea <= 0.0d0) THEN
                CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                  '", specifies '//TRIM(cNumericFieldNames(2))//', but Zone Floor Area = 0.  0 Hot Water Equipment will result.')
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(2)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(2))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE('WATTS/PERSON','POWER/PERSON')
            IF (ZoneOtherEq(Loop)%ZonePtr /= 0) THEN
              ZoneOtherEq(Loop)%DesignLevel=IHGNumbers(3)*Zone(ZoneOtherEq(Loop)%ZonePtr)%TotOccupants
              IF (Zone(ZoneOtherEq(Loop)%ZonePtr)%TotOccupants <= 0.0d0) THEN
                CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                  '", specifies '//TRIM(cNumericFieldNames(2))//', but Total Occupants = 0.  0 Hot Water Equipment will result.')
              ENDIF
            ENDIF
            IF (lNumericFieldBlanks(3)) THEN
              CALL ShowWarningError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                '", specifies '//TRIM(cNumericFieldNames(3))//', but that field is blank.  0 Hot Water Equipment will result.')
            ENDIF

          CASE DEFAULT
            IF (Item1 == 1) THEN
              CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", invalid '//TRIM(cAlphaFieldNames(4))//', value  ='//  &
                                 TRIM(AlphaName(4)))
              CALL ShowContinueError('...Valid values are "EquipmentLevel", "Watts/Area", "Watts/Person".')
              ErrorsFound=.true.
            ENDIF
        END SELECT

        ! Calculate nominal min/max equipment level
        ZoneOtherEq(Loop)%NomMinDesignLevel=ZoneOtherEq(Loop)%DesignLevel*SchMin
        ZoneOtherEq(Loop)%NomMaxDesignLevel=ZoneOtherEq(Loop)%DesignLevel*SchMax

        ZoneOtherEq(Loop)%FractionLatent=IHGNumbers(4)
        ZoneOtherEq(Loop)%FractionRadiant=IHGNumbers(5)
        ZoneOtherEq(Loop)%FractionLost=IHGNumbers(6)
                    ! FractionConvected is a calculated field
        ZoneOtherEq(Loop)%FractionConvected=1.0d0 - (ZoneOtherEq(Loop)%FractionLatent +   &
                                                    ZoneOtherEq(Loop)%FractionRadiant +   &
                                                    ZoneOtherEq(Loop)%FractionLost)
        IF (ABS(ZoneOtherEq(Loop)%FractionConvected) <= .001d0) ZoneOtherEq(Loop)%FractionConvected=0.0d0
        IF (ZoneOtherEq(Loop)%FractionConvected < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                                 '", Sum of Fractions > 1.0')
          ErrorsFound=.true.
        ENDIF

        IF (NumAlpha > 4) THEN
          ZoneOtherEq(Loop)%EndUseSubcategory = AlphaName(5)
        ELSE
          ZoneOtherEq(Loop)%EndUseSubcategory = 'General'
        END IF

        IF (ZoneOtherEq(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

        ! Object report variables
        CALL SetupOutputVariable('Other Equipment Radiant Heating Energy [J]',ZoneOtherEq(Loop)%RadGainEnergy, &
                                 'Zone','Sum',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Radiant Heating Rate [W]',ZoneOtherEq(Loop)%RadGainRate, &
                                 'Zone','Average',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Convective Heating Energy [J]',ZoneOtherEq(Loop)%ConGainEnergy, &
                                 'Zone','Sum',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Convective Heating Rate [W]',ZoneOtherEq(Loop)%ConGainRate, &
                                 'Zone','Average',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Latent Gain Energy [J]',ZoneOtherEq(Loop)%LatGainEnergy, &
                                 'Zone','Sum',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Latent Gain Rate [W]',ZoneOtherEq(Loop)%LatGainRate, &
                                 'Zone','Average',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Lost Heat Energy [J]',ZoneOtherEq(Loop)%LostEnergy, &
                                 'Zone','Sum',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Lost Heat Rate [W]',ZoneOtherEq(Loop)%LostRate, &
                                 'Zone','Average',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Total Heating Energy [J]',ZoneOtherEq(Loop)%TotGainEnergy, &
                                 'Zone','Sum',ZoneOtherEq(Loop)%Name)
        CALL SetupOutputVariable('Other Equipment Total Heating Rate [W]',ZoneOtherEq(Loop)%TotGainRate, &
                                 'Zone','Average',ZoneOtherEq(Loop)%Name)

        ! Zone total report variables
        IF (RepVarSet(ZoneOtherEq(Loop)%ZonePtr)) THEN
          RepVarSet(ZoneOtherEq(Loop)%ZonePtr)=.false.
          CALL SetupOutputVariable('Zone Other Equipment Radiant Heating Energy [J]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherRadGain, &
                                   'Zone','Sum',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Radiant Heating Rate [W]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherRadGainRate, &
                                   'Zone','Average',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Convective Heating Energy [J]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherConGain, &
                                   'Zone','Sum',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Convective Heating Rate [W]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherConGainRate, &
                                   'Zone','Average',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Latent Gain Energy [J]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherLatGain, &
                                   'Zone','Sum',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Latent Gain Rate [W]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherLatGainRate, &
                                   'Zone','Average',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Lost Heat Energy [J]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherLost, &
                                   'Zone','Sum',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Lost Heat Rate [W]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherLostRate, &
                                   'Zone','Average',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Total Heating Energy [J]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherTotGain, &
                                   'Zone','Sum',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
          CALL SetupOutputVariable('Zone Other Equipment Total Heating Rate [W]',  &
                                    ZnRpt(ZoneOtherEq(Loop)%ZonePtr)%OtherTotGainRate, &
                                   'Zone','Average',Zone(ZoneOtherEq(Loop)%ZonePtr)%Name)
        ENDIF
        IF (AnyEnergyManagementSystemInModel) Then
          CALL SetupEMSActuator('OtherEquipment', ZoneOtherEq(Loop)%Name, 'Power Level', '[W]', &
                    ZoneOtherEq(Loop)%EMSZoneEquipOverrideOn  , ZoneOtherEq(Loop)%EMSEquipPower )
          CALL SetupEMSInternalVariable( 'Other Equipment Design Level', ZoneOtherEq(Loop)%Name, '[W]' ,&
                                           ZoneOtherEq(Loop)%DesignLevel )
        ENDIF ! EMS

        IF (.not. ErrorsFound)   &
          CALL SetupZoneInternalGain(ZoneOtherEq(Loop)%ZonePtr, &
                       'OtherEquipment', &
                       ZoneOtherEq(Loop)%Name, &
                       IntGainTypeOf_OtherEquipment, &
                       ConvectionGainRate          = ZoneOtherEq(Loop)%ConGainRate,&
                       ThermalRadiationGainRate    = ZoneOtherEq(Loop)%RadGainRate, &
                       LatentGainRate              = ZoneOtherEq(Loop)%LatGainRate)

      END DO ! Item1
    END DO ! Item - number of hot water statements
  END IF


  RepVarSet=.true.
  CurrentModuleObject='ZoneBaseboard:OutdoorTemperatureControlled'
  TotBBHeat=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(ZoneBBHeat(TotBBHeat))

  DO Loop=1,TotBBHeat
    AlphaName='  '
    IHGNumbers=0.0d0
    CALL GetObjectItem(CurrentModuleObject,Loop,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),ZoneBBHeat%Name,Loop-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    ZoneBBHeat(Loop)%Name = AlphaName(1)

    ZoneBBHeat(Loop)%ZonePtr=FindIteminList(AlphaName(2),Zone%Name,NumOfZones)
    IF (ZoneBBHeat(Loop)%ZonePtr == 0) THEN
      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                           '", invalid '//TRIM(cAlphaFieldNames(2))//  &
                           ' entered='//TRIM(AlphaName(2)))
      ErrorsFound=.true.
    ENDIF

    ZoneBBHeat(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
    IF (ZoneBBHeat(Loop)%SchedPtr == 0) THEN
      IF (lAlphaFieldBlanks(3)) THEN
        CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cAlphaFieldNames(3))//' is required.')
      ELSE
        CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
      ENDIF
      ErrorsFound=.true.
    ELSE  ! check min/max on schedule
      SchMin=GetScheduleMinValue(ZoneBBHeat(Loop)%SchedPtr)
      SchMax=GetScheduleMaxValue(ZoneBBHeat(Loop)%SchedPtr)
      IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
        IF (SchMin < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
          CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                             '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
          ErrorsFound=.true.
        ENDIF
        IF (SchMax < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
          CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                             '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
          ErrorsFound=.true.
        ENDIF
      ENDIF
    ENDIF

    IF (NumAlpha > 3) THEN
      ZoneBBHeat(Loop)%EndUseSubcategory = AlphaName(4)
    ELSE
      ZoneBBHeat(Loop)%EndUseSubcategory = 'General'
    END IF

    ZoneBBHeat(Loop)%CapatLowTemperature=IHGNumbers(1)
    ZoneBBHeat(Loop)%LowTemperature=IHGNumbers(2)
    ZoneBBHeat(Loop)%CapatHighTemperature=IHGNumbers(3)
    ZoneBBHeat(Loop)%HighTemperature=IHGNumbers(4)
    ZoneBBHeat(Loop)%FractionRadiant=IHGNumbers(5)
    ZoneBBHeat(Loop)%FractionConvected=1.0d0-ZoneBBHeat(Loop)%FractionRadiant
    IF (ZoneBBHeat(Loop)%FractionConvected < 0.0d0) THEN
      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", Sum of Fractions > 1.0')
      ErrorsFound=.true.
    ENDIF

    IF (ZoneBBHeat(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

    ! Object report variables
    CALL SetupOutputVariable('Baseboard Electric Power [W]',ZoneBBHeat(Loop)%Power, &
                             'Zone','Average',ZoneBBHeat(Loop)%Name)
    CALL SetupOutputVariable('Baseboard Electric Energy [J]',ZoneBBHeat(Loop)%Consumption, &
                             'Zone','Sum',ZoneBBHeat(Loop)%Name, ResourceTypeKey='Electricity', &
                             GroupKey='Building',ZoneKey=Zone(ZoneBBHeat(Loop)%ZonePtr)%Name, &
                             EndUseKey='InteriorEquipment',EndUseSubKey=ZoneBBHeat(Loop)%EndUseSubcategory, &
                             ZoneMult=Zone(ZoneBBHeat(Loop)%ZonePtr)%Multiplier, &
                             ZoneListMult=Zone(ZoneBBHeat(Loop)%ZonePtr)%ListMultiplier)

    CALL SetupOutputVariable('Baseboard Radiant Heating Energy [J]',ZoneBBHeat(Loop)%RadGainEnergy, &
                             'Zone','Sum',ZoneBBHeat(Loop)%Name)
    CALL SetupOutputVariable('Baseboard Radiant Heating Rate [W]',ZoneBBHeat(Loop)%RadGainRate, &
                             'Zone','Average',ZoneBBHeat(Loop)%Name)
    CALL SetupOutputVariable('Baseboard Convective Heating Energy [J]',ZoneBBHeat(Loop)%ConGainEnergy, &
                             'Zone','Sum',ZoneBBHeat(Loop)%Name)
    CALL SetupOutputVariable('Baseboard Convective Heating Rate [W]',ZoneBBHeat(Loop)%ConGainRate, &
                             'Zone','Average',ZoneBBHeat(Loop)%Name)
    CALL SetupOutputVariable('Baseboard Total Heating Energy [J]',ZoneBBHeat(Loop)%TotGainEnergy, &
                             'Zone','Sum',ZoneBBHeat(Loop)%Name)
    CALL SetupOutputVariable('Baseboard Total Heating Rate [W]',ZoneBBHeat(Loop)%TotGainRate, &
                             'Zone','Average',ZoneBBHeat(Loop)%Name)

    ! Zone total report variables
    IF (RepVarSet(ZoneBBHeat(Loop)%ZonePtr)) THEN
      RepVarSet(ZoneBBHeat(Loop)%ZonePtr)=.false.
      CALL SetupOutputVariable('Zone Baseboard Electric Power [W]',ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatPower, &
                               'Zone','Average',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
      CALL SetupOutputVariable('Zone Baseboard Electric Energy [J]',ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatElecCons, &
                               'Zone','Sum',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)

      CALL SetupOutputVariable('Zone Baseboard Radiant Heating Energy [J]',  &
         ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatRadGain, &
                               'Zone','Sum',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
      CALL SetupOutputVariable('Zone Baseboard Radiant Heating Rate [W]',  &
         ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatRadGainRate, &
                               'Zone','Average',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
      CALL SetupOutputVariable('Zone Baseboard Convective Heating Energy [J]',  &
         ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatConGain, &
                               'Zone','Sum',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
      CALL SetupOutputVariable('Zone Baseboard Convective Heating Rate [W]',  &
         ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatConGainRate, &
                               'Zone','Average',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
      CALL SetupOutputVariable('Zone Baseboard Total Heating Energy [J]',  &
         ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatTotGain, &
                               'Zone','Sum',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
      CALL SetupOutputVariable('Zone Baseboard Total Heating Rate [W]',  &
         ZnRpt(ZoneBBHeat(Loop)%ZonePtr)%BaseHeatTotGainRate, &
                               'Zone','Average',Zone(ZoneBBHeat(Loop)%ZonePtr)%Name)
    ENDIF

    IF (AnyEnergyManagementSystemInModel) Then
      CALL SetupEMSActuator('ZoneBaseboard:OutdoorTemperatureControlled', ZoneBBHeat(Loop)%Name, 'Power Level', '[W]', &
                ZoneBBHeat(Loop)%EMSZoneBaseboardOverrideOn  , ZoneBBHeat(Loop)%EMSZoneBaseboardPower )
      CALL SetupEMSInternalVariable( 'Simple Zone Baseboard Capacity At Low Temperature', ZoneBBHeat(Loop)%Name, '[W]' ,&
                                       ZoneBBHeat(Loop)%CapatLowTemperature )
      CALL SetupEMSInternalVariable( 'Simple Zone Baseboard Capacity At High Temperature', ZoneBBHeat(Loop)%Name, '[W]' ,&
                                       ZoneBBHeat(Loop)%CapatHighTemperature )
    ENDIF ! EMS

    CALL SetupZoneInternalGain(ZoneBBHeat(Loop)%ZonePtr, &
                   'ZoneBaseboard:OutdoorTemperatureControlled', &
                   ZoneBBHeat(Loop)%Name, &
                   IntGainTypeOf_ZoneBaseboardOutdoorTemperatureControlled, &
                   ConvectionGainRate          = ZoneBBHeat(Loop)%ConGainRate,&
                   ThermalRadiationGainRate    = ZoneBBHeat(Loop)%RadGainRate)

  END DO

  RepVarSet=.true.
  CurrentModuleObject='ZoneContaminantSourceAndSink:CarbonDioxide'
  TotCO2Gen=GetNumObjectsFound(CurrentModuleObject)
  ALLOCATE(ZoneCO2Gen(TotCO2Gen))

  DO Loop=1,TotCO2Gen
    AlphaName='  '
    IHGNumbers=0.0d0
    CALL GetObjectItem(CurrentModuleObject,Loop,AlphaName,NumAlpha,IHGNumbers,NumNumber,IOStat,  &
                   AlphaBlank=lAlphaFieldBlanks,NumBlank=lNumericFieldBlanks,  &
                   AlphaFieldnames=cAlphaFieldNames,NumericFieldNames=cNumericFieldNames)

    IsNotOK = .FALSE.
    IsBlank = .FALSE.
    CALL VerifyName(AlphaName(1),ZoneCO2Gen%Name,Loop-1,IsNotOK,IsBlank,TRIM(CurrentModuleObject)//' Name')
    IF (IsNotOK) THEN
      ErrorsFound = .TRUE.
      IF (IsBlank) AlphaName(1) = 'xxxxx'
    END IF
    ZoneCO2Gen(Loop)%Name = AlphaName(1)

    ZoneCO2Gen(Loop)%ZonePtr=FindIteminList(AlphaName(2),Zone%Name,NumOfZones)
    IF (ZoneCO2Gen(Loop)%ZonePtr == 0) THEN
      CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                           '", invalid '//TRIM(cAlphaFieldNames(2))//  &
                           ' entered='//TRIM(AlphaName(2)))
      ErrorsFound=.true.
    ENDIF

    ZoneCO2Gen(Loop)%SchedPtr=GetScheduleIndex(AlphaName(3))
    IF (ZoneCO2Gen(Loop)%SchedPtr == 0) THEN
      IF (lAlphaFieldBlanks(3)) THEN
        CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cAlphaFieldNames(3))//' is required.')
      ELSE
        CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", invalid '//TRIM(cAlphaFieldNames(3))//' entered='//TRIM(AlphaName(3)))
      ENDIF
      ErrorsFound=.true.
    ELSE  ! check min/max on schedule
      SchMin=GetScheduleMinValue(ZoneCO2Gen(Loop)%SchedPtr)
      SchMax=GetScheduleMaxValue(ZoneCO2Gen(Loop)%SchedPtr)
      IF (SchMin < 0.0d0 .or. SchMax < 0.0d0) THEN
        IF (SchMin < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cAlphaFieldNames(3))//', minimum is < 0.0')
          CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                             '". Minimum is ['//TRIM(RoundSigDigits(SchMin,1))//']. Values must be >= 0.0.')
          ErrorsFound=.true.
        ENDIF
        IF (SchMax < 0.0d0) THEN
          CALL ShowSevereError(RoutineName//TRIM(CurrentModuleObject)//'="'//TRIM(AlphaName(1))//  &
                             '", '//TRIM(cAlphaFieldNames(3))//', maximum is < 0.0')
          CALL ShowContinueError('Schedule="'//TRIM(AlphaName(3))//  &
                             '". Maximum is ['//TRIM(RoundSigDigits(SchMax,1))//']. Values must be >= 0.0.')
          ErrorsFound=.true.
        ENDIF
      ENDIF
    ENDIF

    ZoneCO2Gen(Loop)%CO2DesignRate=IHGNumbers(1)

    IF (ZoneCO2Gen(Loop)%ZonePtr <=0) CYCLE   ! Error, will be caught and terminated later

    ! Object report variables
    CALL SetupOutputVariable('Contaminant Source or Sink CO2 Gain Volume Flow Rate [m3/s]',ZoneCO2Gen(Loop)%CO2GainRate, &
                             'Zone','Average',ZoneCO2Gen(Loop)%Name)

    ! Zone total report variables
    IF (RepVarSet(ZoneCO2Gen(Loop)%ZonePtr)) THEN
      RepVarSet(ZoneCO2Gen(Loop)%ZonePtr)=.false.

      CALL SetupOutputVariable('Zone Contaminant Source or Sink CO2 Gain Volume Flow Rate [m3/s]',&
                                ZnRpt(ZoneCO2Gen(Loop)%ZonePtr)%CO2Rate, &
                               'Zone','Average',Zone(ZoneCO2Gen(Loop)%ZonePtr)%Name)

    ENDIF

    CALL SetupZoneInternalGain(ZoneCO2Gen(Loop)%ZonePtr, &
               'ZoneContaminantSourceAndSink:CarbonDioxide', &
               ZoneCO2Gen(Loop)%Name, &
               IntGainTypeOf_ZoneContaminantSourceAndSinkCarbonDioxide, &
               CarbonDioxideGainRate       = ZoneCO2Gen(Loop)%CO2GainRate)

  END DO


  DEALLOCATE(RepVarSet)
  DEALLOCATE(IHGNumbers)
  DEALLOCATE(AlphaName)

  IF (ErrorsFound) THEN
    CALL ShowFatalError(RoutineName//'Errors found in Getting Internal Gains Input, Program Stopped')
  ENDIF

  WRITE(OutputFileInits,721)
  DO Loop=1,NumOfZones
    LightTot=0.0d0
    ElecTot=0.0d0
    GasTot=0.0d0
    OthTot=0.0d0
    HWETot=0.0d0
    STMTot=0.0d0
    BBHeatInd='No'
    DO Loop1=1,TotLights
      IF (Lights(Loop1)%ZonePtr /= Loop) CYCLE
      LightTot=LightTot+Lights(Loop1)%DesignLevel
    ENDDO
    DO Loop1=1,TotElecEquip
      IF (ZoneElectric(Loop1)%ZonePtr /= Loop) CYCLE
      ElecTot=ElecTot+ZoneElectric(Loop1)%DesignLevel
    ENDDO
    DO Loop1=1,TotGasEquip
      IF (ZoneGas(Loop1)%ZonePtr /= Loop) CYCLE
      GasTot=GasTot+ZoneGas(Loop1)%DesignLevel
    ENDDO
    DO Loop1=1,TotOthEquip
      IF (ZoneOtherEq(Loop1)%ZonePtr /= Loop) CYCLE
      OthTot=OthTot+ZoneOtherEq(Loop1)%DesignLevel
    ENDDO
    DO Loop1=1,TotStmEquip
      IF (ZoneSteamEq(Loop1)%ZonePtr /= Loop) CYCLE
      STMTot=STMTot+ZoneSteamEq(Loop1)%DesignLevel
    ENDDO
    DO Loop1=1,TotHWEquip
      IF (ZoneHWEq(Loop1)%ZonePtr /= Loop) CYCLE
      HWETot=HWETot+ZoneHWEq(Loop1)%DesignLevel
    ENDDO
    DO Loop1=1,TotBBHeat
      IF (ZoneBBHeat(Loop1)%ZonePtr /= Loop) CYCLE
      BBHeatInd='Yes'
    ENDDO
    Zone(Loop)%InternalHeatGains=LightTot+ElecTot+GasTot+OthTot+HWETot+StmTot
    IF (Zone(Loop)%FloorArea > 0.0d0) THEN
      WRITE(OutputFileInits,720,advance='No') TRIM(Zone(Loop)%Name),TRIM(RoundSigDigits(Zone(Loop)%FloorArea,2)),  &
                TRIM(RoundSigDigits(Zone(Loop)%TotOccupants,1))
      IF (Zone(Loop)%TotOccupants > 0.0d0) THEN
        StringOut=RoundSigDigits(Zone(Loop)%FloorArea/Zone(Loop)%TotOccupants,3)
      ELSE
        StringOut='N/A'
      ENDIF
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(Zone(Loop)%TotOccupants/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(LightTot/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(ElecTot/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(GasTot/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(OthTot/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(HWETot/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(StmTot/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      StringOut=RoundSigDigits(Zone(Loop)%InternalHeatGains/Zone(Loop)%FloorArea,3)
      WRITE(OutputFileInits,fmta) TRIM(StringOut)//','//TRIM(BBHeatInd)
    ELSE
      WRITE(OutputFileInits,720,advance='No') TRIM(Zone(Loop)%Name),TRIM(RoundSigDigits(Zone(Loop)%FloorArea,2)),  &
                TRIM(RoundSigDigits(Zone(Loop)%TotOccupants,1))
      WRITE(OutputFileInits,fmta)'0.0,N/A,N/A,N/A,N/A,N/A,N/A,N/A,N/A'//TRIM(BBHeatInd)
    ENDIF
  ENDDO
  DO Loop=1,TotPeople
    IF (Loop == 1) WRITE(OutputFileInits,723,advance='No') 'People','Number of People {},'//  &
       'People/Floor Area {person/m2},Floor Area per person {m2/person},'//  &
       'Fraction Radiant,Fraction Convected,Sensible Fraction Calculation,Activity level,'//  &
       'ASHRAE 55 Warnings,Carbon Dioxide Generation Rate,Nominal Minimum Number of People,Nominal Maximum Number of People'
    IF (Loop == 1) THEN
      IF (People(Loop)%Fanger .or. People(Loop)%Pierce .or. People(Loop)%KSU) THEN
        WRITE(OutputFileInits,fmta) ',MRT Calculation Type,Work Efficiency, Clothing Insulation Calculation Method,' // &
          'Clothing Insulation Calculation Method Schedule,Clothing,Air Velocity,Fanger Calculation,Pierce Calculation,' // &
          'KSU Calculation'
      ELSE
        WRITE(OutputFileInits,fmta) ' '
      ENDIF
    ENDIF

    ZoneNum=People(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'People-Illegal Zone specified',TRIM(People(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'People',TRIM(People(Loop)%Name),  &
       TRIM(GetScheduleName(People(Loop)%NumberOfPeoplePtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))
    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(People(Loop)%NumberOfPeople,1))//','
    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(People(Loop)%NumberOfPeople/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (People(Loop)%NumberOfPeople > 0.0d0) THEN
      IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
        StringOut=RoundSigDigits(Zone(ZoneNum)%FloorArea/People(Loop)%NumberOfPeople,3)
      ELSE
        StringOut='N/A'
      ENDIF
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(People(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(People(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (People(Loop)%UserSpecSensFrac == AutoCalculate) THEN
      StringOut='AutoCalculate'
    ELSE
      StringOut=RoundSigDigits(People(Loop)%UserSpecSensFrac,3)
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=GetScheduleName(People(Loop)%ActivityLevelPtr)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (People(Loop)%Show55Warning) THEN
      StringOut='Yes'
    ELSE
      StringOut='No'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(People(Loop)%CO2RateFactor,4)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(People(Loop)%NomMinNumberPeople,0)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(People(Loop)%NomMaxNumberPeople,0)
    IF (People(Loop)%Fanger .or. People(Loop)%Pierce .or. People(Loop)%KSU) THEN
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      IF (People(Loop)%MRTCalcType == ZoneAveraged) THEN
        StringOut='Zone Averaged'
      ELSEIF (People(Loop)%MRTCalcType == SurfaceWeighted) THEN
        StringOut='Surface Weighted'
      ELSEIF (People(Loop)%MRTCalcType == AngleFactor) THEN
        StringOut='Angle Factor'
      ELSE
        StringOut='N/A'
      ENDIF
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      WRITE(OutputFileInits,fmta,advance='No') TRIM(GetScheduleName(People(Loop)%WorkEffPtr))//','

      IF (People(Loop)%ClothingType == 1) THEN
        StringOut='Clothing Insulation Schedule'
      ELSEIF (People(Loop)%ClothingType == 2) THEN
        StringOut='Dynamic Clothing Model ASHRAE55'
      ELSEIF (People(Loop)%ClothingType == 3) THEN
          StringOut='Calculation Method Schedule'
      ELSE
        StringOut='N/A'
      ENDIF
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','

      IF (People(Loop)%ClothingType == 3) THEN
        StringOut = GetScheduleName(People(Loop)%ClothingMethodPtr)
      ELSE
        StringOut='N/A'
      ENDIF
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','

      WRITE(OutputFileInits,fmta,advance='No') TRIM(GetScheduleName(People(Loop)%ClothingPtr))//','
      WRITE(OutputFileInits,fmta,advance='No') TRIM(GetScheduleName(People(Loop)%AirVelocityPtr))//','
      IF (People(Loop)%Fanger) THEN
        StringOut='Yes'
      ELSE
        StringOut='No'
      ENDIF
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      IF (People(Loop)%Pierce) THEN
        StringOut='Yes'
      ELSE
        StringOut='No'
      ENDIF
      WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
      IF (People(Loop)%KSU) THEN
        StringOut='Yes'
      ELSE
        StringOut='No'
      ENDIF
      WRITE(OutputFileInits,fmta) TRIM(StringOut)
    ELSE
      WRITE(OutputFileInits,fmta) TRIM(StringOut)
    ENDIF
  ENDDO
  DO Loop=1,TotLights
    IF (Loop == 1) WRITE(OutputFileInits,723) 'Lights','Lighting Level {W},'//  &
       'Lights/Floor Area {W/m2},Lights per person {W/person},'//  &
       'Fraction Return Air,Fraction Radiant,Fraction Short Wave,Fraction Convected,Fraction Replaceable,End-Use Category,'//   &
       'Nominal Minimum Lighting Level {W},Nominal Maximum Lighting Level {W}'

    ZoneNum=Lights(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Lights-Illegal Zone specified',TRIM(Lights(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'Lights',TRIM(Lights(Loop)%Name),  &
       TRIM(GetScheduleName(Lights(Loop)%SchedPtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(Lights(Loop)%DesignLevel,3))//','
    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(Lights(Loop)%DesignLevel/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (Zone(ZoneNum)%TotOccupants > 0.0d0) THEN
      StringOut=RoundSigDigits(Lights(Loop)%DesignLevel/Zone(ZoneNum)%TotOccupants,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(Lights(Loop)%FractionReturnAir,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(Lights(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(Lights(Loop)%FractionShortWave,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(Lights(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(Lights(Loop)%FractionReplaceable,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    WRITE(OutputFileInits,fmta,advance='No') TRIM(Lights(Loop)%EndUseSubcategory)//','
    StringOut=RoundSigDigits(Lights(Loop)%NomMinDesignLevel,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(Lights(Loop)%NomMaxDesignLevel,3)
    WRITE(OutputFileInits,fmta) TRIM(StringOut)
  ENDDO
  DO Loop=1,TotElecEquip
    IF (Loop == 1) WRITE(OutputFileInits,723) 'ElectricEquipment','Equipment Level {W},'//  &
       'Equipment/Floor Area {W/m2},Equipment per person {W/person},'//  &
       'Fraction Latent,Fraction Radiant,Fraction Lost,Fraction Convected,End-Use SubCategory,'//  &
       'Nominal Minimum Equipment Level {W},Nominal Maximum Equipment Level {W}'

    ZoneNum=ZoneElectric(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Electric Equipment-Illegal Zone specified',TRIM(ZoneElectric(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'ElectricEquipment',TRIM(ZoneElectric(Loop)%Name),  &
       TRIM(GetScheduleName(ZoneElectric(Loop)%SchedPtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(ZoneElectric(Loop)%DesignLevel,3))//','
    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneElectric(Loop)%DesignLevel/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (Zone(ZoneNum)%TotOccupants > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneElectric(Loop)%DesignLevel/Zone(ZoneNum)%TotOccupants,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneElectric(Loop)%FractionLatent,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneElectric(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneElectric(Loop)%FractionLost,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneElectric(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    WRITE(OutputFileInits,fmta,advance='No') TRIM(ZoneElectric(Loop)%EndUseSubcategory)//','
    StringOut=RoundSigDigits(ZoneElectric(Loop)%NomMinDesignLevel,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneElectric(Loop)%NomMaxDesignLevel,3)
    WRITE(OutputFileInits,fmta) TRIM(StringOut)
  ENDDO
  DO Loop=1,TotGasEquip
    IF (Loop == 1) WRITE(OutputFileInits,723) 'GasEquipment','Equipment Level {W},'//  &
       'Equipment/Floor Area {W/m2},Equipment per person {W/person},'//  &
       'Fraction Latent,Fraction Radiant,Fraction Lost,Fraction Convected,End-Use SubCategory,'//  &
       'Nominal Minimum Equipment Level {W},Nominal Maximum Equipment Level {W}'

    ZoneNum=ZoneGas(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Gas Equipment-Illegal Zone specified',TRIM(ZoneGas(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'GasEquipment',TRIM(ZoneGas(Loop)%Name),  &
       TRIM(GetScheduleName(ZoneGas(Loop)%SchedPtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(ZoneGas(Loop)%DesignLevel,3))//','

    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneGas(Loop)%DesignLevel/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (Zone(ZoneNum)%TotOccupants > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneGas(Loop)%DesignLevel/Zone(ZoneNum)%TotOccupants,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneGas(Loop)%FractionLatent,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneGas(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneGas(Loop)%FractionLost,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneGas(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    WRITE(OutputFileInits,fmta,advance='No') TRIM(ZoneGas(Loop)%EndUseSubcategory)//','
    StringOut=RoundSigDigits(ZoneGas(Loop)%NomMinDesignLevel,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneGas(Loop)%NomMaxDesignLevel,3)
    WRITE(OutputFileInits,fmta) TRIM(StringOut)
  ENDDO

  DO Loop=1,TotHWEquip
    IF (Loop == 1) WRITE(OutputFileInits,723) 'HotWaterEquipment','Equipment Level {W},'//  &
       'Equipment/Floor Area {W/m2},Equipment per person {W/person},'//  &
       'Fraction Latent,Fraction Radiant,Fraction Lost,Fraction Convected,End-Use SubCategory,'//  &
       'Nominal Minimum Equipment Level {W},Nominal Maximum Equipment Level {W}'

    ZoneNum=ZoneHWEq(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Hot Water Equipment-Illegal Zone specified',TRIM(ZoneHWEq(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'HotWaterEquipment',TRIM(ZoneHWEq(Loop)%Name),  &
       TRIM(GetScheduleName(ZoneHWEq(Loop)%SchedPtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(ZoneHWEq(Loop)%DesignLevel,3))//','

    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneHWEq(Loop)%DesignLevel/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (Zone(ZoneNum)%TotOccupants > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneHWEq(Loop)%DesignLevel/Zone(ZoneNum)%TotOccupants,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneHWEq(Loop)%FractionLatent,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneHWEq(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneHWEq(Loop)%FractionLost,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneHWEq(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    WRITE(OutputFileInits,fmta,advance='No') TRIM(ZoneHWEq(Loop)%EndUseSubcategory)//','
    StringOut=RoundSigDigits(ZoneHWEq(Loop)%NomMinDesignLevel,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneHWEq(Loop)%NomMaxDesignLevel,3)
    WRITE(OutputFileInits,fmta) TRIM(StringOut)
  ENDDO

  DO Loop=1,TotStmEquip
    IF (Loop == 1) WRITE(OutputFileInits,723) 'SteamEquipment','Equipment Level {W},'//  &
       'Equipment/Floor Area {W/m2},Equipment per person {W/person},'//  &
       'Fraction Latent,Fraction Radiant,Fraction Lost,Fraction Convected,End-Use SubCategory,'//  &
       'Nominal Minimum Equipment Level {W},Nominal Maximum Equipment Level {W}'

    ZoneNum=ZoneSteamEq(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Steam Equipment-Illegal Zone specified',TRIM(ZoneSteamEq(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'SteamEquipment',TRIM(ZoneSteamEq(Loop)%Name),  &
       TRIM(GetScheduleName(ZoneSteamEq(Loop)%SchedPtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(ZoneSteamEq(Loop)%DesignLevel,3))//','

    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneSteamEq(Loop)%DesignLevel/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (Zone(ZoneNum)%TotOccupants > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneSteamEq(Loop)%DesignLevel/Zone(ZoneNum)%TotOccupants,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneSteamEq(Loop)%FractionLatent,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneSteamEq(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneSteamEq(Loop)%FractionLost,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneSteamEq(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    WRITE(OutputFileInits,fmta,advance='No') TRIM(ZoneSteamEq(Loop)%EndUseSubcategory)//','
    StringOut=RoundSigDigits(ZoneSteamEq(Loop)%NomMinDesignLevel,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneSteamEq(Loop)%NomMaxDesignLevel,3)
    WRITE(OutputFileInits,fmta) TRIM(StringOut)
  ENDDO

  DO Loop=1,TotOthEquip
    IF (Loop == 1) WRITE(OutputFileInits,723) 'OtherEquipment','Equipment Level {W},'//  &
       'Equipment/Floor Area {W/m2},Equipment per person {W/person},'//  &
       'Fraction Latent,Fraction Radiant,Fraction Lost,Fraction Convected,'//  &
       'Nominal Minimum Equipment Level {W},Nominal Maximum Equipment Level {W}'
    ZoneNum=ZoneOtherEq(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Other Equipment-Illegal Zone specified',TRIM(ZoneOtherEq(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'OtherEquipment',TRIM(ZoneOtherEq(Loop)%Name),  &
       TRIM(GetScheduleName(ZoneOtherEq(Loop)%SchedPtr)),  &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    WRITE(OutputFileInits,fmta,advance='No') TRIM(RoundSigDigits(ZoneOtherEq(Loop)%DesignLevel,3))//','

    IF (Zone(ZoneNum)%FloorArea > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneOtherEq(Loop)%DesignLevel/Zone(ZoneNum)%FloorArea,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    IF (Zone(ZoneNum)%TotOccupants > 0.0d0) THEN
      StringOut=RoundSigDigits(ZoneOtherEq(Loop)%DesignLevel/Zone(ZoneNum)%TotOccupants,3)
    ELSE
      StringOut='N/A'
    ENDIF
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneOtherEq(Loop)%FractionLatent,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneOtherEq(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneOtherEq(Loop)%FractionLost,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneOtherEq(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneOtherEq(Loop)%NomMinDesignLevel,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneOtherEq(Loop)%NomMaxDesignLevel,3)
    WRITE(OutputFileInits,fmta) TRIM(StringOut)
  ENDDO

  DO Loop=1,TotBBHeat
    IF (Loop == 1) WRITE(OutputFileInits,723) 'Outdoor Controlled Baseboard Heat','Capacity at Low Temperature {W},'//  &
       'Low Temperature {C},Capacity at High Temperature {W},High Temperature {C},'//  &
       'Fraction Radiant,Fraction Convected,End-Use Subcategory'

    ZoneNum=ZoneBBHeat(Loop)%ZonePtr

    IF (ZoneNum == 0) THEN
      WRITE(OutputFileInits,724) 'Outdoor Controlled Baseboard Heat-Illegal Zone specified',TRIM(ZoneBBHeat(Loop)%Name)
      CYCLE
    ENDIF

    WRITE(OutputFileInits,722,advance='No') 'Outdoor Controlled Baseboard Heat',TRIM(ZoneBBHeat(Loop)%Name),  &
       TRIM(GetScheduleName(ZoneBBHeat(Loop)%SchedPtr)),   &
       TRIM(Zone(ZoneNum)%Name),TRIM(RoundSigDigits(Zone(ZoneNum)%FloorArea,2)),   &
       TRIM(RoundSigDigits(Zone(ZoneNum)%TotOccupants,1))

    StringOut=RoundSigDigits(ZoneBBHeat(Loop)%CapatLowTemperature,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneBBHeat(Loop)%LowTemperature,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneBBHeat(Loop)%CapatHighTemperature,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneBBHeat(Loop)%HighTemperature,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneBBHeat(Loop)%FractionRadiant,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    StringOut=RoundSigDigits(ZoneBBHeat(Loop)%FractionConvected,3)
    WRITE(OutputFileInits,fmta,advance='No') TRIM(StringOut)//','
    WRITE(OutputFileInits,fmta) TRIM(ZoneBBHeat(Loop)%EndUseSubcategory)
  ENDDO

720 FORMAT(' Zone Internal Gains, ',A,',',A,',',A,',')
721 FORMAT('! <Zone Internal Gains/Equipment Information - Nominal>,Zone Name, Floor Area {m2},# Occupants,', &
           'Area per Occupant {m2/person},Occupant per Area {person/m2},Interior Lighting {W/m2},',  &
           'Electric Load {W/m2},Gas Load {W/m2},Other Load {W/m2},Hot Water Eq {W/m2},',  &
           'Steam Equipment {W/m2},Sum Loads per Area {W/m2},Outdoor Controlled Baseboard Heat')

722 FORMAT(' ',A,' Internal Gains, ',A,',',A,',',A,',',A,',',A,',')
723 FORMAT('! <',A,' Internal Gains - Nominal>,Name,Schedule Name,Zone Name,Zone Floor Area {m2},# Zone Occupants,',A)
724 FORMAT(' ',A,', ',A)

 RETURN

END SUBROUTINE GetInternalHeatGainsInput

All Procedures

AbortEnergyPlus AbsoluteAirMass ActivateDemandManagers ActivateEMSControls AddBlankKeys addChargesToOperand AddCompSizeTableEntry AddEndUseSubcategory AddError addFootNoteSubTable AddInstruction AddMeter addMonthlyCharge AddMonthlyFieldSetInput AddMonthlyReport AddNeighborInformation AddObjectDefandParse addOperand AddRecordFromSection AddRecordToOutputVariableStructure AddSectionDef AddShadowRelateTableEntry AddSQLiteComponentSizingRecord AddSQLiteComponentSizingRecord AddSQLiteSystemSizingRecord AddSQLiteSystemSizingRecord AddSQLiteZoneSizingRecord AddSQLiteZoneSizingRecord AddTOCEntry AddTOCZoneLoadComponentTable AddToOutputVariableList AddVariablesForMonthlyReport AddVariableSlatBlind AddWindow AdjustAirSetpointsforOpTempCntrl AdjustCBF AdjustCBF AdjustChangeInLoadByEMSControls AdjustChangeInLoadByHowServed AdjustChangeInLoadForLastStageUpperRangeLimit AdjustCoolingSetPointforTempAndHumidityControl adjusthhat AdjustPumpFlowRequestByEMSControls AdjustReportingHourAndMinutes AdjustVBGap AdvanceRootFinder AFECFR AFECOI AFECPD AFECPF AFEDMP AFEDOP AFEDWC AFEELR AFEEXF AFEFAN AFEHEX AFEHOP AFEPLR AFESCR AFESEL AFESOP AFETMU AirflowNetworkVentingControl AirMass AIRMOV AllocateAirflowNetworkData AllocateAirHeatBalArrays AllocateAndInitData AllocateAndSetUpVentReports AllocateCFSStateHourlyData AllocateForCFSRefPointsGeometry AllocateForCFSRefPointsState AllocateHeatBalArrays AllocateLoadComponentArrays AllocateModuleArrays AllocateModuleArrays AllocateSurfaceHeatBalArrays AllocateWeatherData angle_2dvector AnisoSkyViewFactors AnyPlantLoopSidesNeedSim AnyPlantSplitterMixerLacksContinuity AreaPolygon ArgCheck array_to_vector ASHRAETauModel ASHWAT_OffNormalProperties ASHWAT_Solar ASHWAT_Thermal ASSIGNMENT (=) AssignNodeNumber AssignReportNumber AssignResourceTypeNum AssignReverseConstructionNumber AssignVariablePt AttachCustomMeters AttachMeters AuditBranches AUTOTDMA BaseThermalPropertySet_Diffusivity BeginEnvrnInitializeRuntimeLanguage BetweenDates BetweenGlassForcedFlow BetweenGlassShadeForcedFlow BetweenGlassShadeNaturalFlow BisectionMethod BlindBeamBeamTrans BlindOpticsBeam BlindOpticsDiffuse BoreholeResistance BoundValueToNodeMinMaxAvail BoundValueToWithinTwoValues BracketRoot BranchPressureDrop BrentMethod BuildGap BuildKeyVarList Calc4PipeFanCoil Calc_EN673 Calc_ISO15099 CalcActiveTranspiredCollector CalcAggregateLoad CalcAirflowNetworkAirBalance CalcAirflowNetworkCO2Balance CalcAirflowNetworkGCBalance CalcAirflowNetworkHeatBalance CalcAirflowNetworkMoisBalance CalcAirFlowSimple CalcAirLoopSplitter CalcAirMixer CalcAirToAirGenericHeatExch CalcAirToAirPlateHeatExch CalcAirZoneReturnPlenum CalcAirZoneSupplyPlenum CalcAlamdariHammondStableHorizontal CalcAlamdariHammondUnstableHorizontal CalcAlamdariHammondVerticalWall CalcAngleFactorMRT CalcApproximateViewFactors CalcASHRAEDetailedIntConvCoeff CalcASHRAESimpExtConvectCoeff CalcASHRAESimpleIntConvCoeff CalcASHRAEVerticalWall CalcATMixer CalcAwbiHattonHeatedFloor CalcAwbiHattonHeatedWall CalcBasinHeaterPower CalcBasinHeaterPowerForMultiModeDXCoil CalcBeamSolarOnWinRevealSurface CalcBeamSolDiffuseReflFactors CalcBeamSolSpecularReflFactors CalcBeausoleilMorrisonMixedAssistedWall CalcBeausoleilMorrisonMixedOpposingWall CalcBeausoleilMorrisonMixedStableCeiling CalcBeausoleilMorrisonMixedStableFloor CalcBeausoleilMorrisonMixedUnstableCeiling CalcBeausoleilMorrisonMixedUnstableFloor CalcBLASTAbsorberModel CalcBlockenWindward CalcBoilerModel CalcBoilerModel CalcBottomFluxCoefficents CalcBottomSurfTemp CalcBuriedPipeSoil CalcCBF CalcCBF CalcCBVAV CalcCeilingDiffuserInletCorr CalcCeilingDiffuserIntConvCoeff CalcChillerHeaterModel CalcChillerIPLV CalcChillerModel CalcClearRoof CalcCoilUAbyEffectNTU CalcColdestSetPoint CalcComplexWindowOverlap CalcComplexWindowThermal CalcCompSuctionTempResidual CalcCondEntSetPoint CalcConnectionsDrainTemp CalcConnectionsFlowRates CalcConnectionsHeatRecovery CalcConstCOPChillerModel CalcConvCoeffAbsPlateAndWater CalcConvCoeffBetweenPlates CalcCoolBeam CalcCoolTower CalcCoordinateTransformation CalcCoPlanarNess CalcCostEstimate CalcCTGeneratorModel CalcDayltgCoefficients CalcDayltgCoeffsMapPoints CalcDayltgCoeffsRefMapPoints CalcDayltgCoeffsRefPoints CalcDesiccantBalancedHeatExch CalcDesignSpecificationOutdoorAir CalcDesuperheaterHeatingCoil CalcDesuperheaterWaterHeater CalcDetailedHcInForDVModel CalcDetailedSystem CalcDetailedTransSystem CalcDetailFlatFinCoolingCoil CalcDetIceStorLMTDstar CalcDiffTSysAvailMgr CalcDirectAir CalcDirectEvapCooler CalcDirectResearchSpecialEvapCooler CalcDoe2DXCoil CalcDOE2Leeward CalcDOE2Windward CalcDryFinEffCoef CalcDryIndirectEvapCooler CalcDuct CalcDXCoilStandardRating CalcDXHeatingCoil CalcEarthTube CalcEcoRoof CalcEffectiveness CalcEffectiveSHR CalcEffectiveSHR CalcEffectiveSHR CalcEffectiveSHR CalcElecSteamHumidifier CalcElectricBaseboard CalcElectricChillerHeatRecovery CalcElectricChillerModel CalcElectricEIRChillerModel CalcElectricHeatingCoil CalcEmmelRoof CalcEmmelVertical CalcEngineChillerHeatRec CalcEngineDrivenChillerModel CalcEQLOpticalProperty CalcEQLWindowOpticalProperty CalcEQLWindowSHGCAndTransNormal CalcEQLWindowStandardRatings CalcEQLWindowUvalue CalcEquipmentDrainTemp CalcEquipmentFlowRates CalcExhaustAbsorberChillerModel CalcExhaustAbsorberHeaterModel CalcExteriorVentedCavity CalcFisherPedersenCeilDiffuserCeiling CalcFisherPedersenCeilDiffuserFloor CalcFisherPedersenCeilDiffuserWalls CalcFluidHeatExchanger CalcFohannoPolidoriVerticalWall CalcFollowOATempSetPoint CalcFollowSysNodeTempSetPoint CalcFourPipeIndUnit CalcFrameDividerShadow CalcFuelCellAuxHeater CalcFuelCellGeneratorModel CalcFuelCellGenHeatRecovery CalcFurnaceOutput CalcFurnaceResidual CalcGasAbsorberChillerModel CalcGasAbsorberHeaterModel CalcGasCooler CalcGasHeatingCoil CalcGenericDesiccantDehumidifier CalcGoldsteinNovoselacCeilingDiffuserFloor CalcGoldsteinNovoselacCeilingDiffuserWall CalcGoldsteinNovoselacCeilingDiffuserWindow CalcGroundTempSetPoint CalcGroundwaterWell CalcGshpModel CalcGshpModel CalcGTChillerModel CalcHeatBalanceAir CalcHeatBalanceInsideSurf CalcHeatBalanceInsideSurf CalcHeatBalanceOutsideSurf CalcHeatBalanceOutsideSurf CalcHeatBalFiniteDiff CalcHeatBalHAMT CalcHeatPumpWaterHeater CalcHeatTransCoeffAndCoverTemp CalcHfExteriorSparrow CalcHighTempRadiantSystem CalcHighTempRadiantSystemSP CalcHiTurnOffSysAvailMgr CalcHiTurnOnSysAvailMgr CalcHnASHRAETARPExterior CalcHPCoolingSimple CalcHPHeatingSimple CalcHPWHDXCoil CalcHWBaseboard CalcHXAssistedCoolingCoil CalcHXEffectTerm CalcHybridVentSysAvailMgr CalcIBesselFunc CalcICEngineGeneratorModel CalcICEngineGenHeatRecovery CalcIceStorageCapacity CalcIceStorageCharge CalcIceStorageDischarge CalcIceStorageDormant CalcICSSolarCollector CalcIdealCondEntSetPoint CalcIfSetpointMet CalcIndirectAbsorberModel CalcIndirectResearchSpecialEvapCooler CalcInteriorRadExchange CalcInteriorSolarDistribution CalcInteriorSolarOverlaps CalcInteriorWinTransDifSolInitialDistribution CalcISO15099WindowIntConvCoeff CalcKaradagChilledCeiling CalcKBesselFunc CalcKhalifaEq3WallAwayFromHeat CalcKhalifaEq4CeilingAwayFromHeat CalcKhalifaEq5WallsNearHeat CalcKhalifaEq6NonHeatedWalls CalcKhalifaEq7Ceiling CalcLoadCenterThermalLoad CalcLoTurnOffSysAvailMgr CalcLoTurnOnSysAvailMgr CalcLowTempCFloRadiantSystem CalcLowTempCFloRadSysComps CalcLowTempElecRadiantSystem CalcLowTempHydrRadiantSystem CalcLowTempHydrRadSysComps CalcMatrixInverse CalcMcAdams CalcMerkelVariableSpeedTower CalcMicroCHPNoNormalizeGeneratorModel CalcMinIntWinSolidAngs CalcMitchell CalcMixedAirSetPoint CalcMoistureBalanceEMPD CalcMoreNodeInfo CalcMoWITTLeeward CalcMoWITTWindward CalcMSHeatPump CalcMTGeneratorModel CalcMultiSpeedDXCoil CalcMultiSpeedDXCoilCooling CalcMultiSpeedDXCoilHeating CalcMultiStageElectricHeatingCoil CalcMultiStageGasHeatingCoil CalcMultiZoneAverageCoolingSetPoint CalcMultiZoneAverageHeatingSetPoint CalcMultiZoneAverageMaxHumSetPoint CalcMultiZoneAverageMinHumSetPoint CalcMultiZoneMaxHumSetPoint CalcMultiZoneMinHumSetPoint CalcMundtModel CalcNCycSysAvailMgr CalcNewZoneHeatCoolFlowRates CalcNewZoneHeatOnlyFlowRates CalcNodeMassFlows CalcNominalWindowCond CalcNonDXHeatingCoils CalcNonDXHeatingCoils CalcNonDXHeatingCoils CalcNonDXHeatingCoils CalcNusselt CalcNusseltJurges CalcNVentSysAvailMgr CalcOAController CalcOAMassFlow CalcOAMassFlow CalcOAMixer CalcOAOnlyMassFlow CalcOAPretreatSetPoint CalcOAUnitCoilComps CalcObstrMultiplier CalcOptStartSysAvailMgr CalcOtherSideDemand CalcOutdoorAirUnit CalcOutsideAirSetPoint CalcOutsideSurfTemp CalcParallelPIU CalcPassiveExteriorBaffleGap CalcPassiveSystem CalcPassiveTranspiredCollector CalcPerSolarBeam CalcPipeHeatTransCoef CalcPipesHeatTransfer CalcPipeTransBeam CalcPlantValves CalcPollution CalcPolyhedronVolume CalcPolynomCoef CalcPondGroundHeatExchanger CalcPredictedHumidityRatio CalcPredictedSystemLoad CalcPTUnit CalcPumps CalcPurchAirLoads CalcPurchAirMinOAMassFlow CalcPurchAirMixedAir CalcPVTcollectors CalcQiceChargeMaxByChiller CalcQiceChargeMaxByITS CalcQiceDischageMax CalcRABFlowSetPoint CalcRackSystem CalcRadSysHXEffectTerm CalcRadTemp CalcRainCollector CalcReformEIRChillerModel CalcResearchSpecialPartLoad CalcReturnAirPath CalcRfFlrCoordinateTransformation CalcSandiaPV CalcSatVapPressFromTemp CalcSchedOffSysAvailMgr CalcSchedOnSysAvailMgr CalcSchedSysAvailMgr CalcScheduledDualSetPoint CalcScheduledSetPoint CalcScreenTransmittance CalcScriptF CalcSeriesPIU CalcSetpointTempTarget CalcSHRUserDefinedCurves CalcSimpleController CalcSimpleHeatingCoil CalcSimplePV CalcSingleSpeedEvapFluidCooler CalcSingleSpeedTower CalcSingZoneClSetPoint CalcSingZoneHtSetPoint CalcSingZoneMaxHumSetPoint CalcSingZoneMinHumSetPoint CalcSingZoneRhSetPoint CalcSkySolDiffuseReflFactors CalcSolarCollector CalcSolarFlux CalcSolidDesiccantDehumidifier CalcSourceFlux CalcSourceTempCoefficents CalcSparrowLeeward CalcSparrowWindward CalcSpecialDayTypes CalcStandAloneERV CalcStandardRatings CalcStaticProperties CalcSteamAirCoil CalcSteamBaseboard CalcSurfaceCentroid CalcSurfaceGroundHeatExchanger CalcSystemEnergyUse CalcSZOneStageCoolingSetPt CalcSZOneStageHeatingSetPt CalcTankTemp CalcTDDTransSolAniso CalcTDDTransSolHorizon CalcTDDTransSolIso CalcTempDistModel CalcTempIntegral CalcTESCoilChargeOnlyMode CalcTESCoilCoolingAndChargeMode CalcTESCoilCoolingAndDischargeMode CalcTESCoilCoolingOnlyMode CalcTESCoilDischargeOnlyMode CalcTESCoilOffMode CalcTESIceStorageTank CalcTESWaterStorageTank CalcThermalChimney CalcThermalComfortAdaptiveASH55 CalcThermalComfortAdaptiveCEN15251 CalcThermalComfortFanger CalcThermalComfortKSU CalcThermalComfortPierce CalcThermalComfortSimpleASH55 CalcTimeNeeded CalcTopFluxCoefficents CalcTopSurfTemp CalcTotalFLux CalcTotCapSHR CalcTotCapSHR_VSWSHP CalcTransAbsorProduct CalcTransRefAbsOfCover CalcTRNSYSPV CalcTrombeWallIntConvCoeff CalcTwoSpeedDXCoilIEERResidual CalcTwoSpeedDXCoilStandardRating CalcTwoSpeedEvapFluidCooler CalcTwoSpeedTower CalcUAIce CalcUCSDCV CalcUCSDDV CalcUCSDUE CalcUCSDUI CalculateAirChillerSets CalculateBasisLength CalculateCase CalculateCoil CalculateCompressors CalculateCondensers CalculateCTFs CalculateDailySolarCoeffs CalculateDayOfWeek CalculateEpsFromNTUandZ CalculateExponentialMatrix CalculateFuncResults CalculateGammas CalculateInverseMatrix CalculateMoodyFrictionFactor CalculateNTUfromEpsAndZ CalculatePollution CalculateSecondary CalculateSubcoolers CalculateSunDirectionCosines CalculateTransCompressors CalculateWalkIn CalculateWaterUseage CalculateWaterUseage CalculateWindowBeamProperties CalculateZoneMRT CalculateZoneVolume CalcUnitaryCoolingSystem CalcUnitaryHeatingSystem CalcUnitarySuppHeatingSystem CalcUnitarySuppSystemtoSP CalcUnitarySystemLoadResidual CalcUnitarySystemToLoad CalcUnitHeater CalcUnitHeaterComponents CalcUnitVentilator CalcUnitVentilatorComponents CalcUnmetPlantDemand CalcUpdateHeatRecovery CalcUpdateHeatRecovery CalcUserDefinedInsideHcModel CalcUserDefinedOutsideHcModel CalcVariableSpeedTower CalcVarSpeedCoilCooling CalcVarSpeedCoilHeating CalcVarSpeedHeatPump CalcVarSpeedHeatPump CalcVAVVS CalcVentilatedSlab CalcVentilatedSlabComps CalcVentilatedSlabRadComps CalcVentSlabHXEffectTerm CalcVerticalGroundHeatExchanger CalcViewFactorToShelf CalcVRF CalcVRFCondenser CalcVRFCoolingCoil CalcVSTowerApproach CalcWallCoordinateTransformation CalcWaltonStableHorizontalOrTilt CalcWaltonUnstableHorizontalOrTilt CalcWarmestSetPoint CalcWarmestSetPointTempFlow CalcWaterMainsTemp CalcWaterSource CalcWaterStorageTank CalcWaterThermalTankMixed CalcWaterThermalTankStratified CalcWaterThermalTankZoneGains CalcWaterToAirHeatpump CalcWatertoAirHPCooling CalcWatertoAirHPHeating CalcWaterToAirResidual CalcWatertoWaterHPCooling CalcWatertoWaterHPHeating CalcWaterUseZoneGains CalcWetIndirectEvapCooler CalcWindowACOutput CalcWindowBlindProperties CalcWindowHeatBalance CalcWindowProfileAngles CalcWindowScreenProperties CalcWindowStaticProperties CalcWindPressure CalcWindPressureCoeffs CalcWindTurbine CalcWinFrameAndDividerTemps CalcWinTransDifSolInitialDistribution CalcWrapperModel CalcZoneAirComfortSetpoints CalcZoneAirTempSetpoints CalcZoneComponentLoadSums CalcZoneDehumidifier CalcZoneEvaporativeCoolerUnit CalcZoneLeavingConditions CalcZoneMassBalance CalcZonePipesHeatGain CalcZoneSums CartesianPipeCellInformation_ctor CellType_IsFieldCell CFSHasControlledShade CFSNGlz CFSRefPointPosFactor CFSRefPointSolidAngle CFSShadeAndBeamInitialization CFSUFactor cGetCoilAirOutletNode cGetCoilSteamInletNode cGetCoilSteamOutletNode CharPreDefTableEntry CheckActuatorNode CheckAndAddAirNodeNumber CheckAndFixCFSLayer CheckAndReadCustomSprectrumData CheckAndReadFaults CheckAndSetConstructionProperties CheckBracketRoundOff CheckBranchForOASys CheckCachedIPErrors CheckCFSStates CheckCoilWaterInletNode CheckControllerListOrder CheckControllerLists CheckConvexity CheckCostEstimateInput CheckCreatedZoneItemName CheckCurveLimitsForIPLV CheckCurveLimitsForStandardRatings CheckDayScheduleValueMinMax CheckDXCoolingCoilInOASysExists CheckFDSurfaceTempLimits CheckFFSchedule CheckFluidPropertyName CheckForActualFileName CheckForBalancedFlow CheckForControllerWaterCoil CheckForGeometricTransform CheckForGeometricTransform CheckForMisMatchedEnvironmentSpecifications CheckForOutOfRangeTempResult CheckForOutOfRangeTemps CheckForRequestedReporting CheckForRunawayPlantTemps CheckForSensorAndSetpointNode CheckGasCoefs CheckHeatingCoilSchedule CheckHXAssistedCoolingCoilSchedule CheckIFAnyEMS CheckIFAnyIdealCondEntSetPoint CheckIfAnyPlant CheckIfNodeSetpointManagedByEMS CheckIncrementRoundOff CheckInternalConsistency CheckLightsReplaceableMinMaxForZone CheckLocationValidity CheckLoopExitNode CheckLowerUpperBracket CheckMarkedNodes CheckMaxActiveController CheckMaxConstraint CheckMicroCHPThermalBalance CheckMinActiveController CheckMinConstraint checkMinimumMonthlyCharge CheckMinMaxCurveBoundaries CheckMinMaxRange CheckModelBoundOutput_HumRat CheckModelBoundOutput_Temp CheckModelBounds CheckModelBoundsHumRatEq CheckModelBoundsRH_HumRatEq CheckModelBoundsRH_TempEq CheckModelBoundsTempEq CheckNodeConnections CheckNodeSetPoint CheckNonSingularity CheckOAControllerName CheckOutAirNodeNumber CheckPlantConvergence CheckPlantMixerSplitterConsistency CheckPlantOnAbort CheckPollutionMeterReporting CheckRefrigerationInput CheckReportVariable CheckRootFinderCandidate CheckRootFinderConvergence CheckScheduledSurfaceGains CheckScheduleValue CheckScheduleValueMinMax Checksetpoints CheckSimpleController CheckSlope CheckSteamCoilSchedule CheckSubSurfaceMiscellaneous CheckSysSizing CheckSystemBranchFlow CheckTDDsAndLightShelvesInDaylitZones CheckThisAirSystemForSizing CheckThisZoneForSizing CheckThreading CheckUniqueNodes CheckUnitarySysCoilInOASysExists CheckUsedConstructions CheckValidSimulationObjects CheckWarmupConvergence CheckWaterCoilSchedule CheckWeatherFileValidity CheckWindowShadingControlFrameDivider CheckZoneEquipmentList CheckZoneSizing CHKBKS CHKGSS CHKSBS CLIP CLIPPOLY CloseDFSFile CloseMiscOpenFiles CloseMoistureBalanceEMPD CloseOutOpenFiles CloseOutputFiles CloseOutputTabularFile CloseReportIllumMaps CloseSocket CloseWeatherFile CoilAreaFracIter CoilCompletelyDry CoilCompletelyWet CoilOutletStreamCondition CoilPartWetPartDry COMMAND_ARGUMENT_COUNT CompactObjectsCheck CompareTwoVectors ComplexFenestrationLuminances ComputeDelayedComponents ComputeDifSolExcZonesWIZWindows ComputeIntSolarAbsorpFactors ComputeIntSWAbsorpFactors ComputeIntThermalAbsorpFactors ComputeLifeCycleCostAndReport ComputeLoadComponentDecayCurve ComputeNominalUwithConvCoeffs ComputePresentValue ComputeTariff ComputeTaxAndDepreciation ComputeWinShadeAbsorpFactors CondOutTempResidual ConstructBasis ControlCBVAVOutput ControlCompOutput ControlCompOutput ControlCoolBeam ControlCoolingSystem ControlCycWindACOutput ControlDesiccantDehumidifier ControlDXHeatingSystem ControlDXSystem ControlFluidHeatExchanger ControlHeatingSystem ControlHumidifier ControlMSHPOutput ControlPTUnitOutput ControlPVTcollector ControlReformEIRChillerModel ControlSuppHeatSystem ControlUnitarySystemOutput ControlUnitarySystemtoLoad ControlUnitarySystemtoSP ControlVRF ControlVSEvapUnitToMeetLoad ControlVSHPOutput ControlVSHPOutput ConvectionFactor ConvertCasetoLower ConvertCasetoUpper ConvertIP ConvertIPdelta ConvertToElementTag ConvertToEscaped CoolBeamResidual CoolingCoil CoolWaterHumRatResidual CoolWaterTempResidual CoolWatertoAirHPHumRatResidual CoolWatertoAirHPTempResidual CorrectZoneAirTemp CorrectZoneContaminants CorrectZoneHumRat CostInfoOut CPCW CPHW CreateBoundaryList CreateBoundaryListCount CreateCategoryNativeVariables CreateCellArray CreateCurrentDateTimeString CreateDefaultComputation CreateEnergyReportStructure CreateFCfactorConstructions CreateHVACStepFullString CreateHVACTimeIntervalString CreateHVACTimeString CreateNewellAreaVector CreateNewellSurfaceNormalVector CreatePartitionCenterList CreatePartitionRegionList CreatePredefinedMonthlyReports CreateRegionList CreateRegionListCount CreateShadedWindowConstruction CreateSQLiteConstructionsTable CreateSQLiteConstructionsTable CreateSQLiteDatabase CreateSQLiteDatabase CreateSQLiteDaylightMap CreateSQLiteDaylightMap CreateSQLiteDaylightMapTitle CreateSQLiteDaylightMapTitle CreateSQLiteEnvironmentPeriodRecord CreateSQLiteEnvironmentPeriodRecord CreateSQLiteErrorRecord CreateSQLiteErrorRecord CreateSQLiteInfiltrationTable CreateSQLiteInfiltrationTable CreateSQLiteMaterialsTable CreateSQLiteMaterialsTable CreateSQLiteMeterDictionaryRecord CreateSQLiteMeterDictionaryRecord CreateSQLiteMeterRecord CreateSQLiteMeterRecord CreateSQLiteNominalBaseboardHeatTable CreateSQLiteNominalBaseboardHeatTable CreateSQLiteNominalElectricEquipmentTable CreateSQLiteNominalElectricEquipmentTable CreateSQLiteNominalGasEquipmentTable CreateSQLiteNominalGasEquipmentTable CreateSQLiteNominalHotWaterEquipmentTable CreateSQLiteNominalHotWaterEquipmentTable CreateSQLiteNominalLightingTable CreateSQLiteNominalLightingTable CreateSQLiteNominalOtherEquipmentTable CreateSQLiteNominalOtherEquipmentTable CreateSQLiteNominalPeopleTable CreateSQLiteNominalPeopleTable CreateSQLiteNominalSteamEquipmentTable CreateSQLiteNominalSteamEquipmentTable CreateSQLiteReportVariableDataRecord CreateSQLiteReportVariableDataRecord CreateSQLiteReportVariableDictionaryRecord CreateSQLiteReportVariableDictionaryRecord CreateSQLiteRoomAirModelTable CreateSQLiteRoomAirModelTable CreateSQLiteSchedulesTable CreateSQLiteSimulationsRecord CreateSQLiteSimulationsRecord CreateSQLiteStringTableRecord CreateSQLiteSurfacesTable CreateSQLiteSurfacesTable CreateSQLiteTabularDataRecords CreateSQLiteTabularDataRecords CreateSQLiteTimeIndexRecord CreateSQLiteTimeIndexRecord CreateSQLiteVentilationTable CreateSQLiteVentilationTable CreateSQLiteZoneGroupTable CreateSQLiteZoneGroupTable CreateSQLiteZoneListTable CreateSQLiteZoneListTable CreateSQLiteZoneTable CreateSQLiteZoneTable CreateStormWindowConstructions CreateSysTimeIntervalString CreateTCConstructions CreateTimeIntervalString CreateTimeString CreatExtBooundCondName CreateZoneExtendedOutput CreateZoneExtendedOutput CrossProduct CrossProduct cSurfaceClass CTRANS CurveValue DateToString DateToStringWithMonth DaylghtAltAndAzimuth DayltgAveInteriorReflectance DayltgClosestObstruction DayltgCrossProduct DayltgCurrentExtHorizIllum DayltgDirectIllumComplexFenestration DayltgDirectSunDiskComplexFenestration DayltgElecLightingControl DayltgExtHorizIllum DayltgGlare DayltgGlarePositionFactor DayltgGlareWithIntWins DayltgHitBetWinObstruction DayltgHitInteriorObstruction DayltgHitObstruction DayltgInteriorIllum DayltgInteriorMapIllum DayltgInteriorTDDIllum DayltgInterReflectedIllum DayltgInterReflectedIllumComplexFenestration DayltgInterReflIllFrIntWins DayltgLuminousEfficacy DayltgPierceSurface DayltgSetupAdjZoneListsAndPointers DayltgSkyLuminance DayltgSurfaceLumFromSun dCheckScheduleValueMinMax1 dCheckScheduleValueMinMax2 DeallocateLoadComponentArrays DebugRootFinder DecodeHHMMField DecodeMonDayHrMin DeflectionTemperatures DeflectionWidths DegradF DElightDaylightCoefficients DElightDaylightCoefficients DElightElecLtgCtrl DElightElecLtgCtrl DElightFreeMemory DElightFreeMemory DElightInputGenerator DElightInputGenerator DElightOutputGenerator DElightOutputGenerator DensityCFSFillGas Depth DERIV DetailsForSurfaces DetectOscillatingZoneTemp DetermineAzimuthAndTilt DetermineBranchFlowRequest DetermineBuildingFloorArea DetermineDateTokens DetermineFrequency DetermineIndexGroupFromMeterGroup DetermineIndexGroupKeyFromMeterName DetermineMaxBackSurfaces DetermineMeterIPUnits DetermineMinuteForReporting DeterminePolygonOverlap DetermineShadowingCombinations DetermineSunUpDown DevelopMesh DiffuseAverage DiffuseAverageProfAngGnd DiffuseAverageProfAngSky DisplayMaterialRoughness DisplayNumberandString DisplaySimDaysProgress DisplayString distance DistributeBBElecRadGains DistributeBBRadGains DistributeBBSteamRadGains DistributeHTRadGains DistributePlantLoad DistributePressureOnBranch DistributeTDDAbsorbedSolar DistributeUserDefinedPlantLoad DL_RES_r2 DLAG DOE2DXCoilHumRatResidual DOE2DXCoilHumRatResidual DOE2DXCoilResidual DOE2DXCoilResidual DOE2DXCoilResidual DoEndOfIterationOperations DomainRectangle_Contains DOMakeUPPERCase DoOneTimeInitializations DOSameString DoShadeControl DoStartOfTimeStepInitializations DownInterpolate4HistoryValues DumpAirLoopStatistics DumpCurrentLineBuffer DUMPVD DUMPVR DXCoilCyclingHumRatResidual DXCoilCyclingHumRatResidual DXCoilCyclingResidual DXCoilCyclingResidual DXCoilVarSpeedHumRatResidual DXCoilVarSpeedHumRatResidual DXCoilVarSpeedResidual DXCoilVarSpeedResidual DXFOut DXFOutLines DXFOutWireFrame DXHeatingCoilResidual DXHeatingCoilResidual DXHeatingCoilResidual DynamicClothingModel DynamicExtConvSurfaceClassification DynamicIntConvSurfaceClassification EchoOutActuatorKeyChoices EchoOutInternalVariableChoices EffectiveEPSLB EffectiveEPSLF EIRChillerHeatRecovery EN673ISO10292 EncodeMonDayHrMin EndEnergyPlus EndUniqueNodeCheck EnthalpyResidual epElapsedTime epGetTimeUsed epGetTimeUsedperCall epStartTime epStopTime epSummaryTimes eptime EQLWindowInsideEffectiveEmiss EQLWindowOutsideEffectiveEmiss EQLWindowSurfaceHeatBalance EquationsSolver ERF EstimateHEXSurfaceArea EvalInsideMovableInsulation EvalOutsideMovableInsulation EvaluateAdiabaticSurfaceTemperature EvaluateBasementCellTemperature EvaluateCellNeighborDirections evaluateChargeBlock evaluateChargeSimple EvaluateExpression EvaluateExtHcModels EvaluateFarfieldBoundaryTemperature EvaluateFarfieldCharacteristics EvaluateFieldCellTemperature EvaluateGroundSurfaceTemperature EvaluateIntHcModels EvaluateLoopSetPointLoad EvaluateNeighborCharacteristics evaluateQualify evaluateRatchet EvaluateSoilRhoCp EvaluateStack EvolveParaUCSDCV ExitCalcController ExpandComplexState ExpressAsCashFlows ExtendObjectDefinition ExteriorBCEqns ExternalInterfaceExchangeVariables ExternalInterfaceInitializeErlVariable ExternalInterfaceSetErlVariable ExternalInterfaceSetSchedule ExtOrIntShadeNaturalFlow Fabric_EstimateDiffuseProps FACSKY FalsePositionMethod FEQX FI FigureACAncillaries FigureAirEnthalpy FigureAirHeatCap FigureAuxilHeatGasHeatCap FigureBeamSolDiffuseReflFactors FigureBeamSolSpecularReflFactors FigureConstGradPattern FigureDayltgCoeffsAtPointsForSunPosition FigureDayltgCoeffsAtPointsForWindowElements FigureDayltgCoeffsAtPointsSetupForWindow FigureElectricalStorageZoneGains FigureFuelCellZoneGains FigureFuelEnthalpy FigureFuelHeatCap FigureGaseousWaterEnthalpy FigureHeightPattern FigureHXleavingGasHeatCap FigureInverterZoneGains FigureLHVofFuel FigureLiquidWaterEnthalpy FigureLiquidWaterHeatCap FigureMapPointDayltgFactorsToAddIllums FigureMicroCHPZoneGains FigureNDheightInZone FigurePowerConditioningLosses FigureProductGasesEnthalpy FigureProductGasHeatCap FigureRefPointDayltgFactorsToAddIllums FigureRefrigerationZoneGains FigureSolarBeamAtTimestep FigureSunCosines FigureSurfMapPattern FigureTDDZoneGains FigureTransformerZoneGains FigureTransientConstraints FigureTwoGradInterpPattern FILJAC FillBasisElement FillDefaultsSWP FillRemainingPredefinedEntries FillWeatherPredefinedEntries film filmg filmi filmPillar FILSKY FinalizeCFS FinalizeCFSLAYER FinalRateCoils FindAirLoopBranchConnection FindAirPlantCondenserLoopFromBranchList FindAllNumbersinList FindArrayIndex FindCompSPInput FindCompSPLoad FindCondenserLoopBranchConnection FindControlledZoneIndexFromSystemNodeNumberForZone FindDeltaTempRangeInput FindDemandSideMatch FindEMSVariable FindFirstLastPtr FindFirstRecord FindGlycol FindHXDemandSideLoopFlow FindInBasis FindItem FindIteminList FindIteminSortedList FindItemInVariableList FindLoopSideInCallingOrder FindNextRecord FindNonSpace FindNumberinList FindOAMixerMatchForOASystem FindPlantLoopBranchConnection FindRangeBasedOrUncontrolledInput FindRangeVariable FindRefrigerant FindRootSimpleController FindStratifiedTankSensedTemp FindTariffIndex FindTDDPipe FindUnitNumber FinishDebugOutputFiles FixViewFactors FluidCellInformation_ctor FM_BEAM FM_DIFF FM_F FNU forcedventilation FourPipeInductionUnitHasMixer FourPipeIUCoolingResidual FourPipeIUHeatingResidual FRA FrostControl FrostControlSetPointLimit FrostControlSetPointLimit FuelCellProductGasEnthResidual FUN FuncDetermineCoolantWaterExitTemp FuncDetermineCWMdotForInternalFlowControl FuncDetermineEngineTemp FV GasElecHeatingCoilResidual GASSES90 GassesLow GatherBEPSResultsForTimestep GatherBinResultsForTimestep GatherComponentLoadsHVAC GatherComponentLoadsIntGain GatherComponentLoadsSurfAbsFact GatherComponentLoadsSurface GatherForEconomics GatherForPredefinedReport GatherHeatGainReport GatherMonthlyResultsForTimestep GatherPeakDemandForTimestep GatherSourceEnergyEndUseResultsForTimestep GaussElimination generate_ears GenerateDElightDaylightCoefficients GenerateDElightDaylightCoefficients GeneratorPowerOutput GenericCrack GenOutputVariablesAuditReport Get2DMatrix Get2DMatrixDimensions GET_COMMAND GET_COMMAND_ARGUMENT Get_Environment_Variable GetActualDXCoilIndex GetAirBranchIndex GetAirFlowFlag GetAirflowNetworkInput GetAirHeatBalanceInput GetAirLoopAvailabilityManager GetAirModelDatas GetAirNodeData GetAirPathData GetAngleFactorList GetATMixer GetATMixerOutNode GetATMixerPriNode GetATMixers GetATMixerSecNode GetAttShdSurfaceData GetAverageTempByType GetBaseboardInput GetBaseboardInput GetBasementFloorHeatFlux GetBasementWallHeatFlux GetBLASTAbsorberInput GetBoilerInput GetBoilerInput GetBranchData GetBranchFanTypeName GetBranchFlow GetBranchInput GetBranchList GetBranchListInput GetBuildingData GetCBVAV GetCellWidths GetCellWidthsCount GetChildrenData GetChillerheaterInput GetCoilAirFlowRate GetCoilAirFlowRateVariableSpeed GetCoilAirInletNode GetCoilAirOutletNode GetCoilAvailScheduleIndex GetCoilCapacity GetCoilCapacity GetCoilCapacity GetCoilCapacity GetCoilCapacity GetCoilCapacity GetCoilCapacityByIndexType GetCoilCapacityVariableSpeed GetCoilCondenserInletNode GetCoilControlNodeNum GetCoilGroupTypeNum GetCoilIndex GetCoilIndex GetCoilIndex GetCoilIndexVariableSpeed GetCoilInletNode GetCoilInletNode GetCoilInletNode GetCoilInletNode GetCoilInletNode GetCoilInletNode GetCoilInletNodeVariableSpeed GetCoilMaxSteamFlowRate GetCoilMaxWaterFlowRate GetCoilMaxWaterFlowRate GetCoilMaxWaterFlowRate GetCoilObjectTypeNum GetCoilOutletNode GetCoilOutletNode GetCoilOutletNode GetCoilOutletNode GetCoilOutletNode GetCoilOutletNode GetCoilOutletNodeVariableSpeed GetCoilSteamInletNode GetCoilSteamOutletNode GetCoilTypeNum GetCoilWaterInletNode GetCoilWaterInletNode GetCoilWaterOutletNode GetColumnUsingTabs GetComfortSetpoints GetComponentData GetCondFDInput GetConductivityGlycol GetConnectorList GetConnectorListInput GetConstCOPChillerInput GetConstructData GetControlledZoneIndex GetControllerActuatorNodeNum GetControllerInput GetCoolBeams GetCoolingCoilTypeNameAndIndex GetCooltower GetCostEstimateInput GetCrossVentData GetCTGeneratorInput GetCTGeneratorResults GetCurrentHVACTime GetCurrentMeterValue GetCurrentScheduleValue GetCurveCheck GetCurveIndex GetCurveInput GetCurveMinMaxValues GetCurveName GetCurveObjectTypeNum GetCurveType GetCustomMeterInput GetDaylightingParametersDetaild GetDaylightingParametersInput GetDayScheduleIndex GetDemandManagerInput GetDemandManagerListInput GetDensityGlycol GetDesiccantDehumidifierInput GetDesignDayData GetDesignLightingLevelForZone GetDetShdSurfaceData GetDirectAirInput GetDisplacementVentData GetDSTData GetDualDuctInput GetDualDuctOutdoorAirRecircUse GetDuctInput GetDXCoilAirFlow GetDXCoilAvailSchPtr GetDXCoilBypassedFlowFrac GetDXCoilCapFTCurveIndex GetDXCoilIndex GetDXCoilNumberOfSpeeds GetDXCoils GetDXCoolingSystemInput GetDXHeatPumpSystemInput GetEarthTube GetElecReformEIRChillerInput GetElectricBaseboardInput GetElectricChillerInput GetElectricEIRChillerInput GetEMSInput GetEngineDrivenChillerInput GetEnvironmentalImpactFactorInfo GetEvapFluidCoolerInput GetEvapInput GetExhaustAbsorberInput GetExhaustAirInletNode GetExteriorEnergyUseInput GetExtVentedCavityIndex GetExtVentedCavityIndex GetExtVentedCavityTsColl GetExtVentedCavityTsColl GetFanAvailSchPtr GetFanCoilIndex GetFanCoilInletAirNode GetFanCoilMixedAirNode GetFanCoilOutAirNode GetFanCoilReturnAirNode GetFanCoilUnits GetFanCoilZoneInletAirNode GetFanDesignVolumeFlowRate GetFanIndex GetFanIndexForTwoSpeedCoil GetFanInletNode GetFanInput GetFanOutletNode GetFanPower GetFanSpeedRatioCurveIndex GetFanType GetFanVolFlow GetFarfieldTemp GetFirstBranchInletNodeName GetFluidCoolerInput GetFluidDensityTemperatureLimits GetFluidHeatExchangerInput GetFluidPropertiesData GetFluidSpecificHeatTemperatureLimits GetFrameAndDividerData GetFuelCellGeneratorInput GetFuelCellGeneratorResults GetFuelFactorInfo GetFurnaceInput GetGasAbsorberInput GetGeneratorFuelSupplyInput GetGeometryParameters GetGlycolNameByIndex GetGroundheatExchangerInput GetGroundReflectances GetGroundTemps GetGshpInput GetGshpInput GetGTChillerInput GetHeatBalanceInput GetHeatBalHAMTInput GetHeatExchangerObjectTypeNum GetHeatingCoilIndex GetHeatingCoilInput GetHeatingCoilNumberOfStages GetHeatingCoilPLFCurveIndex GetHeatingCoilTypeNum GetHeatReclaimSourceIndex GetHeatRecoveryInput GetHighTempRadiantSystem GetHPCoolingCoilIndex GetHTSubSurfaceData GetHTSurfaceData GetHTSurfExtVentedCavityData GetHumidifierInput GetHVACSingleDuctSysIndex GetHWBaseboardInput GetHXAssistedCoolingCoilInput GetHXCoilAirFlowRate GetHXCoilType GetHXCoilTypeAndName GetHXDXCoilIndex GetHXDXCoilName GetHybridVentilationControlStatus GetHybridVentilationInputs GetICEGeneratorResults GetICEngineGeneratorInput GetIceStorageInput GetIDFRecordsStats GetIndirectAbsorberInput GetIndUnits GetInputEconomicsChargeBlock GetInputEconomicsChargeSimple GetInputEconomicsComputation GetInputEconomicsCurrencyType GetInputEconomicsQualify GetInputEconomicsRatchet GetInputEconomicsTariff GetInputEconomicsVariable GetInputForLifeCycleCost GetInputFuelAndPollutionFactors GetInputLifeCycleCostNonrecurringCost GetInputLifeCycleCostParameters GetInputLifeCycleCostRecurringCosts GetInputLifeCycleCostUseAdjustment GetInputLifeCycleCostUsePriceEscalation GetInputTabularMonthly GetInputTabularPredefined GetInputTabularStyle GetInputTabularTimeBins GetInputViewFactors GetInputViewFactorsbyName GetInputZoneEvaporativeCoolerUnit GetInstantMeterValue GetInternalBranchData GetInternalHeatGainsInput GetInternalVariableValue GetInternalVariableValue GetInternalVariableValueExternalInterface GetInternalVariableValueExternalInterface GetInterpolatedSatProp GetInterpValue GetIntMassSurfaceData GetLastBranchOutletNodeName GetLastWord GetLightWellData GetListOfObjectsInIDD GetListofSectionsinInput GetLocationInfo GetLoopMixer GetLoopSidePumpIndex GetLoopSplitter GetLowTempRadiantSystem GetMaterialData GetMatrixInput getMaxAndSum GetMeteredVariables GetMeterIndex GetMeterResourceType GetMicroCHPGeneratorInput GetMicroCHPGeneratorResults GetMinOATCompressor GetMixerInput GetMixerInput GetMoistureBalanceEMPDInput GetMonthlyCostForResource GetMovableInsulationData GetMSHeatPumpInput GetMTGeneratorExhaustNode GetMTGeneratorInput GetMTGeneratorResults GetMundtData GetNewUnitNumber GetNextEnvironment GetNodeConnectionType GetNodeList GetNodeListsInput GetNodeNums GetNTUforCrossFlowBothUnmixed GetNumberOfSchedules GetNumberOfSurfaceLists GetNumberOfSurfListVentSlab GetNumChildren GetNumMeteredVariables GetNumOAControllers GetNumOAMixers GetNumOASystems GetNumObjectsFound GetNumObjectsInIDD GetNumRangeCheckErrorsFound GetNumSectionsFound GetNumSectionsinInput GetNumSegmentsForHorizontalTrenches GetNumSplitterMixerInConntrList GetOACompListNumber GetOACompName GetOACompType GetOACompTypeNum GetOAControllerInputs GetOAMixerIndex GetOAMixerInletNodeNumber GetOAMixerInputs GetOAMixerMixedNodeNumber GetOAMixerNodeNumbers GetOAMixerReliefNodeNumber GetOAMixerReturnNodeNumber GetOARequirements GetOASysControllerListIndex GetOASysNumCoolingCoils GetOASysNumHeatingCoils GetOASysNumSimpControllers GetOASystemNumber GetObjectDefInIDD GetObjectDefMaxArgs GetObjectItem GetObjectItemfromFile GetObjectItemNum GetOnlySingleNode GetOperationSchemeInput GetOSCData GetOSCMData GetOutAirNodesInput GetOutdoorAirUnitInputs GetOutdoorAirUnitOutAirNode GetOutdoorAirUnitReturnAirNode GetOutdoorAirUnitZoneInletNode GetOutsideAirSysInputs GetOutsideEnergySourcesInput GetParentData GetPipeInput GetPipesHeatTransfer GetPipingSystemsInput GetPIUs GetPlantAvailabilityManager GetPlantInput GetPlantLoopData GetPlantOperationInput GetPlantProfileInput GetPlantSizingInput GetPlantValvesInput GetPollutionFactorInput GetPondGroundHeatExchanger GetPowerManagerInput GetPressureCurveTypeAndIndex GetPressureSystemInput GetPreviousHVACTime GetProjectControlData GetProjectData GetPTUnit GetPTUnitMixedAirNode GetPTUnitOutAirNode GetPTUnitReturnAirNode GetPTUnitZoneInletAirNode GetPumpInput GetPurchasedAir GetPurchasedAirMixedAirHumRat GetPurchasedAirMixedAirTemp GetPurchasedAirOutAirMassFlow GetPurchasedAirReturnAirNode GetPurchasedAirZoneInletAirNode GetPVGeneratorResults GetPVInput GetPVTcollectorsInput GetPVTThermalPowerProduction GetQualityRefrig GetRecordLocations GetRectDetShdSurfaceData GetRectSubSurfaces GetRectSurfaces GetRefrigeratedRackIndex GetRefrigerationInput GetReportVariableInput GetRequiredMassFlowRate GetResidCrossFlowBothUnmixed GetResourceTypeChar GetReturnAirNodeForZone GetReturnAirPathInput GetRoomAirModelParameters GetRunPeriodData GetRunPeriodDesignData GetRuntimeLanguageUserInput GetSatDensityRefrig GetSatEnthalpyRefrig GetSatPressureRefrig GetSatSpecificHeatRefrig GetSatTemperatureRefrig GetScheduledSurfaceGains GetScheduleIndex GetScheduleMaxValue GetScheduleMinValue GetScheduleName GetScheduleType GetScheduleValuesForDay GetSecondaryInletNode GetSecondaryOutletNode GetSetPointManagerInputs GetShadingSurfReflectanceData GetShadowingInput GetShelfInput GetSimpleAirModelInputs GetSimpleShdSurfaceData GetSimpleWatertoAirHPInput GetSingleDayScheduleValues GetSiteAtmosphereData GetSizingParams GetSnowGroundRefModifiers GetSolarCollectorInput GetSpecialDayPeriodData GetSpecificHeatGlycol getSpecificUnitDivider getSpecificUnitIndex getSpecificUnitMultiplier GetSplitterInput GetSplitterInput GetSplitterNodeNumbers GetSplitterOutletNumber GetStandAloneERV GetStandAloneERVNodes GetStandAloneERVOutAirNode GetStandAloneERVReturnAirNode GetStandAloneERVZoneInletAirNode GetStandardMeterResourceType GetSteamBaseboardInput GetSteamCoilAvailScheduleIndex GetSteamCoilControlNodeNum GetSteamCoilIndex GetSteamCoilInput GetSTM GetStormWindowData GetSupHeatDensityRefrig GetSupHeatEnthalpyRefrig GetSupHeatPressureRefrig GetSupplyAirFlowRate GetSupplyAirFlowRate GetSupplyAirInletNode GetSupplyInletNode GetSupplyOutletNode GetSurfaceCountForOSCM GetSurfaceData GetSurfaceGroundHeatExchanger GetSurfaceHeatTransferAlgorithmOverrides GetSurfaceIndecesForOSCM GetSurfaceListsInputs GetSurfHBDataForMundtModel GetSurfHBDataForTempDistModel GetSysAvailManagerInputs GetSysAvailManagerListInputs GetSysInput GetSystemNodeNumberForZone GetSystemSizingInput GetTDDInput GetTESCoilIndex GetTESCoilInput GetThermalChimney GetTowerInput GetTranspiredCollectorIndex GetTranspiredCollectorInput GetTypeOfCoil GetUFADZoneData GetUnitarySystemDXCoolingCoilIndex GetUnitarySystemInput GetUnitarySystemOAHeatCoolCoil GetUnitConversion GetUnitHeaterInput GetUnitsString GetUnitSubString GetUnitVentilatorInput GetUnitVentilatorMixedAirNode GetUnitVentilatorOutAirNode GetUnitVentilatorReturnAirNode GetUnitVentilatorZoneInletAirNode GetUserConvectionCoefficients GetUserDefinedComponents GetUserDefinedOpSchemeInput GetUserDefinedPatternData GetUTSCTsColl GetVariableKeyCountandType GetVariableKeyCountandType GetVariableKeys GetVariableKeys GetVariableTypeAndIndex GetVariableUnitsString GetVarSpeedCoilInput GetVentilatedSlabInput GetVertices GetViscosityGlycol GetVRFInput GetVSCoilCondenserInletNode GetVSCoilMinOATCompressor GetVSCoilNumOfSpeeds GetWaterCoilAvailScheduleIndex GetWaterCoilCapacity GetWaterCoilIndex GetWaterCoilInput GetWaterMainsTemperatures GetWaterManagerInput GetWaterSource GetWaterThermalTankInput GetWatertoAirHPInput GetWatertoWaterHPInput GetWaterUseInput GetWeatherProperties GetWeatherStation GetWindowAC GetWindowACMixedAirNode GetWindowACOutAirNode GetWindowACReturnAirNode GetWindowACZoneInletAirNode GetWindowGapAirflowControlData GetWindowGlassSpectralData GetWindowShadingControlData GetWindTurbineInput GetWrapperInput GetWTGeneratorResults GetZoneAirDistribution GetZoneAirLoopEquipment GetZoneAirSetpoints GetZoneAndZoneListNames GetZoneContaminanInputs GetZoneContaminanSetpoints GetZoneData GetZoneDehumidifierInput GetZoneDehumidifierNodeNumber GetZoneEqAvailabilityManager GetZoneEquipment GetZoneEquipmentData GetZoneEquipmentData1 GetZoneInfilAirChangeRate GetZoneLoads GetZonePlenumInput GetZoneSizingInput GLtoAMB GoAhead guess HasFractionalScheduleValue hatter HCInWindowStandardRatings HConvGap HcUCSDCV HcUCSDDV HcUCSDUF HeatingCoilVarSpeedCycResidual HeatingCoilVarSpeedResidual HeatPumpRunFrac HeatPumpRunFrac HeatPumpRunFrac HeatWatertoAirHPTempResidual Height HEMINT HIC_ASHRAE HotWaterCoilResidual HotWaterCoilResidual HotWaterCoilResidual HotWaterCoilResidual HotWaterCoilResidual HotWaterHeatingCoilResidual HRadPar HTRANS HTRANS0 HTRANS1 HWBaseboardUAResidual HXAssistDXCoilResidual HXAssistedCoolCoilHRResidual HXAssistedCoolCoilHRResidual HXAssistedCoolCoilTempResidual HXAssistedCoolCoilTempResidual HXDemandSideLoopFlowResidual HybridVentilationControl IAM iCheckScheduleValue ICSCollectorAnalyticalSoluton iGetCoilAirOutletNode iGetCoilSteamInletNode iGetCoilSteamOutletNode INCLOS incrementEconVar IncrementInstMeterCache incrementSteps incrementTableEntry InitAirflowNetwork InitAirflowNetworkData InitAirHeatBalance InitAirLoops InitAirLoopSplitter InitAirMixer InitAirTerminalUserDefined InitAirZoneReturnPlenum InitAirZoneSupplyPlenum InitATMixer InitBaseboard InitBaseboard InitBLASTAbsorberModel InitBoiler InitBoiler InitBoreholeHXSimVars InitBSDFWindows InitCBVAV InitCoilUserDefined InitComplexWindows InitComponentNodes InitConductionTransferFunctions InitConnections InitConstCOPChiller InitController InitCoolBeam InitCTGenerators InitCurveReporting InitDaylightingDevices InitDemandManagers InitDesiccantDehumidifier InitDetailedIceStorage InitDirectAir InitDualDuct InitDuct InitDXCoil InitDXCoolingSystem InitDXHeatPumpSystem InitElecReformEIRChiller InitElectricBaseboard InitElectricChiller InitElectricEIRChiller InitEMS InitEMSControlledConstructions InitEMSControlledSurfaceProperties InitEnergyReports InitEngineDrivenChiller InitEquivalentLayerWindowCalculations InitEvapCooler InitEvapFluidCooler InitExhaustAbsorber InitExteriorConvectionCoeff InitFan InitFanCoilUnits InitFluidCooler InitFluidHeatExchanger InitFuelCellGenerators InitFurnace InitGasAbsorber InitGlassOpticalCalculations InitGshp InitGshp InitGTChiller InitHeatBalance InitHeatBalFiniteDiff InitHeatBalHAMT InitHeatingCoil InitHeatRecovery InitHighTempRadiantSystem InitHumidifier InitHWBaseboard InitHXAssistedCoolingCoil InitHybridVentSysAvailMgr InitialInitHeatBalFiniteDiff InitializeCFSDaylighting InitializeCFSStateData InitializeComponentSizingTable InitializeConstructionsTables InitializeDaylightMapTables InitializeEnvironmentPeriodsTable InitializeErrorsTable InitializeGlycolTempLimits InitializeHeatTransferPipes InitializeIndexes InitializeIndexes InitializeLoops InitializeMaterialsTable InitializeMeters initializeMonetaryUnit InitializeNominalBaseboardHeatTable InitializeNominalElectricEquipmentTable InitializeNominalGasEquipmentTable InitializeNominalHotWaterEquipmentTable InitializeNominalInfiltrationTable InitializeNominalLightingTable InitializeNominalOtherEquipmentTable InitializeNominalPeopleTable InitializeNominalSteamEquipmentTable InitializeNominalVentilationTable InitializeOperatingMode InitializeOutput InitializePipes InitializePredefinedMonthlyTitles InitializePsychRoutines InitializePumps InitializeRefrigerantLimits InitializeReportMeterDataDictionaryTable InitializeReportMeterDataTables InitializeReportVariableDataDictionaryTable InitializeReportVariableDataTables InitializeRoomAirModelTable InitializeRootFinder InitializeRuntimeLanguage InitializeSchedulesTable InitializeSimulationsTable InitializeSQLiteTables InitializeSurfacesTable InitializeSystemSizingTable InitializeTabularDataTable InitializeTabularDataTable InitializeTabularDataView InitializeTabularDataView InitializeTabularMonthly InitializeTimeIndicesTable InitializeViews InitializeWeather InitializeZoneGroupTable InitializeZoneInfoTable InitializeZoneListTable InitializeZoneSizingTable InitICEngineGenerators InitIndirectAbsorpChiller InitIndUnit InitInteriorConvectionCoeffs InitInteriorRadExchange InitInternalHeatGains InitIntSolarDistribution InitLoadBasedControl InitLoadDistribution InitLowTempRadiantSystem InitMicroCHPNoNormalizeGenerators InitMoistureBalanceEMPD InitMSHeatPump InitMTGenerators InitMundtModel InitOAController InitOAMixer InitOneTimePlantSizingInfo InitOutAirNodes InitOutdoorAirUnit InitOutsideAirSys InitPipesHeatTransfer InitPipingSystems InitPIU InitPlantProfile InitPlantUserComponent InitPlantValves InitPollutionMeterReporting InitPondGroundHeatExchanger InitPressureDrop InitPTUnit InitPurchasedAir InitPVTcollectors InitRefrigeration InitRefrigerationPlantConnections InitReturnAirPath InitSecretObjects InitSetPointManagers InitSimpleIceStorage InitSimpleMixingConvectiveHeatGains InitSimpleWatertoAirHP InitSimVars InitSimVars InitSimVars InitSimVars InitSolarCalculations InitSolarCollector InitSolarHeatGains InitSolReflRecSurf InitStandAloneERV InitSteamBaseboard InitSteamCoil InitSurfaceGroundHeatExchanger InitSurfaceHeatBalance InitSys InitSysAvailManagers InitSystemOutputRequired InitTempDistModel InitTESCoil InitThermalAndFluxHistories InitThermalComfort InitTower InitTranspiredCollector InitTRNSYSPV InitUCSDCV InitUCSDDV InitUCSDUF InitUniqueNodeCheck InitUnitarySystems InitUnitHeater InitUnitVentilator InitVarSpeedCoil InitVentilatedSlab InitVRF InitWaterCoil InitWaterSource InitWaterThermalTank InitWatertoAirHP InitWatertoWaterHP InitWindowAC InitWindTurbine InitWrapper InitZoneAirLoopEquipment InitZoneAirSetpoints InitZoneAirUserDefined InitZoneContSetpoints InitZoneDehumidifier InitZoneEquipment InitZoneEvaporativeCoolerUnit InPolygon InsertCurrencySymbol int_times_vector INTCPT Integer_IsInRange IntegerIsWithinTwoValues IntegerToString InterConnectTwoPlantLoopSides InteriorBCEqns InteriorNodeEqns InternalRangeCheck InternalSetupTankDemandComponent InternalSetupTankSupplyComponent interp INTERP InterpBlind InterpDefValuesForGlycolConc Interpolate Interpolate_Lagrange InterpolateBetweenFourValues InterpolateBetweenTwoValues InterpolatePipeTransBeam InterpProfAng InterpProfSlatAng InterpretWeatherDataLine InterpSlatAng InterpSw InterpValuesForGlycolConc IntInterfaceNodeEqns IntPreDefTableEntry IntToStr Invert3By3Matrix InvertMatrix InvJulianDay IPTrimSigDigits iRoundSigDigits IS_BEAM IS_DIFF IS_DSRATIO IS_F IS_LWP IS_OPENNESS IS_SWP isCompLoadRepReq IsControlledShade IsConverged_CurrentToPrevIteration IsConverged_PipeCurrentToPrevIteration IsCurveInputTypeValid IsCurveOutputTypeValid isExternalInterfaceErlVariable IsGlazeLayerX IsGZSLayer isInQuadrilateral IsInRange isInTriangle IsLeapYear IsNodeOnSetPtManager IsParentObject IsParentObjectCompSet IsShadingLayer IssueSevereAlphaInputFieldError IssueSevereInputFieldError IssueSevereRealInputFieldError IsValidConnectionType IsVBLayer isWithinRange ITERATE IterateRootFinder iTrimSigDigits JGDate JulianDay LClimb LDSumMax LDSumMean LEEDtariffReporting LimitCoilCapacity LimitController LimitTUCapacity LinesOut linint LoadEquipList LoadInterface LogicalToInteger LogicalToInteger LogPlantConvergencePoints lookupOperator LookUpScheduleValue LookUpSeason LookupSItoIP lubksb LUBKSB ludcmp LUDCMP LUdecomposition LUsolution MakeAnchorName MakeHVACTimeIntervalString MakeMirrorSurface MakeRectangularVertices MakeRelativeRectangularVertices MakeTransition MakeUPPERCase ManageAirflowNetworkBalance ManageAirHeatBalance ManageAirLoops ManageAirModel ManageBranchInput ManageControllers ManageCoolTower ManageDemand ManageEarthTube ManageElectCenterStorageInteractions ManageElectricLoadCenters ManageElectStorInteractions ManageEMS ManageExteriorEnergyUse ManageGeneratorControlState ManageGeneratorFuelFlow ManageHeatBalance ManageHeatBalFiniteDiff ManageHeatBalHAMT ManageHVAC ManageHybridVentilation ManageInsideAdaptiveConvectionAlgo ManageInternalHeatGains ManageInverter ManageMundtModel ManageNonZoneEquipment ManageOutsideAdaptiveConvectionAlgo ManageOutsideAirSystem ManagePlantLoadDistribution ManagePlantLoops ManageRefrigeratedCaseRacks ManageSetPoints ManageSimulation ManageSingleCommonPipe ManageSizing ManageSurfaceHeatBalance ManageSystemAvailability ManageThermalChimney ManageThermalComfort ManageTransformers ManageTwoWayCommonPipe ManageUCSDCVModel ManageUCSDDVModel ManageUCSDUFModels ManageUserDefinedPatterns ManageWater ManageWaterInits ManageWeather ManageZoneAirLoopEquipment ManageZoneAirUpdates ManageZoneContaminanUpdates ManageZoneEquipment MapExtConvClassificationToHcModels MapIntConvClassificationToHcModels MarkNode MatchAndSetColorTextString MatchPlantSys MatrixIndex matrixQBalance MeshPartition_CompareByDimension MeshPartition_SelectionSort MeshPartitionArray_Contains MinePlantStructForInfo MixedAirControlTempResidual ModifyWindow Modulus MonthToMonthNumber MovingAvg MRXINV MSHPCyclingResidual MSHPHeatRecovery MSHPVarSpeedResidual MultiModeDXCoilHumRatResidual MultiModeDXCoilHumRatResidual MultiModeDXCoilResidual MultiModeDXCoilResidual MultiModeDXCoilResidual MultiSpeedDXCoolingCoilStandardRatings MultiSpeedDXHeatingCoilStandardRatings MULTOL MyPlantSizingIndex NeighborInformationArray_Value NETRAD NewEMSVariable NewExpression newPreDefColumn newPreDefReport newPreDefSubTable NEWTON NodeHasSPMCtrlVarType NormalArea NumBranchesInBranchList NumCompsInBranch nusselt NusseltNumber OpenEPlusWeatherFile OPENNESS_LW OpenOutputFiles OpenOutputTabularFile OpenWeatherFile OPERATOR (*) OPERATOR (+) OPERATOR (-) OPERATOR (.dot.) OPERATOR (.twodcross.) OPERATOR (.twoddot.) OPERATOR (/) ORDER OutBaroPressAt OutDewPointTempAt OutDryBulbTempAt OutsidePipeHeatTransCoef OutWetBulbTempAt P01 PanesDeflection ParametricObjectsCheck parseComputeLine ParseExpression ParseStack ParseTime PartLoadFactor PassiveGapNusseltNumber PassPressureAcrossInterface PassPressureAcrossMixer PassPressureAcrossSplitter PD_BEAM PD_BEAM_CASE_I PD_BEAM_CASE_II PD_BEAM_CASE_III PD_BEAM_CASE_IV PD_BEAM_CASE_V PD_BEAM_CASE_VI PD_DIFF PD_LW PD_LWP PD_SWP PerformanceCurveObject PerformanceTableObject PerformIterationLoop PerformPipeCellSimulation PerformPipeCircuitSimulation PerformSolarCalculations PerformTemperatureFieldUpdate PierceSurface PierceSurfaceVector PipeCircuitInfo_InitInOutCells PipeSegmentInfo_InitPipeCells PIUInducesPlenumAir PIUnitHasMixer PlaneEquation PlantHalfLoopSolver PlantMassFlowRatesFunc PLRResidual PLRResidual PLRResidualMixedTank PLRResidualStratifiedTank PMVResidual POLY1F POLY2F POLYF polygon_contains_point_2d popStack pos PostIPProcessing POWER PreDefTableEntry PredictSystemLoads PredictZoneContaminants PreparePipeCircuitSimulation PrepDebugFilesAndVariables PreProcessorCheck PrepVariablesISO15099 PreScanReportingVariables PresProfile PressureCurveValue ProcessDataDicFile ProcessDateString ProcessEMSInput ProcessEPWHeader ProcessForDayTypes ProcessInput ProcessInputDataFile ProcessIntervalFields ProcessMinMaxDefLine ProcessNumber ProcessScheduleInput ProcessSurfaceVertices ProcessTokens ProduceMinMaxString ProduceMinMaxStringWStartMinute ProduceRDDMDD ProfileAngle PropagateResolvedFlow PStack PsyCpAirFnWTdb PsyHfgAirFnWTdb PsyHFnTdbRhPb PsyHFnTdbW PsyHgAirFnWTdb PsyPsatFnTemp PsyPsatFnTemp_raw PsyRhFnTdbRhov PsyRhFnTdbRhovLBnd0C PsyRhFnTdbWPb PsyRhoAirFnPbTdbW PsyRhovFnTdbRh PsyRhovFnTdbRhLBnd0C PsyRhovFnTdbWPb PsyTdbFnHW PsyTdpFnTdbTwbPb PsyTdpFnWPb PsyTsatFnHPb PsyTsatFnPb PsyTwbFnTdbWPb PsyTwbFnTdbWPb_raw PsyVFnTdbWPb PsyWFnTdbH PsyWFnTdbRhPb PsyWFnTdbTwbPb PsyWFnTdpPb psz Pt2Plane PullCompInterconnectTrigger PumpDataForTable PushBranchFlowCharacteristics PushInnerTimeStepArrays pushStack PushSystemTimestepHistories PushSystemTimestepHistories PushZoneTimestepHistories PushZoneTimestepHistories QsortC QsortPartition RadialCellInfo_XY_CrossSectArea RadialCellInformation_ctor RadialSizing_Thickness Rainflow RangeCheck RB_BEAM RB_DIFF RB_F RB_LWP RB_SWP rCheckDayScheduleValueMinMax rCheckScheduleValue rCheckScheduleValueMinMax1 rCheckScheduleValueMinMax2 ReadEnergyMeters ReadEPlusWeatherForDay ReadGeneralDomainInputs ReadHorizontalTrenchInputs ReadINIFile ReadInputLine ReadPipeCircuitInputs ReadPipeSegmentInputs ReadTableData ReadUserWeatherInput ReadWeatherForDay Real_ConstrainTo Real_IsInRange real_times_vector ReAllocateAndPreserveOutputVariablesForSimulation ReallocateIntegerArray ReallocateIVar ReallocateRealArray ReallocateRVar RealPreDefTableEntry RealToStr RecKeepHeatBalance RecordOutput RectangleF_Contains ReformEIRChillerCondInletTempResidual ReformEIRChillerHeatRecovery RegisterNodeConnection RegisterPlantCompDesignFlow RegulateCondenserCompFlowReqOp ReInitPlantLoopsAtFirstHVACIteration RemoveSpaces RemoveTrailingZeros reorder ReplaceBlanksWithUnderscores ReplaceBlanksWithUnderscores ReportAirflowNetwork ReportAirHeatBalance ReportAirLoopConnections ReportAirTerminalUserDefined ReportAndTestGlycols ReportAndTestRefrigerants ReportBaseboard ReportBaseboard ReportCBVAV ReportChillerIPLV ReportCoilUserDefined ReportCompSetMeterVariables ReportController ReportCoolBeam ReportCoolTower ReportCTFs ReportCWTankInits ReportDemandManagerList ReportDesiccantDehumidifier ReportDetailedIceStorage ReportDirectAir ReportDualDuct ReportDualDuctConnections ReportDuct ReportDXCoil ReportDXCoilRating ReportDYMeters ReportEarthTube ReportEconomicVariable ReportElectricBaseboard ReportEMS ReportEvapCooler ReportEvapFluidCooler ReportExteriorEnergyUse ReportFan ReportFanCoilUnit ReportFatalGlycolErrors ReportFatalRefrigerantErrors ReportFiniteDiffInits ReportFluidCooler ReportFluidHeatExchanger ReportForTabularReports ReportFurnace ReportGlass ReportHeatBalance ReportHeatingCoil ReportHeatRecovery ReportHighTempRadiantSystem ReportHRMeters ReportHumidifier ReportHWBaseboard ReportIllumMap ReportingFreqName ReportingThisVariable ReportInternalHeatGains ReportLoopConnections ReportLowTempRadiantSystem ReportMaxVentilationLoads ReportMeterDetails ReportMissing_RangeData ReportMixer ReportMNMeters ReportMoistureBalanceEMPD ReportMSHeatPump ReportNodeConnections ReportOAController ReportOAMixer ReportOrphanFluids ReportOrphanRecordObjects ReportOrphanSchedules ReportOutdoorAirUnit ReportOutputFileHeaders ReportParentChildren ReportPipesHeatTransfer ReportPIU ReportPlantProfile ReportPlantUserComponent ReportPlantValves ReportPondGroundHeatExchanger ReportPTUnit ReportPumps ReportPurchasedAir ReportPV ReportRackSystem ReportRefrigerationComponents ReportReturnAirPath ReportRuntimeLanguage ReportScheduleDetails ReportScheduleValues ReportSizingOutput ReportSMMeters ReportSolarCollector ReportSplitter ReportStandAloneERV ReportStandAloneWaterUse ReportSteamBaseboard ReportSteamCoil ReportSurfaceErrors ReportSurfaceGroundHeatExchngr ReportSurfaceHeatBalance ReportSurfaces ReportSurfaceShading ReportSys ReportSysSizing ReportSystemEnergyUse ReportThermalChimney ReportTowers ReportTSMeters ReportUnitarySystem ReportUnitHeater ReportUnitVentilator ReportVentilatedSlab ReportVRFCondenser ReportVRFTerminalUnit ReportWarmupConvergence ReportWaterCoil ReportWaterManager ReportWaterThermalTank ReportWaterUse ReportWeatherAndTimeInformation ReportWindowAC ReportWindTurbine ReportZoneAirLoopEquipment ReportZoneAirUserDefined ReportZoneDehumidifier ReportZoneEquipment ReportZoneEvaporativeCoolerUnit ReportZoneMeanAirTemp ReportZoneReturnPlenum ReportZoneSizing ReportZoneSupplyPlenum ResetAllPlantInterConnectFlags ResetController ResetEnvironmentCounter ResetHVACControl ResetNodeData ResetPerformanceCurveOutput ResetRootFinder ResetTerminalUnitFlowLimits ResetWeekDaysByMonth Resimulate resist ReSolveAirLoopControllers ResolveAirLoopFlowLimits ResolveLocationInformation ResolveLockoutFlags ResolveLoopFlowVsPressure ResolveParallelFlows ResolveSysFlow ReverseAndRecalculate RevertZoneTimestepHistories RevertZoneTimestepHistories RevisePlantCallingOrder RezeroZoneSizingArrays RhoH2O RHtoVP RKG RoundSigDigits rRoundSigDigits rTrimSigDigits SafeCopyPlantNode SafeDiv SafeDivide SameString SandiaCellTemperature SandiaEffectiveIrradiance SandiaF1 SandiaF2 SandiaImp SandiaIsc SandiaIx SandiaIxx SandiaModuleTemperature SandiaTcellFromTmodule SandiaVmp SandiaVoc SaveSimpleController ScanForReports ScanPlantLoopsForNodeNum ScanPlantLoopsForObject sCheckDayScheduleValueMinMax ScheduleAverageHoursPerWeek SEARCH SearchAscTable SearchWindow5DataFile SecantFormula SecantMethod selectTariff SetActuatedBranchFlowRate SetAdditionalNeighborData SetAllFlowLocks SetAllPlantSimFlagsToValue SetATMixerPriFlow SetATMixerPriFlow SetAverageAirFlow SetAverageAirFlow SetAverageAirFlow SetAverageAirFlow SetAverageAirFlow SetAverageAirFlow SetCoilDesFlow SetCoilSystemCoolingData SetCoilSystemHeatingDXFlag SetCompFlowRate SetComponentFlowRate SetCurrentWeather SetCurveOutputMinMaxValues SetDSTDateRanges SetDXCoilTypeData SetDXCoolingCoilData SetEquivalentLayerWindowProperties SetErlValueNumber SetExtConvectionCoeff SetFanData SetHeatExchangerData SetHeatToReturnAirFlag SetInitialMeterReportingAndOutputNames SetIntConvectionCoeff SetInternalVariableValue SetMinMax setNativeVariables SetNodeResult SetOAControllerData SetOnOffMassFlowRate SetOnOffMassFlowRate SetOnOffMassFlowRate SetOnOffMassFlowRateVSCoil SetOnOffMassFlowRateVSCoil SetOutAirNodes SetOutBulbTempAt SetPredefinedTables SetSimpleWSHPData SETSKY SetSpecialDayDates SetSpeedVariables SetStormWindowControl SetSurfHBDataForMundtModel SetSurfHBDataForTempDistModel SetSurfTmeanAir SETUP4x4_A SetupAdaptiveConvectionRadiantSurfaceData SetupAdaptiveConvectionStaticMetaData SetupAirLoopControllersTracer SetupAllOutputVariables SetUpAndSort SetupBranchControlTypes SetupCellNeighbors SetupCommonPipes SetupComplexFenestrationMaterialInput SetupComplexFenestrationStateInput SetupComplexWindowStateGeometry SetUpCompSets SetupDElightOutput4EPlus SetupDElightOutput4EPlus SetUpDesignDay SetupEMSActuator SetupEMSIntegerActuator SetupEMSIntegerInternalVariable SetupEMSInternalVariable SetupEMSLogicalActuator SetupEMSRealActuator SetupEMSRealInternalVariable SetupEnvironmentTypes SetupFuelConstituentData SetupGeneratorControlStateManager SetupIndividualControllerTracer SetupInitialPlantCallingOrder SetupIntegerOutputVariable SetupInterpolationValues SetupLoopFlowRequest SetupMeteredVarsForSetPt SetupMundtModel SetupNodeSetpointsAsActuators SetupNodeVarsForReporting SetupOutputVariable SetupPipeCircuitInOutCells SetupPlantEMSActuators SetupPollutionCalculations SetupPollutionMeterReporting SetupPossibleOperators SetupPrimaryAirSystemAvailMgrAsActuators SetupPumpMinMaxFlows SetupRealOutputVariable SetupRealOutputVariable_IntKey SetupReportInput SetupReports SetupRootFinder SetUpSchemeColors SetupShadeSurfacesForSolarCalcs SetupSimpleWindowGlazingSystem SetupSimulation SetupStratifiedNodes SetupSurfaceConstructionActuators SetupSurfaceConvectionActuators SetupSurfaceOutdoorBoundaryConditionActuators SetUpSysSizingArrays SetupTankDemandComponent SetupTankSupplyComponent SetupThermostatActuators SetupTimePointers SetupUnitConversions SetupWeekDaysByMonth SetupWindowShadingControlActuators SetupZoneEquipmentForConvectionFlowRegime SetupZoneGeometry SetupZoneInfoAsInternalDataAvail SetupZoneInternalGain SetupZoneInternalGain SetupZoneSizing SetUpZoneSizingArrays SetUTSCQdotSource SetVarSpeedCoilData SetVentedModuleQdotSource SetVSHPAirFlow SetVSHPAirFlow SetWindSpeedAt SetZoneEquipSimOrder shading shadingedge shadingin SHADOW SharedDVCVUFDataInit SHDBKS SHDGSS SHDRVL SHDSBS shift ShiftPipeTemperaturesForNewIteration ShiftPlantLoopSideCallingOrder ShiftTemperaturesForNewIteration ShiftTemperaturesForNewTimeStep ShowAuditErrorMessage ShowBranchesOnLoop ShowContinueError ShowContinueError ShowContinueErrorTimeStamp ShowContinueErrorTimeStamp ShowErrorMessage ShowErrorMessage ShowFatalError ShowFatalError ShowMessage ShowMessage ShowPsychrometricSummary ShowRecurringContinueErrorAtEnd ShowRecurringContinueErrorAtEnd ShowRecurringErrors ShowRecurringSevereErrorAtEnd ShowRecurringSevereErrorAtEnd ShowRecurringWarningErrorAtEnd ShowRecurringWarningErrorAtEnd ShowSevereError ShowSevereError ShowSevereMessage ShowSevereMessage ShowWarningError ShowWarningError ShowWarningMessage ShowWarningMessage showWarningsBasedOnTotal Sim4PipeFanCoil SimAirChillerSet SimAirLoop SimAirLoopComponent SimAirLoopComponents SimAirLoops SimAirLoopSplitter SimAirMixer SimAirTerminalUserDefined SimAirZonePlenum SimATMixer SimBaseboard SimBLASTAbsorber SimBoiler SimCBVAV SimCBVAV SimCentralGroundSourceHeatPump SimChiller SimCoilUserDefined SimComponentModelFan SimConstVol SimCoolBeam SimCostEstimate SimCTGenerator SimCTPlantHeatRecovery SimCyclingWindowAC SimDesiccantDehumidifier SimDetailedIceStorage SimDirectAir SimDistrictEnergy SimDualDuctConstVol SimDualDuctVarVol SimDualDuctVAVOutdoorAir SimDuct SimDXCoil SimDXCoilMultiMode SimDXCoilMultiSpeed SimDXCoolingSystem SimDXHeatPumpSystem SimElecBaseBoard SimElectricBaseBoard SimElectricConvective SimElectricEIRChiller SimEvapCooler SimEvapFluidCoolers SimExhaustAbsorber SimFanCoilUnit SimFluidCoolers SimFluidHeatExchanger SimFourPipeIndUnit SimFuelCellGenerator SimFuelCellPlantHeatRecovery SimFurnace SimGasAbsorber SimGroundHeatExchangers SimHeatPumpWaterHeater SimHeatRecovery SimHighTempRadiantSystem SimHPWatertoWaterCOOLING SimHPWatertoWaterHEATING SimHPWatertoWaterSimple SimHumidifier SimHVAC SimHWBaseboard SimHWConvective SimHXAssistedCoolingCoil SimICEngineGenerator SimICEPlantHeatRecovery SimIceStorage SimIndirectAbsorber SimIndUnit SimLowTempRadiantSystem SimMicroCHPGenerator SimMicroCHPPlantHeatRecovery SimMSHeatPump SimMSHP SimMTGenerator SimMTPlantHeatRecovery SimMultiSpeedCoils SimOAComponent SimOAController SimOAMixer SimOnOffFan SimOutdoorAirEquipComps SimOutdoorAirUnit SimOutsideAirSys SimOutsideEnergy SimPackagedTerminalUnit SimPipes SimPipesHeatTransfer SimPipingSystemCircuit SimPIU SimPlantEquip SimPlantValves SimpleCoolingCoilUAResidual SimpleEvapFluidCoolerUAResidual SimpleFluidCoolerUAResidual SimpleHeatingCoilUAResidual SimpleTowerApproachResidual SimpleTowerTrResidual SimpleTowerUAResidual SimPondGroundHeatExchanger SimPressureDropSystem SimPTUnit SimPumps SimPurchasedAir SimPVGenerator SimPVTcollectors SimReformulatedEIRChiller SimRefrigCondenser SimReturnAirPath SimSelectedEquipment SimSetPointManagers SimSimpleEvapFluidCooler SimSimpleFan SimSimpleFluidCooler SimSimpleTower SimSolarCollector SimStandAloneERV SimSteamBaseboard SimSteamBoiler SimSteamCoils SimSurfaceGroundHeatExchanger SimSysAvailManager SimTESCoil SimTowers SimTranspiredCollector SimulateAllInteriorRadialSoilSlices SimulateAllLoopSideBranches SimulateAllLoopSidePumps SimulateDemandManagerList SimulateDetailedRefrigerationSystems SimulateDetailedTransRefrigSystems SimulateDualDuct SimulateFanComponents SimulateFluidCell SimulateHeatingCoilComponents SimulateInnerMostRadialSoilSlice SimulateLoopSideBranchGroup SimulateOuterMostRadialSoilSlice SimulatePlantProfile SimulateRadialInsulationCell SimulateRadialPipeCell SimulateRadialToCartesianInterface SimulateSingleDuct SimulateSteamCoilComponents SimulateVRF SimulateWaterCoilComponents SimulateWaterHeaterStandAlone SimulateWaterUse SimulateWaterUseConnection SimUnitaryBypassVAV SimUnitarySystem SimUnitHeater SimUnitVentilator SimUnitVentOAMixer SimUserDefinedPlantComponent SimVariableSpeedCoils SimVariableSpeedHP SimVariableSpeedHP SimVariableTower SimVariableVolumeFan SimVAV SimVAVVS SimVentilatedSlab SimVentSlabOAMixer SimVRF SimVRFCondenserPlant SimWaterCoils SimWaterSource SimWaterThermalTank SimWatertoAirHP SimWatertoAirHPSimple SimWindowAC SimWindTurbine SimZoneAirLoopEquipment SimZoneAirUserDefined SimZoneDehumidifier SimZoneEquipment SimZoneEvaporativeCoolerUnit SimZoneExhaustFan SimZoneOutAirUnitComps SingelSpeedDXCoolingCoilStandardRatings SingleSpeedDXHeatingCoilStandardRatings SingleSpeedFluidCooler SizeAbsorpChiller SizeAirLoopBranches SizeAirLoops SizeBaseboard SizeBoiler SizeBoiler SizeCBVAV SizeConstCOPChiller SizeController SizeCoolBeam SizeDemandSidePlantConnections SizeDirectAir SizeDualDuct SizeDXCoil SizeElecReformEIRChiller SizeElectricBaseboard SizeElectricBaseboard SizeElectricChiller SizeElectricEIRChiller SizeEngineDrivenChiller SizeEvapCooler SizeEvapFluidCooler SizeExhaustAbsorber SizeFan SizeFanCoilUnit SizeFluidCooler SizeFluidHeatExchanger SizeFurnace SizeGasAbsorber SizeGTChiller SizeHeatingCoil SizeHeatRecovery SizeHighTempRadiantSystem SizeHumidifier SizeHVACWaterToAir SizeHWBaseboard SizeIndirectAbsorpChiller SizeIndUnit SizeLowTempRadiantSystem SizeMSHeatPump SizeOAController SizeOutdoorAirUnit SizePIU SizePlantLoop SizePTUnit SizePump SizePurchasedAir SizePVT SizeStandAloneERV SizeStandAloneWaterHeater SizeSteamBaseboard SizeSteamCoil SizeSupplySidePlantConnections SizeSys SizeTankForDemandSide SizeTankForSupplySide SizeTESCoil SizeTower SizeUCSDUF SizeUnitarySystem SizeUnitHeater SizeUnitVentilator SizeVarSpeedCoil SizeVentilatedSlab SizeVRF SizeVRFCondenser SizeVSMerkelTower SizeWaterCoil SizeWaterManager SizeWaterSource SizeWindowAC SizeWrapper SizeZoneDehumidifier SizeZoneEquipment SizeZoneEvaporativeCoolerUnit SkipEPlusWFHeader SkyDifSolarShading SkyGndWeight SkyWeight SLtoAMB SLtoGL SLVSKY solar_EN673 solarISO15099 SolarSprectrumAverage SOLMATS SolveAirLoopControllers SolveForWindowTemperatures SolveRegression SolveRegulaFalsi SolverMoistureBalanceEMPD SOLVZP SortHistory Specular_Adjust Specular_EstimateDiffuseProps Specular_F Specular_OffNormal Specular_RATDiff Specular_SWP SQLiteBegin SQLiteBegin SQLiteBindDouble SQLiteBindInteger SQLiteBindLogicalMacro SQLiteBindNULL SQLiteBindText SQLiteBindTextMacro SQLiteClearBindings SQLiteCloseDatabase SQLiteColumnInt SQLiteColumnIntMacro SQLiteCommit SQLiteCommit SQLiteExecuteCommand SQLiteExecuteCommandMacro SQLiteFinalizeCommand SQLiteOpenDatabase SQLiteOpenDatabaseMacro SQLitePrepareStatement SQLitePrepareStatementMacro SQLiteResetCommand SQLiteStepCommand SQLiteWriteMessage SQLiteWriteMessageMacro SQLiteWriteMessageMacro StandardIndexTypeKey StandardVariableTypeKey StartingWindowTemps StartingWinTempsForNominalCond SteamHeatingCoilResidual StorageType StoreAPumpOnCurrentTempLoop storeIterationResults StoreRecurringErrorMessage StringValue StrToReal SumAllInternalCO2Gains SumAllInternalConvectionGains SumAllInternalGenericContamGains SumAllInternalLatentGains SumAllInternalRadiationGains SumAllReturnAirConvectionGains SumAllReturnAirLatentGains SumHATsurf SumHATsurf SumHATsurf SumHATsurf SumHATsurf SumHATsurf SumInternalCO2GainsByTypes SumInternalConvectionGainsByTypes SumInternalLatentGainsByTypes SumInternalRadiationGainsByTypes SummarizeErrors SumReturnAirConvectionGainsByTypes SumZoneImpacts SUN3 SUN4 SupSATResidual SurfaceScheduledSolarInc SurveyDemandManagers SystemPropertiesAtLambdaAndPhi SystemSpectralPropertiesAtPhi TableLookupObject TARCOG90 TBND TdbFnHRhPb TDMA TDMA_R TellMeHowManyObjectItemArgs TemperaturesFromEnergy TempIPtoSI TempSItoIP terpld TESCoilHumRatResidual TESCoilResidual TestAirPathIntegrity TestBranchIntegrity TestCompSet TestCompSetInletOutletNodes TestInletOutletNodes TestReturnAirPathIntegrity TestSupplyAirPathIntegrity therm1d TightenNodeMinMaxAvails TimestepInitComplexFenestration TimestepTypeName TraceAirLoopController TraceAirLoopControllers TraceIndividualController TraceIterationStamp TrackAirLoopController TrackAirLoopControllers TRadC TransAndReflAtPhi TransformVertsByAspect TransTDD Triangulate TrimSigDigits TurnOffLoopEquipment TurnOffLoopSideEquipment TurnOffReportRangeCheckErrors TurnOnPlantLoopPipes TurnOnReportRangeCheckErrors TwoSpeedFluidCooler UnitarySystemHeatRecovery UpdateAbsorberChillerComponentGeneratorSide UpdateAirflowNetwork UpdateAirMixer UpdateAirSysCompPtrArray UpdateAirSysSubCompPtrArray UpdateAirSysSubSubCompPtrArray UpdateAirZoneReturnPlenum UpdateAirZoneSupplyPlenum UpdateAnyLoopDemandAlterations UpdateATMixer UpdateBaseboard UpdateBaseboardPlantConnection UpdateBasementSurfaceTemperatures UpdateBBElecRadSourceValAvg UpdateBBRadSourceValAvg UpdateBBSteamRadSourceValAvg UpdateBLASTAbsorberRecords UpdateBoilerRecords UpdateBoilerRecords UpdateBracket UpdateBranchConnections UpdateChillerComponentCondenserSide UpdateChillerheaterRecords UpdateChillerRecords UpdateColdWeatherProtection UpdateCommonPipe UpdateComplexWindows UpdateComponentHeatRecoverySide UpdateConstCOPChillerRecords UpdateController UpdateCoolBeam UpdateCoolTower UpdateCTGeneratorRecords UpdateDataandReport UpdateDemandManagers UpdateDesiccantDehumidifier UpdateDetailedIceStorage UpdateDualDuct UpdateDuct UpdateDXCoil UpdateElectricBaseboard UpdateElectricChillerRecords UpdateElectricEIRChillerRecords UpdateEMSTrendVariables UpdateEngineDrivenChiller UpdateEvapCooler UpdateEvapFluidCooler UpdateEvaporativeCondenserBasinHeater UpdateEvaporativeCondenserWaterUse UpdateExhaustAbsorberCoolRecords UpdateExhaustAbsorberHeatRecords UpdateExhaustAirFlows UpdateFan UpdateFinalSurfaceHeatBalance UpdateFluidCooler UpdateFluidHeatExchanger UpdateFuelCellGeneratorRecords UpdateGasAbsorberCoolRecords UpdateGasAbsorberHeatRecords UpdateGSHPRecords UpdateGSHPRecords UpdateGSHPRecords UpdateGTChillerRecords UpdateHalfLoopInletTemp UpdateHeatBalHAMT UpdateHeatingCoil UpdateHeatRecovery UpdateHighTempRadiantSystem UpdateHistories UpdateHistory UpdateHTRadSourceValAvg UpdateHumidifier UpdateHVACInterface UpdateHWBaseboard UpdateHWBaseboardPlantConnection UpdateIceFractions UpdateICEngineGeneratorRecords UpdateIndirectAbsorberRecords UpdateInternalGainValues UpdateIrrigation UpdateLoadCenterRecords UpdateLoopSideReportVars UpdateLowTempRadiantSystem UpdateMeterReporting UpdateMeters UpdateMeterValues UpdateMicroCHPGeneratorRecords UpdateMinMax UpdateMixedAirSetPoints UpdateMoistureBalanceEMPD UpdateMoistureBalanceFD UpdateMSHeatPump UpdateMTGeneratorRecords UpdateNode UpdateNodeThermalHistory UpdateOAController UpdateOAMixer UpdateOAPretreatSetPoints UpdatePipesHeatTransfer UpdatePipingSystems UpdatePlantLoopInterface UpdatePlantMixer UpdatePlantProfile UpdatePlantSplitter UpdatePlantValves UpdatePondGroundHeatExchanger UpdatePrecipitation UpdatePressureDrop UpdatePurchasedAir UpdatePVTcollectors UpdateRadSysSourceValAvg UpdateRecords UpdateReformEIRChillerRecords UpdateRefrigCondenser UpdateReportWaterSystem UpdateRootFinder UpdateScheduleValues UpdateSetPointManagers UpdateSimpleWatertoAirHP UpdateSoilProps UpdateSolarCollector UpdateSplitter UpdateSQLiteErrorRecord UpdateSQLiteErrorRecord UpdateSQLiteSimulationRecord UpdateSQLiteSimulationRecord UpdateSteamBaseboard UpdateSteamBaseboardPlantConnection UpdateSteamCoil UpdateSurfaceGroundHeatExchngr UpdateSys UpdateSysSizing UpdateSystemOutputRequired UpdateTabularReports UpdateTEStorage UpdateThermalHistories UpdateTowers UpdateTranspiredCollector UpdateUnitarySystemControl UpdateUtilityBills UpdateVarSpeedCoil UpdateVentilatedSlab UpdateVerticalGroundHeatExchanger UpdateVRFCondenser UpdateWaterCoil UpdateWaterConnections UpdateWaterManager UpdateWaterSource UpdateWaterThermalTank UpdateWaterToAirCoilPlantConnection UpdateWatertoAirHP UpdateWeatherData UpdateWholeBuildingRecords UpdateZoneAirLoopEquipment UpdateZoneCompPtrArray UpdateZoneDehumidifier UpdateZoneEquipment UpdateZoneInletConvergenceLog UpdateZoneListAndGroupLoads UpdateZoneSizing UpdateZoneSubCompPtrArray UpdateZoneSubSubCompPtrArray ValidateAndSetSysAvailabilityManagerType ValidateComponent ValidateDistributionSystem ValidateEMSProgramName ValidateEMSVariableName ValidateExhaustFanInput ValidateFlowControlPaths ValidateFuelType ValidateIndexType ValidateMaterialRoughness ValidateMonthDay ValidateNStandardizeMeterTitles ValidateObjectandParse ValidatePipeConstruction ValidatePLFCurve ValidateSection ValidateSectionsInput ValidateVariableType value_to_vector ValueToString VAVVSCoolingResidual VAVVSHCFanOnResidual VAVVSHWFanOnResidual VAVVSHWNoFanResidual VB_CriticalSlatAngle VB_DIFF VB_LWP VB_ShadeControl VB_SLAT_RADIUS_RATIO VB_SOL4 VB_SOL46_CURVE VB_SOL6 VB_SWP vec2d_cross_product vec2d_dot_product vec_cross_product vec_dot_product VecLength VecNegate VecNormalize VecRound VecSquaredLength vector_add vector_div_int vector_div_real vector_subtract vector_times_int vector_times_real vector_to_array VerifyControlledZoneForThermostat VerifyCustomMetersElecPowerMgr VerifyHeatExchangerParent VerifyName VerifySetPointManagers VerifyThermostatInZone VerifyUniqueBaseboardName VerifyUniqueBoilerName VerifyUniqueChillerName VerifyUniqueCoilName ViewFac VisibleSprectrumAverage Volume VRMLOut VSCoilCyclingHumResidual VSCoilCyclingResidual VSCoilCyclingResidual VSCoilSpeedHumResidual VSCoilSpeedResidual VSCoilSpeedResidual VSEvapUnitLoadResidual VSHPCyclingResidual VSHPCyclingResidual VSHPSpeedResidual VSHPSpeedResidual VSMerkelResidual W5InitGlassParameters W5LsqFit W5LsqFit2 W6CoordsFromWorldVect warnIfNativeVarname WetCoilOutletCondition WhichCompSet WhichParentCompSet WhichParentSet Width WindowGapAirflowControl WindowGasConductance WindowGasPropertiesAtTemp WindowHeatBalanceEquations WindowScheduledSolarAbs WindowShadingManager WindowTempsForNominalCond WindSpeedAt Windward WorldVectFromW6 WriteAdaptiveComfortTable WriteAirLoopStatistics WriteBEPSTable WriteCompCostTable WriteComponentSizing WriteCumulativeReportMeterData WriteDaylightMapTitle WriteDemandEndUseSummary WriteInputArguments WriteIntegerData WriteIntegerVariableOutput WriteMeterDictionaryItem WriteModifiedArguments WriteMonthlyTables WriteOutputArguments WriteOutputEN673 WritePoint WritePredefinedTables WriteRealData WriteRealVariableOutput WriteReportHeaders WriteReportIntegerData WriteReportMeterData WriteReportRealData WriteReportVariableDictionaryItem WriteRootFinderStatus WriteRootFinderTrace WriteRootFinderTraceHeader WriteSourceEnergyEndUseSummary writeSubtitle WriteSurfaceShadowing WriteTable WriteTableOfContents WriteTabularLifeCycleCostReport WriteTabularReports WriteTabularTariffReports WriteTARCOGInputFile writeTextLine WriteTimeBinTables WriteTimeStampFormatData WriteTrace WriteVeriSumTable WriteZoneLoadComponentTable WVDC XNormalArea XYRectangle XZRectangle YNormalArea YZRectangle ZeroHVACValues ZNormalArea