|
<br />.
<br />
<br />000515
<br />
<br />INTEGER)
<br />C
<br />
<br />WRITE(0,4)
<br />4 FORMAT(' PRINT DATA SUMMARY FOR EACH YEAR [Y/N] . ,\)
<br />READ(0,5)ANS
<br />5 FORMAT(Al)
<br />WKlTE(U, I)
<br />7 FORMAT(' ENTER TODAYS DATE (MM/DD(YY) :' ,\)
<br />READ(O,8) RDATE
<br />8 FORMAT(AI0)
<br />CALL READS(INPT,NOUT,IFILE,ISAVE,IPLT,IPLOT,IRES)
<br />C INITIALIZE TABLE STORAGE ARRAYS
<br />DO 10 K-l,NT
<br />DO 10 I-l,NYI
<br />DO 10 J-l,I3
<br />10 TABLE(K,I,J)-O.O
<br />C INITIALIZE SUMMARY ARRAY
<br />DO 20 K-l,NL
<br />DO 20 J-l, 13
<br />20 HOLD(K,J)-O.O
<br />I-ISTART-IFRST+l
<br />IE-IEND-IFRST+l
<br />IFLAG-O
<br />30 CONTINUE
<br />C ZERO FLOW ARRAY
<br />DO 40 K-l,NL
<br />DO 40 J-l,13
<br />40 FLOW(K,J)-O.O
<br />IF(INPT.GT.O)CALL READONE
<br />CALL COMPUTE
<br />C SUM ANNUAL DATA
<br />DO 50 K-l,NL
<br />DO 50 J-l,I2
<br />50 FLOW(K,13)-FLOW(K,13)+FLOW(K,J)
<br />C SET END OF YEAR RESERVOIR CONTENT TO ZERO HERE
<br />IF(NRES.EQ.O)GO TO 55
<br />DO 53 Il-l,NRES
<br />FLOW(IRES(Il) ,13)-0.0
<br />53 CONTINUE
<br />55 CONTINUE
<br />C SUM DATA INTO SUMMARY ARRAY
<br />DO 60 K-l,NL
<br />DO 60 J-l, 13
<br />60 HOLD(K,J)-HOLD(K,J)+FLOW(K,J)
<br />C SUM ANNUAL DATA IN TABLES
<br />DO 70 K-l,NT
<br />DO 70 J-l,I2
<br />70 TABLE(K,I ,13)-TABLE(K,I,13)+TABLE(K,I,J)
<br />90 CALL WRITEl(IFLAG,ANS,GALF)
<br />IYEAR - I + IFRST - I
<br />C DO 93 LQ - I,NH
<br />C WRITE(9,92)IYEAR,(HDATA(LQ,J),J-I,12)
<br />C 92 FORMAT(I4,12F7.2)
<br />C 93 CONTINUE
<br />WRITE(9,92)IYEAR,(FLOW(75,J),J-l,12)
<br />
<br />5
<br />
|