USER_PROBLEM SUBROUTINE

SUBROUTINE USER_PROBLEM

C Subroutine USER_PROBLEM defines objective function and constraints

C for the following problem:

C min 3X1^2+3X1X2+0.5X2^2

C s.t. 2X1+X2-1?=0

C -1?=X1,X2 ?=1

C The following variables are inputs to this subroutine

C XDIM = number of design variables (dimension)

C XU = vector of design variables

C The following variables are output by this subroutine

C FU = objective function value

C GDIM = number of constraints

C GU = vector of constraint values

C $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

IMPLICIT NONE

C Define variables and arrays

INTEGER MAXDV

PARAMETER ( MAXDV=1000 )

INTEGER XDIM

INTEGER GDIM

REAL XU(MAXDV)

REAL FU

REAL GU(MAXDV)

C #####################################################

FU=3*XU(1)**2+3*XU(1)*XU(2)+0.5*XU(2)**2

GDIM=1

GU(1)=2*XU(1)+XU(2)-1

RETURN

END