|
<br />.
<br />
<br />000519
<br />
<br />5 FORMAT(lHl/)
<br />WRITE(6,10)ISTUDY,(TITLE(l,L),L-l,8) ,RDATE
<br />10 FORMAT(lH IIIH STUDY NO. ,A5,10X,8AIO,15X,AIO)
<br />WRITE(6,20)(TITLE(2,L),L-l,8)
<br />20 FORMAT(lH ,25X,8AIO/)
<br />WRITE(6.30)
<br />30 FORMAT(lH 11120X,28HINITIAL VALUES AND CONSTANTS,II)
<br />IF(NC.LE.O)GO TO 54
<br />DO 40 K-l,NC
<br />IF(MOD(K,50).EQ.0)WRITE(6,5)
<br />40 WRITE(6,50) (CNAME(K,L) ,L-l,4) ,CDATA(K)
<br />50 FORMAT(lH ,lOX,4AlO,F15.5)
<br />IF(NC+3*NA.LT.48)GO TO 54
<br />WRITE(6,5)
<br />WRITE(6,lO)ISTUDY,(TITLE(l,L),L-l,8),RDATE
<br />WRITE(6,20)(TITLE(2,L),L-l,8)
<br />WRITE(6,30)
<br />54 CONTINUE
<br />IF(NA.LE.O)GO TO 58
<br />DO 55 K-l,NA
<br />IF(MOD(K,17).EQ.0)WRITE(6,5)
<br />55 WRITE(6,56) (ANAME(K,L) ,L-l,8) ,(ADATA(K,L) ,L-l,12)
<br />56 FORMAT(lH 15X,8AlO/5X,12FlO.3)
<br />58 LCOUNT-O
<br />ISP-NL+NG+NG
<br />IF(ISP.LE.22)ISP-2
<br />IF(ISP.NE.2)ISP-l
<br />IPAGE-O
<br />60 CONTINUE
<br />IF(ANS.EQ.'Y')GO TO 62
<br />IF(ANS.EQ. 'y')GO TO 62
<br />IF(IFLAG.EQ.O)RETURN
<br />62 IF(NL.EQ.O)RETURN
<br />LCOUNT-O
<br />IF(ISP.EQ.l)GO TO 64
<br />IPAGE-IPAGE+l
<br />IF(MOD(IPAGE,2).NE.0)GO TO 64
<br />WRITE(6,63)
<br />63 FORMAT(lH II)
<br />GO TO 65
<br />64 WRITE(6,5)
<br />65 CONTINUE
<br />ICOUNT-ICOUNT-l
<br />WRITE(6,lO)ISTUDY,(TITLE(l,L),L-l,8),RDATE
<br />WRITE(6,20)(TITLE(2,L),L-l,8)
<br />IF(IFLAG.EQ.l)GO TO 80
<br />IYEAR-I+IFRST-l
<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, 3 X,
<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 />
<br />9
<br />
|