d1mix_rkpr Subroutine

public pure subroutine d1mix_rkpr(n, d1i, D1, dD1i, dD1ij)

RKPR $\delta_1$ parameter mixing rule.

The RKPR EoS doesn’t have a constant $\delta_1$ value for each component, so a proper mixing rule should be provided. A linear combination is used.

$$\Delta_1 = \sum_i^N n_i \delta_{1i}$$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	n(:)
real(kind=pr),	intent(in)			::	d1i(:)
real(kind=pr),	intent(out)			::	D1
real(kind=pr),	intent(out)			::	dD1i(:)
real(kind=pr),	intent(out)			::	dD1ij(:,:)

Variables

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