! Program ex8_1_7 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex8_1_7
   USE CODELIST_CREATION
 
   PARAMETER (NN=5)
   PARAMETER (NSLACK = 0)
   TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X
   TYPE(CDLLHS), DIMENSION(1):: PHI
   TYPE(CDLINEQ), DIMENSION(14):: G
 
   TYPE(CDLEQ), DIMENSION(1):: C
 
   OUTPUT_FILE_NAME= 'ex8_1_7_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = (X(1)- 1.00000000000000000D+00)**2 + ((X(1) - X(2)))**2 + ((X(2) - X(3))) ** 3 + ((X(3) -& 
        & X(5))) ** 4 + (((- X(4)) + X(5))) ** 4
 
   C(1) = X(1) * X(4) - 2.00000000000000000D+00
   G(1) = X(1) + (X(2))**2 + (X(3)) ** 3 - 6.24264068711929010D+00
   G(2) = -X(1) - (X(2))**2 - (X(3)) ** 3 + 6.24264068711929010D+00
   G(3) = X(2) + X(5) - (X(3))**2 - 8.28427124746189958D-01
   G(4) = -X(2) - X(5) + (X(3))**2 + 8.28427124746189958D-01
 
   G(5) = -X(1) - 5
   G(6) =  X(1) - 5
   G(7) = -X(2) - 5
   G(8) =  X(2) - 5
   G(9) = -X(3) - 5
   G(10)=  X(3) - 5
   G(11)= -X(4) - 5
   G(12)=  X(4) - 5
   G(13)= -X(5) - 5
   G(14)=  X(5) - 5
 
   CALL FINISH_CODELIST
 END PROGRAM ex8_1_7