px_envelope_3ph Function

public function px_envelope_3ph(model, z0, zi, T, x0, y0, w0, beta0, P0, a0, ns0, dS0, points) result(envelope)

Arguments

Type IntentOptional Attributes Name
class(ArModel), intent(in) :: model
real(kind=pr), intent(in) :: z0(:)
real(kind=pr), intent(in) :: zi(:)
real(kind=pr), intent(in) :: T
real(kind=pr), intent(in) :: x0(:)
real(kind=pr), intent(in) :: y0(:)
real(kind=pr), intent(in) :: w0(:)
real(kind=pr), intent(in) :: beta0
real(kind=pr), intent(in) :: P0
real(kind=pr), intent(in) :: a0
integer, intent(in) :: ns0
real(kind=pr), intent(in) :: dS0
integer, intent(in) :: points

Return Value type(PXEnvel3)


Calls

proc~~px_envelope_3ph~~CallsGraph proc~px_envelope_3ph px_envelope_3ph proc~detect_critical detect_critical proc~px_envelope_3ph->proc~detect_critical proc~get_values_from_x~2 get_values_from_X proc~px_envelope_3ph->proc~get_values_from_x~2 proc~solve_point~2 solve_point proc~px_envelope_3ph->proc~solve_point~2 proc~update_specification~2 update_specification proc~px_envelope_3ph->proc~update_specification~2 proc~critical_interpol critical_interpol proc~detect_critical->proc~critical_interpol proc~get_z get_z proc~get_values_from_x~2->proc~get_z proc~px_f_three_phases px_F_three_phases proc~solve_point~2->proc~px_f_three_phases proc~solve_system solve_system proc~solve_point~2->proc~solve_system proc~update_specification~2->proc~solve_system proc~px_f_three_phases->proc~get_z proc~lnphi_pt ArModel%lnphi_pt proc~px_f_three_phases->proc~lnphi_pt none~dgesv dgesv proc~solve_system->none~dgesv proc~lnphi_vt ArModel%lnphi_vt proc~lnphi_pt->proc~lnphi_vt proc~volume~3 ArModel%volume proc~lnphi_pt->proc~volume~3 residual_helmholtz residual_helmholtz proc~lnphi_vt->residual_helmholtz get_v0 get_v0 proc~volume~3->get_v0 interface~newton newton proc~volume~3->interface~newton proc~newton_1d newton_1d interface~newton->proc~newton_1d

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: F(size(z0)*2+3)
real(kind=pr), private :: P(points)
real(kind=pr), private :: S

Specified value
real(kind=pr), private :: Xvars(size(z0)*2+3)
real(kind=pr), private :: a(points)
real(kind=pr), private :: beta(points)
real(kind=pr), private :: dF(size(z0)*2+3,size(z0)*2+3)
real(kind=pr), private :: dS

Specified value step for next point extrapolation
real(kind=pr), private :: dX(size(z0)*2+3)
real(kind=pr), private :: dXdS(size(z0)*2+3)
integer, private :: i
integer, private :: its
real(kind=pr), private :: kx(size(z0))
real(kind=pr), private :: ky(size(z0))
integer, private :: max_its = 500
integer, private :: nc
integer, private :: ns

Specified variable
real(kind=pr), private :: w(points,size(z0))
real(kind=pr), private :: x(points,size(z0))
real(kind=pr), private :: y(points,size(z0))