HV Derived Type

type, public, extends(CubicMixRule) :: HV

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public,	allocatable	::	bi(:)
real(kind=pr),	public,	allocatable	::	del1(:)
logical,	public		::	dn2	=	.false.	Calculate second order derivatives
class(GeModel),	public,	allocatable	::	ge
logical,	public		::	is_D_ddlc	=	.false.	Mixing rule D parameter dependant on density

Type-Bound Procedures

procedure, public :: Bmix => BmixHV

private subroutine BmixHV(self, n, bi, B, dBi, dBij)

Quadratinc mixing rule for the repulsive parameter.

Arguments

Type	Intent	Optional	Attributes		Name
class(HV),	intent(in)			::	self
real(kind=pr),	intent(in)			::	n(:)
real(kind=pr),	intent(in)			::	bi(:)
real(kind=pr),	intent(out)			::	B
real(kind=pr),	intent(out)			::	dBi(:)
real(kind=pr),	intent(out)			::	dBij(:,:)

procedure, public :: D1Mix => D1MixHV

private subroutine D1MixHV(self, n, d1i, D1, dD1i, dD1ij)

Arguments

Type	Intent	Optional	Attributes		Name
class(HV),	intent(in)			::	self
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(:,:)

procedure, public :: Dmix => DmixHV

private subroutine DmixHV(self, n, V, T, ai, daidt, daidt2, D, dDdV, dDdT, dDdV2, dDdT2, dDi, dDdTV, dDidV, dDidT, dDij)

Arguments

Type	Intent	Optional	Attributes		Name
class(HV),	intent(in)			::	self
real(kind=pr),	intent(in)			::	n(:)	Moles vector [mol]
real(kind=pr),	intent(in)			::	V	Volume [L] (unused)
real(kind=pr),	intent(in)			::	T	Temperature [K]
real(kind=pr),	intent(in)			::	ai(:)	Pure components attractive parameters $a_i$
real(kind=pr),	intent(in)			::	daidt(:)	$\frac{da_i}{dT}$
real(kind=pr),	intent(in)			::	daidt2(:)	$\frac{d^2a_i}{dT^2}$
real(kind=pr),	intent(out)			::	D	Mixture attractive parameter $n^2a_{mix}$
real(kind=pr),	intent(out)			::	dDdV	$\frac{dD}{dT}$
real(kind=pr),	intent(out)			::	dDdT	$\frac{dD}{dV}$
real(kind=pr),	intent(out)			::	dDdV2	$\frac{d^2D}{dV^2}$
real(kind=pr),	intent(out)			::	dDdT2	$\frac{d^2D}{dT^2}$
real(kind=pr),	intent(out)			::	dDi(:)	$\frac{dD}{dn_i}$
real(kind=pr),	intent(out)			::	dDdTV	$\frac{d^2D}{dTV$
real(kind=pr),	intent(out)			::	dDidV(:)	$\frac{d^2D}{dVn_i}$
real(kind=pr),	intent(out)			::	dDidT(:)	$\frac{d^2D}{dTn_i}$
real(kind=pr),	intent(out)			::	dDij(:,:)	$\frac{d^2D}{dn_{ij}}$