! Program eX(1)4_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_b.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = X(4)
 
   C(1) = X(1) + X(2) - 1.00000000000000000D+00
 
   G(1) = 8.86D0*log(2.1055D0*X(1) + 4.0456D0*X(2)) &
         - 7.888D0*log(1.972D0*X(1) + 3.236D0*X(2)) &
          - (  2.1105532D0*X(2) - 0.922208999999999D0*X(1))/(2.1055D0*X(1) &
          + 4.0456D0*X(2)) - (0.848D0*log( &
            1.52337552625369D0*X(1) + 3.236D0*X(2)) &
            + 1.124D0*log(1.17581829697036D0*X(1) + &
             0.197740576646344D0*X(2))) - ((1.29182244626313D0*X(1) + &
              1.29182244626313D0*X(2))/( &
              1.52337552625369D0*X(1) + 3.236D0*X(2)) &
              + 3.29049113670798D0*X(2)/(1.52337552625369D0*X(1) &
     + 3.236D0*X(2)) + 0.347329619985842D0*X(2)/(1.52337552625369D0*X(1) &
      + 3.236D0*X(2)) + &
    1.32161976579469D0*X(1)/(1.17581829697036D0*X(1) &
     + 0.197740576646344D0*X(2))) - 3803.98D0 &
    /(231.47D0 + X(3)) - X(4)  + 13.1111702786953D0
    
   G(2) = 15.18D0*log(2.1055D0*X(1) + 4.0456D0*X(2)) &
      - 12.944D0*log(1.972D0*X(1) + 3.236D0*X(2)) - ( &
    4.05530944D0*X(2) - 1.7719728D0*X(1))/(2.1055D0*X(1) + 4.0456D0*X(2)) &
     - (0.848D0*log( &
    1.52337552625369D0*X(1) + 3.236D0*X(2)) &
    + 2.16D0*log(1.52337552625369D0*X(1) + 3.236D0*X(2)) &
     + 0.228D0*log(1.52337552625369D0*X(1) + 3.236D0*X(2))) &
     - ((2.744128D0*X(1) + 2.744128D0*X(2) &
    )/(1.52337552625369D0*X(1) + 3.236D0*X(2)) + 6.98976D0*X(2)/ &
    (1.52337552625369D0*X(1) + &
    3.236D0*X(2)) + 0.737808D0*X(2)/(1.52337552625369D0*X(1) &
    + 3.236D0*X(2)) +  &
    0.222260408150491D0*X(1)/(1.17581829697036D0*X(1) &
    + 0.197740576646344D0*X(2))) - &
    2735.58621973158D0/(226.276D0 + X(3)) - X(4)  + 11.2003192377536D0
    
   G(3) = 7.888D0*log(1.972D0*X(1) + 3.236D0*X(2)) &
     - 8.86D0*log(2.1055D0*X(1) + 4.0456D0*X(2)) + ( &
    2.1105532D0*X(2) - 0.922208999999999D0*X(1))/(2.1055D0*X(1) &
    + 4.0456D0*X(2)) + 0.848D0*log( &
    1.52337552625369D0*X(1) + 3.236D0*X(2)) &
    + 1.124D0*log(1.17581829697036D0*X(1) + &
    0.197740576646344D0*X(2)) + (1.29182244626313D0*X(1) &
    + 1.29182244626313D0*X(2))/( &
    1.52337552625369D0*X(1) + 3.236D0*X(2)) &
    + 3.29049113670798D0*X(2)/(1.52337552625369D0*X(1) &
     + 3.236D0*X(2)) + 0.347329619985842D0*X(2)/(1.52337552625369D0*X(1) &
     + 3.236D0*X(2)) + &
    1.32161976579469D0*X(1)/(1.17581829697036D0*X(1) &
    + 0.197740576646344D0*X(2)) + 3803.98D0/ &
    (231.47D0 + X(3)) - X(4)- 13.1111702786953D0
    
   G(4) = 12.944D0*log(1.972D0*X(1) + 3.236D0*X(2)) &
   - 15.18D0*log(2.1055D0*X(1) + 4.0456D0*X(2)) + ( &
    4.05530944D0*X(2) - 1.7719728D0*X(1))/(2.1055D0*X(1) &
    + 4.0456D0*X(2)) + 0.848D0*log( &
    1.52337552625369D0*X(1) + 3.236D0*X(2)) &
    + 2.16D0*log(1.52337552625369D0*X(1) + 3.236D0*X(2)) &
     + 0.228D0*log(1.52337552625369D0*X(1) + 3.236D0*X(2)) &
     + (2.744128D0*X(1) + 2.744128D0*X(2))/ &
    (1.52337552625369D0*X(1) + 3.236D0*X(2)) + 6.98976D0*X(2)/ &
     (1.52337552625369D0*X(1) + 3.236D0* &
    X(2)) + 0.737808D0*X(2)/(1.52337552625369D0*X(1) + 3.236D0*X(2)) &
    + 0.222260408150491D0*X(1)/( &
    1.17581829697036D0*X(1) + 0.197740576646344D0*X(2)) &
     + 2735.58621973158D0/(226.276D0 + &
    X(3)) - X(4) - 11.2003192377536D0
 
   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