!  COCOS Lib2 test problem ex8_1_2

PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY

  USE CODELIST_CREATION
  IMPLICIT NONE

      TYPE(CDLVAR), DIMENSION(3):: X
   ! The objective function must be declared this way.
      TYPE(CDLLHS):: PHI
      TYPE(CDLINEQ), DIMENSION(8) :: G
 
      CALL INITIALIZE_CODELIST(X)

! This statement defines the objective
  PHI = X(3)
  
  G(1) = (0.0476666666666666d0 - 0.0649999999999999d0*X(1))&
            *exp(10*X(1)/(1 + 0.01d0*X(1))) - X(1) - X(3)
  G(2) = X(1) - (0.0476666666666666d0 - 0.0649999999999999d0*X(1))&
            *exp(10*X(1)/(1 + 0.01d0*X(1))) - X(3)
  G(3) = (0.143d0 + (-0.13d0*X(1)) - 0.195d0*X(2)) &
            *exp(10*X(2)/(1 + 0.01d0*X(2))) + X(1) - 3*X(2) - X(3)
  G(4) = (-(0.143d0 + (-0.13d0*X(1)) - 0.195d0*X(2)) &
            *exp(10*X(2)/(1 + 0.01d0*X(2)))) - X(1) + 3*X(2) - X(3)
  G(5) = -X(1)
  G(6) = X(1) - 1
  G(7) = -X(2)
  G(8) = X(2) - 1

      CALL FINISH_CODELIST

END PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY