C*************************************************************************
C
      SUBROUTINE TABWRT
C       REVISED 9 SEPT 88 TO "INCLUDE" COMMON & TO PASS METHANE DATA
C*************************************************************************
C
      IMPLICIT  REAL*8  (A-H,O-Z) , INTEGER (I-N)
C  COMMON BLOCKS
$INCLUDE:'COMMON.FOR'
C
      OPEN (1,FILE='RESULTS.DAT',STATUS='OLD')
      JUNIT=1
C
      WRITE (JUNIT,10) NM
 10   FORMAT(I4)
         DO 3010 M=1,NM
            WRITE(JUNIT,3009) (CO2IIM(I,M),I=1,6)
 3009       FORMAT( 6F10.2 )
 3010    CONTINUE
         DO 3016 M=1,NM
            WRITE(JUNIT,3009) (ESIM(I,M),I=1,6)
 3016    CONTINUE
         DO 3022 M=1,NM
            WRITE(JUNIT,3021) (EFJM(I,M),I=1,4)
 3021       FORMAT( 4F10.2 )
 3022    CONTINUE
         DO 3030 M=1,NM
            WRITE(JUNIT,3029) ESI1M(1,M),ESI2M(1,M),SYNIM(1,M)
 3029       FORMAT( 3F10.2 )
 3030    CONTINUE
         DO 3035 M=1,NM
            WRITE(JUNIT,3081) ESI1M(2,M),SYNIM(2,M)
 3081       FORMAT( 2F10.2 )
 3035    CONTINUE
         DO 3042 M=1,NM
            WRITE(JUNIT,3041) ESI1M(3,M),ESI2M(3,M)
 3041       FORMAT( 2F10.2 )
 3042    CONTINUE
C
C         DO 3071 M=1,NM
            WRITE(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            WRITE(JUNIT,3041) (SOLUSE(I,M),I=1,2)
C 3072    CONTINUE
         DO 3052 M=1,NM
            WRITE(JUNIT,3009) (EDRIKM(I,M),I=1,6)
 3052    CONTINUE
         DO 3056 M=1,NM
            WRITE(JUNIT,3029) (PIM(I,M),I=1,3)
 3056    CONTINUE
         DO 3063 L=1,9
            WRITE(JUNIT,3062) (GNPFLM(L,M),M=1,NM)
 3062       FORMAT( 6F10.2 )
 3063    CONTINUE
         WRITE(JUNIT,3062) (GNPFLM(10,M),M=1,NM)
         DO 3067 L=1,9
            WRITE(JUNIT,3062) (ZLXM(L,M),M=1,NM)
 3067    CONTINUE
         WRITE(JUNIT,3062) (ZLXM(10,M),M=1,NM)
C-------ADD ON STARTS HERE
          DO 3100 L=1,9
               WRITE(JUNIT,3062)(CO2LM(L,M),M=1,NM)
 3100     CONTINUE
          DO 3110 M=1,NM
               WRITE(JUNIT,3111)(CH4IM(I,M),I=1,7)
 3111          FORMAT(7F10.2)
 3110     CONTINUE
          DO 3120 L=1,9
               WRITE(JUNIT,3062)(CH4LM(L,M),M=1,NM)
 3120     CONTINUE
C
      WRITE(*,20)
 20   FORMAT(////' WRITING COMPLETE... '///)

      RETURN
      END