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 / ENDDAY.FOR < prev    next >
Text File  |  1991-08-16  |  1KB  |  44 lines
  1.       SUBROUTINE ENDDAY 
  2. C      SUBROUTINE ENDDAY (COMFTT, WEIGHT, WTFCT, XHUM1)
  3. C
  4. C-----PERFORMS CALCULATIONS FOR THE END OF THE DAY
  5. C
  6. C-----CONSTANTS
  7. CMDK NHRO
  8. CMDK NHRP
  9. CMDK NOUTDY
  10. C
  11. C-----ARGUMENTS
  12. C      REAL XHUM1(22)
  13. C     REAL COMFTT(11,21)
  14. C
  15. C-----COMMON BLOCKS
  16. CMDK OUTPUT
  17. CMDK QUAYLE
  18. C
  19. C *** SUMMARIZE AND PRINT COMFORT ZONE VALUES
  20. C
  21. C      IF (ICOMF.EQ.0) THEN
  22. C--------CHECK FOR MEAN DAY CALC
  23. C         IF (IMEAN.EQ.1) THEN
  24. C            DO 1080 I=1, 231
  25. C               COMFTT (I, 1)=WTFCT*OUTCOM (I, 1, 1)+
  26. C     1            WEIGHT*(OUTCOM (I, 1, 2)+OUTCOM (I, 1, 3))
  27. C 1080           CONTINUE
  28. C         END IF
  29. C
  30. C         WRITE(60, 5100)
  31. C         DO 1120 J=1, 21
  32. C            WRITE(60, 5120) XHUM1 (J), XHUM1 (J+1),
  33. C     1         (COMFTT (I, 22-J), I=1, 11)
  34. C 1120        CONTINUE
  35. C      END IF
  36. C
  37. 5100  FORMAT ('1', T28, 'TIME SPENT IN EACH COMFORT ZONE (HRS)', /,
  38.      1   ' SP.HUM.', T35, 'DRYBULB TEMPERATURE', /,
  39.      2   T13, '65/67  67/69  69/71  71/73  73/75  75/77  77/79  79/81',
  40.      3   '  81/83  83/85 85/125', /)
  41. 5120  FORMAT (1X, F4.3, '/', F4.3, 11F7.2, /)
  42. C
  43.       END
  44.