|
<br />READ(5, 30) (INFO(J) ;J=l, 8
<br />30 FORMAT(8A10)
<br />WRITE(6,40) (INFO(J),J=1,8)
<br />40 FORMAT(10X,8A10)
<br />IF(MOD(I,55).NE.0)GO TO 100
<br />IF(I.EQ.NCL)GO TO 100
<br />WRITE(6,10)ISTUDY, (TITLE(l,L) ,L=1,8),RDATE, (TITLE(2,L),L=1,8)
<br />100 CONTINUE
<br />RETURN
<br />END
<br />C *****************************
<br />
<br />"ob8Gfi
<br />, ,
<br />
<br />SUBROUTINE PLOTTER(IPLT,IPLOT)
<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(ll ),PREACC(7)
<br />DIMENSION IPLOT(24)
<br />IS=ISTART-IFRST+l
<br />IE=IEND-IFRST+l
<br />XMIN=ISTART-l
<br />XMAX=IEND
<br />NO=IE-IS+l
<br />IPLT=IABS (IPLT)
<br />DO ,100 IP=l, IPLT
<br />K=IPLOT(IP)
<br />WRITE(8,15)K,NO
<br />15 FORMAT(lX,I3,I5)
<br />WRITE(B,20) (ATHEAD(K,N),N=l,8)
<br />20 FORMAT (8AI0)
<br />WRITE(8,25)XMIN,XMAX
<br />25 FORMAT(lX,5HYEARS,15X,2FI0.2)
<br />IF(K.LT.7)GO TO 40
<br />WRITE(8,35)
<br />35 FORMAT(lX(24HMONTHLY FLOW (ACRE-FEET))
<br />GO TO 50
<br />40 WRITE (8, 45)
<br />45 FORMAT(lX,33HEND OF MONTH OWNERSHIP(ACRE-FEET))
<br />50 LL=XMIN - 1900
<br />DO 70 I = IS(IE
<br />LL=LL+l
<br />IF(K.LT.7) THEN
<br />WRITE(B,60)LL,TABLE(K,I,12)*1000.
<br />ELSE
<br />WRITE(B,60)LL,TABLE(K,I,13)*1000.
<br />ENDIF
<br />60 FORMAT(lX,I4,FI0.0)
<br />70 CONTINUE
<br />100 CONTINUE
<br />CLOSE(B,STATUS='KEEP')
<br />RETURN
<br />END
<br />C **************************************************************************
<br />INDEX AND VARIABLE DEFINITIONS
<br />~ INDEX I=YEAR (33) J= MONTH(12, l=OCT), K = REACH (l=ABOVE SEM,
<br />C 2=ABOVE PATH, 3 = ABOVE GLENDO, 4 = ABOVE GEURNSEY,5 = TO STATE LINE,
<br />C M = RESERVOIR, 1= SEMINOE - 4 = GUERNSEY + INLAND LAKES
<br />
|