get_Zc_OMa_OMb Subroutine

public subroutine get_Zc_OMa_OMb(del1, Zc, OMa, OMb)

Calculate Zc, OMa and OMb from the delta_1 parameter.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	del1(:)	delta_1 parameter
real(kind=pr),	intent(out)			::	Zc(:)	Critical compressibility factor
real(kind=pr),	intent(out)			::	OMa(:)	OMa
real(kind=pr),	intent(out)			::	OMb(:)	OMb

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public		::	d1(size(del1))
real(kind=pr),	public		::	y(size(del1))