46 INTEGER,
Dimension(:),
Pointer :: cntvect
53 coi_error = coi_createfort( cntvect )
63 coi_error = max( coi_error,
coidef_optfile( cntvect,
'EvalError13.opt' ) )
74#if defined(LICENSE_INT_1) && defined(LICENSE_INT_2) && defined(LICENSE_INT_3) && defined(LICENSE_TEXT)
75 coi_error = max( coi_error,
coidef_license( cntvect, license_int_1, license_int_2, license_int_3, license_text) )
78 If ( coi_error .ne. 0 )
THEN
80 write(*,*)
'**** Fatal Error while loading CONOPT Callback routines.'
82 call flog(
"Skipping Solve due to setup errors", 1 )
94 write(*,*)
'End of EvalError13 example. Return code=',coi_error
96 If ( coi_error /= 0 )
then
97 call flog(
"Errors encountered during solution", 1 )
99 call flog(
"Status or Solution routine was not called", 1 )
104 call flog(
"Solver and Model Status was not as expected (5,6)", 1 )
107 if ( coi_free(cntvect) /= 0 )
call flog(
"Error while freeing control vector",1)
109 call flog(
"Successful Solve", 0 )
121 colsta, rowno, value, nlflag, n, m, nz, &
127 integer,
intent (in) :: n
128 integer,
intent (in) :: m
129 integer,
intent (in) :: nz
130 real*8,
intent (in out),
dimension(n) :: lower
131 real*8,
intent (in out),
dimension(n) :: curr
132 real*8,
intent (in out),
dimension(n) :: upper
133 integer,
intent (in out),
dimension(n) :: vsta
135 integer,
intent (out),
dimension(m) ::
type
136 integer,
intent (in out),
dimension(m) :: esta
138 real*8,
intent (in out),
dimension(m) :: rhs
139 integer,
intent (in out),
dimension(n+1) :: colsta
140 integer,
intent (out),
dimension(nz) :: rowno
141 integer,
intent (in out),
dimension(nz) :: nlflag
142 real*8,
intent (in out),
dimension(nz) ::
value
223Integer Function eval_fdeval( x, g, jac, rowno, jcnm, mode, ignerr, errcnt, &
224 n, nz, thread, usrmem )
229 integer,
intent (in) :: n
230 integer,
intent (in) :: rowno
231 integer,
intent (in) :: nz
232 real*8,
intent (in),
dimension(n) :: x
233 real*8,
intent (in out) :: g
234 real*8,
intent (in out),
dimension(n) :: jac
235 integer,
intent (in),
dimension(nz) :: jcnm
237 integer,
intent (in) :: mode
239 integer,
intent (in) :: ignerr
241 integer,
intent (in out) :: errcnt
243 integer,
intent (in) :: thread
246 if ( rowno .eq. 1 )
then
250 if ( mode .eq. 1 .or. mode .eq. 3 )
then
253 if ( mode .eq. 2 .or. mode .eq. 3 )
then
254 jac(1) = exp(x(1)+x(2))
257 Else if ( rowno .eq. 2 )
then
264 if ( mode .eq. 1 .or. mode .eq. 3 )
then
265 if ( 0.5+x(1)+x(2)+x(3) .le. 0.0d0 )
then
268 g = log(0.5d0+x(1)+x(2)+x(3))
274 if ( mode .eq. 2 .or. mode .eq. 3 )
then
275 if ( 0.5+x(1)+x(2)+x(3) .le. 0.0d0 )
then
278 jac(1) = 1.0d0/(0.5d0+x(1)+x(2)+x(3))
integer function std_solution(xval, xmar, xbas, xsta, yval, ymar, ybas, ysta, n, m, usrmem)
integer function std_status(modsta, solsta, iter, objval, usrmem)
integer function std_message(smsg, dmsg, nmsg, llen, usrmem, msgv)
integer function std_errmsg(rowno, colno, posno, msglen, usrmem, msg)
integer function eval_fdeval(x, g, jac, rowno, jcnm, mode, ignerr, errcnt, n, nz, thread, usrmem)
Compute nonlinear terms and non-constant Jacobian elements.
integer function eval_readmatrix(lower, curr, upper, vsta, type, rhs, esta, colsta, rowno, value, nlflag, n, m, nz, usrmem)
Define information about the model.
program evalerror13
Main program. A simple setup and call of CONOPT.
integer function coidef_fdeval(cntvect, coi_fdeval)
define callback routine for performing function and derivative evaluations.
integer function coidef_errmsg(cntvect, coi_errmsg)
define callback routine for returning error messages for row, column or Jacobian elements.
integer function coidef_message(cntvect, coi_message)
define callback routine for handling messages returned during the solution process.
integer function coidef_readmatrix(cntvect, coi_readmatrix)
define callback routine for providing the matrix data to CONOPT.
integer function coidef_status(cntvect, coi_status)
define callback routine for returning the completion status.
integer function coidef_solution(cntvect, coi_solution)
define callback routine for returning the final solution values.
integer function coidef_optfile(cntvect, optfile)
define callback routine for defining an options file.
integer function coidef_license(cntvect, licint1, licint2, licint3, licstring)
define the License Information.
integer function coidef_numvar(cntvect, numvar)
defines the number of variables in the model.
integer function coidef_numnz(cntvect, numnz)
defines the number of nonzero elements in the Jacobian.
integer function coidef_optdir(cntvect, optdir)
defines the Optimization Direction.
integer function coidef_numnlnz(cntvect, numnlnz)
defines the Number of Nonlinear Nonzeros.
integer function coidef_numcon(cntvect, numcon)
defines the number of constraints in the model.
integer function coidef_objvar(cntvect, objvar)
defines the Objective Variable.
integer function coi_solve(cntvect)
method for starting the solving process of CONOPT.
subroutine flog(msg, code)