! Program ex8_1_2 constructed from DAG
 ! written by dag2globsol Converter at 18/05/2004 11:58:58
 ! University of Vienna
 !--------------------------------------------------------
 
 PROGRAM ex8_1_2
   USE CODELIST_CREATION
 
   PARAMETER (NN=1)
   PARAMETER (NSLACK = 0)
   TYPE(CDLVAR), DIMENSION (NN+NSLACK):: X
   TYPE(CDLLHS), DIMENSION(1):: PHI
   TYPE(CDLINEQ), DIMENSION(2) :: G
   OUTPUT_FILE_NAME= 'ex8_1_2_f.CDL'
   CALL INITIALIZE_CODELIST(X)
 
   PHI(1) = 6.00800000000000000D+05 * (1.00000000000000000D+00/(((-4.21478541710780963D+00) * cos(X(1& 
        &)) + 1.08095222429745998D+01)) ** 6) - 1.07150000000000000D+03 * (1.00000000000000000D+00/((& 
        &(-4.21478541710780963D+00) * cos(X(1)) + 1.08095222429745998D+01)) ** 3) + 5.886000000000000& 
        &00D+05 * (1.00000000000000000D+00/(((-4.21478541710780963D+00) * cos(X(1) - 2.09439333333333& 
        &000D+00) + 1.08095222429745998D+01)) ** 6) - 1.07909999999999991D+03 * (1.00000000000000000D& 
        &+00/(((-4.21478541710780963D+00) * cos(X(1) - 2.09439333333333000D+00) + 1.08095222429745998& 
        &D+01)) ** 3) + 4.81300000000000000D+05 * (1.00000000000000000D+00/(((-4.21478541710780963D+0& 
        &0) * cos(X(1) + 2.09439333333333000D+00) + 1.08095222429745998D+01)) ** 6) - 1.0645999999999& 
        &9991D+03 * (1.00000000000000000D+00/(((-4.21478541710780963D+00) * cos(X(1) + 2.094393333333& 
        &33000D+00) + 1.08095222429745998D+01)) ** 3)
 
        G(1) = -X(1)
        G(2) =  X(1) - 6.28318D0
 
   CALL FINISH_CODELIST
 END PROGRAM ex8_1_2