!  COCOS Lib2 test problem ex8_1_3

PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY

  USE CODELIST_CREATION

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

! This statement defines the objective
  PHI = (1 + (1 + X(1) + X(2))**2*(19 + 3*X(1)**2 &
              - 14*X(1) + 6*X(1)*X(2) - 14*X(2) + 3* &
              X(2)**2))*(30 + (2*X(1) &
              - 3*X(2))**2*(18 + 12*X(1)**2 - 32*X(1) - 36*X(1)*X(2) + &
              48*X(2) + 27*X(2)**2))

      CALL FINISH_CODELIST

END PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY