f/xj. This subroutine must calculate the nonlinear
objective function f(x) and (optionally) its gradient g(x),
where x is the current value of the objective variables x'.
The jth component of the gradient is f/xj.
|
|
subroutine funobj( |
mode, nnObj, |
|
$ |
|
x, fObj, gObj, nState, |
|
$ |
|
cu, lencu, iu, leniu, ru, lenru ) |
|
|
|
|
|
|
integer |
mode, nnObj, nState |
|
|
double precision |
fObj |
|
|
double precision |
x(nnObj), gObj(nnObj) |
|
|
|
|
|
|
integer |
lencu, leniu, lenru |
|
|
character*8 |
cu(lencu) |
|
|
integer |
iu(leniu) |
|
|
double precision |
ru(lenru) |