c ... convert from mass fractions ysp(1,2,...,ns) to
c ... mole fractions xsp(1,2,...,ns)

	subroutine gmlfr(ns,ysp,xsp,wb,ospwt)

	IMPLICIT NONE
#include "parameter.com"


	integer ns, k
	double precision wb
	real*8 ysp(ns),xsp(ns),ospwt(ns)

c------------------------------------------------------------------------------
	
	wb = 0.0
	do k = 1, ns
	   wb = wb + ysp(k)*ospwt(k)
	end do
	wb = 1.0/wb

	do k=1,ns
	   xsp(k) = ysp(k)*wb*ospwt(k)
	end do

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

	return
	end