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 / ENDMON.FOR < prev    next >
Text File  |  1991-08-16  |  832b  |  37 lines
  1.       SUBROUTINE ENDMON 
  2. C      SUBROUTINE ENDMON (COMFTS, COMFTT)
  3. C
  4. C-----PERFORMS CALCULATIONS FOR THE END OF THE MONTH
  5. C
  6. C-----CONSTANTS
  7. CMDK NHRO
  8. CMDK NHRP
  9. CMDK NOUTDY
  10. C
  11. C-----ARGUMENTS
  12. C      REAL    COMFTS (11, 21), COMFTT (11, 21)
  13. C
  14. C-----COMMON BLOCKS
  15. CMDK OUTPUT
  16. CMDK QUAYLE
  17. C
  18. C-----END OF MONTH; DO NEXT MONTH
  19.       CALL QACCUMM
  20. C-----SET SEASONAL SUMMARY
  21.       DO 1140 I=1, 39
  22.          SEASUM (I)=SEASUM (I)+OUTDY (8, I)
  23. 1140     CONTINUE
  24.       DO 1145 I=40, 43
  25.          IF (OUTDY (8, I).GT.SEASUM (I)) SEASUM (I)=OUTDY (8, I)
  26. 1145     CONTINUE
  27.       IF (OUTDY (8, 44).LT.SEASUM (44)) SEASUM (44)=OUTDY (8, 44)
  28. C      IF (ICOMF.EQ.0) THEN
  29. C         DO 1150 I=1, 231
  30. C            COMFTS (I, 1)=COMFTS (I, 1)+COMFTT (I, 1)
  31. C 1150        CONTINUE
  32. C      END IF
  33. C
  34.       RETURN
  35. C
  36.       END
  37.