refit_rkpr_k Subroutine

public subroutine refit_rkpr_k(model, component)

Uses

  • proc~~refit_rkpr_k~~UsesGraph proc~refit_rkpr_k refit_rkpr_k module~yaeos__equilibria_boundaries_pure_saturation yaeos__equilibria_boundaries_pure_saturation proc~refit_rkpr_k->module~yaeos__equilibria_boundaries_pure_saturation module~yaeos__models_ar_cubic_alphas yaeos__models_ar_cubic_alphas proc~refit_rkpr_k->module~yaeos__models_ar_cubic_alphas linear_interpolation_module linear_interpolation_module module~yaeos__equilibria_boundaries_pure_saturation->linear_interpolation_module module~yaeos__constants yaeos__constants module~yaeos__equilibria_boundaries_pure_saturation->module~yaeos__constants module~yaeos__math_continuation yaeos__math_continuation module~yaeos__equilibria_boundaries_pure_saturation->module~yaeos__math_continuation module~yaeos__math_linalg yaeos__math_linalg module~yaeos__equilibria_boundaries_pure_saturation->module~yaeos__math_linalg module~yaeos__models_ar yaeos__models_ar module~yaeos__equilibria_boundaries_pure_saturation->module~yaeos__models_ar module~yaeos__models_ar_cubic_alphas->module~yaeos__constants module~yaeos__models_ar_genericcubic yaeos__models_ar_genericcubic module~yaeos__models_ar_cubic_alphas->module~yaeos__models_ar_genericcubic module~yaeos__substance yaeos__substance module~yaeos__models_ar_cubic_alphas->module~yaeos__substance iso_fortran_env iso_fortran_env module~yaeos__constants->iso_fortran_env module~yaeos__math_continuation->module~yaeos__constants module~yaeos__math_continuation->module~yaeos__math_linalg module~yaeos__math_linalg->module~yaeos__constants module~yaeos__models_ar->module~yaeos__constants module~yaeos__models_base yaeos__models_base module~yaeos__models_ar->module~yaeos__models_base module~yaeos__models_ar_genericcubic->module~yaeos__constants module~yaeos__models_ar_genericcubic->module~yaeos__models_ar module~yaeos__models_ar_genericcubic->module~yaeos__substance module~yaeos__substance->module~yaeos__constants module~yaeos__models_base->module~yaeos__substance

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

Calls

proc~~refit_rkpr_k~~CallsGraph proc~refit_rkpr_k refit_rkpr_k proc~get_p PurePsat%get_P proc~refit_rkpr_k->proc~get_p proc~psat_pure ArModel%Psat_pure proc~refit_rkpr_k->proc~psat_pure proc~pure_saturation_line pure_saturation_line proc~refit_rkpr_k->proc~pure_saturation_line evaluate evaluate proc~get_p->evaluate none~diff~3 diff proc~psat_pure->none~diff~3 initialize initialize proc~pure_saturation_line->initialize proc~solve_point~6 solve_point proc~pure_saturation_line->proc~solve_point~6 proc~solve_system solve_system proc~pure_saturation_line->proc~solve_system proc~volume~3 ArModel%volume proc~pure_saturation_line->proc~volume~3 proc~lnphi_pt ArModel%lnphi_pt none~diff~3->proc~lnphi_pt proc~solve_point~6->proc~solve_system get_v0 get_v0 proc~solve_point~6->get_v0 none~isofugacity isofugacity proc~solve_point~6->none~isofugacity none~dgesv dgesv proc~solve_system->none~dgesv proc~volume~3->get_v0 interface~newton newton proc~volume~3->interface~newton proc~newton_1d newton_1d interface~newton->proc~newton_1d proc~lnfug_vt ArModel%lnfug_vt none~isofugacity->proc~lnfug_vt proc~lnphi_pt->proc~volume~3 proc~lnphi_vt ArModel%lnphi_vt proc~lnphi_pt->proc~lnphi_vt residual_helmholtz residual_helmholtz proc~lnfug_vt->residual_helmholtz proc~lnphi_vt->residual_helmholtz

Called by

proc~~refit_rkpr_k~~CalledByGraph proc~refit_rkpr_k refit_rkpr_k proc~rkpr RKPR proc~rkpr->proc~refit_rkpr_k

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