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 / ENDRUN.FOR < prev    next >
Text File  |  1991-08-16  |  4KB  |  97 lines
  1.       SUBROUTINE ENDRUN (IPASS)
  2. C      SUBROUTINE ENDRUN (IPASS, XHUM1,COMFTS)
  3. C
  4. C-----PERFORMS CALCULATIONS FOR THE END OF THE RUN
  5. C
  6. C-----CONSTANTS
  7. CMDK NHRO
  8. CMDK NHRP
  9. CMDK NOUTDY
  10. CMDK NZN
  11. CMDK NZN7
  12. C
  13. C-----COMMON BLOCKS
  14. CMDK BLKSV
  15. CMDK HUMIDC
  16. CMDK OUTPUT
  17. CMDK QUAYCH
  18. CMDK QUAYLE
  19. CMDK TSTATC
  20.       INTEGER IPASS (NOUTDY)
  21. C      REAL XHUM1(22),COMFTS(11,21)
  22. C
  23.       DO 1170 I=1, NOUTDY
  24.          IF (IPASS (I).EQ.0) SEASUM (I)=SEASUM (I)/NMONTH
  25. 1170     CONTINUE
  26.       SEASUM (15)=RATIO (SEASUM (10), SEASUM (14), 1.0)
  27.       SEASUM (32)=RATIO (SEASUM (27), SEASUM (31), 0.001)
  28.       CALL QACCUML
  29.       WRITE(60, 6000) ICITY, (CMONTH (MONTH (I)), I=1, NMONTH)
  30.       WRITE(60, 4010) REDC, REDH
  31.       WRITE(60, 6060) IDES
  32.       WRITE(60, 6010) (SEASUM (I), I=1, 5)
  33.       IF (MODE.NE.2) THEN
  34.          WRITE(60, 6020) (SEASUM (I), I=6, 15)
  35.       END IF
  36.       IF (MODE.NE.3) THEN
  37.          WRITE(60, 6030) (SEASUM (I), I=25, 32)
  38.       END IF
  39.       IF (CFMBP.GT.0.0) WRITE(60, 6070) (SEASUM (I), I=33, 38)
  40. C      IF (ICOMF.NE.1) THEN
  41. C         WRITE(60, 5100)
  42. C         DO 1200 J=1, 21
  43. C            J1=J+1
  44. C            J22=22-J
  45. C            WRITE(60, 6050) XHUM1 (J), XHUM1 (J1),
  46. C     1         (COMFTS (I, J22), I=1, 11)
  47. C  1200        CONTINUE
  48. C      END IF
  49. C
  50. 4010  FORMAT (' BASE UNIT COOLING CAPACITY MULTIPLIED BY ', F10.3, /,
  51.      1       ' BASE UNIT HEATING CAPACITY MULTIPLIED BY ', F10.3)
  52. 5100  FORMAT ('1', T28, 'TIME SPENT IN EACH COMFORT ZONE (HRS)', /,
  53.      1   ' SP.HUM.', T35, 'DRYBULB TEMPERATURE', /,
  54.      2   T13, '65/67  67/69  69/71  71/73  73/75  75/77  77/79  79/81',
  55.      3   '  81/83  83/85 85/125', /)
  56. C *** SEASONAL SUMMARY OUTPUT
  57. 6000  FORMAT ('1  ***SEASONAL SUMMARY FOR ', A4, '***', /,
  58.      1   '0SEASON IN: ', 12 (A4, 1X))
  59. 6010  FORMAT (' MEAN ROOM TEMPERATURE', T48, 'DEGF', F12.1, /,
  60.      1   ' MEAN ROOM RELATIVE HUMIDITY', T51, '%', F12.1, /,
  61.      2   ' MEAN OUTDOOR DRY BULB', T48, 'DEGF', F12.1, /,
  62.      3   '0AVERAGE CYCLIC ROOM TEMPERATURE SWING', T48, 'DEGF', F12.1,
  63.      4   /,
  64.      5   ' AVERAGE CYCLIC ROOM REL HUM SWING', T51, '%', F12.1, /)
  65. 6020  FORMAT ('0*** HEATING ***', /,
  66.      1   '0TOTAL BURNER ON TIME (CYCLES)', T50, 'HR', (F10.2, '(',
  67.      2   F6.0, ')'), /,
  68.      3   '0NET HEATING OUTPUT', T49, 'BTU', (F12.0, 6X), /,
  69.      4   ' MIS HEATING OUTPUT', T49, 'BTU', (F12.0, 6X), /,
  70.      5   ' TOTAL HEATING OUTPUT', T49, 'BTU', (F12.0, 6X), /,
  71.      6   ' TOTAL BURNER FAN ENERGY', T47, 'KW-HR', (F10.2, 8X), /,
  72.      7   ' TOTAL BLOWER ENERGY', T47, 'KW-HR', (F10.2, 8X), /,
  73.      8   ' TOTAL FUEL INPUT ENERGY', T49, 'BTU', (F12.0, 6X), /,
  74.      9   ' TOTAL ENERGY (HEATING)', T49, 'BTU', (F12.0, 6X), /,
  75.      A   '0HEATING PERFORMANCE FACTOR', 23X, (F12.3, 6X), ///)
  76. 6030  FORMAT (' *** COOLING ***', /,
  77.      1   '0TOTAL COMPRESSOR ON TIME(CYCLES)', T50, 'HR', F12.2, '(',
  78.      2   F6.0, ')', /,
  79.      3   '0TOTAL COOLING BY AIR CONDITIONING', T49, 'BTU', F12.0, /,
  80.      4   '0TOTAL COMPRESSOR ENERGY', T47, 'KW-HR', F12.2, /,
  81.      5   ' TOTAL INDOOR FAN ENERGY', T47, 'KW-HR', F12.2, /,
  82.      6   ' TOTAL OUTDOOR FAN ENERGY', T47, 'KW-HR', F12.2, /,
  83.      7   ' TOTAL ENERGY (COOLING)', T47, 'KW-HR', F12.2, /,
  84.      8   '0COOLING SEASONAL PERFORMANCE FACTOR    BTU/WATT-HR', F12.2,
  85.      9   /)
  86. 6050  FORMAT (1X, F4.3, '/', F4.3, 11F7.0, /)
  87. 6060  FORMAT (1X, 15A4, //)
  88. 6070  FORMAT (' *** HUMIDIFIER ***', /,
  89.      1   '0TOTAL HUMIDIFIER ON TIME', T50, 'HR', F12.2, /,
  90.      2   ' TOTAL HUMIDIFIER CYCLES', T52, F12.0, /,
  91.      3   ' TOTAL ENTHALPY OF SUPPLY WATER', T49, 'BTU', F12.1, /,
  92.      4   ' TOTAL ENTHALPY OF WASTE WATER', T49, 'BTU', F12.1, /,
  93.      5   ' TOTAL HEAT REMOVED FROM THE AIR', T49, 'BTU', F12.1, /,
  94.      6   ' TOTAL WATER ADDED TO AIR', T50, 'LB', F12.2)
  95. C
  96.       END
  97.