! Program ex14_2_2 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex14_2_2_source
   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_2_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = X(4)
 
   C(1) = X(1) + X(2) - 1.00000000000000000D+00
   G(1) = 3.64331361767677981D+03 * (1.00000000000000000D+00/(X(3) + 2.39725999999999999D+02)) + 3.15& 
        &693799947296017D-01 * ((X(2)) / (3.15693799947296017D-01 * X(1) + X(2))) + X(1) / (X(1) + 1.& 
        &91987347447993006D-01 * X(2)) + log(X(1) + 1.91987347447993006D-01 * X(2)) - X(4) - 1.297380& 
        &26256517003D+01
   G(2) = 2.75564173589155007D+03 * (1.00000000000000000D+00/(X(3) + 2.19161000000000001D+02)) + 1.91& 
        &987347447993006D-01 * ((X(1)) / (X(1) + 1.91987347447993006D-01 * X(2))) + X(2) / (3.1569379& 
        &9947296017D-01 * X(1) + X(2)) + log(3.15693799947296017D-01 * X(1) + X(2)) - X(4) - 1.020816& 
        &76704566000D+01
   G(3) = (-3.64331361767677981D+03) * (1.00000000000000000D+00/(X(3) + 2.39725999999999999D+02)) - 3& 
        &.15693799947296017D-01 * ((X(2)) / (3.15693799947296017D-01 * X(1) + X(2))) - X(1) / (X(1) +& 
        & 1.91987347447993006D-01 * X(2)) - log(X(1) + 1.91987347447993006D-01 * X(2)) - X(4) + 1.297& 
        &38026256517003D+01
   G(4) = (-2.75564173589155007D+03) * (1.00000000000000000D+00/(X(3) + 2.19161000000000001D+02)) - 1& 
        &.91987347447993006D-01 * ((X(1)) / (X(1) + 1.91987347447993006D-01 * X(2))) - X(2) / (3.1569& 
        &3799947296017D-01 * X(1) + X(2)) - log(3.15693799947296017D-01 * X(1) + X(2)) - X(4) + 1.020& 
        &81676704566000D+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) + 20
   G(10) = X(3) - 80
   G(11) = -X(4)
 
 
   CALL FINISH_CODELIST
 END PROGRAM ex14_2_2_source