39 INTEGER,
Dimension(:),
Pointer :: cntvect
46 coi_error = coi_createfort( cntvect )
56 coi_error = max( coi_error,
coidef_optfile( cntvect,
'EvalError09.opt' ) )
67#if defined(LICENSE_INT_1) && defined(LICENSE_INT_2) && defined(LICENSE_INT_3) && defined(LICENSE_TEXT)
68 coi_error = max( coi_error,
coidef_license( cntvect, license_int_1, license_int_2, license_int_3, license_text) )
71 If ( coi_error .ne. 0 )
THEN
73 write(*,*)
'**** Fatal Error while loading CONOPT Callback routines.'
75 call flog(
"Skipping Solve due to setup errors", 1 )
87 write(*,*)
'End of EvalError09 example. Return code=',coi_error
89 If ( coi_error /= 0 )
then
90 call flog(
"Errors encountered during solution", 1 )
92 call flog(
"Status or Solution routine was not called", 1 )
98 call flog(
"Solver and Model Status was not as expected (5,6) or (5,7)", 1 )
101 if ( coi_free(cntvect) /= 0 )
call flog(
"Error while freeing control vector",1)
103 call flog(
"Successful Solve", 0 )
115 colsta, rowno, value, nlflag, n, m, nz, &
121 integer,
intent (in) :: n
122 integer,
intent (in) :: m
123 integer,
intent (in) :: nz
124 real*8,
intent (in out),
dimension(n) :: lower
125 real*8,
intent (in out),
dimension(n) :: curr
126 real*8,
intent (in out),
dimension(n) :: upper
127 integer,
intent (in out),
dimension(n) :: vsta
129 integer,
intent (out),
dimension(m) ::
type
130 integer,
intent (in out),
dimension(m) :: esta
132 real*8,
intent (in out),
dimension(m) :: rhs
133 integer,
intent (in out),
dimension(n+1) :: colsta
134 integer,
intent (out),
dimension(nz) :: rowno
135 integer,
intent (in out),
dimension(nz) :: nlflag
136 real*8,
intent (in out),
dimension(nz) ::
value
211Integer Function eval_fdeval( x, g, jac, rowno, jcnm, mode, ignerr, errcnt, &
212 n, nz, thread, usrmem )
217 integer,
intent (in) :: n
218 integer,
intent (in) :: rowno
219 integer,
intent (in) :: nz
220 real*8,
intent (in),
dimension(n) :: x
221 real*8,
intent (in out) :: g
222 real*8,
intent (in out),
dimension(n) :: jac
223 integer,
intent (in),
dimension(nz) :: jcnm
225 integer,
intent (in) :: mode
227 integer,
intent (in) :: ignerr
229 integer,
intent (in out) :: errcnt
231 integer,
intent (in) :: thread
237 if ( rowno .eq. 1 )
then
241 if ( mode .eq. 1 .or. mode .eq. 3 )
then
242 if ( x(1) + x(2) + x(3) .lt. 0.0d0 )
then
245 g = sqrt(x(1)+x(2)+x(3))
251 if ( mode .eq. 2 .or. mode .eq. 3 )
then
252 if ( x(1) + x(2) + x(3) .le. 0.0d0 )
then
255 jac(1) = 0.5d0/sqrt(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 evalerror09
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)