|
<br />.
<br />
<br />000520
<br />
<br />C
<br />
<br />+3HFEB,5X,3HMAR,5X, 3HAPR,5X, 3HMAY,5X,3HJUN,5X, 3HJUL,5X, 3HAUG,
<br />+5X,3HSEP,3X,5HTOTAL/55X,24H(THOUSANDS OF ACRE-FEET))
<br />100 CONTINUE
<br />ICOUNT-ICOUNT+l
<br />IF(LCOUNT+IGROUP(ICOUNT)+2.GT.55)GO TO 62
<br />IF(ICOUNT.EQ.30) THEN
<br />IF(GALF.EQ.O.) THEN
<br />GALF - 1.
<br />GO TO 62
<br />ELSE
<br />GALF - O.
<br />ENDIF
<br />ENDIF
<br />IF(LCOUNT.GT.0)WRITE(6,l05)
<br />105 FORMAT(lH )
<br />WRITE(6,l10)(AGHEAD(ICOUNT,L),L-1,4)
<br />110 FORMAT(lH ,6X,4A10)
<br />NO-MO+1
<br />MO-MO+IGROUP(ICOUNT)
<br />DO 140 IZ-NO,MO
<br />120 WRITE(6,130)(ALHEAD(IZ,L),L-1,4) ,(FLOW(IZ,J) ,J-1,13)
<br />130 FORMAT(lX,3A8,A3,13F8.2)
<br />140 CONTINUE
<br />LCOUNT-LCOUNT+2+IGROUP(ICOUNT)
<br />IF(ICOUNT.LT.NG)GO TO 100
<br />RETURN
<br />END
<br />********************
<br />SUBROUTINE WRITE2
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />COMMON CDATA(85) ,TABLE(10,42,13) ,FLOW(224,13) ,HDATA(42,12) ,
<br />+IFRST,IGROUP(40) ,HOLD(224,13) ,ADATA(35,12) ,ISTART,IEND,J, I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,8) ,ATHEAD(10, 8) ,
<br />+ALHEAD(224,4),AGHEAD(40,4),CNAME(85,4),ISTUDY,ANAME(35,8),RDATE,
<br />+OWN(ll) ,OWNACC(7) ,GAIN(5) ,STORE(7),OWNMAX(6) ,OWNPRE(ll) ,PREAC C(7)
<br />DIMENSION SUMT(13)
<br />5 FORMAT(lHll>
<br />10 FORMAT(lH 111H STUDY NO. ,A5,10X,8A10,15X,A10)
<br />20 FORMAT(lH ,25X,BA10/)
<br />30 FORMAT(lH ,16X,4HYEAR,5X,3HOCT,5X, 3HNOV,5X, 3HDEC,5X,3HJAN,5X,
<br />+3HFEB,5X,3HMAR,5X,3HAPR,5X, 3HMAY,5X,3HJUN,5X, 3HJUL,5X, 3HAUG,
<br />+5X,3HSEP,3X,5HTOTAL/)
<br />40 FORMAT(13X,I8,13FB.2)
<br />50 FORMAT(/14X,7HAVERAGE,13F8.2)
<br />60 FORMAT(lH )
<br />IF(NT.EQ.O)GO TO 120
<br />IS-ISTART.IFRST+1
<br />IE-IEND-IFRST+1
<br />NYEAR-IEND-ISTART+1
<br />AYEAR-NYEAR
<br />DO 80 K-l,NT
<br />DO 62 M-1,13
<br />62 SUMT(M)-O.O
<br />
<br />10
<br />
|