!  COCOS Lib2 test problem ex8_1_2

PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY

  USE CODELIST_CREATION
  IMPLICIT NONE

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

! This statement defines the objective
  PHI = 588600d0/(10.8095222429746d0 - 4.21478541710781d0*cos(X(1) - &
              2.09439333333333d0))**6 - 1079.1d0/(10.8095222429746d0 - &
              4.21478541710781d0*cos(X(1) - 2.09439333333333d0))**3 &
              + 600800d0/(&
              10.8095222429746d0 - 4.21478541710781d0*cos(X(1)))**6 &
              - 1071.5d0/(&
              10.8095222429746d0- 4.21478541710781d0*cos(X(1)))**3 + 481300d0/(&
              10.8095222429746d0 - 4.21478541710781d0*cos(2.09439333333333d0 &
              + X(1)))**6 &
               - 1064.6d0/(10.8095222429746d0 - 4.21478541710781d0*cos(&
              2.09439333333333d0 + X(1)))**3
              
  G(1) = -X(1)
  G(2) =  X(1) - 6.28318D0

      CALL FINISH_CODELIST

END PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY