levenberg_marquardt Subroutine

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

Arguments

Type	Intent	Optional	Attributes		Name
public subroutine fun(m, n, x, fvec, iflag) Arguments Type Intent Optional Attributes Name integer, intent(in) :: m integer, intent(in) :: n real(kind=pr), intent(in) :: x(n) real(kind=pr), intent(out) :: fvec(m) 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(inout)			::	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(F)*size(x)+5*size(x)+size(f))