REAL DATA(300,3),WC(300)
      INTEGER NLINE

      OPEN(11,FILE="SOILWC.DAT")

      READ(11,*) NLINE
      DO N=1,NLINE
      READ(11,*) (DATA(N,K),K=1,3)
      END DO

      DO N=1,NLINE


      END DO

      DO N=1,NLINE
       WRITE(*,*) (DATA(N,K),K=1,3),WC(N)
      END DO

      END