powel_hybrid Subroutine

public subroutine powel_hybrid(fun, tol, X, F, info)

Arguments

Type	Intent	Optional	Attributes		Name
public subroutine fun(n, x, fvec, iflag) Arguments Type Intent Optional Attributes Name integer, intent(in) :: n real(kind=pr), intent(in) :: x(n) real(kind=pr), intent(out) :: fvec(n) integer, intent(inout) :: iflag
real(kind=pr),	intent(in)			::	tol
real(kind=pr),	intent(inout)			::	X(:)	Variables vector
real(kind=pr),	intent(out)			::	F(:)	Function values at solved point
integer,	intent(out)			::	info

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	iwa(size(x))
integer,	public		::	lwa
integer,	public		::	m
integer,	public		::	n
real(kind=pr),	public		::	wa((size(X)*(3*size(X)+13))/2+5)