subroutine cheminit

	include 'parameter.par'
#include "precision.com"
	include 'common.com'

	real*8 wref1
	wref1 = 28.0
c-------------------------------------------------------------------------------
c ... call chemkin to read chemical mechanism and thermodynamic and
c ... transport data bases, and fill up the necessary work space arrays
c ... this initialization setp is necessary before calling any routine
c ... that returns chemkin-related information
c ... nsp, the number of species, is returned 

	call trinit(nsp)

c-------------------------------------------------------------------------------
c ... get names of species involved in reaction

        call getnames(nsp,spname)

c-------------------------------------------------------------------------------
c ... get molecular weights of species

	call getwt(nsp,wref1,wt)

c-------------------------------------------------------------------------------
	return
	end