! Program ex8_2_4 constructed from DAG ! written by dag2globsol Converter at 18/05/2004 11:58:58 ! University of Vienna !-------------------------------------------------------- PROGRAM ex8_2_4 USE CODELIST_CREATION PARAMETER (NN=55) PARAMETER (NSLACK = 0) TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X TYPE(CDLLHS), DIMENSION(1):: PHI TYPE(CDLINEQ), DIMENSION(81):: G OUTPUT_FILE_NAME= 'ex8_2_4.CDL' CALL INITIALIZE_CODELIST(X) PHI(1) = 3.00000000000000000D+00 * exp(5.99999999999999978D-01 * X(53)) + 3.00000000000000000D+00 & &* exp(5.99999999999999978D-01 * X(54)) + 3.00000000000000000D+00 * exp(5.99999999999999978D-& &01 * X(55)) - 1.54711033913715994D-06 * X(1) - 2.19040316990533991D-04 * X(2) - 2.6481311826& &7793980D-03 * X(3) - 2.19040316990533991D-04 * X(4) - 1.54711033913715994D-06 * X(5) - 2.190& &40316990532988D-04 * X(6) - 3.10117896917886000D-02 * X(7) - 3.74923157717237998D-01 * X(8) & &- 3.10117896917886000D-02 * X(9) - 2.19040316990532012D-04 * X(10) - 2.64813118267792982D-03& & * X(11) - 3.74923157717236999D-01 * X(12) - 4.53270757959140003D+00 * X(13) - 3.74923157717& &236999D-01 * X(14) - 2.64813118267790987D-03 * X(15) - 2.19040316990532012D-04 * X(16) - 3.1& &0117896917883988D-02 * X(17) - 3.74923157717236000D-01 * X(18) - 3.10117896917883988D-02 * X& &(19) - 2.19040316990531009D-04 * X(20) - 1.54711033913713008D-06 * X(21) - 2.190403169905290& &03D-04 * X(22) - 2.64813118267788992D-03 * X(23) - 2.19040316990529003D-04 * X(24) - 1.54711& &033913711992D-06 * X(25) - 1.96904952253820006D-06 * X(26) - 2.78778585260678984D-04 * X(27)& & - 3.37034877795374006D-03 * X(28) - 2.78778585260678984D-04 * X(29) - 1.96904952253820006D-& &06 * X(30) - 2.78778585260678008D-04 * X(31) - 3.94695505168217997D-02 * X(32) - 4.771749280& &03757992D-01 * X(33) - 3.94695505168217997D-02 * X(34) - 2.78778585260676978D-04 * X(35) - 3& &.37034877795373009D-03 * X(36) - 4.77174928003755994D-01 * X(37) - 5.76890055584359995D+00 *& & X(38) - 4.77174928003755994D-01 * X(39) - 3.37034877795371014D-03 * X(40) - 2.7877858526067& &6978D-04 * X(41) - 3.94695505168215985D-02 * X(42) - 4.77174928003754995D-01 * X(43) - 3.946& &95505168215985D-02 * X(44) - 2.78778585260676002D-04 * X(45) - 1.96904952253815982D-06 * X(4& &6) - 2.78778585260673996D-04 * X(47) - 3.37034877795368022D-03 * X(48) - 2.78778585260673996& &D-04 * X(49) - 1.96904952253815982D-06 * X(50) G(1) = -(-X(51) + X(53) - 6.93147180559944953D-01) G(2) = -(-X(51) + X(54) - 1.09861228866811000D+00) G(3) = -(-X(51) + X(55) - 1.38629436111988991D+00) G(4) = -(-X(52) + X(53) - 1.38629436111988991D+00) G(5) = -(-X(52) + X(54) - 1.79175946922805007D+00) G(6) = -(-X(52) + X(55) - 1.09861228866811000D+00) G(7) = exp((- X(51)) + 2.07944154167984019D+00) * X(17) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(42) - 8.00000000000000000D+00 G(8) = exp((- X(51)) + 2.07944154167984019D+00) * X(16) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(41) - 8.00000000000000000D+00 G(9) = exp((- X(51)) + 2.07944154167984019D+00) * X(25) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(50) - 8.00000000000000000D+00 G(10) = exp((- X(51)) + 2.07944154167984019D+00) * X(18) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(43) - 8.00000000000000000D+00 G(11) = exp((- X(51)) + 2.07944154167984019D+00) * X(19) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(44) - 8.00000000000000000D+00 G(12) = exp((- X(51)) + 2.07944154167984019D+00) * X(24) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(49) - 8.00000000000000000D+00 G(13) = exp((- X(51)) + 2.07944154167984019D+00) * X(20) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(45) - 8.00000000000000000D+00 G(14) = exp((- X(51)) + 2.07944154167984019D+00) * X(15) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(40) - 8.00000000000000000D+00 G(15) = exp((- X(51)) + 2.07944154167984019D+00) * X(21) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(46) - 8.00000000000000000D+00 G(16) = exp((- X(51)) + 2.07944154167984019D+00) * X(23) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(48) - 8.00000000000000000D+00 G(17) = exp((- X(51)) + 2.07944154167984019D+00) * X(22) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(47) - 8.00000000000000000D+00 G(18) = exp((- X(51)) + 2.07944154167984019D+00) * X(23) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(48) - 8.00000000000000000D+00 G(19) = exp((- X(51)) + 2.07944154167984019D+00) * X(24) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(49) - 8.00000000000000000D+00 G(20) = exp((- X(51)) + 2.07944154167984019D+00) * X(14) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(39) - 8.00000000000000000D+00 G(21) = exp((- X(51)) + 2.07944154167984019D+00) * X(1) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(26) - 8.00000000000000000D+00 G(22) = exp((- X(51)) + 2.07944154167984019D+00) * X(25) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(50) - 8.00000000000000000D+00 G(23) = exp((- X(51)) + 2.07944154167984019D+00) * X(22) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(47) - 8.00000000000000000D+00 G(24) = exp((- X(51)) + 2.99573227355398997D+00) * X(1) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(26) - 8.00000000000000000D+00 G(25) = exp((- X(51)) + 2.07944154167984019D+00) * X(13) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(38) - 8.00000000000000000D+00 G(26) = exp((- X(51)) + 2.99573227355398997D+00) * X(2) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(27) - 8.00000000000000000D+00 G(27) = exp((- X(51)) + 2.07944154167984019D+00) * X(21) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(46) - 8.00000000000000000D+00 G(28) = exp((- X(51)) + 2.99573227355398997D+00) * X(3) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(28) - 8.00000000000000000D+00 G(29) = exp((- X(51)) + 2.99573227355398997D+00) * X(4) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(29) - 8.00000000000000000D+00 G(30) = exp((- X(51)) + 2.07944154167984019D+00) * X(20) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(45) - 8.00000000000000000D+00 G(31) = exp((- X(51)) + 2.99573227355398997D+00) * X(5) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(30) - 8.00000000000000000D+00 G(32) = exp((- X(51)) + 2.07944154167984019D+00) * X(12) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(37) - 8.00000000000000000D+00 G(33) = exp((- X(51)) + 2.99573227355398997D+00) * X(6) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(31) - 8.00000000000000000D+00 G(34) = exp((- X(51)) + 2.07944154167984019D+00) * X(2) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(27) - 8.00000000000000000D+00 G(35) = exp((- X(51)) + 2.99573227355398997D+00) * X(7) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(32) - 8.00000000000000000D+00 G(36) = exp((- X(51)) + 2.99573227355398997D+00) * X(8) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(33) - 8.00000000000000000D+00 G(37) = exp((- X(51)) + 2.07944154167984019D+00) * X(19) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(44) - 8.00000000000000000D+00 G(38) = exp((- X(51)) + 2.07944154167984019D+00) * X(11) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(36) - 8.00000000000000000D+00 G(39) = exp((- X(51)) + 2.99573227355398997D+00) * X(9) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(34) - 8.00000000000000000D+00 G(40) = exp((- X(51)) + 2.99573227355398997D+00) * X(10) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(35) - 8.00000000000000000D+00 G(41) = exp((- X(51)) + 2.07944154167984019D+00) * X(18) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(43) - 8.00000000000000000D+00 G(42) = exp((- X(51)) + 2.99573227355398997D+00) * X(11) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(36) - 8.00000000000000000D+00 G(43) = exp((- X(51)) + 2.07944154167984019D+00) * X(10) + exp((- X(52)) + 2.77258872223977981D+00& &) * X(35) - 8.00000000000000000D+00 G(44) = exp((- X(51)) + 2.07944154167984019D+00) * X(17) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(42) - 8.00000000000000000D+00 G(45) = exp((- X(51)) + 2.99573227355398997D+00) * X(12) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(37) - 8.00000000000000000D+00 G(46) = exp((- X(51)) + 2.99573227355398997D+00) * X(13) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(38) - 8.00000000000000000D+00 G(47) = exp((- X(51)) + 2.99573227355398997D+00) * X(14) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(39) - 8.00000000000000000D+00 G(48) = exp((- X(51)) + 2.07944154167984019D+00) * X(16) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(41) - 8.00000000000000000D+00 G(49) = exp((- X(51)) + 2.99573227355398997D+00) * X(15) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(40) - 8.00000000000000000D+00 G(50) = exp((- X(51)) + 2.07944154167984019D+00) * X(9) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(34) - 8.00000000000000000D+00 G(51) = exp((- X(51)) + 2.07944154167984019D+00) * X(15) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(40) - 8.00000000000000000D+00 G(52) = exp((- X(51)) + 2.99573227355398997D+00) * X(16) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(41) - 8.00000000000000000D+00 G(53) = exp((- X(51)) + 2.99573227355398997D+00) * X(17) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(42) - 8.00000000000000000D+00 G(54) = exp((- X(51)) + 2.99573227355398997D+00) * X(18) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(43) - 8.00000000000000000D+00 G(55) = exp((- X(51)) + 2.07944154167984019D+00) * X(3) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(28) - 8.00000000000000000D+00 G(56) = exp((- X(51)) + 2.07944154167984019D+00) * X(8) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(33) - 8.00000000000000000D+00 G(57) = exp((- X(51)) + 2.99573227355398997D+00) * X(19) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(44) - 8.00000000000000000D+00 G(58) = exp((- X(51)) + 2.07944154167984019D+00) * X(14) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(39) - 8.00000000000000000D+00 G(59) = exp((- X(51)) + 2.99573227355398997D+00) * X(20) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(45) - 8.00000000000000000D+00 G(60) = exp((- X(51)) + 2.99573227355398997D+00) * X(21) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(46) - 8.00000000000000000D+00 G(61) = exp((- X(51)) + 2.07944154167984019D+00) * X(13) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(38) - 8.00000000000000000D+00 G(62) = exp((- X(51)) + 2.07944154167984019D+00) * X(7) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(32) - 8.00000000000000000D+00 G(63) = exp((- X(51)) + 2.99573227355398997D+00) * X(22) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(47) - 8.00000000000000000D+00 G(64) = exp((- X(51)) + 2.99573227355398997D+00) * X(23) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(48) - 8.00000000000000000D+00 G(65) = exp((- X(51)) + 2.07944154167984019D+00) * X(12) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(37) - 8.00000000000000000D+00 G(66) = exp((- X(51)) + 2.99573227355398997D+00) * X(24) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(49) - 8.00000000000000000D+00 G(67) = exp((- X(51)) + 2.99573227355398997D+00) * X(25) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(50) - 8.00000000000000000D+00 G(68) = exp((- X(51)) + 2.07944154167984019D+00) * X(6) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(31) - 8.00000000000000000D+00 G(69) = exp((- X(51)) + 2.07944154167984019D+00) * X(11) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(36) - 8.00000000000000000D+00 G(70) = exp((- X(51)) + 2.07944154167984019D+00) * X(1) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(26) - 8.00000000000000000D+00 G(71) = exp((- X(51)) + 2.07944154167984019D+00) * X(2) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(27) - 8.00000000000000000D+00 G(72) = exp((- X(51)) + 2.07944154167984019D+00) * X(3) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(28) - 8.00000000000000000D+00 G(73) = exp((- X(51)) + 2.07944154167984019D+00) * X(4) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(29) - 8.00000000000000000D+00 G(74) = exp((- X(51)) + 2.07944154167984019D+00) * X(10) + exp((- X(52)) + 1.38629436111988991D+00& &) * X(35) - 8.00000000000000000D+00 G(75) = exp((- X(51)) + 2.07944154167984019D+00) * X(5) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(30) - 8.00000000000000000D+00 G(76) = exp((- X(51)) + 2.07944154167984019D+00) * X(5) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(30) - 8.00000000000000000D+00 G(77) = exp((- X(51)) + 2.07944154167984019D+00) * X(6) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(31) - 8.00000000000000000D+00 G(78) = exp((- X(51)) + 2.07944154167984019D+00) * X(4) + exp((- X(52)) + 2.77258872223977981D+00)& & * X(29) - 8.00000000000000000D+00 G(79) = exp((- X(51)) + 2.07944154167984019D+00) * X(7) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(32) - 8.00000000000000000D+00 G(80) = exp((- X(51)) + 2.07944154167984019D+00) * X(8) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(33) - 8.00000000000000000D+00 G(81) = exp((- X(51)) + 2.07944154167984019D+00) * X(9) + exp((- X(52)) + 1.38629436111988991D+00)& & * X(34) - 8.00000000000000000D+00 CALL FINISH_CODELIST END PROGRAM ex8_2_4