|
<br /><
<br />
<br />"
<br />
<br />'000516
<br />
<br />92 FORMAT(I4,12F7.2)
<br />95 IF(I.EQ.IE)GO TO 100
<br />I~I+ I
<br />GO TO 30
<br />100 CONTINUE
<br />C AVERAGE SUMMARY DATA
<br />NYEAR-IEND-ISTART+l
<br />AYEAR-NYEAR
<br />DO 110 K-l, NL
<br />DO 110 J-l, 13
<br />110 FLOW(K,J)-HOLD(K,J)/AYEAR
<br />I FLAG-l
<br />105 CALL WRITEl(lFLAG,ANS,GALF)
<br />107 CONTINUE
<br />125 CALL WRITE2
<br />IF(NOUT.GT.O)CALL SAVTAB(NOUT,IFILE,ISAVE)
<br />CLOSE(6,STATUS-'KEEP')
<br />CLOSE(9,STATUS-'KEEP')
<br />IF(IPLT.NE.O)CALL PLOTTER(IPLT,IPLOT)
<br />130 STOP
<br />END
<br />C *******************
<br />SUBROUTINE READS(INPT,NOUT ,IFILE,ISAVE,IPLT,IPLOT ,IRES)
<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 />+AlliEAD(224 ,4) ,AGHEAD(40 ,4) ,CNlliE( 85,4) ,ISTIlDY ,ANM-IE(35 , 8) ,RUA1E,
<br />+OWN(11) ,OWNACC(7) ,GAIN(5) ,STORE(7) ,OWNMAX(6) ,OWNPRE(II) ,PREA CC(7)
<br />DIMENSION ISAVE(48) ,IPLOT(24) ,IRES(15)
<br />C READ STUDY CONDITIONS AND NUMBER OF INPUT ITEMS - USE 5 SPACES EACH
<br />READ(5,10)ISTUDY,ISTART,IEND,NG,NL,NT,NC,NA,NH,IFRST,NYI,NRES,
<br />+NCL,INPT,NOUT,IPLT
<br />10 FORMAT(A5,15I5)
<br />C READ THE NUMBER OF LINES 10 BE PRIN1ED AFTER EACH
<br />C MAJOR LINE HEADING - USE FREE FIELD FORM
<br />IF(NG.EQ.O)GO TO 15
<br />READ(5,*)(IGROUP(I),I-l,NG)
<br />15 CONTINUE
<br />C READ FLOW ARRAY LOCATION OF RESERVOIRS
<br />IF(NRES.EQ.O)GO TO 25
<br />READ(5,*)(IRES(I),I=I,NRES)
<br />25 CONTINUE
<br />C READ OUTPUT CONTROL
<br />IF(NOUT.LE.O)GO TO 17
<br />READ(5,16)IFILE,(ISAVE(K),K=I,NOUT)
<br />16 FORMAT(A7,(24I3))
<br />17 IF(IPLT.EQ.O)GO TO 19
<br />NP=IABS (IPLT)
<br />READ(5,18)(IPLOT(N),N-l,NP)
<br />18 FORMAT(24I3)
<br />19 CONTINUE
<br />C READ TITLE - 2 LINES OF UP TO SO CHARACTERS EACH -TITLES
<br />
<br />6
<br />
|