fcn_tc – odrpack

interface
public subroutine fcn_tc(n, m, q, np, ldifx, beta, xplusd, ifixb, ifixx, ideval, f, fjacb, fjacd, istop) bind(C)

Type	Intent		Name
integer(kind=c_int),	intent(in)	::	n	Number of observations.
integer(kind=c_int),	intent(in)	::	m	Number of columns of data in the independent variable.
integer(kind=c_int),	intent(in)	::	q	Number of responses per observation.
integer(kind=c_int),	intent(in)	::	np	Number of function parameters.
integer(kind=c_int),	intent(in)	::	ldifx	Leading dimension of array `ifixx`.
real(kind=c_double),	intent(in)	::	beta(np)	Current values of parameters.
real(kind=c_double),	intent(in)	::	xplusd(n,m)	Current value of explanatory variable, i.e., `x + delta`.
integer(kind=c_int),	intent(in)	::	ifixb(np)	Indicators for "fixing" parameters (`beta`).
integer(kind=c_int),	intent(in)	::	ifixx(ldifx,m)	Indicators for "fixing" explanatory variable (`x`).
integer(kind=c_int),	intent(in)	::	ideval	Indicator for selecting computation to be performed.
real(kind=c_double),	intent(out)	::	f(n,q)	Predicted function values.
real(kind=c_double),	intent(out)	::	fjacb(n,np,q)	Jacobian with respect to `beta`.
real(kind=c_double),	intent(out)	::	fjacd(n,m,q)	Jacobian with respect to errors `delta`.
integer(kind=c_int),	intent(out)	::	istop	Stopping condition, with meaning as follows. `0`: Current `beta` and `x + delta` were acceptable and values were computed successfully. `1`: Current `beta` and `x + delta` are not acceptable; 'odrpack' should select values closer to most recently used values if possible. `-1`: Current `beta` and `x + delta` are not acceptable; 'odrpack' should stop.

User-supplied subroutine for evaluating the model.