! Program ex14_2_4 constructed from DAG ! written by dag2globsol Converter at 18/05/2004 11:58:58 ! University of Vienna !-------------------------------------------------------- PROGRAM ex14_2_4_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_4_source.CDL' CALL INITIALIZE_CODELIST(X) PHI(1) = X(5) C(1) = X(1) + X(2) + X(3) - 1.00000000000000000D+00 G(1) = (-3.66770490156686992D+03) * (1.00000000000000000D+00/(X(4) + 2.26183999999999997D+02)) + 9& &.10522583583457945D-02 * ((X(2)) / (9.72203312166101008D-01 * X(1) + X(2) + 3.94821041898112& &013D-01 * X(3))) - 2.73994101407967983D-01 * ((X(3)) / (1.07810138009608991D+00 * X(1) + 7.0& &7289137797622036D-01 * X(2) + X(3))) + (5.49337520233386001D-01 * X(2) + 1.12638967883190011& &D+00 * X(3)) / (X(1) + 8.16722116903399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)) - (X& &(1) * (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+00 * X(3))) / ((X(1) + 8.167221& &16903399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)))**2 - 9.72203312166101008D-01 * ((X& &(2) * (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+00 * X(3))) / ((9.7220331216610& &1008D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)))**2) - 1.07810138009608991D+00 * ((& &X(3) * ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031D-01 * X(2))) / ((1.078101380& &09608991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)))**2) - X(5) + 1.204571235810590& &05D+01 G(2) = (-2.90434268119710987D+03) * (1.00000000000000000D+00/(X(4) + 2.21968999999999994D+02)) + 5& &.49337520233386001D-01 * ((X(1)) / (X(1) + 8.16722116903399020D-01 * X(2) + 5.38540530229216& &996D-01 * X(3))) + 6.92718766203089031D-01 * ((X(3)) / (1.07810138009608991D+00 * X(1) + 7.0& &7289137797622036D-01 * X(2) + X(3))) + (9.10522583583457945D-02 * X(1) + 1.03765878646318011& &D+00 * X(3)) / (9.72203312166101008D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)) - (X& &(2) * (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+00 * X(3))) / ((9.7220331216610& &1008D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)))**2 - 8.16722116903399020D-01 * ((X& &(1) * (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+00 * X(3))) / ((X(1) + 8.167221& &16903399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)))**2) - 7.07289137797622036D-01 * ((& &X(3) * ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031D-01 * X(2))) / ((1.078101380& &09608991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)))**2) - X(5) + 9.631129526188649& &59D+00 G(3) = (-3.98492283948828981D+03) * (1.00000000000000000D+00/(X(4) + 2.33425999999999988D+02)) + 1& &.12638967883190011D+00 * ((X(1)) / (X(1) + 8.16722116903399020D-01 * X(2) + 5.38540530229216& &996D-01 * X(3))) + 1.03765878646318011D+00 * ((X(2)) / (9.72203312166101008D-01 * X(1) + X(2& &) + 3.94821041898112013D-01 * X(3))) + ((-2.73994101407967983D-01) * X(1) + 6.92718766203089& &031D-01 * X(2)) / (1.07810138009608991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)) -& & (X(3) * ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031D-01 * X(2))) / ((1.0781013& &8009608991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)))**2 - 5.38540530229216996D-01& & * ((X(1) * (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+00 * X(3))) / ((X(1) + 8.& &16722116903399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)))**2) - 3.94821041898112013D-0& &1 * ((X(2) * (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+00 * X(3))) / ((9.722033& &12166101008D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)))**2) - X(5) + 1.195155965365& &33995D+01 G(4) = 3.66770490156686992D+03 * (1.00000000000000000D+00/(X(4) + 2.26183999999999997D+02)) - 9.10& &522583583457945D-02 * ((X(2)) / (9.72203312166101008D-01 * X(1) + X(2) + 3.94821041898112013& &D-01 * X(3))) + 2.73994101407967983D-01 * ((X(3)) / (1.07810138009608991D+00 * X(1) + 7.0728& &9137797622036D-01 * X(2) + X(3))) - (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+0& &0 * X(3)) / (X(1) + 8.16722116903399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)) + (X(1)& & * (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+00 * X(3))) / ((X(1) + 8.167221169& &03399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)))**2 + 9.72203312166101008D-01 * ((X(2)& & * (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+00 * X(3))) / ((9.7220331216610100& &8D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)))**2) + 1.07810138009608991D+00 * ((X(3& &) * ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031D-01 * X(2))) / ((1.078101380096& &08991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)))**2) - X(5) - 1.20457123581059005D& &+01 G(5) = 2.90434268119710987D+03 * (1.00000000000000000D+00/(X(4) + 2.21968999999999994D+02)) - 5.49& &337520233386001D-01 * ((X(1)) / (X(1) + 8.16722116903399020D-01 * X(2) + 5.38540530229216996& &D-01 * X(3))) - 6.92718766203089031D-01 * ((X(3)) / (1.07810138009608991D+00 * X(1) + 7.0728& &9137797622036D-01 * X(2) + X(3))) - (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+0& &0 * X(3)) / (9.72203312166101008D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)) + (X(2)& & * (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+00 * X(3))) / ((9.7220331216610100& &8D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)))**2 + 8.16722116903399020D-01 * ((X(1)& & * (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+00 * X(3))) / ((X(1) + 8.167221169& &03399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)))**2) + 7.07289137797622036D-01 * ((X(3& &) * ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031D-01 * X(2))) / ((1.078101380096& &08991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)))**2) - X(5) - 9.63112952618864959D& &+00 G(6) = 3.98492283948828981D+03 * (1.00000000000000000D+00/(X(4) + 2.33425999999999988D+02)) - 1.12& &638967883190011D+00 * ((X(1)) / (X(1) + 8.16722116903399020D-01 * X(2) + 5.38540530229216996& &D-01 * X(3))) - 1.03765878646318011D+00 * ((X(2)) / (9.72203312166101008D-01 * X(1) + X(2) +& & 3.94821041898112013D-01 * X(3))) - ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031& &D-01 * X(2)) / (1.07810138009608991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)) + (X& &(3) * ((-2.73994101407967983D-01) * X(1) + 6.92718766203089031D-01 * X(2))) / ((1.0781013800& &9608991D+00 * X(1) + 7.07289137797622036D-01 * X(2) + X(3)))**2 + 3.94821041898112013D-01 * & &((X(2) * (9.10522583583457945D-02 * X(1) + 1.03765878646318011D+00 * X(3))) / ((9.7220331216& &6101008D-01 * X(1) + X(2) + 3.94821041898112013D-01 * X(3)))**2) + 5.38540530229216996D-01 *& & ((X(1) * (5.49337520233386001D-01 * X(2) + 1.12638967883190011D+00 * X(3))) / ((X(1) + 8.16& &722116903399020D-01 * X(2) + 5.38540530229216996D-01 * X(3)))**2) - X(5) - 1.195155965365339& &95D+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_4_source