kij_constant Subroutine

public subroutine kij_constant(self, T, a, dadt, dadt2, aij, daijdt, daijdt2)

Combining rule that uses constant $k_{ij}$ values.

[ a_{ij} = \sqrt{a_i a_j} (1 - k_{ij}) ]

Type Bound

QMR

Arguments

Type	Intent	Optional	Attributes		Name
class(QMR),	intent(in)			::	self
real(kind=pr),	intent(in)			::	T	Temperature [K]
real(kind=pr),	intent(in)			::	a(:)	Pure components attractive parameters (\a_i)
real(kind=pr),	intent(in)			::	dadt(:)	$\frac{da_i}{dT}$
real(kind=pr),	intent(in)			::	dadt2(:)	$\frac{d^2a_i}{dT^2}$
real(kind=pr),	intent(out)			::	aij(:,:)	$a_{ij}$ Matrix
real(kind=pr),	intent(out)			::	daijdt(:,:)	$\frac{da_{ij}{dT}$
real(kind=pr),	intent(out)			::	daijdt2(:,:)	$\frac{d^2a_{ij}{dT^2}$

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	i
real(kind=pr),	public		::	inner_sum
integer,	public		::	j
real(kind=pr),	public		::	sqrt_aii_ajj