! Program ex7_3_5 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex7_3_5_source
   USE CODELIST_CREATION
 
   PARAMETER (NN=13)
   PARAMETER (NSLACK = 0)
   TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X
   TYPE(CDLLHS), DIMENSION(1):: PHI
   TYPE(CDLINEQ), DIMENSION(6):: G
 
   TYPE(CDLEQ), DIMENSION(11):: C
 
   OUTPUT_FILE_NAME= 'ex7_3_5_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = X(11)
 
   G(1) = -X(1) - 1.44999999999999990D-01 * X(11) + 1.74999999999999989D-01
   G(2) = X(1) - 1.44999999999999990D-01 * X(11) - 1.74999999999999989D-01
   G(3) = -X(2) - 1.49999999999999994D-01 * X(11) + 2.00000000000000011D-01
   G(4) = X(2) - 1.49999999999999994D-01 * X(11) - 2.00000000000000011D-01
   C(1) = X(12) - X(4) * (X(3))**2 + X(6) * (X(3)) ** 4 - X(8) * (X(3)) ** 6 + X(10) * (X(3)) ** 8
   C(2) = (-3.63999999999999990D-01) * X(1) + X(13) - 5.28000000000000025D+00 * (X(1))**2
   C(3) = (-4.24999999999999989D-01) * X(1) + X(4) - 1.12999999999999989D+00 * (X(1))**2 - 5.71999999& 
        &999999975D+00 * X(2) * (X(1))**2
   C(4) = X(12) - 4.53000000000000025D+00 * (X(1))**2
   C(5) = (-9.11000000000000004D-02) * X(1) + X(5) - 6.92999999999999972D+00 * X(2) * (X(1))**2 - 4.2& 
        &1999999999999979D-03
   C(6) = X(6) - 1.68000000000000010D-01 * X(1) * X(2) - 1.44999999999999996D+00 * X(2) * (X(1))**2 -& 
        & 3.37999999999999976D-04
   C(7) = X(10) - 1.00000000000000005D-04 * (X(1))**2 * (X(2))**2
   C(8) = X(7) - 1.34999999999999998D-02 * X(1) * X(2) - 8.40000000000000035D-04 * X(2) * (X(1))**2 -& 
        & 1.56000000000000005D+00 * (X(1))**2 * (X(2))**2 - 1.34999999999999995D-05
   C(9) = X(9) - 1.07999999999999999D-05 * X(1) * X(2) - 5.00000000000000010D-03 * (X(1))**2 * (X(2))& 
        &**2
   C(10) = -X(13) + X(5) * (X(3))**2 - X(7) * (X(3)) ** 4 + X(9) * (X(3)) ** 6
   C(11) = X(8) - 5.38999999999999983D-04 * X(1) * X(2) - 1.67999999999999984D-05 * X(2) * (X(1))**2 & 
        &- 1.25000000000000000D-01 * (X(1))**2 * (X(2))**2 - 2.70000000000000009D-07

   G(5) = -X(3) 
   G(6) =  X(3) - 10
 
   CALL FINISH_CODELIST
 END PROGRAM ex7_3_5_source