get_values_from_X Subroutine

private subroutine get_values_from_X(X, np, z0, zi, beta_w, x_l, w, betas, P, alpha)

get_values_from_X

Extract the values of the variables from the vector X.

Type Bound

PXEnvelMP

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) :: z0(:)

Initial mixture composition.

real(kind=pr), intent(in) :: zi(:)

Second mixture composition.

real(kind=pr), intent(in) :: beta_w

Reference phase beta.

real(kind=pr), intent(out) :: x_l(np,size(z0))

Mole fractions of the main phases.

real(kind=pr), intent(out) :: w(size(z0))

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) :: alpha

.


Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: K(np,size(z0))
integer, private :: i

Loop index.

integer, private :: l

Phase index.

integer, private :: lb

Lower bound of each phase.

integer, private :: nc

Number of components.

integer, private :: ub

Upper bound of each phase.

real(kind=pr), private :: z(size(z0))