|
<br />" DDQ61r.5
<br />
<br />'63 FORMAT (lH / f)
<br />GO TO 65
<br />64 WRITE(6,5)
<br />65 CONTINUE
<br />ICOUNT=ICOUNT-1
<br />WRITE(6,10) ISTUDY, (TITLE(1,L),L=1,8),RDATE
<br />WRITE(6,20) (TITLE(2,L) ,L=1,8)
<br />IF(IFLAG.EQ.1)GO TO 80
<br />IYEAR=I+IFRST-1
<br />WRITE(6,70)IYEAR
<br />70 FORMAT(lH ,I5,27X,3HOCT,5X,3HNOV,5X,3HDEC,5X,3HJAN,5X,3HFEB,5X,
<br />+3HMAR,5X,3HAPR,5X,3HMAY,5X,3HJUN,5X,3HJUL,5X,3HAUG,5X,3HSEP,3X,
<br />+5HTOTAL/55X,24H(THOUSANDS OF ACRE-FEET))
<br />GO TO 100
<br />80 WRITE(6,90)ISTART,IEND
<br />90 FORMAT(lH ,I4,lH-,I4,
<br />+lX,7HSUMMARY,15X,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/55X,24H(THOUSANDS OF ACRE-FEET))
<br />100 CONTINUE
<br />ICOUNT=ICOUNT+1
<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,105)
<br />105 FORMAT(lH )
<br />WRITE(6,110) (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=l, 4) , (FLOW (IZ, J) , J=l, 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 />C ********************
<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(11),OWNACC(7),GAIN(5),STORE(7),OWNMAX(6),OWNPRE(11),PREACC(7)
<br />DIMENSION SUMT(13)
<br />5 FORMAT(lH1f)
<br />10 FORMAT(lH /llH STUDY NO. ,A5,10X,8A10,15X,A10)
<br />20 FORMAT(lH ,25X,8A10/)
<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 />
|