!  COCOS Lib2 test problem ex8_1_2 using power instead of division -- 

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
 
      CALL INITIALIZE_CODELIST(X)

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

      CALL FINISH_CODELIST

END PROGRAM MIXED_CONSTRAINTS_AS_EQUALITY