home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / EVENTP.FOR < prev    next >
Text File  |  1992-05-09  |  2KB  |  60 lines
  1.       SUBROUTINE EVENTP(IEB,IEQ,IBRNP,IACZP,IBRN,IACZ)
  2. C
  3. C  COLLECT AND PRINT GAS-VALVE(IBURNN) OR A/C(IACN) EVENTS,
  4. C                    TSTAT(IBRNP OR IACZP) EVENTS,
  5. C                    SUPPLY DAMPER(IBRN OR IACZ) EVENTS,
  6. C                AND BLOWER(IEFAN) EVENTS IN EACH ZONE.
  7. C
  8. CMDK NZN
  9. CMDK NWL
  10. CMDK NZW
  11. CMDK ENCBK1
  12. CMDK IBEV
  13. CMDK INDIC1
  14. CMDK BLKICL
  15. CMDK TIMEB
  16. CMDK TSTB3
  17. CMDK TSTATC
  18. CMDK BLKTM2
  19. CMDK TEMP1
  20.       INTEGER IBRNP1(5),IBRNP2(5),IBRNP(NZN),IACZP(NZN),IBRN(NZN),
  21.      +        IACZ(NZN)
  22.       REAL TIP(5)
  23.       DATA IBRNP1/5*0/,IBRNP2/5*0/,TIP/5*0./
  24.  
  25. C
  26.       IF(IBPRT.EQ.0.AND.IEVPRT.EQ.0)RETURN
  27.       ITT=IT-1
  28.       DO 10 J=1,NROOMS
  29.       NRM=NRMA(J)
  30.       IF(MODE.EQ.2)THEN
  31.          IEBQ=-IAC
  32.          IBRNP1(NRM)=IACZP(NRM)
  33.          IBRNP2(NRM)=IACZ(NRM)
  34.       ELSE
  35.          IEBQ=IBURNN+1
  36. C                              THERMOSTAT STATES         
  37.          IBRNP1(NRM)=IBRNP(NRM)
  38. C                              DAMPER STATES         
  39.          IBRNP2(NRM)=IBRN(NRM)
  40.          ENDIF
  41.    10 CONTINUE
  42. C
  43.       IF(IBPRT.EQ.1.AND.IEB.EQ.1)THEN
  44. C  WRITE EVENT FILE ON TAPE 51
  45.          WRITE(51,500)TINDEX,JULDAY,ITT,IEBQ,(IBRNP1(I),I=1,5),
  46.      +                (IBRNP2(I),I=1,5),IEFAN
  47.          ENDIF
  48.       IF(IEVPRT.EQ.1.AND.IEQ.EQ.1)THEN
  49. C  WRITE EVENTS AND TI'S TO TAPE TAPE3
  50.          DO 202 J=1,NROOMS
  51.          NRM=NRMA(J)
  52.   202    TIP(NRM)=TI(NRM)
  53.          WRITE(3,501)TIME,IEBQ,(TIP(I),I=1,5),(IBRNP1(I),I=1,5),
  54.      +   (IBRNP2(I),I=1,5),IEFAN,ICOL
  55.          ENDIF
  56.       RETURN
  57.   500 FORMAT(F12.5,I4,I3,3(' 0'),3X,I3,3X,5I2,3X,5I2,3X,I2)
  58.   501 FORMAT(F12.5,I4,2X,5F6.1,3X,5I2,3X,5I2,3X,I2,3X,I2)
  59.       END
  60.