get_values_from_X Subroutine

private subroutine get_values_from_X(X, np, z, beta_w, x_l, w, betas, P, T)

get_values_from_X

Extract the values of the variables from the vector X.

Type Bound

PTEnvelMP

Arguments

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

Vector of variables.
integer, intent(in) :: np

Number of main phases.
real(kind=pr), intent(in) :: z(:)

Mixture composition.
real(kind=pr), intent(in) :: beta_w

Fraction of the reference phase.
real(kind=pr), intent(out) :: x_l(np,size(z))

Mole fractions of the main phases.
real(kind=pr), intent(out) :: w(size(z))

Mole fractions of the incipient phase.
real(kind=pr), intent(out) :: betas(np)

Fractions of the main phases.
real(kind=pr), intent(out) :: P

Pressure [bar].
real(kind=pr), intent(out) :: T

Temperature [K].

Called by

proc~~get_values_from_x~4~~CalledByGraph proc~get_values_from_x~4 PTEnvelMP%get_values_from_X proc~pt_envelope pt_envelope proc~pt_envelope->proc~get_values_from_x~4 proc~solve_point~5 PTEnvelMP%solve_point proc~pt_envelope->proc~solve_point~5 proc~solve_point~5->proc~get_values_from_x~4 proc~pt_envelope_2ph pt_envelope_2ph proc~pt_envelope_2ph->proc~pt_envelope proc~find_hpl find_hpl proc~find_hpl->proc~pt_envelope_2ph

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Loop index.
integer, private :: lb

Lower bound of each phase.
integer, private :: nc

Number of components.
integer, private :: ub

Upper bound of each phase.