! Program ex8_4_5 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex8_4_5_source
   USE CODELIST_CREATION
 
   PARAMETER (NN=15)
   PARAMETER (NSLACK = 0)
   TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X
   TYPE(CDLLHS), DIMENSION(1):: PHI
   TYPE(CDLEQ), DIMENSION(11):: C
   
   TYPE(CDLINEQ), DIMENSION(30) :: G
 
   OUTPUT_FILE_NAME= 'ex8_4_5_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = (X(5)- 1.95700000000000013D-01)**2 + (X(6)- 1.94700000000000012D-01)**2 + (X(7)- 1.734999& 
        &99999999988D-01)**2 + (X(8)- 1.60000000000000003D-01)**2 + (X(9)- 8.44000000000000028D-02)**& 
        &2 + (X(10)- 6.27000000000000057D-02)**2 + (X(11)- 4.56000000000000016D-02)**2 + (X(12)- 3.42& 
        &000000000000012D-02)**2 + (X(13)- 3.23000000000000023D-02)**2 + (X(14)- 2.35000000000000001D& 
        &-02)**2 + (X(15)- 2.46000000000000003D-02)**2
 
   C(1) = ((X(2) + 1.00000000000000000D+00) * X(1)) / (X(3) + X(4) + 1.00000000000000000D+00) - X(7)
   C(2) = ((2.00000000000000000D+00 * X(2) + 4.00000000000000000D+00) * X(1)) / (2.00000000000000000D& 
        &+00 * X(3) + X(4) + 4.00000000000000000D+00) - X(6)
   C(3) = ((5.00000000000000000D-01 * X(2) + 2.50000000000000000D-01) * X(1)) / (5.00000000000000000D& 
        &-01 * X(3) + X(4) + 2.50000000000000000D-01) - X(8)
   C(4) = ((2.50000000000000000D-01 * X(2) + 6.25000000000000000D-02) * X(1)) / (2.50000000000000000D& 
        &-01 * X(3) + X(4) + 6.25000000000000000D-02) - X(9)
   C(5) = ((4.00000000000000000D+00 * X(2) + 1.60000000000000000D+01) * X(1)) / (4.00000000000000000D& 
        &+00 * X(3) + X(4) + 1.60000000000000000D+01) - X(5)
   C(6) = ((1.66666666666666990D-01 * X(2) + 2.77777777777778005D-02) * X(1)) / (1.66666666666666990D& 
        &-01 * X(3) + X(4) + 2.77777777777778005D-02) - X(10)
   C(7) = ((6.25000000000000000D-02 * X(2) + 3.90625000000000000D-03) * X(1)) / (6.25000000000000000D& 
        &-02 * X(3) + X(4) + 3.90625000000000000D-03) - X(15)
   C(8) = ((1.25000000000000000D-01 * X(2) + 1.56250000000000000D-02) * X(1)) / (1.25000000000000000D& 
        &-01 * X(3) + X(4) + 1.56250000000000000D-02) - X(11)
   C(9) = ((1.00000000000000006D-01 * X(2) + 1.00000000000000002D-02) * X(1)) / (1.00000000000000006D& 
        &-01 * X(3) + X(4) + 1.00000000000000002D-02) - X(12)
   C(10) = ((7.14285714285713969D-02 * X(2) + 5.10204081632653021D-03) * X(1)) / (7.14285714285713969& 
        &D-02 * X(3) + X(4) + 5.10204081632653021D-03) - X(14)
   C(11) = ((8.33333333333333010D-02 * X(2) + 6.94444444444443972D-03) * X(1)) / (8.33333333333333010& 
        &D-02 * X(3) + X(4) + 6.94444444444443972D-03) - X(13)
 
   G(1) = -X(5) + .1757D0
   G(2) =  X(5) - .2157D0 
   G(3) = -X(6) + .1747D0
   G(4) =  X(6) - .2147D0
   G(5) = -X(7) + .1535D0
   G(6) =  X(7) - .1935D0
   G(7) = -X(8) + .14D0
   G(8) =  X(8) - .18D0
   G(9) = -X(9) + .0644D0
   G(10)=  X(9) - .1044D0
   G(11)= -X(10)+ .0427D0
   G(12)=  X(10)- .0827D0
   G(13)= -X(11)+ .0256D0
   G(14)=  X(11)- .0656D0
   G(15)= -X(12)+ 0.0142D0
   G(16)=  X(12)- 0.0542D0
   G(17)= -X(13)+ 0.0123D0
   G(18)=  X(13)- 0.0523D0
   G(19)= -X(14)+ 0.0035D0
   G(20)=  X(14)- 0.0435D0
   G(21)= -X(15)+ 0.0046D0
   G(22)=  X(15)- 0.0446D0
   G(23)= -X(1) + (-0.2892D0)
   G(24)=  X(1) - 0.2893D0
   G(25)= -X(2) + (-0.2892D0)
   G(26)=  X(2) - 0.2893D0
   G(27)= -X(3) + (-0.2892D0)
   G(28)=  X(3) - 0.2893D0
   G(29)= -X(4) + (-0.2892D0)
   G(30)=  X(4) - 0.2893D0
 
   CALL FINISH_CODELIST
 END PROGRAM ex8_4_5_source