C ***************************************************************************
C ***************************************************************************
C     SUBROUTINE OUTP4_ PRINT OUT THE TABLES SPECIFIED IN THE ENCLOSED SCRIPT
C ***************************************************************************
      SUBROUTINE OUTP4 ; &IM
      C_IO1 C_IO C_A C_D C_SAVE1 C_FLAG C_A1 C_CMAIND C_GENTABLE
      
C  a Second Table Definition

START TABLE       TMPS
INSERTED BLANK COLUMNS	=  2
TOP BLANK ROWS		=  1
TOTAL WIDTH COLUMNS	=110
ROWS INCLUDING HEADING	= 50
!          KEY    format   heading
MULTIPLIER=1
COLUMN     NIK      F5.0      IJ
COLUMN     NZ       F7.2 
COLUMN     NTGV  F8.2
KEY NTG NTGC NTM NTHG NTH NTGBR NTMBAR NTHG
END TABLE

C  a Third Table Definition For Housing Data

START TABLE       HSNG1
PRINTIFNOTZERO NTHG HSNCO2 HSNH2O HSNN2 HSNSO2 HSNH2S HSNCO HSNO2 HSNCVOL HSNHVOL HSNH2 HSNCVOL1 
INSERTED BLANK COLUMNS	=  2
TOP BLANK ROWS		=  1
TOTAL WIDTH COLUMNS	=110
ROWS INCLUDING HEADING	= 50
!          KEY    format   heading
MULTIPLIER=1
COLUMN     NIK      F5.0      IJ
COLUMN     NZ       F7.2 
!    IGASNH ACTCFM TGASNH 1=CO2 2=H2O 3=N2  4=SO2 5=H2S 6=CO 7=O2 8=CVOL 9=HVOL 10=H2 11=CVOL 12=DUST UNUSED
COLUMN     NTHG  F8.2
MULTIPLIER=PPHM
COLUMN     NQHG  F11.0
COLUMN     HSNCO2  F9.2
KEY HSNH2O HSNN2 HSNSO2 HSNH2S HSNCO HSNO2 HSNCVOL HSNHVOL HSNH2 HSNCVOL1
END TABLE
      RETURN
      END