! Program ex9_2_4 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex9_2_4_source
   USE CODELIST_CREATION
 
   PARAMETER (NN=8)
   PARAMETER (NSLACK = 0)
   TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X
   TYPE(CDLLHS), DIMENSION(1):: PHI
   TYPE(CDLEQ), DIMENSION(7):: C
   type(CDLINEQ), DIMENSION(11) :: G
 
   OUTPUT_FILE_NAME= 'ex9_2_4_source.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = (5.00000000000000000D-01 * X(5) - 1.00000000000000000D+00) * (X(5) - 2.00000000000000000D& 
        &+00) + (5.00000000000000000D-01 * X(6) - 1.00000000000000000D+00) * (X(6) - 2.00000000000000& 
        &000D+00)
 
   C(1) = X(5) + X(6) - X(8)
   C(2) = X(1) - X(5)
   C(3) = X(2) - X(6)
   C(4) = -X(3) + X(5) + X(7)
   C(5) = -X(4) + X(7) + 1.00000000000000000D+00
   C(6) = X(1) * X(3)
   C(7) = X(2) * X(4)

   G(1) = -X(8)
   G(2) = -X(5)
   G(3) = -X(6)
   G(4) = -X(1)
   G(5) =  X(1) - 200
   G(6) = -X(2)
   G(7) =  X(2) - 200
   G(8) = -X(3)
   G(9) =  X(3) - 200 
   G(10)= -X(4)
   G(11)=  X(4) - 200
 
   CALL FINISH_CODELIST
 END PROGRAM ex9_2_4_source