Laserfiche WebLink
<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 />