PSRK Function

public function PSRK(tc, pc, w, molecules, c1, c2, c3) result(model)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	tc(:)	Critical temperature [K]
real(kind=pr),	intent(in)			::	pc(:)	Critical pressure [bar]
real(kind=pr),	intent(in)			::	w(:)	Acentric factor
type(Groups),	intent(in)			::	molecules(:)
real(kind=pr),	intent(in),	optional		::	c1(:)
real(kind=pr),	intent(in),	optional		::	c2(:)
real(kind=pr),	intent(in),	optional		::	c3(:)

Return Value type(CubicEoS)

Variables

Type	Visibility	Attributes		Name		Initial
type(AlphaSoave),	private		::	alpha
type(AlphaMathiasCopeman),	private		::	alpha_mc
type(Substances),	private		::	composition
type(UNIFAC),	private		::	ge
integer,	private		::	i
type(MHV),	private		::	mixrule
integer,	private		::	nc