public subroutine betato01(z, K)

betato01

Description

Modify K-factor values to assure that $\beta$ lies between (0,1)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	z(:)	Molar fractions of the system
real(kind=pr)				::	K(:)	K factors $\frac{y_i}{x_i}$

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public		::	g0
real(kind=pr),	public		::	g1