c-------------------------------------------------------------------------------
c ... set gas constants and universal constants

	subroutine setcon

	IMPLICIT NONE

        include 'parameter.par' 
	include 'common.com'

	integer k
c-------------------------------------------------------------------------------

	r0      = 8314.51      	! univ gas const J/kg-mol.K
	patm    = 101325.0	! atmospheric pressure N/m^2
	boltzk  = 1.3805e-23 	! Boltzmann's constant (units: J/K)
	avogadro= 6.0225e26 	! Avogadro's number (1/kg-mol)

	do k=1,nsp
	   rg(k) = r0/wt(k)   ! gas constant for each species (J/kg.K)
	end do

c-------------------------------------------------------------------------------

	return
	end