solve_TP Subroutine

public subroutine solve_TP(model, kind, z, X, ns, S, tol, max_iterations, its)

Arguments

Type	Intent	Optional	Attributes		Name
class(ArModel),	intent(in)			::	model
character(len=*),	intent(in)			::	kind
real(kind=pr),	intent(in)			::	z(:)
real(kind=pr),	intent(inout)			::	X(:)
integer,	intent(in)			::	ns
real(kind=pr),	intent(in)			::	S
real(kind=pr),	intent(in)			::	tol
integer,	intent(in)			::	max_iterations
integer,	intent(out)			::	its

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	public		::	F(size(X))
real(kind=pr),	public		::	dF(size(X),size(X))
real(kind=pr),	public		::	dFdS(size(X))
real(kind=pr),	public		::	dx(size(X))
integer,	public		::	nc