pt_envelope_3ph Function

public function pt_envelope_3ph(model, z, x0, y0, w0, beta0, P0, T0, ns0, dS0, points) result(envelope)

Arguments

Type IntentOptional Attributes Name
class(ArModel), intent(in) :: model
real(kind=pr), intent(in) :: z(:)
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) :: T0
integer, intent(in) :: ns0
real(kind=pr), intent(in) :: dS0
integer, intent(in) :: points

Return Value type(PTEnvel3)


Variables

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

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

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

Specified variable
real(kind=pr), private :: w(points,size(z))
real(kind=pr), private :: wi(size(z))
real(kind=pr), private :: x(points,size(z))
real(kind=pr), private :: xi(size(z))
real(kind=pr), private :: y(points,size(z))
real(kind=pr), private :: yi(size(z))