C*************************************************************************

          PROGRAM TABLOT

C*************************************************************************
C
C                 MAIN OUTPUT PRINT PROGRAM (FOR LOTUSOUT)
C    NEW 13 APRIL 1989  READS RESULTS.DAT AND UPDATES RESULTS.PRN
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
      CALL TABRD
      CALL PRTLOTUS
C
      STOP
      END