! Program ex14_2_6 constructed from DAG ! written by dag2globsol Converter at 18/05/2004 11:58:58 ! University of Vienna !-------------------------------------------------------- PROGRAM ex14_2_6_source USE CODELIST_CREATION PARAMETER (NN=5) PARAMETER (NSLACK = 0) TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X TYPE(CDLLHS), DIMENSION(1):: PHI TYPE(CDLINEQ), DIMENSION(6+9):: G TYPE(CDLEQ), DIMENSION(1):: C OUTPUT_FILE_NAME= 'ex14_2_6_source.CDL' CALL INITIALIZE_CODELIST(X) PHI(1) = X(5) C(1) = X(1) + X(2) + X(3) - 1.00000000000000000D+00 G(1) = (-3.80398000000000002D+03) * (1.00000000000000000D+00/(X(4) + 2.31469999999999999D+02)) - 8& &.46400000000000041D-01 * ((X(1)) / (9.20000000000000040D-01 * X(1) + 1.20222883700912997D-01& & * X(2) + 3.18966732759060012D-01 * X(3))) - 3.25092606047410015D+00 * ((X(2)) / (1.35455252& &519754010D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3))) - 1& &.11673022524773002D+00 * ((X(3)) / (1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03& & * X(2) + X(3))) - ((-8.65100000000000979D-01) * X(1) + 3.71360000000000001D+00 * X(2) - 4.8& &9520000000000000D+00 * X(3)) / (2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X& &(2) + 9.20000000000000040D-01 * X(3)) + 8.84999999999999964D+00 * log(2.10999999999999988D+0& &0 * X(1) + 3.18999999999999995D+00 * X(2) + 9.20000000000000040D-01 * X(3)) - 9.849999999999& &99964D+00 * log(1.96999999999999997D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 1.39999999& &999999991D+00 * X(3)) - 9.20000000000000040D-01 * log(9.20000000000000040D-01 * X(1) + 1.202& &22883700912997D-01 * X(2) + 3.18966732759060012D-01 * X(3)) + 9.20000000000000040D-01 * log(& &9.20000000000000040D-01 * X(1) + 2.39999999999999991D+00 * X(2) + X(3)) - X(5) + 1.285902362& &75374998D+01 G(2) = (-2.78851000000000022D+03) * (1.00000000000000000D+00/(X(4) + 2.20789999999999992D+02)) - 1& &.10605053004839998D-01 * ((X(1)) / (9.20000000000000040D-01 * X(1) + 1.20222883700912997D-01& & * X(2) + 3.18966732759060012D-01 * X(3))) - 5.75999999999999979D+00 * ((X(2)) / (1.35455252& &519754010D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3))) - 4& &.99065620537111985D-03 * ((X(3)) / (1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03& & * X(2) + X(3))) - ((-1.30790000000000006D+00) * X(1) + 5.61439999999999984D+00 * X(2) - 7.4& &0080000000000027D+00 * X(3)) / (2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X& &(2) + 9.20000000000000040D-01 * X(3)) + 1.10000000000000000D+01 * log(2.10999999999999988D+0& &0 * X(1) + 3.18999999999999995D+00 * X(2) + 9.20000000000000040D-01 * X(3)) - 1.200000000000& &00000D+01 * log(1.96999999999999997D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 1.39999999& &999999991D+00 * X(3)) - 2.39999999999999991D+00 * log(1.35455252519754010D+00 * X(1) + 2.399& &99999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3)) + 2.39999999999999991D+00 * log(& &9.20000000000000040D-01 * X(1) + 2.39999999999999991D+00 * X(2) + X(3)) - X(5) + 1.117287633& &02021008D+01 G(3) = (-3.81644000000000005D+03) * (1.00000000000000000D+00/(X(4) + 2.27020000000000010D+02)) - 2& &.93449394138335984D-01 * ((X(1)) / (9.20000000000000040D-01 * X(1) + 1.20222883700912997D-01& & * X(2) + 3.18966732759060012D-01 * X(3))) - 1.69874317415203002D+00 * ((X(2)) / (1.35455252& &519754010D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3))) - X& &(3) / (1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03 * X(2) + X(3)) - ((-3.771999& &99999999980D-01) * X(1) + 1.61919999999999997D+00 * X(2) - 2.13439999999999985D+00 * X(3)) /& & (2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2) + 9.20000000000000040D-01 & &* X(3)) - log(1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03 * X(2) + X(3)) + log(& &9.20000000000000040D-01 * X(1) + 2.39999999999999991D+00 * X(2) + X(3)) + 6.0000000000000000& &0D+00 * log(2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2) + 9.200000000000& &00040D-01 * X(3)) - 7.00000000000000000D+00 * log(1.96999999999999997D+00 * X(1) + 2.3999999& &9999999991D+00 * X(2) + 1.39999999999999991D+00 * X(3)) - X(5) + 1.32058768767023995D+01 G(4) = 3.80398000000000002D+03 * (1.00000000000000000D+00/(X(4) + 2.31469999999999999D+02)) + 8.46& &400000000000041D-01 * ((X(1)) / (9.20000000000000040D-01 * X(1) + 1.20222883700912997D-01 * & &X(2) + 3.18966732759060012D-01 * X(3))) + 3.25092606047410015D+00 * ((X(2)) / (1.35455252519& &754010D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3))) + 1.11& &673022524773002D+00 * ((X(3)) / (1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03 * & &X(2) + X(3))) + ((-8.65100000000000979D-01) * X(1) + 3.71360000000000001D+00 * X(2) - 4.8952& &0000000000000D+00 * X(3)) / (2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2)& & + 9.20000000000000040D-01 * X(3)) + 9.84999999999999964D+00 * log(1.96999999999999997D+00 *& & X(1) + 2.39999999999999991D+00 * X(2) + 1.39999999999999991D+00 * X(3)) - 8.849999999999999& &64D+00 * log(2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2) + 9.20000000000& &000040D-01 * X(3)) + 9.20000000000000040D-01 * log(9.20000000000000040D-01 * X(1) + 1.202228& &83700912997D-01 * X(2) + 3.18966732759060012D-01 * X(3)) - 9.20000000000000040D-01 * log(9.2& &0000000000000040D-01 * X(1) + 2.39999999999999991D+00 * X(2) + X(3)) - X(5) - 1.285902362753& &74998D+01 G(5) = 2.78851000000000022D+03 * (1.00000000000000000D+00/(X(4) + 2.20789999999999992D+02)) + 1.10& &605053004839998D-01 * ((X(1)) / (9.20000000000000040D-01 * X(1) + 1.20222883700912997D-01 * & &X(2) + 3.18966732759060012D-01 * X(3))) + 5.75999999999999979D+00 * ((X(2)) / (1.35455252519& &754010D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3))) + 4.99& &065620537111985D-03 * ((X(3)) / (1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03 * & &X(2) + X(3))) + ((-1.30790000000000006D+00) * X(1) + 5.61439999999999984D+00 * X(2) - 7.4008& &0000000000027D+00 * X(3)) / (2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2)& & + 9.20000000000000040D-01 * X(3)) + 1.20000000000000000D+01 * log(1.96999999999999997D+00 *& & X(1) + 2.39999999999999991D+00 * X(2) + 1.39999999999999991D+00 * X(3)) - 1.100000000000000& &00D+01 * log(2.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2) + 9.20000000000& &000040D-01 * X(3)) + 2.39999999999999991D+00 * log(1.35455252519754010D+00 * X(1) + 2.399999& &99999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3)) - 2.39999999999999991D+00 * log(9.2& &0000000000000040D-01 * X(1) + 2.39999999999999991D+00 * X(2) + X(3)) - X(5) - 1.117287633020& &21008D+01 G(6) = 3.81644000000000005D+03 * (1.00000000000000000D+00/(X(4) + 2.27020000000000010D+02)) + 2.93& &449394138335984D-01 * ((X(1)) / (9.20000000000000040D-01 * X(1) + 1.20222883700912997D-01 * & &X(2) + 3.18966732759060012D-01 * X(3))) + 1.69874317415203002D+00 * ((X(2)) / (1.35455252519& &754010D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 7.07809655896680989D-01 * X(3))) + X(3)& & / (1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03 * X(2) + X(3)) + ((-3.771999999& &99999980D-01) * X(1) + 1.61919999999999997D+00 * X(2) - 2.13439999999999985D+00 * X(3)) / (2& &.10999999999999988D+00 * X(1) + 3.18999999999999995D+00 * X(2) + 9.20000000000000040D-01 * X& &(3)) + log(1.11673022524774002D+00 * X(1) + 4.99065620537111031D-03 * X(2) + X(3)) - log(9.2& &0000000000000040D-01 * X(1) + 2.39999999999999991D+00 * X(2) + X(3)) + 7.00000000000000000D+& &00 * log(1.96999999999999997D+00 * X(1) + 2.39999999999999991D+00 * X(2) + 1.399999999999999& &91D+00 * X(3)) - 6.00000000000000000D+00 * log(2.10999999999999988D+00 * X(1) + 3.1899999999& &9999995D+00 * X(2) + 9.20000000000000040D-01 * X(3)) - X(5) - 1.32058768767023995D+01 G(7) = -X(1) + 1D-6 G(8) = X(1) - 1 G(9) = -X(2) + 1D-6 G(10)= X(2) - 1 G(11)= -X(3) + 1D-6 G(12)= X(3) - 1 G(13)= -X(4) + 40 G(14)= X(4) - 90 G(15)= -X(5) CALL FINISH_CODELIST END PROGRAM ex14_2_6_source