|
<br />.
<br />
<br />"",\)",1:\:18'
<br />>.Ii/..'-i"..l~.
<br />
<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(35,8),RDATE,
<br />+OWN(Il) ,OWNACC(7) ,GAIN(5) ,STORE(7) ,OWNMAX(6) ,OWNPRE(II) ,PRE ACC(7)
<br />DO 10 K-l,NH
<br />10 READ(S,*)LINE, (HDATA(K,J) ,J-l,12)
<br />RETURN
<br />END
<br />*******************
<br />SUBROUTINE SAVTAB(NOUT,IFILE,ISAVE)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<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(35 ,8) ,RD ATE,
<br />+OWN(II) ,OWNACC(7) ,GAIN(5),STORE(7) ,OWNMAX(6) ,OWNPRE(II) ,PRE ACC(7)
<br />C SUBROUTINE SAVTAB WILL SAVE UP TO 48 TABLES IN MACHINE READABLE FORM
<br />C IN A FILE DEFINED BY THE USER, THE 'NOUT' TERM ON THE PARAMETER CARD
<br />C INDICATES THE NUMBER OF TABLES TO BE SAVED, THE OUTPUT CONTROL CARD
<br />C PROVIDES THE NAME OF THE OUTPUT FILE AND THE TABLES AND ORDER IN WHICH
<br />C THEY ARE TO BE STORED,
<br />DIMENSION ISAVE(48)
<br />IS-ISTART-IFRST+l
<br />IE-IEND-IFRST+l
<br />DO 10 N-I,NOUT
<br />K-ISAVE(N)
<br />DO 10 I-IS,IE
<br />IYEAR-I+IFRST-l
<br />10 WRITE(7,20)IYEAR,(TABLE(K,I,J),J-l,12)
<br />20 FORMAT(I4,12F7.2)
<br />RETURN
<br />END
<br />C *********************
<br />
<br />C
<br />
<br />SUBROUTINE WRITEl(IFLAG,ANS,GALF)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*1 ANS
<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(35 ,8) ,RDA TE,
<br />+0~~(II),O~~ACC(7),GAIN(5),STORE(7),OWNMAX(6),OWNPRE(II),PREACC(7)
<br />NO-O
<br />MO-O
<br />ICOUNT-l
<br />IF(I.GT.ISTART-IFRST+I)GO TO 60
<br />IF(NC+NA.LE.O)GO TO 58
<br />C WRITE INITIAL VALUES AND CONSTANTS
<br />WRITE(6,5)
<br />
<br />8
<br />
|