|
<br />I oMl'tl,~
<br />
<br />10 WRITE(7,20)IYEAR, (TABLE(~ ,J) ,J=l,12)
<br />20 FORMAT(I4,12F7.2)
<br />RETURN
<br />END
<br />C *********************
<br />SUBROUTINE WRITE1(IFLAG,ANS,GALF)
<br />CHARACTER*lO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />COMMON CDATA(85) ,TABLE(10,42,13),FLOW(224,13) ,~DATA(42,12),
<br />+IFRST,IGROUP(40),HOLD(224,13),ADATA(35,12),ISTAR~,IEND,J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,8) ,Ar~~~D(10,8),
<br />+ALHEAD(224,4) ,AGHEAD(40,4),CNAME(85,4) ,ISTUDY,P.NAME(35,8),RDATE,
<br />+OWN (11) ,OWNACC (7) ,GAIN (5) , STORE (7) ,OWNMAX (6) ,OWNPRE (11) ,PREACC (7)
<br />NO=O
<br />MO=O
<br />ICOUNT=l
<br />IF(I.GT.ISTART-IFRST+1)GO TO 60
<br />IF(NC+NA.LE.O)GO TO 58
<br />C WRITE INITIAL VALUES AND CONSTANTS
<br />WRITE(6,5)
<br />5 FORl".AT (lH1/)
<br />WRITE(6,10)ISTUDY, (TITLE(l,L) ,L=1(8) ,RDATE
<br />10 FOR}~T(lH /llH STUDY NO. ,A5,10X,8A10,15X,AIO)
<br />WRITE(6,20) (TITLE(2,L) ,L=1(8)
<br />20 FORMAT(lH ,25X,8AIO/)
<br />WRITE(6,30)
<br />30 FORMAT(lH ///20X,28HINITIAL VALUES AND CONSTANTS,//)
<br />IF(NC.LE.O)GO TO 54
<br />DO 40 K=l,NC
<br />IF(MOD(K,50) .EQ.O)WRITE(6,5)
<br />40 WRITE(6,50) (CNAME(K,L),L=1,4) ,CDATA(K)
<br />50 FORMAT(lH ,10X,4AIO,F15.5)
<br />IF(NC+3*NA.LT.48)GO TO 54
<br />WRITE(6,5)
<br />WRITE(6,10)ISTUDY, (TITLE(1,L),L=1,8),RDATE
<br />WRITE(6,20) (TITLE(2,L),L=1,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=1(8), (ADATA(K,L),L=1,12)
<br />56 FORMAT(lH /5X,8AIO/5X,12F10.3)
<br />58 LCOUNT=O
<br />ISP=NL+NG+NG
<br />IF(ISP.LE.22)ISP=2
<br />IF(ISP.NE.2)ISP=1
<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. 0) RETURN
<br />62 IF(NL.EQ.O)RETURN
<br />LCOUNT=O
<br />IF(ISP.EQ.1)GO TO 64
<br />IPAGE=IPAGE+1
<br />IF(MOD(IPAGE,2).NE.0)GO TO 64
<br />WRITE(6,63)
<br />
|