|
<br />.'
<br />
<br />, oW6~ i~
<br />
<br />CHARACTER*10 TITLE, ATHEAl SHEAD, 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,IEN p,~,l,
<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 ,A:,AME (35,8) , RDATE,
<br />+OWN(11),OWNACC(7),GAIN(5) ,STORE(7),OWNMAX(6),OWNPRE(11),PREACC(7)
<br />DIMENSION ISAVE(48),IPLOT(24),IRES(15)
<br />READ STUDY CONDITIONS AND NUMBER OF INPUT ITEMS - USE 5 SI'ACJ::S
<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 />READ THE NUMBER OF LINES TO BE PRINTED AFTER EACH
<br />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 />READ FLOW ARRAY LOCATION OF RESERVOIRS
<br />IF(NRES.EQ.O)GO TO 25
<br />READ(5, *) (IRES (I) ,1=1, NRES)
<br />25 CONTINUE
<br />READ OUTPUT CONTROL
<br />IF(NOUT.LE.O)GO TO 17
<br />READ(5,16)IFILE, (ISAVE(K) ,K=l,NOUT)
<br />16 FORMAT(A7, (2413))
<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 />READ TITLE - 2 LINES OF UP TO 50 CHARACTERS EACH -TITLES
<br />- SHOULD BE CENTERED IN THE 50 SPACES
<br />READ(5, 20) ((TITLE(K,L) ,L=l,8) ,K=l,2)
<br />20 FORMAT(8A10)
<br />READ AND WRITE RUN DESCRIPTION
<br />IF(NCL.GT.O)CALL COMMENT
<br />READ INITIALIZING TERMS AND DESCRIPTIONS - 10 SPACES PER ITEM
<br />FOLLOWED BY A 40 CHARACTER DESCRIPTION (FORMATED)
<br />IF(NC.LE.O)GO TO 35
<br />DO 33 K = 1,NC
<br />READ(5,30)CDATA(K), (CNAME(K,L),L=l,4)
<br />30 FORMAT(F10.0,4A10)
<br />33 CONTINUE
<br />35 CONTINUE
<br />READ MAJOR LINE HEADINGS - UP TO 40 CHARACTERS PER LINE
<br />IF(NL.EQ.O)GO TO 41
<br />READ(5,40) ((AGHEAD(K,L),L=l,4),K=l,NG)
<br />40 FORMAT(4A10)
<br />41 CONTINUE
<br />READ LINE HEADINGS - UP TO 27 CHARACTERS PER LINE
<br />IF(NL.EQ.O)GO TO 45
<br />READ(5, 43) ( (ALHEAD (K, L) ,L=l, 4) , K=l, NL)
<br />43 FORMAT(4A8)
<br />45 CONTINUE
<br />READ TABLE HEADING - USE UP TO 50 CHARACTERS PER LINE
<br />IF(NT.EQ.O)GO TO 51
<br />READ(5,20) ((ATHEAD(K,L),L=l,8),K=l,NT)
<br />READ AVERAGE MONTHLY INPUTS - USE 6 SPACES PER ITEI1 -
<br />12 ITEMS PER LINE
<br />
<br />C
<br />
<br />C
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />C
<br />
<br />J:;ACH
<br />
|