!  COCOS Lib2 test problem ex8_1_1

PROGRAM ex8_1_1_source

  USE CODELIST_CREATION
  IMPLICIT NONE

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

! This statement defines the objective

  PHI = cos(X(1))*sin(X(2)) - X(1)/(1 + X(2)**2)
  
  G(1) = -X(1) - 1
  G(2) =  X(1) - 2
  G(3) = -X(2) - 1
  G(4) =  X(2) - 1

      CALL FINISH_CODELIST

END PROGRAM ex8_1_1_source