|
<br />000522
<br />
<br />100 CONTl!\'UE
<br />RETURN
<br />END
<br />C *****************************
<br />SUBROUTINE PLOTTER(IPLT,IPLOT)
<br />CHARACTER*lO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*S ISTUDY
<br />COMMON CDATA(8S),TABLE(10,42,13),FLOW(224,13),HDATA(42,12),
<br />+IFRST,IGROUP(40) ,HOLD(224,13) ,ADATA(3S,12) ,ISTART,IEND,J ,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TlTLE(2,8),ATHEAD(10,8),
<br />+ALHEAD(224,4),AGHEAD(40,4) ,CNAME(8S,4) ,lSTUDY,ANAME(3S,8),R DATE,
<br />+OWN(ll) ,OWNACC(7),GAIN(S) ,STORE(7) ,OWNMAX(6) ,0WNPRE(11) ,PRE ACC(7)
<br />DIMENSION IPLOT(24)
<br />lS-lSTART-lFRST+1
<br />IE-lEND-IFRST+l
<br />XMIN-ISTART-1
<br />XMAX-lEND
<br />NO-IE-IS+l
<br />lPLT-IABS(lPLT)
<br />DO 100 lP-l,IPLT
<br />K-IPLOT(lP)
<br />"'RITE(8,lS)K,NO
<br />IS FORMAT(lX,l3,IS)
<br />WRlTE(8,20) (ATHEAD(K,N) ,N-l,8)
<br />20 FORMAT(8AIO)
<br />WRITE(8,2S)XMIN,XMAX
<br />2S FORMAT(lX,SHYEARS,lSX,2F10.2)
<br />IF(K.LT.7)GO TO 40
<br />WRITE(8,3S)
<br />3S FORMAT(lX,24HMONTHLY FLOW (ACRE-FEET))
<br />GO TO SO
<br />40 WRITE(8,4S)
<br />4S FORMAT(lX,33HEND OF MONTH OWNERSHlP(ACRE-FEET))
<br />SO LL-XMIN - 1900
<br />DO 70 I - IS,IE
<br />L1.-LL+1
<br />IF(K.LT.7) THEN
<br />WRITE(8,60)LL,TABLE(K,l,12)*1000.
<br />ELSE
<br />WRITE(8,60)LL,TABLE(K,I,13)*1000.
<br />END IF
<br />60 FORMAT(lX,I4,FlO.0)
<br />70 CONTlNUE
<br />100 CONTlNUE
<br />CLOSE(8,STATUS-'KEEP')
<br />RETURN
<br />END
<br />
<br />12
<br />
|