Psat_pure Function

private function Psat_pure(eos, ncomp, T)

Calculation of saturation pressure of a pure component using the secant method.

Type Bound

ArModel

Arguments

Type IntentOptional Attributes Name
class(ArModel), intent(in) :: eos

Model that will be used
integer, intent(in) :: ncomp

Number of component in the mixture from which the saturation pressure will be calculated
real(kind=pr), intent(in) :: T

Temperature [K]

Return Value real(kind=pr)


Calls

proc~~psat_pure~~CallsGraph proc~psat_pure ArModel%Psat_pure none~diff~3 diff proc~psat_pure->none~diff~3 proc~lnphi_pt ArModel%lnphi_pt none~diff~3->proc~lnphi_pt proc~lnphi_vt ArModel%lnphi_vt proc~lnphi_pt->proc~lnphi_vt proc~volume~3 ArModel%volume proc~lnphi_pt->proc~volume~3 residual_helmholtz residual_helmholtz proc~lnphi_vt->residual_helmholtz get_v0 get_v0 proc~volume~3->get_v0 interface~newton newton proc~volume~3->interface~newton proc~newton_1d newton_1d interface~newton->proc~newton_1d

Called by

proc~~psat_pure~~CalledByGraph proc~psat_pure ArModel%Psat_pure proc~get_critical_constants get_critical_constants proc~get_critical_constants->proc~psat_pure proc~refit_rkpr_k refit_rkpr_k proc~refit_rkpr_k->proc~psat_pure proc~init_pcsaft init_pcsaft proc~init_pcsaft->proc~get_critical_constants proc~rkpr RKPR proc~rkpr->proc~refit_rkpr_k

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: P1
real(kind=pr), private :: P2
real(kind=pr), private :: f1
real(kind=pr), private :: f2
real(kind=pr), private :: n(size(eos))

Functions

function diff(P)

Arguments

Type IntentOptional Attributes Name
real(kind=pr), intent(in) :: P

Return Value real(kind=pr)