|
<br />, :06(ll)7~
<br />
<br />'51 it(NA.EQ.O)GO TO 55
<br />DO 52 K = 1, NA
<br />READ (5,50) (ANAME (K, L) ,L=I, 8) I (ADATA (K,J) ,J=I, 12)
<br />50 FORMAT(8AI0jI2F6.0)
<br />52 CONTINUE
<br />READ MONTHLY INPUT DATA - FREE FIELD FORM WITH LINE
<br />C NUMBERS - USE YEARS AS LINE NUMBERS
<br />55 CONTINUE
<br />IF(NH.EQ.O)GO TO 80
<br />IF(INPT.GT.O)GO TO 65
<br />DO 60 K=l,NH
<br />DO 60 I=l,NYI
<br />60 READ(5,*)LINE, (HDATA(K,J),J=1,12)
<br />GO TO 80
<br />65 CONTINUE
<br />IF(ISTART.LE.IFRST)GO TO 80
<br />IY=IFRST
<br />70 DO 75 K=I,NH
<br />75 READ(5,*)LINE, (HDATA(K,J),J=1,12)
<br />IY=IY+l
<br />IF(IY.LT.ISTART)GO TO 70
<br />80 CONTINUE
<br />RETURN
<br />END
<br />C ********************
<br />SUBROUTINE READONE
<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),RDATE,
<br />+OWN(II) ,OWNACC(7) ,GAIN(5),STORE(7),OWNMAX(6) ,OWNPRE(II),PREACC(7)
<br />DO 10 K=I,NH
<br />10 READ(5,*)LINE,(HDATA(K,J),J=I,12)
<br />RETURN
<br />END
<br />C *******************
<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,IEN D,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,ANN1E(35,8),RDATE,
<br />+OWN(II) ,OWNACC(7) ,GAIN(5) ,STORE(7) ,OWNMAX(6) ,0WNPRE(1 1),PREACC(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' TEffi1 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+1
<br />IE=IEND-IFRST+1
<br />DO 10 N=I,NOUT
<br />K=ISAVE(N)
<br />DO 10 I=IS,IE
<br />IYEAR=I+IFRST-l
<br />
|