!  COCOS Lib2 test problem 5_2_2

PROGRAM ex5_2_2_case2_source

  USE CODELIST_CREATION
  IMPLICIT NONE

      TYPE(CDLVAR), DIMENSION(9):: X
   ! The objective function must be declared this way.
      TYPE(CDLLHS):: PHI
      TYPE(CDLEQ), DIMENSION(4) :: C
      TYPE(CDLINEQ), DIMENSION(20) :: G
 
      CALL INITIALIZE_CODELIST(X)

! This statement defines the objective
  PHI = -9*X(1) - 15*X(2) + 6*X(3) + 16*X(4) + 10*X(5) + 10*X(6)
  
  C(1) =  - X(3) - X(4) + X(8) + X(9)
  C(2) =    X(1) - X(5) - X(8)
  C(3) =    X(2) - X(6) - X(9)
  C(4) =  X(7)*X(8) + X(7)*X(9) - 3*X(3) - X(4)
  
  G(1) =  X(7)*X(8) - 2.5D0*X(1) + 2*X(5)
  G(2) =  X(7)*X(9) - 1.5D0*X(2) + 2*X(6)
  G(3) = -X(1)
  G(4) =  X(1) - 100
  G(5) = -X(2)
  G(6) =  X(2) - 200
  G(7) = -X(3)
  G(8) =  X(3) - 500
  G(9) = -X(4)
  G(10)=  X(4) - 500
  G(11)= -X(5)
  G(12)=  X(5) - 500
  G(13)= -X(6)
  G(14)=  X(6) - 500
  G(15)= -X(7)
  G(16)=  X(7) - 500
  G(17)= -X(8)
  G(18)=  X(8) - 500
  G(19)= -X(9)
  G(20)=  X(9) - 500 

      CALL FINISH_CODELIST

END PROGRAM ex5_2_2_case2_source