!-----------------------------------------------------------------------
! INCLUDE 'gases.h'

      integer, parameter :: ngasmx = 2 
      integer vgas
      character*3 :: gnom(ngasmx) ! name of the gas
!      character(len=3) :: gnom(ngasmx) ! name of the gas
      real gfrac(ngasmx)

      COMMON/gases/gnom,vgas,gfrac

!-----------------------------------------------------------------------