! Program ex14_2_5 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex14_2_5_source
   USE CODELIST_CREATION
 
   PARAMETER (NN=4)
   PARAMETER (NSLACK = 0)
   TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X
   TYPE(CDLLHS), DIMENSION(1):: PHI
   TYPE(CDLINEQ), DIMENSION(11):: G
 
   TYPE(CDLEQ), DIMENSION(1):: C
 
   OUTPUT_FILE_NAME= 'ex14_2_5_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = X(4)
 
   C(1) = X(1) + X(2) - 1.00000000000000000D+00
   G(1) = (-2.75564173589155007D+03) * (1.00000000000000000D+00/(X(3) + 2.19161000000000001D+02)) + 3& 
        &.61872516756437002D-01 * ((X(2)) / (X(1) + 8.88649896608059042D-01 * X(2))) + 8.681346224809& 
        &09002D-01 * ((X(2)) / (6.96880695582071996D-01 * X(1) + X(2))) - 3.61872516756437002D-01 * (& 
        &(X(1) * X(2)) / ((X(1) + 8.88649896608059042D-01 * X(2)))**2) - 6.04986259573375040D-01 * ((& 
        &X(1) * X(2)) / ((6.96880695582071996D-01 * X(1) + X(2)))**2) - X(4) + 9.20816767045656981D+0& 
        &0
   G(2) = (-4.11706819797520984D+03) * (1.00000000000000000D+00/(X(3) + 2.27437999999999988D+02)) + 8& 
        &.68134622480909002D-01 * ((X(1)) / (6.96880695582071996D-01 * X(1) + X(2))) + 3.618725167564& 
        &37002D-01 * ((X(1)) / (X(1) + 8.88649896608059042D-01 * X(2))) - 3.21577974600905980D-01 * (& 
        &(X(1) * X(2)) / ((X(1) + 8.88649896608059042D-01 * X(2)))**2) - 8.68134622480909002D-01 * ((& 
        &X(1) * X(2)) / ((6.96880695582071996D-01 * X(1) + X(2)))**2) - X(4) + 1.26599269316621008D+0& 
        &1
   G(3) = 2.75564173589155007D+03 * (1.00000000000000000D+00/(X(3) + 2.19161000000000001D+02)) - 3.61& 
        &872516756437002D-01 * ((X(2)) / (X(1) + 8.88649896608059042D-01 * X(2))) - 8.681346224809090& 
        &02D-01 * ((X(2)) / (6.96880695582071996D-01 * X(1) + X(2))) + 3.61872516756437002D-01 * ((X(& 
        &1) * X(2)) / ((X(1) + 8.88649896608059042D-01 * X(2)))**2) + 6.04986259573375040D-01 * ((X(1& 
        &) * X(2)) / ((6.96880695582071996D-01 * X(1) + X(2)))**2) - X(4) - 9.20816767045656981D+00
   G(4) = 4.11706819797520984D+03 * (1.00000000000000000D+00/(X(3) + 2.27437999999999988D+02)) - 8.68& 
        &134622480909002D-01 * ((X(1)) / (6.96880695582071996D-01 * X(1) + X(2))) - 3.618725167564370& 
        &02D-01 * ((X(1)) / (X(1) + 8.88649896608059042D-01 * X(2))) + 3.21577974600905980D-01 * ((X(& 
        &1) * X(2)) / ((X(1) + 8.88649896608059042D-01 * X(2)))**2) + 8.68134622480909002D-01 * ((X(1& 
        &) * X(2)) / ((6.96880695582071996D-01 * X(1) + X(2)))**2) - X(4) - 1.26599269316621008D+01
 
   G(5) = -X(1) + 1D-6
   G(6) =  X(1) - 1
   G(7) = -X(2) + 1D-6
   G(8) =  X(2) - 1
   G(9) = -X(3) + 60
   G(10)=  X(3) - 100
   G(11)= -X(4)
 
   CALL FINISH_CODELIST
 END PROGRAM ex14_2_5_source