PR78_factory Subroutine

public subroutine PR78_factory(moles_in, ac_in, b_in, tc_in, pc_in, w_in, k_in)

PengRobinson 78 factory

Takes either the critical parameters or the fitted model parameters and gets ones in base of the others

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	moles_in(nc)
real(kind=pr),	intent(in),	optional		::	ac_in(nc)
real(kind=pr),	intent(in),	optional		::	b_in(nc)
real(kind=pr),	intent(in),	optional		::	tc_in(nc)
real(kind=pr),	intent(in),	optional		::	pc_in(nc)
real(kind=pr),	intent(in),	optional		::	w_in(nc)
real(kind=pr),	intent(in),	optional		::	k_in(nc)

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public		::	RTc(nc)
real(kind=pr),	public		::	al
real(kind=pr),	public		::	be
logical,	public		::	critical_spec
real(kind=pr),	public		::	ga(nc)
integer,	public		::	i
real(kind=pr),	public		::	oma(nc)
real(kind=pr),	public		::	omb(nc)
logical,	public		::	params_spec
real(kind=pr),	public		::	vceos(nc)
real(kind=pr),	public		::	zc(nc)