|
<br /><
<br />
<br />.
<br />
<br />OOa[)17
<br />
<br />C - SHOULD BE CENTERED IN THE 50 SPACES
<br />READ(5,20)((TITLE(K,L),L-I,8),K-I,2)
<br />20 FORMAT(8AIO)
<br />C READ AND WRITE RUN DESCRIPTION
<br />IF(NCL.GT.O)CALL COMMENT
<br />C READ INITIALIZING TERMS AND DESCRIPTIONS - 10 SPACES PER ITEM
<br />C FOLLOWED BY A 40 CHARACTER DESCRIPTION (FORMATED)
<br />IF(NC.LE.O)GO TO 35
<br />D033K-I,NC
<br />READ(5,30)CDATA(K),(CNAME(K,L),L-1,4)
<br />30 FORMAT(FIO.O,4A10)
<br />33 CONTINUE
<br />35 CONTINUE
<br />C READ MAJOR LINE HEADINGS - UP TO 40 CHARACTERS PER LINE
<br />IF(NL.EQ.O)GO TO 41
<br />READ(5,40)((AGHEAD(K,L),L-1,4),K-1,NG)
<br />40 FORMAT(4AIO)
<br />41 CONTINUE
<br />C READ LINE HEADINGS - UP TO 27 CHARACTERS PER LINE
<br />IF(NL.EQ.O)GO TO 45
<br />READ(5,43)((ALHEAD(K,L),L-1,4),K-I,NL)
<br />43 FORMAT (4A8)
<br />45 CONTINUE
<br />C READ TABLE HEADING - USE UP TO 50 CHARACTERS PER LINE
<br />IF(NT.EQ.O)GO TO 51
<br />READ(5,20)((ATHEAD(K,L),L-1,8),K-I,NT)
<br />C READ AVERAGE MONTHLY INPUTS - USE 6 SPACES PER ITEM -
<br />C 12 ITEMS PER LINE
<br />51 IF(NA.EQ.O)GO TO 55
<br />DO 52 K - I,NA
<br />READ(5,50) (ANAME(K,L) ,L-I,8) ,(ADATA(K,J) ,J=I,I2)
<br />50 FORMAT(8AIOj12F6.0)
<br />52 CONTINUE
<br />C 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-1,NH
<br />DO 60 I-I,NYI
<br />60 READ(5,*)LINE,(HDATA(K,J),J-1,I2)
<br />GO TO 80
<br />65 CONTINUE
<br />IF(ISTART.LE.IFRST)GO TO 80
<br />IY-IFRST
<br />70 DO 75 K=l,NH
<br />75 READ(5,*)LINE,(HDATA(K,J),J=l,I2)
<br />IY-IY+1
<br />IF(IY.LT.ISTART)GO TO 70
<br />80 CONTINUE
<br />RETURN
<br />END
<br />C ********************
<br />SUBROUTINE READONE
<br />CHARACTER*IO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />
<br />7
<br />
|