44 INTEGER,
Dimension(:),
Pointer :: cntvect
51 coi_error = coi_createfort( cntvect )
61 coi_error = max( coi_error,
coidef_optfile( cntvect,
'EvalError06.opt' ) )
72#if defined(LICENSE_INT_1) && defined(LICENSE_INT_2) && defined(LICENSE_INT_3) && defined(LICENSE_TEXT)
73 coi_error = max( coi_error,
coidef_license( cntvect, license_int_1, license_int_2, license_int_3, license_text) )
76 If ( coi_error .ne. 0 )
THEN
78 write(*,*)
'**** Fatal Error while loading CONOPT Callback routines.'
80 call flog(
"Skipping Solve due to setup errors", 1 )
92 write(*,*)
'End of EvalError06 example. Return code=',coi_error
94 If ( coi_error /= 0 )
then
95 call flog(
"Errors encountered during solution", 1 )
97 call flog(
"Status or Solution routine was not called", 1 )
102 call flog(
"Solver and Model Status was not as expected (1,2)", 1 )
105 if ( coi_free(cntvect) /= 0 )
call flog(
"Error while freeing control vector",1)
107 call flog(
"Successful Solve", 0 )
119 colsta, rowno, value, nlflag, n, m, nz, &
125 integer,
intent (in) :: n
126 integer,
intent (in) :: m
127 integer,
intent (in) :: nz
128 real*8,
intent (in out),
dimension(n) :: lower
129 real*8,
intent (in out),
dimension(n) :: curr
130 real*8,
intent (in out),
dimension(n) :: upper
131 integer,
intent (in out),
dimension(n) :: vsta
133 integer,
intent (out),
dimension(m) ::
type
134 integer,
intent (in out),
dimension(m) :: esta
136 real*8,
intent (in out),
dimension(m) :: rhs
137 integer,
intent (in out),
dimension(n+1) :: colsta
138 integer,
intent (out),
dimension(nz) :: rowno
139 integer,
intent (in out),
dimension(nz) :: nlflag
140 real*8,
intent (in out),
dimension(nz) ::
value
214Integer Function eval_fdeval( x, g, jac, rowno, jcnm, mode, ignerr, errcnt, &
215 n, nz, thread, usrmem )
220 integer,
intent (in) :: n
221 integer,
intent (in) :: rowno
222 integer,
intent (in) :: nz
223 real*8,
intent (in),
dimension(n) :: x
224 real*8,
intent (in out) :: g
225 real*8,
intent (in out),
dimension(n) :: jac
226 integer,
intent (in),
dimension(nz) :: jcnm
228 integer,
intent (in) :: mode
230 integer,
intent (in) :: ignerr
232 integer,
intent (in out) :: errcnt
234 integer,
intent (in) :: thread
240 if ( rowno .eq. 1 )
then
244 if ( mode .eq. 1 .or. mode .eq. 3 )
then
245 if ( x(1) .gt. 1.0d0 )
then
254 if ( mode .eq. 2 .or. mode .eq. 3 )
then
255 if ( x(1) .ge. 1.0d0 )
then
258 jac(1) = 0.5d0/sqrt(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 evalerror06
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)