! Program ex14_2_9 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex14_2_9
   USE CODELIST_CREATION
   IMPLICIT NONE
 
   INTEGER, PARAMETER:: NN=4
   INTEGER, 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_9_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = X(4)
 
   C(1) = X(1) + X(2) - 1.00000000000000000D+00
   G(1) = 8.85999999999999943D+00 * log(2.10550000000000015D+00 * X(1) + 4.04560000000000031D+00 * X(& 
        &2)) - 3.80398000000000002D+03 * (1.00000000000000000D+00/(X(3) + 2.31469999999999999D+02)) -& 
        & 6.58098227341595976D+00 * ((X(2)) / (1.52337552625369010D+00 * X(1) + 3.23600000000000021D+& 
        &00 * X(2))) - 1.32161976579468998D+00 * ((X(1)) / (1.17581829697036011D+00 * X(1) + 1.977405& 
        &76646344007D-01 * X(2))) - (1.29182244626313003D+00 * X(1) + 1.29182244626313003D+00 * X(2))& 
        & / (1.52337552625369010D+00 * X(1) + 3.23600000000000021D+00 * X(2)) - ((-9.2220899999999894& 
        &6D-01) * X(1) + 2.11055320000000002D+00 * X(2)) / (2.10550000000000015D+00 * X(1) + 4.045600& 
        &00000000031D+00 * X(2)) - 7.88799999999999990D+00 * log(1.97199999999999998D+00 * X(1) + 3.2& 
        &3600000000000021D+00 * X(2)) - 8.47999999999999976D-01 * log(1.52337552625369010D+00 * X(1) & 
        &+ 3.23600000000000021D+00 * X(2)) - 1.12400000000000011D+00 * log(1.17581829697036011D+00 * & 
        &X(1) + 1.97740576646344007D-01 * X(2)) - X(4) + 1.31111702786952993D+01
   G(2) = 1.51799999999999997D+01 * log(2.10550000000000015D+00 * X(1) + 4.04560000000000031D+00 * X(& 
        &2)) - 2.73558621973158006D+03 * (1.00000000000000000D+00/(X(3) + 2.26276000000000010D+02)) -& 
        & 1.39795200000000008D+01 * ((X(2)) / (1.52337552625369010D+00 * X(1) + 3.23600000000000021D+& 
        &00 * X(2))) - 2.22260408150491001D-01 * ((X(1)) / (1.17581829697036011D+00 * X(1) + 1.977405& 
        &76646344007D-01 * X(2))) - (2.74412799999999990D+00 * X(1) + 2.74412799999999990D+00 * X(2))& 
        & / (1.52337552625369010D+00 * X(1) + 3.23600000000000021D+00 * X(2)) - ((-1.7719727999999999& 
        &0D+00) * X(1) + 4.05530944000000027D+00 * X(2)) / (2.10550000000000015D+00 * X(1) + 4.045600& 
        &00000000031D+00 * X(2)) - 1.29440000000000008D+01 * log(1.97199999999999998D+00 * X(1) + 3.2& 
        &3600000000000021D+00 * X(2)) - 2.54400000000000004D+00 * log(1.52337552625369010D+00 * X(1) & 
        &+ 3.23600000000000021D+00 * X(2)) - X(4) + 1.12003192377536003D+01
   G(3) = 6.58098227341595976D+00 * ((X(2)) / (1.52337552625369010D+00 * X(1) + 3.23600000000000021D+& 
        &00 * X(2))) + 3.80398000000000002D+03 * (1.00000000000000000D+00/(X(3) + 2.31469999999999999& 
        &D+02)) + 1.32161976579468998D+00 * ((X(1)) / (1.17581829697036011D+00 * X(1) + 1.97740576646& 
        &344007D-01 * X(2))) + ((-9.22208999999998946D-01) * X(1) + 2.11055320000000002D+00 * X(2)) /& 
        & (2.10550000000000015D+00 * X(1) + 4.04560000000000031D+00 * X(2)) + (1.29182244626313003D+0& 
        &0 * X(1) + 1.29182244626313003D+00 * X(2)) / (1.52337552625369010D+00 * X(1) + 3.23600000000& 
        &000021D+00 * X(2)) + 7.88799999999999990D+00 * log(1.97199999999999998D+00 * X(1) + 3.236000& 
        &00000000021D+00 * X(2)) - 8.85999999999999943D+00 * log(2.10550000000000015D+00 * X(1) + 4.0& 
        &4560000000000031D+00 * X(2)) + 8.47999999999999976D-01 * log(1.52337552625369010D+00 * X(1) & 
        &+ 3.23600000000000021D+00 * X(2)) + 1.12400000000000011D+00 * log(1.17581829697036011D+00 * & 
        &X(1) + 1.97740576646344007D-01 * X(2)) - X(4) - 1.31111702786952993D+01
   G(4) = 2.73558621973158006D+03 * (1.00000000000000000D+00/(X(3) + 2.26276000000000010D+02)) + 1.39& 
        &795200000000008D+01 * ((X(2)) / (1.52337552625369010D+00 * X(1) + 3.23600000000000021D+00 * & 
        &X(2))) + 2.22260408150491001D-01 * ((X(1)) / (1.17581829697036011D+00 * X(1) + 1.97740576646& 
        &344007D-01 * X(2))) + (2.74412799999999990D+00 * X(1) + 2.74412799999999990D+00 * X(2)) / (1& 
        &.52337552625369010D+00 * X(1) + 3.23600000000000021D+00 * X(2)) + ((-1.77197279999999990D+00& 
        &) * X(1) + 4.05530944000000027D+00 * X(2)) / (2.10550000000000015D+00 * X(1) + 4.04560000000& 
        &000031D+00 * X(2)) + 1.29440000000000008D+01 * log(1.97199999999999998D+00 * X(1) + 3.236000& 
        &00000000021D+00 * X(2)) - 1.51799999999999997D+01 * log(2.10550000000000015D+00 * X(1) + 4.0& 
        &4560000000000031D+00 * X(2)) + 2.54400000000000004D+00 * log(1.52337552625369010D+00 * X(1) & 
        &+ 3.23600000000000021D+00 * X(2)) - X(4) - 1.12003192377536003D+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) + 40
   G(10)=  X(3) - 90
   G(11)= -X(4)
 
   CALL FINISH_CODELIST
 END PROGRAM ex14_2_9