c*******************************************************************************
c ... convert array of mass fractions to array of concentrations

	subroutine y2c(rho,yspl,cspl)

	IMPLICIT NONE

        include 'parameter.par' 
	include 'chem.com'

	real*8 yspl(nsmx),cspl(nsmx)

	integer ksp
	double precision rho

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

        do ksp=1,ns
           cspl(ksp)  = rho*yspl(ksp)*ospwt(ksp)
        end do

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

c*******************************************************************************