C**************************************************************
C A FORTRAN program to read and print the intermediate growth
C   and crop harvest data for the 1983-1987 cotton growth 
C   experiments.
C**************************************************************
      INTEGER YEAR, CO2, REP, YRCODE, EXPTNO, TRTNO, JEMRGD,
     1  JSQRJD, JFLRJD, XLTYLD, XSDYLD, XBLSM, XSPB, XBIOM,
     2  XSTMBR, JDOY, XPLTHT, JNNODM, JNSQRM, JNFLWM, JNGBLM,
     3  JNMBLM, JNABSM, XWLEFH, XWSTMH, XWROTH, XWGBLH, XWMBLH
      CHARACTER CO2COD, IRRIG, NITRO, INSTE*2, SITEE*2, DUMMY*3
      REAL XLAI, XSDWT, XLAIMX
   10 READ (5,400,END=900) YEAR, CO2, CO2COD, REP, IRRIG, NITRO
      WRITE (6,400) YEAR, CO2, CO2COD, REP, IRRIG, NITRO
      READ (5,500) INSTE, SITEE, YRCODE, EXPTNO, TRTNO, JEMRGD,
     1  JSQRJD, JFLRJD, XLTYLD, XSDYLD, XSDWT, XBLSM, XSPB,
     2  XLAIMX, XBIOM, XSTMBR
      WRITE (6,500) INSTE, SITEE, YRCODE, EXPTNO, TRTNO, JEMRGD,
     1  JSQRJD, JFLRJD, XLTYLD, XSDYLD, XSDWT, XBLSM, XSPB,
     2  XLAIMX, XBIOM, XSTMBR
   20 READ (5,600) DUMMY
      IF (DUMMY.EQ.'   ') THEN
        WRITE (6,700)
        GOTO 10
      ELSE
        BACKSPACE (5)
        READ (5,800) JDOY, XPLTHT, XLAI, JNNODM, JNSQRM, JNFLWM,
     1    JNGBLM, JNMBLM, JNABSM, XWLEFH, XWSTMH, XWROTH, XWGBLH,
     2    XWMBLH
        WRITE (6,800) JDOY, XPLTHT, XLAI, JNNODM, JNSQRM, JNFLWM,
     1    JNGBLM, JNMBLM, JNABSM, XWLEFH, XWSTMH, XWROTH, XWGBLH,
     2    XWMBLH
        GOTO 20
      END IF
  400 FORMAT (1X,I4,2X,I3,2X,A1,2X,I1,2X,A1,2X,A1)
  500 FORMAT (1X,A2,A2,I2,I2,1X,I2,1X,I3,1X,I3,1X,I3,1X,
     1        I4,1X,I4,1X,F6.4,1X,I3,1X,I2,1X,F5.2,1X,I5,1X,I4)
  600 FORMAT (1X,A3)
  700 FORMAT ('      ')
  800 FORMAT (1X,I3,1X,I3,1X,F5.2,1X,I3,1X,I3,1X,I3,1X,I3,
     1        1X,I3,1X,I4,1X,I4,1X,I4,1X,I4,1X,I4,1X,I5)
  900 STOP
      END