near_critical Subroutine

public subroutine near_critical(nc, np, X, near_crit, l, i, j)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nc

Number of components
integer, intent(in) :: np

Number of main phases
real(kind=pr), intent(in) :: X(nc*np+np+2)

Vector of variables
logical, intent(out) :: near_crit

If the system is near a critical point
integer, intent(out) :: l

Index of the near-critical phase
integer, intent(out) :: i

Index of the component with the maximum lnK
integer, intent(out) :: j

Index of the component with the minimum lnK

Called by

proc~~near_critical~~CalledByGraph proc~near_critical near_critical proc~update_specification~5 update_specification proc~update_specification~5->proc~near_critical proc~pt_envelope pt_envelope proc~pt_envelope->proc~update_specification~5 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
real(kind=pr), public :: cf
integer, public :: lb
real(kind=pr), public :: lnK(nc)
integer, public :: ub