|
<br />000521
<br />
<br />C SU~~IZE TABLE DATA
<br />DO 64 IY-IS,IE
<br />DO 64 M~1,13
<br />64 SUMT(M)-SUMT(M)+TABLE(K,IY,M)
<br />C AVERAGE TABLE DATA
<br />DO 66 M=1,13
<br />66 SUMT(M)-SUMT(M)/AYEAR
<br />LC-40
<br />DO 70 IY-IS,IE
<br />IYEAR-IY+IFRST-l
<br />IF(LC.NE.40)GO TO 65
<br />WRITE(6,5)
<br />WRITE(6,10)ISTUDY,(TITLE(1,L),L-1,8),RDATE
<br />WRITE(6,20)(TITLE(2,L),L-l,8)
<br />WRITE(6,20) (ATHEAD(K,L) ,L-l,8)
<br />WRITE(6,30)
<br />LC-O
<br />65 LC-LC+l
<br />WRITE(6,40)IYEAR,(TABLE(K,IY,M),M-l,13)
<br />IF(MOD(IY,5).NE.0)GO TO 70
<br />WRITE(6,60)
<br />70 CONTINUE
<br />WRITE(6,50)(SUMT(M),M-l,13)
<br />80 CONTINUE
<br />RETURN
<br />120 CONTINUE
<br />RETURN
<br />END
<br />
<br />c ********************
<br />
<br />SUBROUTINE COMMENT
<br />CHARACTER*lO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE,INFO
<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 />+ALHEAD(224 ,4) ,AGHEAD(40,4) ,CNAME(85,4) ,ISTUDY,ANAME(3S,8) ,RD ATE,
<br />+OWN(ll) ,OWNACC(7) ,GAIN(5) ,STORE(7) ,OWNMAX(6) ,OWNPRE(ll) ,PREAC C(7)
<br />C SUBROUTINE COMMENT COPIES COMMENTS AND OTHER INFORMATION
<br />C ABOUT THE RUN TO A HEADER PAGE. INFORMATION TO
<br />C APPEAR ON THE HEADER PAGE IS PLACED ON CARDS (80 COLUMN) AND
<br />C PLACED BEHIND THE TITLE CARDS.
<br />C THE NUMBER OF COMMENT CARDS TO BE READ IS INDICATED IN COL
<br />C 61-65 (RIGHT JUSTIFIED) ON THE PARAMETER CARD.
<br />DIMENSION INFO(8)
<br />WRITE(6,lO)ISTUDY, (TITLE(l,L),L-l,8),RDATE,(TITLE(2,L) ,L-l, 8)
<br />10 FORMAT(lHl///llH STUDY NO. ,A5,lOX,8AlO,15X,AI0/25X,8AlO/)
<br />DO 100 I-l,NCL
<br />READ(S,30)(INFO(J),J-l,8)
<br />30 FORMAT(8AlO)
<br />WRITE(6,40)(INFO(J),J-l,8)
<br />40 FORMAT(10X,8AlO)
<br />IF(MOD(I,5S).NE.0)GO TO 100
<br />IF(I.EQ.NCL)GO TO 100
<br />WRITE(6,lO)ISTUDY,(TITLE(l,L),L-l,8),RDATE,(TITLE(2,L),L-1,8)
<br />
<br />11
<br />
|