<br />C
<br />
<br />+5X,3HSEP,3X,5HTOTAL/)
<br />40 FORMAT(13X,IS,13FS.2)
<br />50 FORMAT(/14X,7HAVERAGE,13FS,2)
<br />60 FORMAT(1H )
<br />IF(NT.EQ.O)GO TO 120
<br />IS=ISTART-IFRST+1
<br />IE=IEND-IFRST+1
<br />NYEAR=IEND-ISTART+l
<br />AYEAR=NYEAR
<br />DO SO K=l,NT
<br />DO 62 M=1,13
<br />62 SUMT(M)=O.O
<br />SUMMARIZE 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 />AVERAGE TABLE DATA
<br />DO 66 M=1,13
<br />66 SUMT(M)=Sill1T(M)/AYEAR
<br />LC=40
<br />DO 70 IY=IS,IE
<br />IYEAR=IY+IFRST-1
<br />IF(LC.NE.40)GO TO 65
<br />WRITE(6,5)
<br />WRITE(6,10)ISTUDY, (TITLE(1,L),L=1,S) ,RDATE
<br />WRITE(6,20) (TITLE(2,L),L=1,S)
<br />WRITE(6,20) (ATHEAD(K,L) ,L=1,S)
<br />WRITE(6,30)
<br />LC=O
<br />65 LC=LC+1
<br />WRITE(6,40)IYEAR,(TABLE(K,IY,M),M=1,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=1, 13)
<br />SO CONTINUE
<br />RETURN
<br />120 CONTINUE
<br />RETURN
<br />END
<br />********************
<br />
<br />I. ~l, '.,
<br />,I 1,1,
<br />, oonUs'
<br />
<br />C
<br />
<br />C
<br />
<br />C
<br />C
<br />C
<br />C
<br />C
<br />C
<br />
<br />SUBROUTINE COMMENT
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE,INFO
<br />CHARACTER*S ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CO~10N CDATA(S5),TABLE(10,42,13),FLOW(224,13) ,HDATA(42,12),
<br />+IFRST,IGROUP(40) ,HOLD(224,13),ADATA(35,12) ,ISTART,IEN D,J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,S),ATHEAD(1O,S),
<br />+ALHEAD(224,4),AGHEAD(40,4),CNAME(S5,4),ISTUDY,ANAME(35,S),RDATE,
<br />+OWN(11) ,OWNACC(7) ,GAIN(5),STORE(7),OWNMAX(6),OWNPRE(1 1),PREACC(7)
<br />SUBROUTINE COMMENT COPIES COMMENTS AND OTHER INFORMATION
<br />ABOUT THE RUN TO A HEADER PAGE. INFORMATION TO
<br />APPEAR ON THE HEADER PAGE IS PLACED ON CARDS (80 COLUMN) AND
<br />PLACED BEHIND THE TITLE CARDS.
<br />THE NUMBER OF COMMENT CARDS TO BE READ IS INDICATED IN COL
<br />61-65 (RIGHT JUSTIFIED) ON THE PARAMETER CARD.
<br />DIMENSION INFO(8)
<br />WRITE(6,10) ISTUDY, (TITLE(1,L),L=1,8),RDATE, (TITLE(2,L),L=1,8)
<br />10 FORMAT(1H1///11H STUDY NO. ,A5,10X,8A10,15X,A10/25X,8A10/)
<br />DO 100 I=1,NCL
<br />
|