$DEBUG
C*************************************************************************
C
      SUBROUTINE TABRD
C      REVISED 9 SEPT 88 TO READ METHANE DATA
C*************************************************************************
C
      IMPLICIT  REAL*8  (A-H,O-Z) , INTEGER (I-N)
C
      COMMON ZLXM(10,6),PIM(3,6),GCI(2),EDRIKM(6,6),EFJM(4,6),
     &       ESIM(6,6),ESI1M(6,6),ESI2M(6,6),GNPFLM(10,6),SYNIM(6,6),
     &       CO2IIM(6,6),NM,JOPT(2),SOLUSE(2,6),CO2LM(9,6),CH4IM(7,6),
     &       CH4LM(9,6)
C
C
      JUNIT=10
      OPEN (JUNIT,FILE='RESULTS.DAT',STATUS='OLD',IOSTAT=IOCHK)
      IF(IOCHK.NE.0) WRITE(*,5) IOCHK
 5    FORMAT(' ** IO ERROR **',I8,' ***')
C
      READ (JUNIT,10) NM
 10   FORMAT(I4)
         DO 3010 M=1,NM
            READ(JUNIT,3009) (CO2IIM(I,M),I=1,6)
 3009       FORMAT( 6F10.2 )
 3010    CONTINUE
         DO 3016 M=1,NM
            READ(JUNIT,3009) (ESIM(I,M),I=1,6)
 3016    CONTINUE
         DO 3022 M=1,NM
            READ(JUNIT,3021) (EFJM(I,M),I=1,4)
 3021       FORMAT( 4F10.2 )
 3022    CONTINUE
         DO 3030 M=1,NM
            READ(JUNIT,3029) ESI1M(1,M),ESI2M(1,M),SYNIM(1,M)
 3029       FORMAT( 3F10.2 )
 3030    CONTINUE
         DO 3035 M=1,NM
            READ(JUNIT,3081) ESI1M(2,M),SYNIM(2,M)
 3081       FORMAT( 2F10.2 )
 3035    CONTINUE
         DO 3042 M=1,NM
            READ(JUNIT,3041) ESI1M(3,M),ESI2M(3,M)
 3041       FORMAT( 2F10.2 )
 3042    CONTINUE
C
C         DO 3071 M=1,NM
            READ(JUNIT,3081) GCI(1),GCI(2)
C ---------  SOLUSE(1,M)=SYNIM(1,M)*GCI(1)
C ---------  SOLUSE(2,M)=SYNIM(2,M)*GCI(2)
 3071    CONTINUE
C
C         DO 3072 M=1,NM
C            READ(JUNIT,3041) (SOLUSE(I,M),I=1,2)
C 3072    CONTINUE
         DO 3052 M=1,NM
            READ(JUNIT,3009) (EDRIKM(I,M),I=1,6)
 3052    CONTINUE
         DO 3056 M=1,NM
            READ(JUNIT,3029) (PIM(I,M),I=1,3)
 3056    CONTINUE
         DO 3063 L=1,9
            READ(JUNIT,3062) (GNPFLM(L,M),M=1,NM)
 3062       FORMAT( 6F10.2 )
 3063    CONTINUE
         READ(JUNIT,3062) (GNPFLM(10,M),M=1,NM)
         DO 3067 L=1,9
            READ(JUNIT,3062) (ZLXM(L,M),M=1,NM)
 3067    CONTINUE
         READ(JUNIT,3062) (ZLXM(10,M),M=1,NM)
C--------ADD ON STARTS HERE
C
          DO 3100 L=1,9
               READ(JUNIT,3062) (CO2LM(L,M),M=1,NM)
 3100     CONTINUE
          DO 3110 M=1,NM
               READ(JUNIT,3111) (CH4IM(I,M),I=1,7)
 3111     FORMAT( 7F10.2)
 3110     CONTINUE
          DO 3120 L=1,9
               READ(JUNIT,3062) (CH4LM(L,M),M=1,NM)
3120      CONTINUE
C
C
      CLOSE (JUNIT)
      WRITE(*,20)
 20   FORMAT(////' READING COMPLETE... '///)

      RETURN
      END