      SUBROUTINE ENDMON 
C      SUBROUTINE ENDMON (COMFTS, COMFTT)
C
C-----PERFORMS CALCULATIONS FOR THE END OF THE MONTH
C
C-----CONSTANTS
CMDK NHRO
CMDK NHRP
CMDK NOUTDY
C
C-----ARGUMENTS
C      REAL    COMFTS (11, 21), COMFTT (11, 21)
C
C-----COMMON BLOCKS
CMDK OUTPUT
CMDK QUAYLE
C
C-----END OF MONTH; DO NEXT MONTH
      CALL QACCUMM
C-----SET SEASONAL SUMMARY
      DO 1140 I=1, 39
         SEASUM (I)=SEASUM (I)+OUTDY (8, I)
1140     CONTINUE
      DO 1145 I=40, 43
         IF (OUTDY (8, I).GT.SEASUM (I)) SEASUM (I)=OUTDY (8, I)
1145     CONTINUE
      IF (OUTDY (8, 44).LT.SEASUM (44)) SEASUM (44)=OUTDY (8, 44)
C      IF (ICOMF.EQ.0) THEN
C         DO 1150 I=1, 231
C            COMFTS (I, 1)=COMFTS (I, 1)+COMFTT (I, 1)
C 1150        CONTINUE
C      END IF
C
      RETURN
C
      END
