39 INTEGER,
Dimension(:),
Pointer :: cntvect
46 coi_error = coi_createfort( cntvect )
56 coi_error = max( coi_error,
coidef_optfile( cntvect,
'EvalError05.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 EvalError05 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 )
97 call flog(
"Solver and Model Status was not as expected (1,2)", 1 )
100 if ( coi_free(cntvect) /= 0 )
call flog(
"Error while freeing control vector",1)
102 call flog(
"Successful Solve", 0 )
114 colsta, rowno, value, nlflag, n, m, nz, &
120 integer,
intent (in) :: n
121 integer,
intent (in) :: m
122 integer,
intent (in) :: nz
123 real*8,
intent (in out),
dimension(n) :: lower
124 real*8,
intent (in out),
dimension(n) :: curr
125 real*8,
intent (in out),
dimension(n) :: upper
126 integer,
intent (in out),
dimension(n) :: vsta
128 integer,
intent (out),
dimension(m) ::
type
129 integer,
intent (in out),
dimension(m) :: esta
131 real*8,
intent (in out),
dimension(m) :: rhs
132 integer,
intent (in out),
dimension(n+1) :: colsta
133 integer,
intent (out),
dimension(nz) :: rowno
134 integer,
intent (in out),
dimension(nz) :: nlflag
135 real*8,
intent (in out),
dimension(nz) ::
value
209Integer Function eval_fdeval( x, g, jac, rowno, jcnm, mode, ignerr, errcnt, &
210 n, nz, thread, usrmem )
215 integer,
intent (in) :: n
216 integer,
intent (in) :: rowno
217 integer,
intent (in) :: nz
218 real*8,
intent (in),
dimension(n) :: x
219 real*8,
intent (in out) :: g
220 real*8,
intent (in out),
dimension(n) :: jac
221 integer,
intent (in),
dimension(nz) :: jcnm
223 integer,
intent (in) :: mode
225 integer,
intent (in) :: ignerr
227 integer,
intent (in out) :: errcnt
229 integer,
intent (in) :: thread
235 if ( rowno .eq. 1 )
then
239 if ( mode .eq. 1 .or. mode .eq. 3 )
then
240 if ( x(1) .ge. 1.0d0 )
then
249 if ( mode .eq. 2 .or. mode .eq. 3 )
then
250 if ( x(1) .ge. 1.0d0 )
then
253 jac(1) = 1.0d0/(1.d0-x(1))
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 evalerror05
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)