calc_pt_envel Subroutine

public subroutine calc_pt_envel(model, exp_point, model_point, converged)

Arguments

Type	Intent	Optional	Attributes		Name
class(ArModel),	intent(in)			::	model
type(EquilibriumState),	intent(in)			::	exp_point
type(EquilibriumState),	intent(out)			::	model_point
logical,	intent(out)			::	converged

Variables

Type	Visibility	Attributes		Name		Initial
type(PTEnvel2),	public		::	env
type(EquilibriumState),	public		::	init
integer,	public,	allocatable	::	msk(:)
integer,	public		::	pos
real(kind=pr),	public		::	z(size(exp_point%x))