!  COCOS Lib2 test problem ex5_2_4

PROGRAM ex5_2_4_source

  USE CODELIST_CREATION
  IMPLICIT NONE

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

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

      CALL FINISH_CODELIST

END PROGRAM ex5_2_4_source