!  COCOS Lib2 test problem ex7_3_3

PROGRAM ex7_3_3_source

  USE CODELIST_CREATION
  IMPLICIT NONE

      TYPE(CDLVAR), DIMENSION(5):: X

      TYPE(CDLLHS):: PHI
      TYPE(CDLEQ), DIMENSION(2) :: C
      TYPE(CDLINEQ), DIMENSION(6) :: G
 
      CALL INITIALIZE_CODELIST(X)

  PHI = X(5)
  
  C(1) =  9.625D0*X(1)*X(4) - 4*X(1) - 78*X(4) + 16*X(2)*X(4) - X(2) &
            + 16*X(4)**2 + X(3) + 12
  C(2) =  16*X(1)*X(4) - 19*X(1) - 24*X(4) - 8*X(2) - X(3) + 44
  
  G(1) = X(1) - 0.25d0*X(5) - 2.25d0
  G(2) = -X(1) - 0.25D0*X(5)+ 2.25D0
  G(3) = -X(2) - 0.5D0*X(5)+1.5D0
  G(4) = X(2) - 0.5D0*X(5) - 1.5D0
  G(5) = -X(3) - 1.5D0*X(5) +1.5D0
  G(6) =  X(3) - 1.5D0*X(5) - 1.5D0

      CALL FINISH_CODELIST

END PROGRAM ex7_3_3_source