refit_rkpr_k Subroutine

public subroutine refit_rkpr_k(model, component)

Uses

refit_rkpr_k

Refit the parameter of the RKPR EoS to match the acentric factor

Arguments

Type IntentOptional Attributes Name
type(CubicEoS), intent(inout) :: model

The model to be refitted
integer, intent(in) :: component

Component index to refit

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: Pc
type(PurePsat), private :: Psat
real(kind=pr), private :: Psat_i
real(kind=pr), private :: Tc
type(AlphaRKPR), private :: alpha
real(kind=pr), private :: diff
integer, private :: i
real(kind=pr), private :: w