Download tube_GFMP.dgibi

Back to the list

* fichier : tube_GFMP.dgibi
***********************************************************************
*****      SHOCK TUBE                                             *****
*****      GFMP                                                   *****
*****      Liquid-water test case                                 *****
*****                                                             *****
*****      A. BECCANTINI, SFME/LTMF, 05.11.10                     *****
*****      See Luo, Baum, Lohner. On the computation of           *****
*****      multi-material flows using ALE formulation.             *****
*****      JCP 194 (2004) 304-328, Secton 5.4                     *****
*****                                                             *****
***********************************************************************
*
* The file is divided into 6 parts
*
* 0) exact solution
* 1) mesh
* 2) initial conditions and gas properties
* 3) parameters used in the computation
* 4) the main part (where the computation is realised)
* 5) the post-treatment
*
 'OPTION' 'ECHO' 0 'DIME' 2
         'TRAC' 'X' ;
 GRAPH = VRAI ;
 GRAPH = FAUX ;
* Upwind scheme
*
 METO = 'GODUNOV' ;
*
******************
**** PRIMCONS ****
******************
 'DEBPROC' PRIMCONS ;
 'ARGUMENT' TABG*'TABLE' 
            PHI2*'CHPOINT' RN1*'CHPOINT'
            VN1*'CHPOINT ' PN1*'CHPOINT'
            ALN/'CHPOINT ' ;
*
* Computation of gamma, pinf and of the conservative
* variables.
*
 NN = 'DIME' (TABG . 'ESPEULE') ;
 CHUN = (RN1 * 0.0) '+' 1.0 ;
 ALTOT = 'COPIER' CHUN ;
 RNUM = 0.0 ;
 RDEN = 0.0 ;
'REPETER' BL1 (NN '+' 1) ;
   'SI' (&BL1 'EGA' (NN '+' 1)) ;
      ALPHA = ALTOT ;
   'SINON' ;
      NOMESP = 'EXTRAIRE'  (TABG . 'ESPEULE') &BL1 ;
      ALPHA = 'EXCO' NOMESP ALN 'SCAL' ;
      ALTOT = ALTOT '-'ALPHA ;
   'FINSI' ;
   GAM1 = 'EXTRAIRE' (TABG . 'MGAM') &BL1 ;
   GAM2 = 'EXTRAIRE' (TABG . 'PGAM') &BL1 ;
   PINF1 = 'EXTRAIRE' (TABG . 'MPIN') &BL1 ;
   PINF2 = 'EXTRAIRE' (TABG . 'PPIN') &BL1 ;
   CHGAM = (('MASQUE' PHI2 'INFE' 0.0) * GAM1) '+'
         (('MASQUE' PHI2 'EGSUPE' 0.0) * gam2) ;
   CHPINF = (('MASQUE' PHI2  'INFE' 0.0) * pinf1) '+'
         (('MASQUE' PHI2 'EGSUPE' 0.0) * pinf2) ;
   RDEN = RDEN '+' (ALPHA '/' (CHGAM '-' 1.0D0)) ;
   RNUM = RNUM '+' ((ALPHA * CHGAM * CHPINF)
      '/' (CHGAM '-' 1.0D0)) ;
 'FIN' BL1 ;
 CHPINF = RNUM '/' RDEN ;
 CHGAM = 'INVERSE' RDEN ;
 CHGAM = CHGAM '+' CHUN ;
 CHPINF = CHPINF '/' CHGAM ;
*       
 GN1 = VN1 * RN1 ;
 RPHN1 = RN1 * PHI2 ;
*
 ECIN1 = 'PSCAL' VN1  VN1 ('MOTS' 'UX' 'UY') ('MOTS' 'UX' 'UY') ;
 ECIN1 = 0.5D0 * ECIN1 ;
 REN1 = (PN1 '+' (CHGAM * CHPINF)) '/' (CHGAM '-' 1.0D0) ;
 REN1 = REN1 '+' (ECIN1 * RN1) ;
* 
 'RESPRO' CHGAM  CHPINF RPHN1 GN1  REN1 ;
 'FINPROC' ;

* 
****************************************************************
****************************************************************
*** EXACT SOLUTION.  About 5000 lines.                 *********
*** To find the end, search for "END EXACT SOLUTION"   *********
****************************************************************
****************************************************************
*
 'DEBPROC' EXSO ;
 'ARGUMENT' LXST*LISTREEL ;
*
 LEXACT = (PROG 
 );
 LEXACT = LEXACT ET ( PROG 
   -0.291863E+04    0.100000E+02    0.000000E+00
    0.100000E+06    0.250000E+05
   -0.611138E+03    0.100000E+02    0.000000E+00
    0.100000E+06    0.250000E+05
   -0.611105E+03    0.505292E+02   -0.490177E+03
    0.309558E+07    0.153158E+06
   -0.490194E+03    0.505292E+02   -0.490177E+03
    0.309558E+07    0.153158E+06
 );
 LEXACT = LEXACT ET ( PROG 
   -0.490161E+03    0.801119E+03   -0.490177E+03
    0.309558E+07    0.970369E+06
    0.132980E+04    0.801119E+03   -0.490177E+03
    0.309558E+07    0.970369E+06
    0.133074E+04    0.801269E+03   -0.489836E+03
    0.359403E+07    0.970370E+06
    0.133167E+04    0.801419E+03   -0.489494E+03
    0.409248E+07    0.970371E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.133259E+04    0.801570E+03   -0.489153E+03
    0.459094E+07    0.970372E+06
    0.133351E+04    0.801720E+03   -0.488811E+03
    0.508939E+07    0.970373E+06
    0.133443E+04    0.801870E+03   -0.488470E+03
    0.558784E+07    0.970374E+06
    0.133535E+04    0.802020E+03   -0.488129E+03
    0.608629E+07    0.970376E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.133627E+04    0.802170E+03   -0.487789E+03
    0.658474E+07    0.970377E+06
    0.133719E+04    0.802319E+03   -0.487448E+03
    0.708320E+07    0.970379E+06
    0.133811E+04    0.802469E+03   -0.487108E+03
    0.758165E+07    0.970381E+06
    0.133903E+04    0.802619E+03   -0.486767E+03
    0.808010E+07    0.970382E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.133995E+04    0.802768E+03   -0.486427E+03
    0.857855E+07    0.970384E+06
    0.134086E+04    0.802918E+03   -0.486087E+03
    0.907701E+07    0.970386E+06
    0.134178E+04    0.803067E+03   -0.485748E+03
    0.957546E+07    0.970389E+06
    0.134270E+04    0.803216E+03   -0.485408E+03
    0.100739E+08    0.970391E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.134361E+04    0.803365E+03   -0.485069E+03
    0.105724E+08    0.970393E+06
    0.134453E+04    0.803514E+03   -0.484730E+03
    0.110708E+08    0.970396E+06
    0.134545E+04    0.803663E+03   -0.484391E+03
    0.115693E+08    0.970398E+06
    0.134636E+04    0.803812E+03   -0.484052E+03
    0.120677E+08    0.970401E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.134727E+04    0.803961E+03   -0.483713E+03
    0.125662E+08    0.970404E+06
    0.134819E+04    0.804109E+03   -0.483374E+03
    0.130646E+08    0.970407E+06
    0.134910E+04    0.804258E+03   -0.483036E+03
    0.135631E+08    0.970410E+06
    0.135002E+04    0.804406E+03   -0.482698E+03
    0.140615E+08    0.970413E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.135093E+04    0.804555E+03   -0.482360E+03
    0.145600E+08    0.970416E+06
    0.135184E+04    0.804703E+03   -0.482022E+03
    0.150584E+08    0.970420E+06
    0.135275E+04    0.804851E+03   -0.481684E+03
    0.155569E+08    0.970423E+06
    0.135366E+04    0.804999E+03   -0.481347E+03
    0.160553E+08    0.970427E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.135457E+04    0.805147E+03   -0.481009E+03
    0.165538E+08    0.970431E+06
    0.135548E+04    0.805295E+03   -0.480672E+03
    0.170522E+08    0.970434E+06
    0.135639E+04    0.805443E+03   -0.480335E+03
    0.175507E+08    0.970438E+06
    0.135730E+04    0.805590E+03   -0.479998E+03
    0.180491E+08    0.970442E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.135821E+04    0.805738E+03   -0.479662E+03
    0.185476E+08    0.970447E+06
    0.135912E+04    0.805886E+03   -0.479325E+03
    0.190461E+08    0.970451E+06
    0.136003E+04    0.806033E+03   -0.478989E+03
    0.195445E+08    0.970455E+06
    0.136094E+04    0.806180E+03   -0.478653E+03
    0.200430E+08    0.970460E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.136184E+04    0.806328E+03   -0.478317E+03
    0.205414E+08    0.970464E+06
    0.136275E+04    0.806475E+03   -0.477981E+03
    0.210399E+08    0.970469E+06
    0.136366E+04    0.806622E+03   -0.477645E+03
    0.215383E+08    0.970474E+06
    0.136456E+04    0.806769E+03   -0.477310E+03
    0.220368E+08    0.970479E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.136547E+04    0.806916E+03   -0.476974E+03
    0.225352E+08    0.970484E+06
    0.136637E+04    0.807062E+03   -0.476639E+03
    0.230337E+08    0.970489E+06
    0.136728E+04    0.807209E+03   -0.476304E+03
    0.235321E+08    0.970494E+06
    0.136818E+04    0.807356E+03   -0.475969E+03
    0.240306E+08    0.970499E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.136909E+04    0.807502E+03   -0.475634E+03
    0.245290E+08    0.970505E+06
    0.136999E+04    0.807649E+03   -0.475300E+03
    0.250275E+08    0.970511E+06
    0.137089E+04    0.807795E+03   -0.474966E+03
    0.255259E+08    0.970516E+06
    0.137180E+04    0.807941E+03   -0.474631E+03
    0.260244E+08    0.970522E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.137270E+04    0.808088E+03   -0.474297E+03
    0.265228E+08    0.970528E+06
    0.137360E+04    0.808234E+03   -0.473963E+03
    0.270213E+08    0.970534E+06
    0.137450E+04    0.808380E+03   -0.473630E+03
    0.275197E+08    0.970540E+06
    0.137540E+04    0.808525E+03   -0.473296E+03
    0.280182E+08    0.970546E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.137630E+04    0.808671E+03   -0.472963E+03
    0.285166E+08    0.970552E+06
    0.137720E+04    0.808817E+03   -0.472629E+03
    0.290151E+08    0.970559E+06
    0.137810E+04    0.808963E+03   -0.472296E+03
    0.295135E+08    0.970565E+06
    0.137900E+04    0.809108E+03   -0.471964E+03
    0.300120E+08    0.970572E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.137990E+04    0.809254E+03   -0.471631E+03
    0.305105E+08    0.970579E+06
    0.138079E+04    0.809399E+03   -0.471298E+03
    0.310089E+08    0.970586E+06
    0.138169E+04    0.809544E+03   -0.470966E+03
    0.315074E+08    0.970592E+06
    0.138259E+04    0.809689E+03   -0.470633E+03
    0.320058E+08    0.970599E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.138349E+04    0.809834E+03   -0.470301E+03
    0.325043E+08    0.970607E+06
    0.138438E+04    0.809979E+03   -0.469969E+03
    0.330027E+08    0.970614E+06
    0.138528E+04    0.810124E+03   -0.469638E+03
    0.335012E+08    0.970621E+06
    0.138617E+04    0.810269E+03   -0.469306E+03
    0.339996E+08    0.970629E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.138707E+04    0.810414E+03   -0.468975E+03
    0.344981E+08    0.970636E+06
    0.138796E+04    0.810559E+03   -0.468643E+03
    0.349965E+08    0.970644E+06
    0.138886E+04    0.810703E+03   -0.468312E+03
    0.354950E+08    0.970652E+06
    0.138975E+04    0.810848E+03   -0.467981E+03
    0.359934E+08    0.970659E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.139064E+04    0.810992E+03   -0.467650E+03
    0.364919E+08    0.970667E+06
    0.139154E+04    0.811136E+03   -0.467320E+03
    0.369903E+08    0.970675E+06
    0.139243E+04    0.811280E+03   -0.466989E+03
    0.374888E+08    0.970684E+06
    0.139332E+04    0.811425E+03   -0.466659E+03
    0.379872E+08    0.970692E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.139421E+04    0.811569E+03   -0.466329E+03
    0.384857E+08    0.970700E+06
    0.139510E+04    0.811713E+03   -0.465999E+03
    0.389841E+08    0.970709E+06
    0.139599E+04    0.811856E+03   -0.465669E+03
    0.394826E+08    0.970717E+06
    0.139688E+04    0.812000E+03   -0.465339E+03
    0.399810E+08    0.970726E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.139777E+04    0.812144E+03   -0.465009E+03
    0.404795E+08    0.970735E+06
    0.139866E+04    0.812288E+03   -0.464680E+03
    0.409779E+08    0.970744E+06
    0.139955E+04    0.812431E+03   -0.464351E+03
    0.414764E+08    0.970753E+06
    0.140044E+04    0.812575E+03   -0.464022E+03
    0.419749E+08    0.970762E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.140133E+04    0.812718E+03   -0.463693E+03
    0.424733E+08    0.970771E+06
    0.140222E+04    0.812861E+03   -0.463364E+03
    0.429718E+08    0.970780E+06
    0.140310E+04    0.813004E+03   -0.463035E+03
    0.434702E+08    0.970789E+06
    0.140399E+04    0.813147E+03   -0.462707E+03
    0.439687E+08    0.970799E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.140488E+04    0.813290E+03   -0.462379E+03
    0.444671E+08    0.970808E+06
    0.140576E+04    0.813433E+03   -0.462050E+03
    0.449656E+08    0.970818E+06
    0.140665E+04    0.813576E+03   -0.461722E+03
    0.454640E+08    0.970828E+06
    0.140753E+04    0.813719E+03   -0.461395E+03
    0.459625E+08    0.970838E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.140842E+04    0.813862E+03   -0.461067E+03
    0.464609E+08    0.970848E+06
    0.140930E+04    0.814004E+03   -0.460739E+03
    0.469594E+08    0.970858E+06
    0.141019E+04    0.814147E+03   -0.460412E+03
    0.474578E+08    0.970868E+06
    0.141107E+04    0.814289E+03   -0.460085E+03
    0.479563E+08    0.970878E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.141195E+04    0.814431E+03   -0.459758E+03
    0.484547E+08    0.970888E+06
    0.141284E+04    0.814574E+03   -0.459431E+03
    0.489532E+08    0.970899E+06
    0.141372E+04    0.814716E+03   -0.459104E+03
    0.494516E+08    0.970909E+06
    0.141460E+04    0.814858E+03   -0.458778E+03
    0.499501E+08    0.970920E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.141548E+04    0.815000E+03   -0.458451E+03
    0.504485E+08    0.970931E+06
    0.141636E+04    0.815142E+03   -0.458125E+03
    0.509470E+08    0.970942E+06
    0.141724E+04    0.815283E+03   -0.457799E+03
    0.514454E+08    0.970953E+06
    0.141812E+04    0.815425E+03   -0.457473E+03
    0.519439E+08    0.970964E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.141900E+04    0.815567E+03   -0.457147E+03
    0.524423E+08    0.970975E+06
    0.141988E+04    0.815708E+03   -0.456821E+03
    0.529408E+08    0.970986E+06
    0.142076E+04    0.815850E+03   -0.456496E+03
    0.534393E+08    0.970997E+06
    0.142164E+04    0.815991E+03   -0.456170E+03
    0.539377E+08    0.971009E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.142252E+04    0.816133E+03   -0.455845E+03
    0.544362E+08    0.971020E+06
    0.142340E+04    0.816274E+03   -0.455520E+03
    0.549346E+08    0.971032E+06
    0.142427E+04    0.816415E+03   -0.455195E+03
    0.554331E+08    0.971043E+06
    0.142515E+04    0.816556E+03   -0.454870E+03
    0.559315E+08    0.971055E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.142603E+04    0.816697E+03   -0.454546E+03
    0.564300E+08    0.971067E+06
    0.142690E+04    0.816838E+03   -0.454221E+03
    0.569284E+08    0.971079E+06
    0.142778E+04    0.816979E+03   -0.453897E+03
    0.574269E+08    0.971091E+06
    0.142865E+04    0.817120E+03   -0.453573E+03
    0.579253E+08    0.971103E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.142953E+04    0.817260E+03   -0.453249E+03
    0.584238E+08    0.971116E+06
    0.143040E+04    0.817401E+03   -0.452925E+03
    0.589222E+08    0.971128E+06
    0.143128E+04    0.817541E+03   -0.452601E+03
    0.594207E+08    0.971140E+06
    0.143215E+04    0.817682E+03   -0.452277E+03
    0.599191E+08    0.971153E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.143302E+04    0.817822E+03   -0.451954E+03
    0.604176E+08    0.971165E+06
    0.143390E+04    0.817962E+03   -0.451631E+03
    0.609160E+08    0.971178E+06
    0.143477E+04    0.818102E+03   -0.451308E+03
    0.614145E+08    0.971191E+06
    0.143564E+04    0.818242E+03   -0.450985E+03
    0.619129E+08    0.971204E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.143651E+04    0.818382E+03   -0.450662E+03
    0.624114E+08    0.971217E+06
    0.143738E+04    0.818522E+03   -0.450339E+03
    0.629098E+08    0.971230E+06
    0.143825E+04    0.818662E+03   -0.450017E+03
    0.634083E+08    0.971243E+06
    0.143913E+04    0.818802E+03   -0.449694E+03
    0.639067E+08    0.971256E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.144000E+04    0.818942E+03   -0.449372E+03
    0.644052E+08    0.971270E+06
    0.144086E+04    0.819081E+03   -0.449050E+03
    0.649037E+08    0.971283E+06
    0.144173E+04    0.819221E+03   -0.448728E+03
    0.654021E+08    0.971297E+06
    0.144260E+04    0.819360E+03   -0.448406E+03
    0.659006E+08    0.971310E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.144347E+04    0.819500E+03   -0.448085E+03
    0.663990E+08    0.971324E+06
    0.144434E+04    0.819639E+03   -0.447763E+03
    0.668975E+08    0.971338E+06
    0.144521E+04    0.819778E+03   -0.447442E+03
    0.673959E+08    0.971352E+06
    0.144607E+04    0.819917E+03   -0.447121E+03
    0.678944E+08    0.971366E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.144694E+04    0.820056E+03   -0.446800E+03
    0.683928E+08    0.971380E+06
    0.144781E+04    0.820195E+03   -0.446479E+03
    0.688913E+08    0.971394E+06
    0.144867E+04    0.820334E+03   -0.446158E+03
    0.693897E+08    0.971408E+06
    0.144954E+04    0.820473E+03   -0.445837E+03
    0.698882E+08    0.971423E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.145040E+04    0.820611E+03   -0.445517E+03
    0.703866E+08    0.971437E+06
    0.145127E+04    0.820750E+03   -0.445197E+03
    0.708851E+08    0.971452E+06
    0.145213E+04    0.820889E+03   -0.444877E+03
    0.713835E+08    0.971466E+06
    0.145300E+04    0.821027E+03   -0.444557E+03
    0.718820E+08    0.971481E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.145386E+04    0.821166E+03   -0.444237E+03
    0.723804E+08    0.971496E+06
    0.145472E+04    0.821304E+03   -0.443917E+03
    0.728789E+08    0.971511E+06
    0.145559E+04    0.821442E+03   -0.443597E+03
    0.733773E+08    0.971526E+06
    0.145645E+04    0.821580E+03   -0.443278E+03
    0.738758E+08    0.971541E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.145731E+04    0.821718E+03   -0.442959E+03
    0.743742E+08    0.971556E+06
    0.145817E+04    0.821856E+03   -0.442639E+03
    0.748727E+08    0.971571E+06
    0.145903E+04    0.821994E+03   -0.442320E+03
    0.753711E+08    0.971587E+06
    0.145990E+04    0.822132E+03   -0.442002E+03
    0.758696E+08    0.971602E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.146076E+04    0.822270E+03   -0.441683E+03
    0.763681E+08    0.971618E+06
    0.146162E+04    0.822407E+03   -0.441364E+03
    0.768665E+08    0.971633E+06
    0.146248E+04    0.822545E+03   -0.441046E+03
    0.773650E+08    0.971649E+06
    0.146334E+04    0.822683E+03   -0.440728E+03
    0.778634E+08    0.971665E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.146419E+04    0.822820E+03   -0.440410E+03
    0.783619E+08    0.971680E+06
    0.146505E+04    0.822957E+03   -0.440092E+03
    0.788603E+08    0.971696E+06
    0.146591E+04    0.823095E+03   -0.439774E+03
    0.793588E+08    0.971712E+06
    0.146677E+04    0.823232E+03   -0.439456E+03
    0.798572E+08    0.971729E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.146763E+04    0.823369E+03   -0.439138E+03
    0.803557E+08    0.971745E+06
    0.146848E+04    0.823506E+03   -0.438821E+03
    0.808541E+08    0.971761E+06
    0.146934E+04    0.823643E+03   -0.438504E+03
    0.813526E+08    0.971777E+06
    0.147020E+04    0.823780E+03   -0.438187E+03
    0.818510E+08    0.971794E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.147105E+04    0.823917E+03   -0.437870E+03
    0.823495E+08    0.971810E+06
    0.147191E+04    0.824054E+03   -0.437553E+03
    0.828479E+08    0.971827E+06
    0.147276E+04    0.824190E+03   -0.437236E+03
    0.833464E+08    0.971844E+06
    0.147362E+04    0.824327E+03   -0.436919E+03
    0.838448E+08    0.971861E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.147447E+04    0.824463E+03   -0.436603E+03
    0.843433E+08    0.971878E+06
    0.147533E+04    0.824600E+03   -0.436287E+03
    0.848417E+08    0.971895E+06
    0.147618E+04    0.824736E+03   -0.435971E+03
    0.853402E+08    0.971912E+06
    0.147703E+04    0.824872E+03   -0.435655E+03
    0.858386E+08    0.971929E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.147789E+04    0.825009E+03   -0.435339E+03
    0.863371E+08    0.971946E+06
    0.147874E+04    0.825145E+03   -0.435023E+03
    0.868356E+08    0.971963E+06
    0.147959E+04    0.825281E+03   -0.434707E+03
    0.873340E+08    0.971981E+06
    0.148044E+04    0.825417E+03   -0.434392E+03
    0.878325E+08    0.971998E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.148129E+04    0.825553E+03   -0.434077E+03
    0.883309E+08    0.972016E+06
    0.148214E+04    0.825689E+03   -0.433762E+03
    0.888294E+08    0.972033E+06
    0.148299E+04    0.825824E+03   -0.433447E+03
    0.893278E+08    0.972051E+06
    0.148384E+04    0.825960E+03   -0.433132E+03
    0.898263E+08    0.972069E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.148469E+04    0.826096E+03   -0.432817E+03
    0.903247E+08    0.972087E+06
    0.148554E+04    0.826231E+03   -0.432502E+03
    0.908232E+08    0.972105E+06
    0.148639E+04    0.826367E+03   -0.432188E+03
    0.913216E+08    0.972123E+06
    0.148724E+04    0.826502E+03   -0.431874E+03
    0.918201E+08    0.972141E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.148809E+04    0.826637E+03   -0.431559E+03
    0.923185E+08    0.972159E+06
    0.148894E+04    0.826773E+03   -0.431245E+03
    0.928170E+08    0.972178E+06
    0.148979E+04    0.826908E+03   -0.430931E+03
    0.933154E+08    0.972196E+06
    0.149063E+04    0.827043E+03   -0.430618E+03
    0.938139E+08    0.972214E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.149148E+04    0.827178E+03   -0.430304E+03
    0.943123E+08    0.972233E+06
    0.149233E+04    0.827313E+03   -0.429990E+03
    0.948108E+08    0.972252E+06
    0.149317E+04    0.827448E+03   -0.429677E+03
    0.953092E+08    0.972270E+06
    0.149402E+04    0.827582E+03   -0.429364E+03
    0.958077E+08    0.972289E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.149486E+04    0.827717E+03   -0.429051E+03
    0.963061E+08    0.972308E+06
    0.149571E+04    0.827852E+03   -0.428738E+03
    0.968046E+08    0.972327E+06
    0.149655E+04    0.827986E+03   -0.428425E+03
    0.973030E+08    0.972346E+06
    0.149740E+04    0.828121E+03   -0.428112E+03
    0.978015E+08    0.972365E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.149824E+04    0.828255E+03   -0.427800E+03
    0.983000E+08    0.972384E+06
    0.149908E+04    0.828389E+03   -0.427488E+03
    0.987984E+08    0.972404E+06
    0.149993E+04    0.828524E+03   -0.427175E+03
    0.992969E+08    0.972423E+06
    0.150077E+04    0.828658E+03   -0.426863E+03
    0.997953E+08    0.972443E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.150161E+04    0.828792E+03   -0.426551E+03
    0.100294E+09    0.972462E+06
    0.150245E+04    0.828926E+03   -0.426239E+03
    0.100792E+09    0.972482E+06
    0.150330E+04    0.829060E+03   -0.425928E+03
    0.101291E+09    0.972501E+06
    0.150414E+04    0.829194E+03   -0.425616E+03
    0.101789E+09    0.972521E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.150498E+04    0.829328E+03   -0.425305E+03
    0.102288E+09    0.972541E+06
    0.150582E+04    0.829461E+03   -0.424993E+03
    0.102786E+09    0.972561E+06
    0.150666E+04    0.829595E+03   -0.424682E+03
    0.103284E+09    0.972581E+06
    0.150750E+04    0.829729E+03   -0.424371E+03
    0.103783E+09    0.972601E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.150834E+04    0.829862E+03   -0.424060E+03
    0.104281E+09    0.972621E+06
    0.150918E+04    0.829996E+03   -0.423749E+03
    0.104780E+09    0.972642E+06
    0.151002E+04    0.830129E+03   -0.423439E+03
    0.105278E+09    0.972662E+06
    0.151085E+04    0.830262E+03   -0.423128E+03
    0.105777E+09    0.972682E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.151169E+04    0.830396E+03   -0.422818E+03
    0.106275E+09    0.972703E+06
    0.151253E+04    0.830529E+03   -0.422508E+03
    0.106774E+09    0.972723E+06
    0.151337E+04    0.830662E+03   -0.422198E+03
    0.107272E+09    0.972744E+06
    0.151420E+04    0.830795E+03   -0.421888E+03
    0.107771E+09    0.972765E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.151504E+04    0.830928E+03   -0.421578E+03
    0.108269E+09    0.972785E+06
    0.151588E+04    0.831061E+03   -0.421268E+03
    0.108767E+09    0.972806E+06
    0.151671E+04    0.831193E+03   -0.420959E+03
    0.109266E+09    0.972827E+06
    0.151755E+04    0.831326E+03   -0.420649E+03
    0.109764E+09    0.972848E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.151838E+04    0.831459E+03   -0.420340E+03
    0.110263E+09    0.972869E+06
    0.151922E+04    0.831591E+03   -0.420031E+03
    0.110761E+09    0.972891E+06
    0.152005E+04    0.831724E+03   -0.419722E+03
    0.111260E+09    0.972912E+06
    0.152089E+04    0.831856E+03   -0.419413E+03
    0.111758E+09    0.972933E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.152172E+04    0.831989E+03   -0.419104E+03
    0.112257E+09    0.972955E+06
    0.152255E+04    0.832121E+03   -0.418796E+03
    0.112755E+09    0.972976E+06
    0.152338E+04    0.832253E+03   -0.418487E+03
    0.113254E+09    0.972998E+06
    0.152422E+04    0.832385E+03   -0.418179E+03
    0.113752E+09    0.973019E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.152505E+04    0.832517E+03   -0.417870E+03
    0.114250E+09    0.973041E+06
    0.152588E+04    0.832649E+03   -0.417562E+03
    0.114749E+09    0.973063E+06
    0.152671E+04    0.832781E+03   -0.417254E+03
    0.115247E+09    0.973085E+06
    0.152754E+04    0.832913E+03   -0.416947E+03
    0.115746E+09    0.973107E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.152837E+04    0.833045E+03   -0.416639E+03
    0.116244E+09    0.973129E+06
    0.152921E+04    0.833177E+03   -0.416331E+03
    0.116743E+09    0.973151E+06
    0.153004E+04    0.833308E+03   -0.416024E+03
    0.117241E+09    0.973173E+06
    0.153087E+04    0.833440E+03   -0.415717E+03
    0.117740E+09    0.973195E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.153169E+04    0.833571E+03   -0.415409E+03
    0.118238E+09    0.973218E+06
    0.153252E+04    0.833703E+03   -0.415102E+03
    0.118736E+09    0.973240E+06
    0.153335E+04    0.833834E+03   -0.414795E+03
    0.119235E+09    0.973263E+06
    0.153418E+04    0.833966E+03   -0.414489E+03
    0.119733E+09    0.973285E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.153501E+04    0.834097E+03   -0.414182E+03
    0.120232E+09    0.973308E+06
    0.153584E+04    0.834228E+03   -0.413875E+03
    0.120730E+09    0.973331E+06
    0.153666E+04    0.834359E+03   -0.413569E+03
    0.121229E+09    0.973353E+06
    0.153749E+04    0.834490E+03   -0.413263E+03
    0.121727E+09    0.973376E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.153832E+04    0.834621E+03   -0.412957E+03
    0.122226E+09    0.973399E+06
    0.153914E+04    0.834752E+03   -0.412651E+03
    0.122724E+09    0.973422E+06
    0.153997E+04    0.834883E+03   -0.412345E+03
    0.123223E+09    0.973445E+06
    0.154079E+04    0.835013E+03   -0.412039E+03
    0.123721E+09    0.973468E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.154162E+04    0.835144E+03   -0.411733E+03
    0.124219E+09    0.973492E+06
    0.154244E+04    0.835275E+03   -0.411428E+03
    0.124718E+09    0.973515E+06
    0.154327E+04    0.835405E+03   -0.411123E+03
    0.125216E+09    0.973538E+06
    0.154409E+04    0.835536E+03   -0.410817E+03
    0.125715E+09    0.973562E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.154492E+04    0.835666E+03   -0.410512E+03
    0.126213E+09    0.973585E+06
    0.154574E+04    0.835796E+03   -0.410207E+03
    0.126712E+09    0.973609E+06
    0.154656E+04    0.835927E+03   -0.409902E+03
    0.127210E+09    0.973632E+06
    0.154739E+04    0.836057E+03   -0.409598E+03
    0.127709E+09    0.973656E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.154821E+04    0.836187E+03   -0.409293E+03
    0.128207E+09    0.973680E+06
    0.154903E+04    0.836317E+03   -0.408989E+03
    0.128706E+09    0.973704E+06
    0.154985E+04    0.836447E+03   -0.408684E+03
    0.129204E+09    0.973728E+06
    0.155067E+04    0.836577E+03   -0.408380E+03
    0.129702E+09    0.973752E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.155149E+04    0.836707E+03   -0.408076E+03
    0.130201E+09    0.973776E+06
    0.155232E+04    0.836837E+03   -0.407772E+03
    0.130699E+09    0.973800E+06
    0.155314E+04    0.836966E+03   -0.407468E+03
    0.131198E+09    0.973824E+06
    0.155396E+04    0.837096E+03   -0.407165E+03
    0.131696E+09    0.973849E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.155477E+04    0.837225E+03   -0.406861E+03
    0.132195E+09    0.973873E+06
    0.155559E+04    0.837355E+03   -0.406558E+03
    0.132693E+09    0.973898E+06
    0.155641E+04    0.837484E+03   -0.406254E+03
    0.133192E+09    0.973922E+06
    0.155723E+04    0.837614E+03   -0.405951E+03
    0.133690E+09    0.973947E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.155805E+04    0.837743E+03   -0.405648E+03
    0.134189E+09    0.973971E+06
    0.155887E+04    0.837872E+03   -0.405345E+03
    0.134687E+09    0.973996E+06
    0.155969E+04    0.838001E+03   -0.405042E+03
    0.135185E+09    0.974021E+06
    0.156050E+04    0.838131E+03   -0.404740E+03
    0.135684E+09    0.974046E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.156132E+04    0.838260E+03   -0.404437E+03
    0.136182E+09    0.974071E+06
    0.156214E+04    0.838388E+03   -0.404135E+03
    0.136681E+09    0.974096E+06
    0.156295E+04    0.838517E+03   -0.403832E+03
    0.137179E+09    0.974121E+06
    0.156377E+04    0.838646E+03   -0.403530E+03
    0.137678E+09    0.974146E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.156458E+04    0.838775E+03   -0.403228E+03
    0.138176E+09    0.974171E+06
    0.156540E+04    0.838904E+03   -0.402926E+03
    0.138675E+09    0.974197E+06
    0.156621E+04    0.839032E+03   -0.402624E+03
    0.139173E+09    0.974222E+06
    0.156703E+04    0.839161E+03   -0.402323E+03
    0.139671E+09    0.974248E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.156784E+04    0.839289E+03   -0.402021E+03
    0.140170E+09    0.974273E+06
    0.156866E+04    0.839418E+03   -0.401720E+03
    0.140668E+09    0.974299E+06
    0.156947E+04    0.839546E+03   -0.401418E+03
    0.141167E+09    0.974324E+06
    0.157028E+04    0.839674E+03   -0.401117E+03
    0.141665E+09    0.974350E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.157110E+04    0.839803E+03   -0.400816E+03
    0.142164E+09    0.974376E+06
    0.157191E+04    0.839931E+03   -0.400515E+03
    0.142662E+09    0.974402E+06
    0.157272E+04    0.840059E+03   -0.400214E+03
    0.143161E+09    0.974428E+06
    0.157353E+04    0.840187E+03   -0.399914E+03
    0.143659E+09    0.974454E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.157434E+04    0.840315E+03   -0.399613E+03
    0.144158E+09    0.974480E+06
    0.157516E+04    0.840443E+03   -0.399313E+03
    0.144656E+09    0.974506E+06
    0.157597E+04    0.840571E+03   -0.399012E+03
    0.145154E+09    0.974532E+06
    0.157678E+04    0.840698E+03   -0.398712E+03
    0.145653E+09    0.974559E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.157759E+04    0.840826E+03   -0.398412E+03
    0.146151E+09    0.974585E+06
    0.157840E+04    0.840954E+03   -0.398112E+03
    0.146650E+09    0.974611E+06
    0.157921E+04    0.841081E+03   -0.397812E+03
    0.147148E+09    0.974638E+06
    0.158002E+04    0.841209E+03   -0.397513E+03
    0.147647E+09    0.974664E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.158082E+04    0.841336E+03   -0.397213E+03
    0.148145E+09    0.974691E+06
    0.158163E+04    0.841463E+03   -0.396914E+03
    0.148644E+09    0.974718E+06
    0.158244E+04    0.841591E+03   -0.396614E+03
    0.149142E+09    0.974744E+06
    0.158325E+04    0.841718E+03   -0.396315E+03
    0.149641E+09    0.974771E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.158406E+04    0.841845E+03   -0.396016E+03
    0.150139E+09    0.974798E+06
    0.158486E+04    0.841972E+03   -0.395717E+03
    0.150637E+09    0.974825E+06
    0.158567E+04    0.842099E+03   -0.395418E+03
    0.151136E+09    0.974852E+06
    0.158648E+04    0.842226E+03   -0.395120E+03
    0.151634E+09    0.974879E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.158728E+04    0.842353E+03   -0.394821E+03
    0.152133E+09    0.974906E+06
    0.158809E+04    0.842480E+03   -0.394522E+03
    0.152631E+09    0.974934E+06
    0.158889E+04    0.842607E+03   -0.394224E+03
    0.153130E+09    0.974961E+06
    0.158970E+04    0.842733E+03   -0.393926E+03
    0.153628E+09    0.974988E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.159050E+04    0.842860E+03   -0.393628E+03
    0.154127E+09    0.975016E+06
    0.159131E+04    0.842987E+03   -0.393330E+03
    0.154625E+09    0.975043E+06
    0.159211E+04    0.843113E+03   -0.393032E+03
    0.155124E+09    0.975071E+06
    0.159292E+04    0.843240E+03   -0.392734E+03
    0.155622E+09    0.975098E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.159372E+04    0.843366E+03   -0.392436E+03
    0.156120E+09    0.975126E+06
    0.159452E+04    0.843492E+03   -0.392139E+03
    0.156619E+09    0.975154E+06
    0.159533E+04    0.843619E+03   -0.391842E+03
    0.157117E+09    0.975182E+06
    0.159613E+04    0.843745E+03   -0.391544E+03
    0.157616E+09    0.975210E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.159693E+04    0.843871E+03   -0.391247E+03
    0.158114E+09    0.975238E+06
    0.159773E+04    0.843997E+03   -0.390950E+03
    0.158613E+09    0.975266E+06
    0.159854E+04    0.844123E+03   -0.390653E+03
    0.159111E+09    0.975294E+06
    0.159934E+04    0.844249E+03   -0.390356E+03
    0.159610E+09    0.975322E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.160014E+04    0.844375E+03   -0.390060E+03
    0.160108E+09    0.975350E+06
    0.160094E+04    0.844501E+03   -0.389763E+03
    0.160606E+09    0.975378E+06
    0.160174E+04    0.844626E+03   -0.389467E+03
    0.161105E+09    0.975407E+06
    0.160254E+04    0.844752E+03   -0.389170E+03
    0.161603E+09    0.975435E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.160334E+04    0.844878E+03   -0.388874E+03
    0.162102E+09    0.975464E+06
    0.160414E+04    0.845003E+03   -0.388578E+03
    0.162600E+09    0.975492E+06
    0.160494E+04    0.845129E+03   -0.388282E+03
    0.163099E+09    0.975521E+06
    0.160574E+04    0.845254E+03   -0.387986E+03
    0.163597E+09    0.975550E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.160654E+04    0.845380E+03   -0.387691E+03
    0.164096E+09    0.975578E+06
    0.160733E+04    0.845505E+03   -0.387395E+03
    0.164594E+09    0.975607E+06
    0.160813E+04    0.845630E+03   -0.387100E+03
    0.165093E+09    0.975636E+06
    0.160893E+04    0.845755E+03   -0.386804E+03
    0.165591E+09    0.975665E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.160973E+04    0.845880E+03   -0.386509E+03
    0.166089E+09    0.975694E+06
    0.161052E+04    0.846005E+03   -0.386214E+03
    0.166588E+09    0.975723E+06
    0.161132E+04    0.846130E+03   -0.385919E+03
    0.167086E+09    0.975752E+06
    0.161212E+04    0.846255E+03   -0.385624E+03
    0.167585E+09    0.975781E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.161291E+04    0.846380E+03   -0.385329E+03
    0.168083E+09    0.975811E+06
    0.161371E+04    0.846505E+03   -0.385034E+03
    0.168582E+09    0.975840E+06
    0.161450E+04    0.846630E+03   -0.384740E+03
    0.169080E+09    0.975869E+06
    0.161530E+04    0.846754E+03   -0.384445E+03
    0.169579E+09    0.975899E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.161609E+04    0.846879E+03   -0.384151E+03
    0.170077E+09    0.975928E+06
    0.161689E+04    0.847004E+03   -0.383857E+03
    0.170576E+09    0.975958E+06
    0.161768E+04    0.847128E+03   -0.383563E+03
    0.171074E+09    0.975987E+06
    0.161847E+04    0.847253E+03   -0.383269E+03
    0.171572E+09    0.976017E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.161927E+04    0.847377E+03   -0.382975E+03
    0.172071E+09    0.976047E+06
    0.162006E+04    0.847501E+03   -0.382681E+03
    0.172569E+09    0.976077E+06
    0.162085E+04    0.847625E+03   -0.382388E+03
    0.173068E+09    0.976107E+06
    0.162165E+04    0.847750E+03   -0.382094E+03
    0.173566E+09    0.976137E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.162244E+04    0.847874E+03   -0.381801E+03
    0.174065E+09    0.976167E+06
    0.162323E+04    0.847998E+03   -0.381508E+03
    0.174563E+09    0.976197E+06
    0.162402E+04    0.848122E+03   -0.381214E+03
    0.175062E+09    0.976227E+06
    0.162481E+04    0.848246E+03   -0.380921E+03
    0.175560E+09    0.976257E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.162560E+04    0.848370E+03   -0.380629E+03
    0.176058E+09    0.976287E+06
    0.162639E+04    0.848493E+03   -0.380336E+03
    0.176557E+09    0.976318E+06
    0.162718E+04    0.848617E+03   -0.380043E+03
    0.177055E+09    0.976348E+06
    0.162797E+04    0.848741E+03   -0.379750E+03
    0.177554E+09    0.976378E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.162876E+04    0.848864E+03   -0.379458E+03
    0.178052E+09    0.976409E+06
    0.162955E+04    0.848988E+03   -0.379166E+03
    0.178551E+09    0.976440E+06
    0.163034E+04    0.849112E+03   -0.378873E+03
    0.179049E+09    0.976470E+06
    0.163113E+04    0.849235E+03   -0.378581E+03
    0.179548E+09    0.976501E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.163192E+04    0.849358E+03   -0.378289E+03
    0.180046E+09    0.976532E+06
    0.163271E+04    0.849482E+03   -0.377997E+03
    0.180545E+09    0.976562E+06
    0.163349E+04    0.849605E+03   -0.377706E+03
    0.181043E+09    0.976593E+06
    0.163428E+04    0.849728E+03   -0.377414E+03
    0.181541E+09    0.976624E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.163507E+04    0.849851E+03   -0.377122E+03
    0.182040E+09    0.976655E+06
    0.163586E+04    0.849974E+03   -0.376831E+03
    0.182538E+09    0.976686E+06
    0.163664E+04    0.850097E+03   -0.376540E+03
    0.183037E+09    0.976717E+06
    0.163743E+04    0.850220E+03   -0.376249E+03
    0.183535E+09    0.976749E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.163821E+04    0.850343E+03   -0.375957E+03
    0.184034E+09    0.976780E+06
    0.163900E+04    0.850466E+03   -0.375667E+03
    0.184532E+09    0.976811E+06
    0.163979E+04    0.850589E+03   -0.375376E+03
    0.185031E+09    0.976843E+06
    0.164057E+04    0.850712E+03   -0.375085E+03
    0.185529E+09    0.976874E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.164136E+04    0.850834E+03   -0.374794E+03
    0.186028E+09    0.976905E+06
    0.164214E+04    0.850957E+03   -0.374504E+03
    0.186526E+09    0.976937E+06
    0.164292E+04    0.851079E+03   -0.374213E+03
    0.187024E+09    0.976969E+06
    0.164371E+04    0.851202E+03   -0.373923E+03
    0.187523E+09    0.977000E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.164449E+04    0.851324E+03   -0.373633E+03
    0.188021E+09    0.977032E+06
    0.164527E+04    0.851447E+03   -0.373343E+03
    0.188520E+09    0.977064E+06
    0.164606E+04    0.851569E+03   -0.373053E+03
    0.189018E+09    0.977096E+06
    0.164684E+04    0.851691E+03   -0.372763E+03
    0.189517E+09    0.977127E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.164762E+04    0.851813E+03   -0.372473E+03
    0.190015E+09    0.977159E+06
    0.164840E+04    0.851935E+03   -0.372184E+03
    0.190514E+09    0.977191E+06
    0.164919E+04    0.852057E+03   -0.371894E+03
    0.191012E+09    0.977224E+06
    0.164997E+04    0.852179E+03   -0.371605E+03
    0.191511E+09    0.977256E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.165075E+04    0.852301E+03   -0.371316E+03
    0.192009E+09    0.977288E+06
    0.165153E+04    0.852423E+03   -0.371026E+03
    0.192507E+09    0.977320E+06
    0.165231E+04    0.852545E+03   -0.370737E+03
    0.193006E+09    0.977352E+06
    0.165309E+04    0.852667E+03   -0.370448E+03
    0.193504E+09    0.977385E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.165387E+04    0.852789E+03   -0.370160E+03
    0.194003E+09    0.977417E+06
    0.165465E+04    0.852910E+03   -0.369871E+03
    0.194501E+09    0.977450E+06
    0.165543E+04    0.853032E+03   -0.369582E+03
    0.195000E+09    0.977482E+06
    0.165621E+04    0.853153E+03   -0.369294E+03
    0.195498E+09    0.977515E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.165699E+04    0.853275E+03   -0.369005E+03
    0.195997E+09    0.977548E+06
    0.165776E+04    0.853396E+03   -0.368717E+03
    0.196495E+09    0.977580E+06
    0.165854E+04    0.853518E+03   -0.368429E+03
    0.196993E+09    0.977613E+06
    0.165932E+04    0.853639E+03   -0.368141E+03
    0.197492E+09    0.977646E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.166010E+04    0.853760E+03   -0.367853E+03
    0.197990E+09    0.977679E+06
    0.166087E+04    0.853881E+03   -0.367565E+03
    0.198489E+09    0.977712E+06
    0.166165E+04    0.854002E+03   -0.367277E+03
    0.198987E+09    0.977745E+06
    0.166243E+04    0.854123E+03   -0.366990E+03
    0.199486E+09    0.977778E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.166320E+04    0.854244E+03   -0.366702E+03
    0.199984E+09    0.977811E+06
    0.166398E+04    0.854365E+03   -0.366415E+03
    0.200483E+09    0.977844E+06
    0.166476E+04    0.854486E+03   -0.366127E+03
    0.200981E+09    0.977877E+06
    0.166553E+04    0.854607E+03   -0.365840E+03
    0.201480E+09    0.977911E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.166631E+04    0.854728E+03   -0.365553E+03
    0.201978E+09    0.977944E+06
    0.166708E+04    0.854849E+03   -0.365266E+03
    0.202476E+09    0.977977E+06
    0.166786E+04    0.854969E+03   -0.364979E+03
    0.202975E+09    0.978011E+06
    0.166863E+04    0.855090E+03   -0.364693E+03
    0.203473E+09    0.978044E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.166940E+04    0.855210E+03   -0.364406E+03
    0.203972E+09    0.978078E+06
    0.167018E+04    0.855331E+03   -0.364119E+03
    0.204470E+09    0.978112E+06
    0.167095E+04    0.855451E+03   -0.363833E+03
    0.204969E+09    0.978145E+06
    0.167172E+04    0.855572E+03   -0.363547E+03
    0.205467E+09    0.978179E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.167250E+04    0.855692E+03   -0.363261E+03
    0.205966E+09    0.978213E+06
    0.167327E+04    0.855812E+03   -0.362975E+03
    0.206464E+09    0.978247E+06
    0.167404E+04    0.855932E+03   -0.362689E+03
    0.206963E+09    0.978281E+06
    0.167481E+04    0.856052E+03   -0.362403E+03
    0.207461E+09    0.978315E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.167558E+04    0.856172E+03   -0.362117E+03
    0.207959E+09    0.978349E+06
    0.167636E+04    0.856293E+03   -0.361831E+03
    0.208458E+09    0.978383E+06
    0.167713E+04    0.856412E+03   -0.361546E+03
    0.208956E+09    0.978417E+06
    0.167790E+04    0.856532E+03   -0.361260E+03
    0.209455E+09    0.978451E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.167867E+04    0.856652E+03   -0.360975E+03
    0.209953E+09    0.978485E+06
    0.167944E+04    0.856772E+03   -0.360690E+03
    0.210452E+09    0.978520E+06
    0.168021E+04    0.856892E+03   -0.360405E+03
    0.210950E+09    0.978554E+06
    0.168098E+04    0.857011E+03   -0.360120E+03
    0.211449E+09    0.978588E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.168175E+04    0.857131E+03   -0.359835E+03
    0.211947E+09    0.978623E+06
    0.168252E+04    0.857251E+03   -0.359550E+03
    0.212446E+09    0.978657E+06
    0.168328E+04    0.857370E+03   -0.359265E+03
    0.212944E+09    0.978692E+06
    0.168405E+04    0.857490E+03   -0.358981E+03
    0.213442E+09    0.978727E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.168482E+04    0.857609E+03   -0.358696E+03
    0.213941E+09    0.978761E+06
    0.168559E+04    0.857728E+03   -0.358412E+03
    0.214439E+09    0.978796E+06
    0.168636E+04    0.857848E+03   -0.358128E+03
    0.214938E+09    0.978831E+06
    0.168712E+04    0.857967E+03   -0.357843E+03
    0.215436E+09    0.978866E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.168789E+04    0.858086E+03   -0.357559E+03
    0.215935E+09    0.978901E+06
    0.168866E+04    0.858205E+03   -0.357275E+03
    0.216433E+09    0.978936E+06
    0.168942E+04    0.858324E+03   -0.356992E+03
    0.216932E+09    0.978971E+06
    0.169019E+04    0.858443E+03   -0.356708E+03
    0.217430E+09    0.979006E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.169095E+04    0.858562E+03   -0.356424E+03
    0.217928E+09    0.979041E+06
    0.169172E+04    0.858681E+03   -0.356141E+03
    0.218427E+09    0.979076E+06
    0.169249E+04    0.858800E+03   -0.355857E+03
    0.218925E+09    0.979111E+06
    0.169325E+04    0.858919E+03   -0.355574E+03
    0.219424E+09    0.979146E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.169401E+04    0.859037E+03   -0.355291E+03
    0.219922E+09    0.979182E+06
    0.169478E+04    0.859156E+03   -0.355008E+03
    0.220421E+09    0.979217E+06
    0.169554E+04    0.859274E+03   -0.354725E+03
    0.220919E+09    0.979253E+06
    0.169631E+04    0.859393E+03   -0.354442E+03
    0.221418E+09    0.979288E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.169707E+04    0.859512E+03   -0.354159E+03
    0.221916E+09    0.979324E+06
    0.169783E+04    0.859630E+03   -0.353876E+03
    0.222415E+09    0.979359E+06
    0.169860E+04    0.859748E+03   -0.353594E+03
    0.222913E+09    0.979395E+06
    0.169936E+04    0.859867E+03   -0.353311E+03
    0.223411E+09    0.979431E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.170012E+04    0.859985E+03   -0.353029E+03
    0.223910E+09    0.979466E+06
    0.170088E+04    0.860103E+03   -0.352747E+03
    0.224408E+09    0.979502E+06
    0.170165E+04    0.860221E+03   -0.352465E+03
    0.224907E+09    0.979538E+06
    0.170241E+04    0.860339E+03   -0.352183E+03
    0.225405E+09    0.979574E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.170317E+04    0.860457E+03   -0.351901E+03
    0.225904E+09    0.979610E+06
    0.170393E+04    0.860575E+03   -0.351619E+03
    0.226402E+09    0.979646E+06
    0.170469E+04    0.860693E+03   -0.351337E+03
    0.226901E+09    0.979682E+06
    0.170545E+04    0.860811E+03   -0.351056E+03
    0.227399E+09    0.979718E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.170621E+04    0.860929E+03   -0.350774E+03
    0.227898E+09    0.979755E+06
    0.170697E+04    0.861047E+03   -0.350493E+03
    0.228396E+09    0.979791E+06
    0.170773E+04    0.861165E+03   -0.350211E+03
    0.228894E+09    0.979827E+06
    0.170849E+04    0.861282E+03   -0.349930E+03
    0.229393E+09    0.979863E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.170925E+04    0.861400E+03   -0.349649E+03
    0.229891E+09    0.979900E+06
    0.171001E+04    0.861517E+03   -0.349368E+03
    0.230390E+09    0.979936E+06
    0.171076E+04    0.861635E+03   -0.349087E+03
    0.230888E+09    0.979973E+06
    0.171152E+04    0.861752E+03   -0.348806E+03
    0.231387E+09    0.980009E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.171228E+04    0.861870E+03   -0.348526E+03
    0.231885E+09    0.980046E+06
    0.171304E+04    0.861987E+03   -0.348245E+03
    0.232384E+09    0.980083E+06
    0.171380E+04    0.862104E+03   -0.347965E+03
    0.232882E+09    0.980119E+06
    0.171455E+04    0.862222E+03   -0.347684E+03
    0.233381E+09    0.980156E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.171531E+04    0.862339E+03   -0.347404E+03
    0.233879E+09    0.980193E+06
    0.171607E+04    0.862456E+03   -0.347124E+03
    0.234377E+09    0.980230E+06
    0.171682E+04    0.862573E+03   -0.346844E+03
    0.234876E+09    0.980267E+06
    0.171758E+04    0.862690E+03   -0.346564E+03
    0.235374E+09    0.980304E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.171833E+04    0.862807E+03   -0.346284E+03
    0.235873E+09    0.980341E+06
    0.171909E+04    0.862924E+03   -0.346004E+03
    0.236371E+09    0.980378E+06
    0.171984E+04    0.863041E+03   -0.345724E+03
    0.236870E+09    0.980415E+06
    0.172060E+04    0.863158E+03   -0.345445E+03
    0.237368E+09    0.980452E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.172135E+04    0.863274E+03   -0.345165E+03
    0.237867E+09    0.980489E+06
    0.172211E+04    0.863391E+03   -0.344886E+03
    0.238365E+09    0.980527E+06
    0.172286E+04    0.863508E+03   -0.344607E+03
    0.238863E+09    0.980564E+06
    0.172362E+04    0.863624E+03   -0.344328E+03
    0.239362E+09    0.980601E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.172437E+04    0.863741E+03   -0.344049E+03
    0.239860E+09    0.980639E+06
    0.172512E+04    0.863857E+03   -0.343770E+03
    0.240359E+09    0.980676E+06
    0.172587E+04    0.863974E+03   -0.343491E+03
    0.240857E+09    0.980714E+06
    0.172663E+04    0.864090E+03   -0.343212E+03
    0.241356E+09    0.980751E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.172738E+04    0.864206E+03   -0.342933E+03
    0.241854E+09    0.980789E+06
    0.172813E+04    0.864323E+03   -0.342655E+03
    0.242353E+09    0.980827E+06
    0.172888E+04    0.864439E+03   -0.342376E+03
    0.242851E+09    0.980864E+06
    0.172964E+04    0.864555E+03   -0.342098E+03
    0.243350E+09    0.980902E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.173039E+04    0.864671E+03   -0.341820E+03
    0.243848E+09    0.980940E+06
    0.173114E+04    0.864787E+03   -0.341542E+03
    0.244346E+09    0.980978E+06
    0.173189E+04    0.864903E+03   -0.341264E+03
    0.244845E+09    0.981016E+06
    0.173264E+04    0.865019E+03   -0.340986E+03
    0.245343E+09    0.981054E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.173339E+04    0.865135E+03   -0.340708E+03
    0.245842E+09    0.981092E+06
    0.173414E+04    0.865251E+03   -0.340430E+03
    0.246340E+09    0.981130E+06
    0.173489E+04    0.865367E+03   -0.340152E+03
    0.246839E+09    0.981168E+06
    0.173564E+04    0.865482E+03   -0.339875E+03
    0.247337E+09    0.981206E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.173639E+04    0.865598E+03   -0.339597E+03
    0.247836E+09    0.981245E+06
    0.173714E+04    0.865714E+03   -0.339320E+03
    0.248334E+09    0.981283E+06
    0.173788E+04    0.865829E+03   -0.339043E+03
    0.248833E+09    0.981321E+06
    0.173863E+04    0.865945E+03   -0.338766E+03
    0.249331E+09    0.981360E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.173938E+04    0.866060E+03   -0.338489E+03
    0.249829E+09    0.981398E+06
    0.174013E+04    0.866176E+03   -0.338212E+03
    0.250328E+09    0.981436E+06
    0.174088E+04    0.866291E+03   -0.337935E+03
    0.250826E+09    0.981475E+06
    0.174162E+04    0.866406E+03   -0.337658E+03
    0.251325E+09    0.981514E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.174237E+04    0.866522E+03   -0.337382E+03
    0.251823E+09    0.981552E+06
    0.174312E+04    0.866637E+03   -0.337105E+03
    0.252322E+09    0.981591E+06
    0.174386E+04    0.866752E+03   -0.336829E+03
    0.252820E+09    0.981630E+06
    0.174461E+04    0.866867E+03   -0.336552E+03
    0.253319E+09    0.981668E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.174535E+04    0.866982E+03   -0.336276E+03
    0.253817E+09    0.981707E+06
    0.174610E+04    0.867097E+03   -0.336000E+03
    0.254315E+09    0.981746E+06
    0.174685E+04    0.867212E+03   -0.335724E+03
    0.254814E+09    0.981785E+06
    0.174759E+04    0.867327E+03   -0.335448E+03
    0.255312E+09    0.981824E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.174834E+04    0.867442E+03   -0.335172E+03
    0.255811E+09    0.981863E+06
    0.174908E+04    0.867557E+03   -0.334896E+03
    0.256309E+09    0.981902E+06
    0.174982E+04    0.867671E+03   -0.334621E+03
    0.256808E+09    0.981941E+06
    0.175057E+04    0.867786E+03   -0.334345E+03
    0.257306E+09    0.981980E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.175131E+04    0.867901E+03   -0.334070E+03
    0.257805E+09    0.982019E+06
    0.175206E+04    0.868015E+03   -0.333794E+03
    0.258303E+09    0.982059E+06
    0.175280E+04    0.868130E+03   -0.333519E+03
    0.258802E+09    0.982098E+06
    0.175354E+04    0.868244E+03   -0.333244E+03
    0.259300E+09    0.982137E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.175428E+04    0.868359E+03   -0.332969E+03
    0.259798E+09    0.982177E+06
    0.175503E+04    0.868473E+03   -0.332694E+03
    0.260297E+09    0.982216E+06
    0.175577E+04    0.868588E+03   -0.332419E+03
    0.260795E+09    0.982256E+06
    0.175651E+04    0.868702E+03   -0.332144E+03
    0.261294E+09    0.982295E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.175725E+04    0.868816E+03   -0.331870E+03
    0.261792E+09    0.982335E+06
    0.175799E+04    0.868930E+03   -0.331595E+03
    0.262291E+09    0.982374E+06
    0.175873E+04    0.869044E+03   -0.331321E+03
    0.262789E+09    0.982414E+06
    0.175948E+04    0.869159E+03   -0.331046E+03
    0.263288E+09    0.982454E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.176022E+04    0.869273E+03   -0.330772E+03
    0.263786E+09    0.982494E+06
    0.176096E+04    0.869387E+03   -0.330498E+03
    0.264285E+09    0.982533E+06
    0.176170E+04    0.869500E+03   -0.330224E+03
    0.264783E+09    0.982573E+06
    0.176244E+04    0.869614E+03   -0.329950E+03
    0.265281E+09    0.982613E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.176318E+04    0.869728E+03   -0.329676E+03
    0.265780E+09    0.982653E+06
    0.176391E+04    0.869842E+03   -0.329402E+03
    0.266278E+09    0.982693E+06
    0.176465E+04    0.869956E+03   -0.329128E+03
    0.266777E+09    0.982733E+06
    0.176539E+04    0.870069E+03   -0.328855E+03
    0.267275E+09    0.982773E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.176613E+04    0.870183E+03   -0.328581E+03
    0.267774E+09    0.982814E+06
    0.176687E+04    0.870297E+03   -0.328308E+03
    0.268272E+09    0.982854E+06
    0.176761E+04    0.870410E+03   -0.328034E+03
    0.268771E+09    0.982894E+06
    0.176834E+04    0.870524E+03   -0.327761E+03
    0.269269E+09    0.982934E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.176908E+04    0.870637E+03   -0.327488E+03
    0.269768E+09    0.982975E+06
    0.176982E+04    0.870750E+03   -0.327215E+03
    0.270266E+09    0.983015E+06
    0.177056E+04    0.870864E+03   -0.326942E+03
    0.270764E+09    0.983055E+06
    0.177129E+04    0.870977E+03   -0.326669E+03
    0.271263E+09    0.983096E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.177203E+04    0.871090E+03   -0.326397E+03
    0.271761E+09    0.983136E+06
    0.177277E+04    0.871203E+03   -0.326124E+03
    0.272260E+09    0.983177E+06
    0.177350E+04    0.871316E+03   -0.325851E+03
    0.272758E+09    0.983218E+06
    0.177424E+04    0.871429E+03   -0.325579E+03
    0.273257E+09    0.983258E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.177497E+04    0.871543E+03   -0.325307E+03
    0.273755E+09    0.983299E+06
    0.177571E+04    0.871655E+03   -0.325034E+03
    0.274254E+09    0.983340E+06
    0.177644E+04    0.871768E+03   -0.324762E+03
    0.274752E+09    0.983380E+06
    0.177718E+04    0.871881E+03   -0.324490E+03
    0.275250E+09    0.983421E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.177791E+04    0.871994E+03   -0.324218E+03
    0.275749E+09    0.983462E+06
    0.177864E+04    0.872107E+03   -0.323946E+03
    0.276247E+09    0.983503E+06
    0.177938E+04    0.872220E+03   -0.323674E+03
    0.276746E+09    0.983544E+06
    0.178011E+04    0.872332E+03   -0.323403E+03
    0.277244E+09    0.983585E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.178085E+04    0.872445E+03   -0.323131E+03
    0.277743E+09    0.983626E+06
    0.178158E+04    0.872557E+03   -0.322860E+03
    0.278241E+09    0.983667E+06
    0.178231E+04    0.872670E+03   -0.322588E+03
    0.278740E+09    0.983708E+06
    0.178304E+04    0.872782E+03   -0.322317E+03
    0.279238E+09    0.983750E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.178378E+04    0.872895E+03   -0.322046E+03
    0.279737E+09    0.983791E+06
    0.178451E+04    0.873007E+03   -0.321775E+03
    0.280235E+09    0.983832E+06
    0.178524E+04    0.873120E+03   -0.321504E+03
    0.280733E+09    0.983873E+06
    0.178597E+04    0.873232E+03   -0.321233E+03
    0.281232E+09    0.983915E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.178670E+04    0.873344E+03   -0.320962E+03
    0.281730E+09    0.983956E+06
    0.178743E+04    0.873456E+03   -0.320691E+03
    0.282229E+09    0.983998E+06
    0.178816E+04    0.873568E+03   -0.320420E+03
    0.282727E+09    0.984039E+06
    0.178890E+04    0.873681E+03   -0.320150E+03
    0.283226E+09    0.984081E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.178963E+04    0.873793E+03   -0.319879E+03
    0.283724E+09    0.984122E+06
    0.179036E+04    0.873905E+03   -0.319609E+03
    0.284223E+09    0.984164E+06
    0.179109E+04    0.874017E+03   -0.319339E+03
    0.284721E+09    0.984206E+06
    0.179181E+04    0.874128E+03   -0.319069E+03
    0.285220E+09    0.984247E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.179254E+04    0.874240E+03   -0.318798E+03
    0.285718E+09    0.984289E+06
    0.179327E+04    0.874352E+03   -0.318528E+03
    0.286216E+09    0.984331E+06
    0.179400E+04    0.874464E+03   -0.318259E+03
    0.286715E+09    0.984373E+06
    0.179473E+04    0.874575E+03   -0.317989E+03
    0.287213E+09    0.984415E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.179546E+04    0.874687E+03   -0.317719E+03
    0.287712E+09    0.984457E+06
    0.179619E+04    0.874799E+03   -0.317449E+03
    0.288210E+09    0.984499E+06
    0.179691E+04    0.874910E+03   -0.317180E+03
    0.288709E+09    0.984541E+06
    0.179764E+04    0.875022E+03   -0.316910E+03
    0.289207E+09    0.984583E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.179837E+04    0.875133E+03   -0.316641E+03
    0.289706E+09    0.984625E+06
    0.179910E+04    0.875245E+03   -0.316372E+03
    0.290204E+09    0.984667E+06
    0.179982E+04    0.875356E+03   -0.316103E+03
    0.290703E+09    0.984709E+06
    0.180055E+04    0.875467E+03   -0.315834E+03
    0.291201E+09    0.984752E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.180128E+04    0.875579E+03   -0.315565E+03
    0.291699E+09    0.984794E+06
    0.180200E+04    0.875690E+03   -0.315296E+03
    0.292198E+09    0.984836E+06
    0.180273E+04    0.875801E+03   -0.315027E+03
    0.292696E+09    0.984879E+06
    0.180345E+04    0.875912E+03   -0.314758E+03
    0.293195E+09    0.984921E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.180418E+04    0.876023E+03   -0.314490E+03
    0.293693E+09    0.984964E+06
    0.180490E+04    0.876134E+03   -0.314221E+03
    0.294192E+09    0.985006E+06
    0.180563E+04    0.876245E+03   -0.313953E+03
    0.294690E+09    0.985049E+06
    0.180635E+04    0.876356E+03   -0.313684E+03
    0.295189E+09    0.985091E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.180708E+04    0.876467E+03   -0.313416E+03
    0.295687E+09    0.985134E+06
    0.180780E+04    0.876578E+03   -0.313148E+03
    0.296185E+09    0.985177E+06
    0.180852E+04    0.876689E+03   -0.312880E+03
    0.296684E+09    0.985219E+06
    0.180925E+04    0.876799E+03   -0.312612E+03
    0.297182E+09    0.985262E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.180997E+04    0.876910E+03   -0.312344E+03
    0.297681E+09    0.985305E+06
    0.181069E+04    0.877021E+03   -0.312076E+03
    0.298179E+09    0.985348E+06
    0.181142E+04    0.877131E+03   -0.311809E+03
    0.298678E+09    0.985391E+06
    0.181214E+04    0.877242E+03   -0.311541E+03
    0.299176E+09    0.985434E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.181286E+04    0.877352E+03   -0.311274E+03
    0.299675E+09    0.985477E+06
    0.181358E+04    0.877463E+03   -0.311006E+03
    0.300173E+09    0.985520E+06
    0.181431E+04    0.877573E+03   -0.310739E+03
    0.300672E+09    0.985563E+06
    0.181503E+04    0.877683E+03   -0.310472E+03
    0.301170E+09    0.985606E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.181575E+04    0.877794E+03   -0.310204E+03
    0.301668E+09    0.985649E+06
    0.181647E+04    0.877904E+03   -0.309937E+03
    0.302167E+09    0.985692E+06
    0.181719E+04    0.878014E+03   -0.309670E+03
    0.302665E+09    0.985736E+06
    0.181791E+04    0.878124E+03   -0.309403E+03
    0.303164E+09    0.985779E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.181863E+04    0.878234E+03   -0.309137E+03
    0.303662E+09    0.985822E+06
    0.181935E+04    0.878345E+03   -0.308870E+03
    0.304161E+09    0.985866E+06
    0.182007E+04    0.878455E+03   -0.308603E+03
    0.304659E+09    0.985909E+06
    0.182079E+04    0.878565E+03   -0.308337E+03
    0.305158E+09    0.985952E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.182151E+04    0.878675E+03   -0.308070E+03
    0.305656E+09    0.985996E+06
    0.182223E+04    0.878784E+03   -0.307804E+03
    0.306155E+09    0.986039E+06
    0.182295E+04    0.878894E+03   -0.307538E+03
    0.306653E+09    0.986083E+06
    0.182367E+04    0.879004E+03   -0.307272E+03
    0.307151E+09    0.986127E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.182438E+04    0.879114E+03   -0.307006E+03
    0.307650E+09    0.986170E+06
    0.182510E+04    0.879223E+03   -0.306740E+03
    0.308148E+09    0.986214E+06
    0.182582E+04    0.879333E+03   -0.306474E+03
    0.308647E+09    0.986258E+06
    0.182654E+04    0.879443E+03   -0.306208E+03
    0.309145E+09    0.986301E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.182726E+04    0.879552E+03   -0.305942E+03
    0.309644E+09    0.986345E+06
    0.182797E+04    0.879662E+03   -0.305677E+03
    0.310142E+09    0.986389E+06
    0.182869E+04    0.879771E+03   -0.305411E+03
    0.310641E+09    0.986433E+06
    0.182941E+04    0.879881E+03   -0.305146E+03
    0.311139E+09    0.986477E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.183012E+04    0.879990E+03   -0.304880E+03
    0.311637E+09    0.986521E+06
    0.183084E+04    0.880099E+03   -0.304615E+03
    0.312136E+09    0.986565E+06
    0.183156E+04    0.880209E+03   -0.304350E+03
    0.312634E+09    0.986609E+06
    0.183227E+04    0.880318E+03   -0.304085E+03
    0.313133E+09    0.986653E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.183299E+04    0.880427E+03   -0.303820E+03
    0.313631E+09    0.986697E+06
    0.183370E+04    0.880536E+03   -0.303555E+03
    0.314130E+09    0.986742E+06
    0.183442E+04    0.880645E+03   -0.303290E+03
    0.314628E+09    0.986786E+06
    0.183513E+04    0.880754E+03   -0.303025E+03
    0.315127E+09    0.986830E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.183585E+04    0.880863E+03   -0.302761E+03
    0.315625E+09    0.986874E+06
    0.183656E+04    0.880972E+03   -0.302496E+03
    0.316124E+09    0.986919E+06
    0.183727E+04    0.881081E+03   -0.302232E+03
    0.316622E+09    0.986963E+06
    0.183799E+04    0.881190E+03   -0.301967E+03
    0.317120E+09    0.987008E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.183870E+04    0.881299E+03   -0.301703E+03
    0.317619E+09    0.987052E+06
    0.183941E+04    0.881408E+03   -0.301439E+03
    0.318117E+09    0.987097E+06
    0.184013E+04    0.881516E+03   -0.301175E+03
    0.318616E+09    0.987141E+06
    0.184084E+04    0.881625E+03   -0.300911E+03
    0.319114E+09    0.987186E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.184155E+04    0.881734E+03   -0.300647E+03
    0.319613E+09    0.987230E+06
    0.184227E+04    0.881842E+03   -0.300383E+03
    0.320111E+09    0.987275E+06
    0.184298E+04    0.881951E+03   -0.300119E+03
    0.320610E+09    0.987320E+06
    0.184369E+04    0.882059E+03   -0.299855E+03
    0.321108E+09    0.987364E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.184440E+04    0.882168E+03   -0.299592E+03
    0.321607E+09    0.987409E+06
    0.184511E+04    0.882276E+03   -0.299328E+03
    0.322105E+09    0.987454E+06
    0.184582E+04    0.882385E+03   -0.299065E+03
    0.322603E+09    0.987499E+06
    0.184654E+04    0.882493E+03   -0.298802E+03
    0.323102E+09    0.987544E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.184725E+04    0.882601E+03   -0.298538E+03
    0.323600E+09    0.987589E+06
    0.184796E+04    0.882710E+03   -0.298275E+03
    0.324099E+09    0.987634E+06
    0.184867E+04    0.882818E+03   -0.298012E+03
    0.324597E+09    0.987679E+06
    0.184938E+04    0.882926E+03   -0.297749E+03
    0.325096E+09    0.987724E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.185009E+04    0.883034E+03   -0.297486E+03
    0.325594E+09    0.987769E+06
    0.185080E+04    0.883142E+03   -0.297224E+03
    0.326093E+09    0.987814E+06
    0.185151E+04    0.883250E+03   -0.296961E+03
    0.326591E+09    0.987859E+06
    0.185221E+04    0.883358E+03   -0.296698E+03
    0.327090E+09    0.987905E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.185292E+04    0.883466E+03   -0.296436E+03
    0.327588E+09    0.987950E+06
    0.185363E+04    0.883574E+03   -0.296173E+03
    0.328086E+09    0.987995E+06
    0.185434E+04    0.883682E+03   -0.295911E+03
    0.328585E+09    0.988040E+06
    0.185505E+04    0.883789E+03   -0.295649E+03
    0.329083E+09    0.988086E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.185576E+04    0.883897E+03   -0.295386E+03
    0.329582E+09    0.988131E+06
    0.185646E+04    0.884005E+03   -0.295124E+03
    0.330080E+09    0.988177E+06
    0.185717E+04    0.884112E+03   -0.294862E+03
    0.330579E+09    0.988222E+06
    0.185788E+04    0.884220E+03   -0.294600E+03
    0.331077E+09    0.988268E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.185859E+04    0.884328E+03   -0.294338E+03
    0.331576E+09    0.988313E+06
    0.185929E+04    0.884435E+03   -0.294077E+03
    0.332074E+09    0.988359E+06
    0.186000E+04    0.884543E+03   -0.293815E+03
    0.332572E+09    0.988405E+06
    0.186071E+04    0.884650E+03   -0.293553E+03
    0.333071E+09    0.988450E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.186141E+04    0.884757E+03   -0.293292E+03
    0.333569E+09    0.988496E+06
    0.186212E+04    0.884865E+03   -0.293031E+03
    0.334068E+09    0.988542E+06
    0.186282E+04    0.884972E+03   -0.292769E+03
    0.334566E+09    0.988588E+06
    0.186353E+04    0.885079E+03   -0.292508E+03
    0.335065E+09    0.988633E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.186423E+04    0.885187E+03   -0.292247E+03
    0.335563E+09    0.988679E+06
    0.186494E+04    0.885294E+03   -0.291986E+03
    0.336062E+09    0.988725E+06
    0.186564E+04    0.885401E+03   -0.291725E+03
    0.336560E+09    0.988771E+06
    0.186635E+04    0.885508E+03   -0.291464E+03
    0.337059E+09    0.988817E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.186705E+04    0.885615E+03   -0.291203E+03
    0.337557E+09    0.988863E+06
    0.186776E+04    0.885722E+03   -0.290942E+03
    0.338055E+09    0.988909E+06
    0.186846E+04    0.885829E+03   -0.290682E+03
    0.338554E+09    0.988955E+06
    0.186916E+04    0.885936E+03   -0.290421E+03
    0.339052E+09    0.989002E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.186987E+04    0.886043E+03   -0.290161E+03
    0.339551E+09    0.989048E+06
    0.187057E+04    0.886149E+03   -0.289900E+03
    0.340049E+09    0.989094E+06
    0.187127E+04    0.886256E+03   -0.289640E+03
    0.340548E+09    0.989140E+06
    0.187197E+04    0.886363E+03   -0.289380E+03
    0.341046E+09    0.989187E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.187268E+04    0.886470E+03   -0.289119E+03
    0.341545E+09    0.989233E+06
    0.187338E+04    0.886576E+03   -0.288859E+03
    0.342043E+09    0.989279E+06
    0.187408E+04    0.886683E+03   -0.288599E+03
    0.342542E+09    0.989326E+06
    0.187478E+04    0.886789E+03   -0.288340E+03
    0.343040E+09    0.989372E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.187548E+04    0.886896E+03   -0.288080E+03
    0.343538E+09    0.989419E+06
    0.187619E+04    0.887002E+03   -0.287820E+03
    0.344037E+09    0.989465E+06
    0.187689E+04    0.887109E+03   -0.287560E+03
    0.344535E+09    0.989512E+06
    0.187759E+04    0.887215E+03   -0.287301E+03
    0.345034E+09    0.989558E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.187829E+04    0.887321E+03   -0.287041E+03
    0.345532E+09    0.989605E+06
    0.187899E+04    0.887428E+03   -0.286782E+03
    0.346031E+09    0.989652E+06
    0.187969E+04    0.887534E+03   -0.286523E+03
    0.346529E+09    0.989698E+06
    0.188039E+04    0.887640E+03   -0.286263E+03
    0.347028E+09    0.989745E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.188109E+04    0.887746E+03   -0.286004E+03
    0.347526E+09    0.989792E+06
    0.188179E+04    0.887852E+03   -0.285745E+03
    0.348025E+09    0.989839E+06
    0.188249E+04    0.887959E+03   -0.285486E+03
    0.348523E+09    0.989886E+06
    0.188319E+04    0.888065E+03   -0.285227E+03
    0.349021E+09    0.989932E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.188388E+04    0.888171E+03   -0.284969E+03
    0.349520E+09    0.989979E+06
    0.188458E+04    0.888277E+03   -0.284710E+03
    0.350018E+09    0.990026E+06
    0.188528E+04    0.888382E+03   -0.284451E+03
    0.350517E+09    0.990073E+06
    0.188598E+04    0.888488E+03   -0.284193E+03
    0.351015E+09    0.990120E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.188668E+04    0.888594E+03   -0.283934E+03
    0.351514E+09    0.990167E+06
    0.188738E+04    0.888700E+03   -0.283676E+03
    0.352012E+09    0.990215E+06
    0.188807E+04    0.888806E+03   -0.283417E+03
    0.352511E+09    0.990262E+06
    0.188877E+04    0.888911E+03   -0.283159E+03
    0.353009E+09    0.990309E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.188947E+04    0.889017E+03   -0.282901E+03
    0.353507E+09    0.990356E+06
    0.189016E+04    0.889123E+03   -0.282643E+03
    0.354006E+09    0.990403E+06
    0.189086E+04    0.889228E+03   -0.282385E+03
    0.354504E+09    0.990451E+06
    0.189156E+04    0.889334E+03   -0.282127E+03
    0.355003E+09    0.990498E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.189225E+04    0.889439E+03   -0.281869E+03
    0.355501E+09    0.990545E+06
    0.189295E+04    0.889545E+03   -0.281612E+03
    0.356000E+09    0.990593E+06
    0.189364E+04    0.889650E+03   -0.281354E+03
    0.356498E+09    0.990640E+06
    0.189434E+04    0.889755E+03   -0.281096E+03
    0.356997E+09    0.990688E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.189503E+04    0.889861E+03   -0.280839E+03
    0.357495E+09    0.990735E+06
    0.189573E+04    0.889966E+03   -0.280582E+03
    0.357994E+09    0.990783E+06
    0.189642E+04    0.890071E+03   -0.280324E+03
    0.358492E+09    0.990830E+06
    0.189712E+04    0.890176E+03   -0.280067E+03
    0.358990E+09    0.990878E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.189781E+04    0.890281E+03   -0.279810E+03
    0.359489E+09    0.990926E+06
    0.189851E+04    0.890386E+03   -0.279553E+03
    0.359987E+09    0.990973E+06
    0.189920E+04    0.890491E+03   -0.279296E+03
    0.360486E+09    0.991021E+06
    0.189989E+04    0.890596E+03   -0.279039E+03
    0.360984E+09    0.991069E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.190059E+04    0.890701E+03   -0.278782E+03
    0.361483E+09    0.991117E+06
    0.190128E+04    0.890806E+03   -0.278525E+03
    0.361981E+09    0.991164E+06
    0.190197E+04    0.890911E+03   -0.278269E+03
    0.362480E+09    0.991212E+06
    0.190267E+04    0.891016E+03   -0.278012E+03
    0.362978E+09    0.991260E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.190336E+04    0.891121E+03   -0.277756E+03
    0.363477E+09    0.991308E+06
    0.190405E+04    0.891226E+03   -0.277499E+03
    0.363975E+09    0.991356E+06
    0.190474E+04    0.891330E+03   -0.277243E+03
    0.364473E+09    0.991404E+06
    0.190544E+04    0.891435E+03   -0.276987E+03
    0.364972E+09    0.991452E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.190613E+04    0.891540E+03   -0.276731E+03
    0.365470E+09    0.991500E+06
    0.190682E+04    0.891644E+03   -0.276474E+03
    0.365969E+09    0.991548E+06
    0.190751E+04    0.891749E+03   -0.276218E+03
    0.366467E+09    0.991597E+06
    0.190820E+04    0.891853E+03   -0.275963E+03
    0.366966E+09    0.991645E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.190889E+04    0.891958E+03   -0.275707E+03
    0.367464E+09    0.991693E+06
    0.190958E+04    0.892062E+03   -0.275451E+03
    0.367963E+09    0.991741E+06
    0.191027E+04    0.892167E+03   -0.275195E+03
    0.368461E+09    0.991790E+06
    0.191096E+04    0.892271E+03   -0.274940E+03
    0.368960E+09    0.991838E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.191165E+04    0.892375E+03   -0.274684E+03
    0.369458E+09    0.991886E+06
    0.191234E+04    0.892479E+03   -0.274429E+03
    0.369956E+09    0.991935E+06
    0.191303E+04    0.892584E+03   -0.274173E+03
    0.370455E+09    0.991983E+06
    0.191372E+04    0.892688E+03   -0.273918E+03
    0.370953E+09    0.992032E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.191441E+04    0.892792E+03   -0.273663E+03
    0.371452E+09    0.992080E+06
    0.191510E+04    0.892896E+03   -0.273408E+03
    0.371950E+09    0.992129E+06
    0.191579E+04    0.893000E+03   -0.273153E+03
    0.372449E+09    0.992177E+06
    0.191648E+04    0.893104E+03   -0.272898E+03
    0.372947E+09    0.992226E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.191716E+04    0.893208E+03   -0.272643E+03
    0.373446E+09    0.992274E+06
    0.191785E+04    0.893312E+03   -0.272388E+03
    0.373944E+09    0.992323E+06
    0.191854E+04    0.893416E+03   -0.272133E+03
    0.374442E+09    0.992372E+06
    0.191923E+04    0.893520E+03   -0.271879E+03
    0.374941E+09    0.992421E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.191991E+04    0.893624E+03   -0.271624E+03
    0.375439E+09    0.992469E+06
    0.192060E+04    0.893727E+03   -0.271370E+03
    0.375938E+09    0.992518E+06
    0.192129E+04    0.893831E+03   -0.271115E+03
    0.376436E+09    0.992567E+06
    0.192198E+04    0.893935E+03   -0.270861E+03
    0.376935E+09    0.992616E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.192266E+04    0.894038E+03   -0.270607E+03
    0.377433E+09    0.992665E+06
    0.192335E+04    0.894142E+03   -0.270353E+03
    0.377932E+09    0.992714E+06
    0.192403E+04    0.894246E+03   -0.270098E+03
    0.378430E+09    0.992763E+06
    0.192472E+04    0.894349E+03   -0.269844E+03
    0.378929E+09    0.992812E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.192541E+04    0.894453E+03   -0.269591E+03
    0.379427E+09    0.992861E+06
    0.192609E+04    0.894556E+03   -0.269337E+03
    0.379925E+09    0.992910E+06
    0.192678E+04    0.894659E+03   -0.269083E+03
    0.380424E+09    0.992959E+06
    0.192746E+04    0.894763E+03   -0.268829E+03
    0.380922E+09    0.993008E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.192815E+04    0.894866E+03   -0.268576E+03
    0.381421E+09    0.993057E+06
    0.192883E+04    0.894969E+03   -0.268322E+03
    0.381919E+09    0.993106E+06
    0.192951E+04    0.895073E+03   -0.268069E+03
    0.382418E+09    0.993156E+06
    0.193020E+04    0.895176E+03   -0.267815E+03
    0.382916E+09    0.993205E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.193088E+04    0.895279E+03   -0.267562E+03
    0.383415E+09    0.993254E+06
    0.193157E+04    0.895382E+03   -0.267309E+03
    0.383913E+09    0.993304E+06
    0.193225E+04    0.895485E+03   -0.267056E+03
    0.384412E+09    0.993353E+06
    0.193293E+04    0.895588E+03   -0.266803E+03
    0.384910E+09    0.993402E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.193362E+04    0.895691E+03   -0.266550E+03
    0.385408E+09    0.993452E+06
    0.193430E+04    0.895794E+03   -0.266297E+03
    0.385907E+09    0.993501E+06
    0.193498E+04    0.895897E+03   -0.266044E+03
    0.386405E+09    0.993551E+06
    0.193566E+04    0.896000E+03   -0.265791E+03
    0.386904E+09    0.993600E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.193635E+04    0.896103E+03   -0.265538E+03
    0.387402E+09    0.993650E+06
    0.193703E+04    0.896205E+03   -0.265286E+03
    0.387901E+09    0.993700E+06
    0.193771E+04    0.896308E+03   -0.265033E+03
    0.388399E+09    0.993749E+06
    0.193839E+04    0.896411E+03   -0.264781E+03
    0.388898E+09    0.993799E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.193907E+04    0.896514E+03   -0.264529E+03
    0.389396E+09    0.993849E+06
    0.193975E+04    0.896616E+03   -0.264276E+03
    0.389894E+09    0.993898E+06
    0.194043E+04    0.896719E+03   -0.264024E+03
    0.390393E+09    0.993948E+06
    0.194112E+04    0.896821E+03   -0.263772E+03
    0.390891E+09    0.993998E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.194180E+04    0.896924E+03   -0.263520E+03
    0.391390E+09    0.994048E+06
    0.194248E+04    0.897026E+03   -0.263268E+03
    0.391888E+09    0.994098E+06
    0.194316E+04    0.897129E+03   -0.263016E+03
    0.392387E+09    0.994148E+06
    0.194384E+04    0.897231E+03   -0.262764E+03
    0.392885E+09    0.994198E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.194452E+04    0.897333E+03   -0.262513E+03
    0.393384E+09    0.994248E+06
    0.194520E+04    0.897436E+03   -0.262261E+03
    0.393882E+09    0.994298E+06
    0.194587E+04    0.897538E+03   -0.262009E+03
    0.394381E+09    0.994348E+06
    0.194655E+04    0.897640E+03   -0.261758E+03
    0.394879E+09    0.994398E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.194723E+04    0.897742E+03   -0.261507E+03
    0.395377E+09    0.994448E+06
    0.194791E+04    0.897845E+03   -0.261255E+03
    0.395876E+09    0.994498E+06
    0.194859E+04    0.897947E+03   -0.261004E+03
    0.396374E+09    0.994548E+06
    0.194927E+04    0.898049E+03   -0.260753E+03
    0.396873E+09    0.994598E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.194995E+04    0.898151E+03   -0.260502E+03
    0.397371E+09    0.994649E+06
    0.195062E+04    0.898253E+03   -0.260251E+03
    0.397870E+09    0.994699E+06
    0.195130E+04    0.898355E+03   -0.260000E+03
    0.398368E+09    0.994749E+06
    0.195198E+04    0.898457E+03   -0.259749E+03
    0.398867E+09    0.994800E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.195266E+04    0.898559E+03   -0.259498E+03
    0.399365E+09    0.994850E+06
    0.195333E+04    0.898660E+03   -0.259247E+03
    0.399864E+09    0.994900E+06
    0.195401E+04    0.898762E+03   -0.258997E+03
    0.400362E+09    0.994951E+06
    0.195469E+04    0.898864E+03   -0.258746E+03
    0.400860E+09    0.995001E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.195536E+04    0.898966E+03   -0.258496E+03
    0.401359E+09    0.995052E+06
    0.195604E+04    0.899067E+03   -0.258245E+03
    0.401857E+09    0.995102E+06
    0.195671E+04    0.899169E+03   -0.257995E+03
    0.402356E+09    0.995153E+06
    0.195739E+04    0.899271E+03   -0.257744E+03
    0.402854E+09    0.995203E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.195807E+04    0.899372E+03   -0.257494E+03
    0.403353E+09    0.995254E+06
    0.195874E+04    0.899474E+03   -0.257244E+03
    0.403851E+09    0.995305E+06
    0.195942E+04    0.899575E+03   -0.256994E+03
    0.404350E+09    0.995355E+06
    0.196009E+04    0.899677E+03   -0.256744E+03
    0.404848E+09    0.995406E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.196077E+04    0.899778E+03   -0.256494E+03
    0.405347E+09    0.995457E+06
    0.196144E+04    0.899879E+03   -0.256245E+03
    0.405845E+09    0.995508E+06
    0.196211E+04    0.899981E+03   -0.255995E+03
    0.406343E+09    0.995558E+06
    0.196279E+04    0.900082E+03   -0.255745E+03
    0.406842E+09    0.995609E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.196346E+04    0.900183E+03   -0.255496E+03
    0.407340E+09    0.995660E+06
    0.196414E+04    0.900285E+03   -0.255246E+03
    0.407839E+09    0.995711E+06
    0.196481E+04    0.900386E+03   -0.254997E+03
    0.408337E+09    0.995762E+06
    0.196548E+04    0.900487E+03   -0.254747E+03
    0.408836E+09    0.995813E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.196616E+04    0.900588E+03   -0.254498E+03
    0.409334E+09    0.995864E+06
    0.196683E+04    0.900689E+03   -0.254249E+03
    0.409833E+09    0.995915E+06
    0.196750E+04    0.900790E+03   -0.254000E+03
    0.410331E+09    0.995966E+06
    0.196817E+04    0.900891E+03   -0.253751E+03
    0.410829E+09    0.996017E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.196885E+04    0.900992E+03   -0.253502E+03
    0.411328E+09    0.996068E+06
    0.196952E+04    0.901093E+03   -0.253253E+03
    0.411826E+09    0.996119E+06
    0.197019E+04    0.901194E+03   -0.253004E+03
    0.412325E+09    0.996170E+06
    0.197086E+04    0.901295E+03   -0.252755E+03
    0.412823E+09    0.996222E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.197153E+04    0.901395E+03   -0.252506E+03
    0.413322E+09    0.996273E+06
    0.197220E+04    0.901496E+03   -0.252258E+03
    0.413820E+09    0.996324E+06
    0.197287E+04    0.901597E+03   -0.252009E+03
    0.414319E+09    0.996376E+06
    0.197355E+04    0.901697E+03   -0.251761E+03
    0.414817E+09    0.996427E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.197422E+04    0.901798E+03   -0.251513E+03
    0.415316E+09    0.996478E+06
    0.197489E+04    0.901899E+03   -0.251264E+03
    0.415814E+09    0.996530E+06
    0.197556E+04    0.901999E+03   -0.251016E+03
    0.416312E+09    0.996581E+06
    0.197623E+04    0.902100E+03   -0.250768E+03
    0.416811E+09    0.996633E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.197690E+04    0.902200E+03   -0.250520E+03
    0.417309E+09    0.996684E+06
    0.197757E+04    0.902301E+03   -0.250272E+03
    0.417808E+09    0.996736E+06
    0.197824E+04    0.902401E+03   -0.250024E+03
    0.418306E+09    0.996787E+06
    0.197890E+04    0.902502E+03   -0.249776E+03
    0.418805E+09    0.996839E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.197957E+04    0.902602E+03   -0.249528E+03
    0.419303E+09    0.996890E+06
    0.198024E+04    0.902702E+03   -0.249281E+03
    0.419802E+09    0.996942E+06
    0.198091E+04    0.902802E+03   -0.249033E+03
    0.420300E+09    0.996994E+06
    0.198158E+04    0.902903E+03   -0.248785E+03
    0.420799E+09    0.997045E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.198225E+04    0.903003E+03   -0.248538E+03
    0.421297E+09    0.997097E+06
    0.198292E+04    0.903103E+03   -0.248290E+03
    0.421795E+09    0.997149E+06
    0.198358E+04    0.903203E+03   -0.248043E+03
    0.422294E+09    0.997201E+06
    0.198425E+04    0.903303E+03   -0.247796E+03
    0.422792E+09    0.997252E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.198492E+04    0.903403E+03   -0.247549E+03
    0.423291E+09    0.997304E+06
    0.198559E+04    0.903503E+03   -0.247302E+03
    0.423789E+09    0.997356E+06
    0.198625E+04    0.903603E+03   -0.247055E+03
    0.424288E+09    0.997408E+06
    0.198692E+04    0.903703E+03   -0.246808E+03
    0.424786E+09    0.997460E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.198759E+04    0.903803E+03   -0.246561E+03
    0.425285E+09    0.997512E+06
    0.198825E+04    0.903903E+03   -0.246314E+03
    0.425783E+09    0.997564E+06
    0.198892E+04    0.904003E+03   -0.246067E+03
    0.426282E+09    0.997616E+06
    0.198958E+04    0.904102E+03   -0.245820E+03
    0.426780E+09    0.997668E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.199025E+04    0.904202E+03   -0.245574E+03
    0.427278E+09    0.997720E+06
    0.199092E+04    0.904302E+03   -0.245327E+03
    0.427777E+09    0.997772E+06
    0.199158E+04    0.904401E+03   -0.245081E+03
    0.428275E+09    0.997825E+06
    0.199225E+04    0.904501E+03   -0.244834E+03
    0.428774E+09    0.997877E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.199291E+04    0.904601E+03   -0.244588E+03
    0.429272E+09    0.997929E+06
    0.199358E+04    0.904700E+03   -0.244342E+03
    0.429771E+09    0.997981E+06
    0.199424E+04    0.904800E+03   -0.244096E+03
    0.430269E+09    0.998033E+06
    0.199491E+04    0.904899E+03   -0.243850E+03
    0.430768E+09    0.998086E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.199557E+04    0.904999E+03   -0.243604E+03
    0.431266E+09    0.998138E+06
    0.199623E+04    0.905098E+03   -0.243358E+03
    0.431764E+09    0.998190E+06
    0.199690E+04    0.905197E+03   -0.243112E+03
    0.432263E+09    0.998243E+06
    0.199756E+04    0.905297E+03   -0.242866E+03
    0.432761E+09    0.998295E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.199822E+04    0.905396E+03   -0.242620E+03
    0.433260E+09    0.998348E+06
    0.199889E+04    0.905495E+03   -0.242375E+03
    0.433758E+09    0.998400E+06
    0.199955E+04    0.905594E+03   -0.242129E+03
    0.434257E+09    0.998453E+06
    0.200021E+04    0.905694E+03   -0.241884E+03
    0.434755E+09    0.998505E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.200088E+04    0.905793E+03   -0.241638E+03
    0.435254E+09    0.998558E+06
    0.200154E+04    0.905892E+03   -0.241393E+03
    0.435752E+09    0.998610E+06
    0.200220E+04    0.905991E+03   -0.241148E+03
    0.436251E+09    0.998663E+06
    0.200286E+04    0.906090E+03   -0.240902E+03
    0.436749E+09    0.998716E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.200353E+04    0.906189E+03   -0.240657E+03
    0.437247E+09    0.998768E+06
    0.200419E+04    0.906288E+03   -0.240412E+03
    0.437746E+09    0.998821E+06
    0.200485E+04    0.906387E+03   -0.240167E+03
    0.438244E+09    0.998874E+06
    0.200551E+04    0.906486E+03   -0.239922E+03
    0.438743E+09    0.998927E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.200617E+04    0.906584E+03   -0.239677E+03
    0.439241E+09    0.998979E+06
    0.200683E+04    0.906683E+03   -0.239433E+03
    0.439740E+09    0.999032E+06
    0.200749E+04    0.906782E+03   -0.239188E+03
    0.440238E+09    0.999085E+06
    0.200815E+04    0.906881E+03   -0.238943E+03
    0.440737E+09    0.999138E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.200881E+04    0.906979E+03   -0.238699E+03
    0.441235E+09    0.999191E+06
    0.200947E+04    0.907078E+03   -0.238454E+03
    0.441734E+09    0.999244E+06
    0.201013E+04    0.907177E+03   -0.238210E+03
    0.442232E+09    0.999297E+06
    0.201079E+04    0.907275E+03   -0.237966E+03
    0.442730E+09    0.999350E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.201145E+04    0.907374E+03   -0.237721E+03
    0.443229E+09    0.999403E+06
    0.201211E+04    0.907472E+03   -0.237477E+03
    0.443727E+09    0.999456E+06
    0.201277E+04    0.907571E+03   -0.237233E+03
    0.444226E+09    0.999509E+06
    0.201343E+04    0.907669E+03   -0.236989E+03
    0.444724E+09    0.999562E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.201409E+04    0.907768E+03   -0.236745E+03
    0.445223E+09    0.999615E+06
    0.201475E+04    0.907866E+03   -0.236501E+03
    0.445721E+09    0.999668E+06
    0.201541E+04    0.907964E+03   -0.236257E+03
    0.446220E+09    0.999722E+06
    0.201606E+04    0.908063E+03   -0.236013E+03
    0.446718E+09    0.999775E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.201672E+04    0.908161E+03   -0.235770E+03
    0.447216E+09    0.999828E+06
    0.201738E+04    0.908259E+03   -0.235526E+03
    0.447715E+09    0.999881E+06
    0.201804E+04    0.908357E+03   -0.235282E+03
    0.448213E+09    0.999935E+06
    0.201869E+04    0.908456E+03   -0.235039E+03
    0.448712E+09    0.999988E+06
 );
 LEXACT = LEXACT ET ( PROG 
    0.201935E+04    0.908554E+03   -0.234796E+03
    0.449210E+09    0.100004E+07
    0.202001E+04    0.908652E+03   -0.234552E+03
    0.449709E+09    0.100009E+07
    0.202067E+04    0.908750E+03   -0.234309E+03
    0.450207E+09    0.100015E+07
    0.202132E+04    0.908848E+03   -0.234066E+03
    0.450706E+09    0.100020E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.202198E+04    0.908946E+03   -0.233823E+03
    0.451204E+09    0.100026E+07
    0.202264E+04    0.909044E+03   -0.233579E+03
    0.451703E+09    0.100031E+07
    0.202329E+04    0.909142E+03   -0.233336E+03
    0.452201E+09    0.100036E+07
    0.202395E+04    0.909239E+03   -0.233094E+03
    0.452699E+09    0.100042E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.202460E+04    0.909337E+03   -0.232851E+03
    0.453198E+09    0.100047E+07
    0.202526E+04    0.909435E+03   -0.232608E+03
    0.453696E+09    0.100052E+07
    0.202591E+04    0.909533E+03   -0.232365E+03
    0.454195E+09    0.100058E+07
    0.202657E+04    0.909631E+03   -0.232123E+03
    0.454693E+09    0.100063E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.202722E+04    0.909728E+03   -0.231880E+03
    0.455192E+09    0.100068E+07
    0.202788E+04    0.909826E+03   -0.231638E+03
    0.455690E+09    0.100074E+07
    0.202853E+04    0.909924E+03   -0.231395E+03
    0.456189E+09    0.100079E+07
    0.202919E+04    0.910021E+03   -0.231153E+03
    0.456687E+09    0.100085E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.202984E+04    0.910119E+03   -0.230910E+03
    0.457186E+09    0.100090E+07
    0.203050E+04    0.910216E+03   -0.230668E+03
    0.457684E+09    0.100095E+07
    0.203115E+04    0.910314E+03   -0.230426E+03
    0.458182E+09    0.100101E+07
    0.203180E+04    0.910411E+03   -0.230184E+03
    0.458681E+09    0.100106E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.203246E+04    0.910508E+03   -0.229942E+03
    0.459179E+09    0.100111E+07
    0.203311E+04    0.910606E+03   -0.229700E+03
    0.459678E+09    0.100117E+07
    0.203376E+04    0.910703E+03   -0.229458E+03
    0.460176E+09    0.100122E+07
    0.203442E+04    0.910800E+03   -0.229216E+03
    0.460675E+09    0.100128E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.203507E+04    0.910898E+03   -0.228975E+03
    0.461173E+09    0.100133E+07
    0.203572E+04    0.910995E+03   -0.228733E+03
    0.461672E+09    0.100138E+07
    0.203637E+04    0.911092E+03   -0.228491E+03
    0.462170E+09    0.100144E+07
    0.203703E+04    0.911189E+03   -0.228250E+03
    0.462669E+09    0.100149E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.203768E+04    0.911286E+03   -0.228008E+03
    0.463167E+09    0.100155E+07
    0.203833E+04    0.911383E+03   -0.227767E+03
    0.463665E+09    0.100160E+07
    0.203898E+04    0.911481E+03   -0.227526E+03
    0.464164E+09    0.100166E+07
    0.203963E+04    0.911578E+03   -0.227284E+03
    0.464662E+09    0.100171E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.204028E+04    0.911675E+03   -0.227043E+03
    0.465161E+09    0.100176E+07
    0.204093E+04    0.911771E+03   -0.226802E+03
    0.465659E+09    0.100182E+07
    0.204158E+04    0.911868E+03   -0.226561E+03
    0.466158E+09    0.100187E+07
    0.204224E+04    0.911965E+03   -0.226320E+03
    0.466656E+09    0.100193E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.204289E+04    0.912062E+03   -0.226079E+03
    0.467155E+09    0.100198E+07
    0.204354E+04    0.912159E+03   -0.225838E+03
    0.467653E+09    0.100204E+07
    0.204419E+04    0.912256E+03   -0.225598E+03
    0.468151E+09    0.100209E+07
    0.204484E+04    0.912352E+03   -0.225357E+03
    0.468650E+09    0.100214E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.204549E+04    0.912449E+03   -0.225116E+03
    0.469148E+09    0.100220E+07
    0.204614E+04    0.912546E+03   -0.224876E+03
    0.469647E+09    0.100225E+07
    0.204678E+04    0.912642E+03   -0.224635E+03
    0.470145E+09    0.100231E+07
    0.204743E+04    0.912739E+03   -0.224395E+03
    0.470644E+09    0.100236E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.204808E+04    0.912836E+03   -0.224155E+03
    0.471142E+09    0.100242E+07
    0.204873E+04    0.912932E+03   -0.223914E+03
    0.471641E+09    0.100247E+07
    0.204938E+04    0.913029E+03   -0.223674E+03
    0.472139E+09    0.100253E+07
    0.205003E+04    0.913125E+03   -0.223434E+03
    0.472638E+09    0.100258E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.205068E+04    0.913221E+03   -0.223194E+03
    0.473136E+09    0.100264E+07
    0.205132E+04    0.913318E+03   -0.222954E+03
    0.473634E+09    0.100269E+07
    0.205197E+04    0.913414E+03   -0.222714E+03
    0.474133E+09    0.100274E+07
    0.205262E+04    0.913510E+03   -0.222474E+03
    0.474631E+09    0.100280E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.205327E+04    0.913607E+03   -0.222234E+03
    0.475130E+09    0.100285E+07
    0.205391E+04    0.913703E+03   -0.221995E+03
    0.475628E+09    0.100291E+07
    0.205456E+04    0.913799E+03   -0.221755E+03
    0.476127E+09    0.100296E+07
    0.205521E+04    0.913895E+03   -0.221515E+03
    0.476625E+09    0.100302E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.205586E+04    0.913992E+03   -0.221276E+03
    0.477124E+09    0.100307E+07
    0.205650E+04    0.914088E+03   -0.221036E+03
    0.477622E+09    0.100313E+07
    0.205715E+04    0.914184E+03   -0.220797E+03
    0.478121E+09    0.100318E+07
    0.205779E+04    0.914280E+03   -0.220558E+03
    0.478619E+09    0.100324E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.205844E+04    0.914376E+03   -0.220318E+03
    0.479117E+09    0.100329E+07
    0.205909E+04    0.914472E+03   -0.220079E+03
    0.479616E+09    0.100335E+07
    0.205973E+04    0.914568E+03   -0.219840E+03
    0.480114E+09    0.100340E+07
    0.206038E+04    0.914664E+03   -0.219601E+03
    0.480613E+09    0.100346E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.206102E+04    0.914759E+03   -0.219362E+03
    0.481111E+09    0.100351E+07
    0.206167E+04    0.914855E+03   -0.219123E+03
    0.481610E+09    0.100357E+07
    0.206231E+04    0.914951E+03   -0.218884E+03
    0.482108E+09    0.100362E+07
    0.206296E+04    0.915047E+03   -0.218645E+03
    0.482607E+09    0.100368E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.206360E+04    0.915143E+03   -0.218407E+03
    0.483105E+09    0.100373E+07
    0.206425E+04    0.915238E+03   -0.218168E+03
    0.483604E+09    0.100379E+07
    0.206489E+04    0.915334E+03   -0.217929E+03
    0.484102E+09    0.100385E+07
    0.206553E+04    0.915430E+03   -0.217691E+03
    0.484600E+09    0.100390E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.206618E+04    0.915525E+03   -0.217453E+03
    0.485099E+09    0.100396E+07
    0.206682E+04    0.915621E+03   -0.217214E+03
    0.485597E+09    0.100401E+07
    0.206747E+04    0.915716E+03   -0.216976E+03
    0.486096E+09    0.100407E+07
    0.206811E+04    0.915812E+03   -0.216738E+03
    0.486594E+09    0.100412E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.206875E+04    0.915907E+03   -0.216499E+03
    0.487093E+09    0.100418E+07
    0.206939E+04    0.916003E+03   -0.216261E+03
    0.487591E+09    0.100423E+07
    0.207004E+04    0.916098E+03   -0.216023E+03
    0.488090E+09    0.100429E+07
    0.207068E+04    0.916193E+03   -0.215785E+03
    0.488588E+09    0.100434E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.207132E+04    0.916289E+03   -0.215547E+03
    0.489086E+09    0.100440E+07
    0.207196E+04    0.916384E+03   -0.215310E+03
    0.489585E+09    0.100445E+07
    0.207261E+04    0.916479E+03   -0.215072E+03
    0.490083E+09    0.100451E+07
    0.207325E+04    0.916575E+03   -0.214834E+03
    0.490582E+09    0.100457E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.207389E+04    0.916670E+03   -0.214596E+03
    0.491080E+09    0.100462E+07
    0.207453E+04    0.916765E+03   -0.214359E+03
    0.491579E+09    0.100468E+07
    0.207517E+04    0.916860E+03   -0.214121E+03
    0.492077E+09    0.100473E+07
    0.207581E+04    0.916955E+03   -0.213884E+03
    0.492576E+09    0.100479E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.207645E+04    0.917050E+03   -0.213647E+03
    0.493074E+09    0.100484E+07
    0.207709E+04    0.917145E+03   -0.213409E+03
    0.493573E+09    0.100490E+07
    0.207774E+04    0.917240E+03   -0.213172E+03
    0.494071E+09    0.100496E+07
    0.207838E+04    0.917335E+03   -0.212935E+03
    0.494569E+09    0.100501E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.207902E+04    0.917430E+03   -0.212698E+03
    0.495068E+09    0.100507E+07
    0.207966E+04    0.917525E+03   -0.212461E+03
    0.495566E+09    0.100512E+07
    0.208030E+04    0.917620E+03   -0.212224E+03
    0.496065E+09    0.100518E+07
    0.208094E+04    0.917715E+03   -0.211987E+03
    0.496563E+09    0.100523E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.208158E+04    0.917809E+03   -0.211750E+03
    0.497062E+09    0.100529E+07
    0.208221E+04    0.917904E+03   -0.211513E+03
    0.497560E+09    0.100535E+07
    0.208285E+04    0.917999E+03   -0.211276E+03
    0.498059E+09    0.100540E+07
    0.208349E+04    0.918094E+03   -0.211040E+03
    0.498557E+09    0.100546E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.208413E+04    0.918188E+03   -0.210803E+03
    0.499056E+09    0.100551E+07
    0.208477E+04    0.918283E+03   -0.210567E+03
    0.499554E+09    0.100557E+07
    0.208541E+04    0.918377E+03   -0.210330E+03
    0.500052E+09    0.100563E+07
    0.208605E+04    0.918472E+03   -0.210094E+03
    0.500551E+09    0.100568E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.208668E+04    0.918567E+03   -0.209857E+03
    0.501049E+09    0.100574E+07
    0.208732E+04    0.918661E+03   -0.209621E+03
    0.501548E+09    0.100579E+07
    0.208796E+04    0.918756E+03   -0.209385E+03
    0.502046E+09    0.100585E+07
    0.208860E+04    0.918850E+03   -0.209149E+03
    0.502545E+09    0.100591E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.208924E+04    0.918944E+03   -0.208913E+03
    0.503043E+09    0.100596E+07
    0.208987E+04    0.919039E+03   -0.208677E+03
    0.503542E+09    0.100602E+07
    0.209051E+04    0.919133E+03   -0.208441E+03
    0.504040E+09    0.100608E+07
    0.209115E+04    0.919227E+03   -0.208205E+03
    0.504539E+09    0.100613E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.209178E+04    0.919322E+03   -0.207969E+03
    0.505037E+09    0.100619E+07
    0.209242E+04    0.919416E+03   -0.207734E+03
    0.505535E+09    0.100624E+07
    0.209306E+04    0.919510E+03   -0.207498E+03
    0.506034E+09    0.100630E+07
    0.209369E+04    0.919604E+03   -0.207262E+03
    0.506532E+09    0.100636E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.209433E+04    0.919698E+03   -0.207027E+03
    0.507031E+09    0.100641E+07
    0.209496E+04    0.919792E+03   -0.206791E+03
    0.507529E+09    0.100647E+07
    0.209560E+04    0.919886E+03   -0.206556E+03
    0.508028E+09    0.100653E+07
    0.209623E+04    0.919981E+03   -0.206321E+03
    0.508526E+09    0.100658E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.209687E+04    0.920075E+03   -0.206085E+03
    0.509025E+09    0.100664E+07
    0.209750E+04    0.920168E+03   -0.205850E+03
    0.509523E+09    0.100670E+07
    0.209814E+04    0.920262E+03   -0.205615E+03
    0.510021E+09    0.100675E+07
    0.209877E+04    0.920356E+03   -0.205380E+03
    0.510520E+09    0.100681E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.209941E+04    0.920450E+03   -0.205145E+03
    0.511018E+09    0.100687E+07
    0.210004E+04    0.920544E+03   -0.204910E+03
    0.511517E+09    0.100692E+07
    0.210068E+04    0.920638E+03   -0.204675E+03
    0.512015E+09    0.100698E+07
    0.210131E+04    0.920732E+03   -0.204440E+03
    0.512514E+09    0.100704E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.210195E+04    0.920825E+03   -0.204205E+03
    0.513012E+09    0.100709E+07
    0.210258E+04    0.920919E+03   -0.203971E+03
    0.513511E+09    0.100715E+07
    0.210321E+04    0.921013E+03   -0.203736E+03
    0.514009E+09    0.100721E+07
    0.210385E+04    0.921106E+03   -0.203502E+03
    0.514508E+09    0.100726E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.210448E+04    0.921200E+03   -0.203267E+03
    0.515006E+09    0.100732E+07
    0.210511E+04    0.921294E+03   -0.203033E+03
    0.515504E+09    0.100738E+07
    0.210574E+04    0.921387E+03   -0.202798E+03
    0.516003E+09    0.100743E+07
    0.210638E+04    0.921481E+03   -0.202564E+03
    0.516501E+09    0.100749E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.210701E+04    0.921574E+03   -0.202330E+03
    0.517000E+09    0.100755E+07
    0.210764E+04    0.921668E+03   -0.202096E+03
    0.517498E+09    0.100760E+07
    0.210827E+04    0.921761E+03   -0.201861E+03
    0.517997E+09    0.100766E+07
    0.210891E+04    0.921854E+03   -0.201627E+03
    0.518495E+09    0.100772E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.210954E+04    0.921948E+03   -0.201393E+03
    0.518994E+09    0.100777E+07
    0.211017E+04    0.922041E+03   -0.201159E+03
    0.519492E+09    0.100783E+07
    0.211080E+04    0.922134E+03   -0.200926E+03
    0.519991E+09    0.100789E+07
    0.211143E+04    0.922228E+03   -0.200692E+03
    0.520489E+09    0.100795E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.211206E+04    0.922321E+03   -0.200458E+03
    0.520987E+09    0.100800E+07
    0.211269E+04    0.922414E+03   -0.200224E+03
    0.521486E+09    0.100806E+07
    0.211332E+04    0.922507E+03   -0.199991E+03
    0.521984E+09    0.100812E+07
    0.211396E+04    0.922600E+03   -0.199757E+03
    0.522483E+09    0.100817E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.211459E+04    0.922693E+03   -0.199524E+03
    0.522981E+09    0.100823E+07
    0.211522E+04    0.922786E+03   -0.199290E+03
    0.523480E+09    0.100829E+07
    0.211585E+04    0.922879E+03   -0.199057E+03
    0.523978E+09    0.100835E+07
    0.211648E+04    0.922972E+03   -0.198824E+03
    0.524477E+09    0.100840E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.211711E+04    0.923065E+03   -0.198590E+03
    0.524975E+09    0.100846E+07
    0.211774E+04    0.923158E+03   -0.198357E+03
    0.525473E+09    0.100852E+07
    0.211836E+04    0.923251E+03   -0.198124E+03
    0.525972E+09    0.100858E+07
    0.211899E+04    0.923344E+03   -0.197891E+03
    0.526470E+09    0.100863E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.211962E+04    0.923437E+03   -0.197658E+03
    0.526969E+09    0.100869E+07
    0.212025E+04    0.923530E+03   -0.197425E+03
    0.527467E+09    0.100875E+07
    0.212088E+04    0.923623E+03   -0.197192E+03
    0.527966E+09    0.100880E+07
    0.212151E+04    0.923715E+03   -0.196960E+03
    0.528464E+09    0.100886E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.212214E+04    0.923808E+03   -0.196727E+03
    0.528963E+09    0.100892E+07
    0.212277E+04    0.923901E+03   -0.196494E+03
    0.529461E+09    0.100898E+07
    0.212339E+04    0.923993E+03   -0.196262E+03
    0.529960E+09    0.100903E+07
    0.212402E+04    0.924086E+03   -0.196029E+03
    0.530458E+09    0.100909E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.212465E+04    0.924179E+03   -0.195797E+03
    0.530956E+09    0.100915E+07
    0.212528E+04    0.924271E+03   -0.195564E+03
    0.531455E+09    0.100921E+07
    0.212590E+04    0.924364E+03   -0.195332E+03
    0.531953E+09    0.100926E+07
    0.212653E+04    0.924456E+03   -0.195100E+03
    0.532452E+09    0.100932E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.212716E+04    0.924549E+03   -0.194868E+03
    0.532950E+09    0.100938E+07
    0.212778E+04    0.924641E+03   -0.194635E+03
    0.533449E+09    0.100944E+07
    0.212841E+04    0.924733E+03   -0.194403E+03
    0.533947E+09    0.100950E+07
    0.212904E+04    0.924826E+03   -0.194171E+03
    0.534446E+09    0.100955E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.212966E+04    0.924918E+03   -0.193939E+03
    0.534944E+09    0.100961E+07
    0.213029E+04    0.925010E+03   -0.193707E+03
    0.535443E+09    0.100967E+07
    0.213092E+04    0.925103E+03   -0.193476E+03
    0.535941E+09    0.100973E+07
    0.213154E+04    0.925195E+03   -0.193244E+03
    0.536439E+09    0.100978E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.213217E+04    0.925287E+03   -0.193012E+03
    0.536938E+09    0.100984E+07
    0.213279E+04    0.925379E+03   -0.192780E+03
    0.537436E+09    0.100990E+07
    0.213342E+04    0.925471E+03   -0.192549E+03
    0.537935E+09    0.100996E+07
    0.213404E+04    0.925564E+03   -0.192317E+03
    0.538433E+09    0.101002E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.213467E+04    0.925656E+03   -0.192086E+03
    0.538932E+09    0.101007E+07
    0.213529E+04    0.925748E+03   -0.191854E+03
    0.539430E+09    0.101013E+07
    0.213592E+04    0.925840E+03   -0.191623E+03
    0.539929E+09    0.101019E+07
    0.213654E+04    0.925932E+03   -0.191392E+03
    0.540427E+09    0.101025E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.213717E+04    0.926024E+03   -0.191161E+03
    0.540926E+09    0.101030E+07
    0.213779E+04    0.926116E+03   -0.190929E+03
    0.541424E+09    0.101036E+07
    0.213841E+04    0.926208E+03   -0.190698E+03
    0.541922E+09    0.101042E+07
    0.213904E+04    0.926299E+03   -0.190467E+03
    0.542421E+09    0.101048E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.213966E+04    0.926391E+03   -0.190236E+03
    0.542919E+09    0.101054E+07
    0.214028E+04    0.926483E+03   -0.190005E+03
    0.543418E+09    0.101060E+07
    0.214091E+04    0.926575E+03   -0.189775E+03
    0.543916E+09    0.101065E+07
    0.214153E+04    0.926667E+03   -0.189544E+03
    0.544415E+09    0.101071E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.214215E+04    0.926758E+03   -0.189313E+03
    0.544913E+09    0.101077E+07
    0.214278E+04    0.926850E+03   -0.189082E+03
    0.545412E+09    0.101083E+07
    0.214340E+04    0.926942E+03   -0.188852E+03
    0.545910E+09    0.101089E+07
    0.214402E+04    0.927033E+03   -0.188621E+03
    0.546408E+09    0.101094E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.214464E+04    0.927125E+03   -0.188391E+03
    0.546907E+09    0.101100E+07
    0.214527E+04    0.927216E+03   -0.188160E+03
    0.547405E+09    0.101106E+07
    0.214589E+04    0.927308E+03   -0.187930E+03
    0.547904E+09    0.101112E+07
    0.214651E+04    0.927399E+03   -0.187700E+03
    0.548402E+09    0.101118E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.214713E+04    0.927491E+03   -0.187470E+03
    0.548901E+09    0.101124E+07
    0.214775E+04    0.927582E+03   -0.187239E+03
    0.549399E+09    0.101129E+07
    0.214837E+04    0.927674E+03   -0.187009E+03
    0.549898E+09    0.101135E+07
    0.214900E+04    0.927765E+03   -0.186779E+03
    0.550396E+09    0.101141E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.214962E+04    0.927856E+03   -0.186549E+03
    0.550895E+09    0.101147E+07
    0.215024E+04    0.927948E+03   -0.186319E+03
    0.551393E+09    0.101153E+07
    0.215086E+04    0.928039E+03   -0.186090E+03
    0.551891E+09    0.101159E+07
    0.215148E+04    0.928130E+03   -0.185860E+03
    0.552390E+09    0.101164E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.215210E+04    0.928222E+03   -0.185630E+03
    0.552888E+09    0.101170E+07
    0.215272E+04    0.928313E+03   -0.185400E+03
    0.553387E+09    0.101176E+07
    0.215334E+04    0.928404E+03   -0.185171E+03
    0.553885E+09    0.101182E+07
    0.215396E+04    0.928495E+03   -0.184941E+03
    0.554384E+09    0.101188E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.215458E+04    0.928586E+03   -0.184712E+03
    0.554882E+09    0.101194E+07
    0.215520E+04    0.928677E+03   -0.184482E+03
    0.555381E+09    0.101200E+07
    0.215582E+04    0.928768E+03   -0.184253E+03
    0.555879E+09    0.101205E+07
    0.215644E+04    0.928859E+03   -0.184024E+03
    0.556378E+09    0.101211E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.215706E+04    0.928950E+03   -0.183794E+03
    0.556876E+09    0.101217E+07
    0.215767E+04    0.929041E+03   -0.183565E+03
    0.557374E+09    0.101223E+07
    0.215829E+04    0.929132E+03   -0.183336E+03
    0.557873E+09    0.101229E+07
    0.215891E+04    0.929223E+03   -0.183107E+03
    0.558371E+09    0.101235E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.215953E+04    0.929314E+03   -0.182878E+03
    0.558870E+09    0.101241E+07
    0.216015E+04    0.929405E+03   -0.182649E+03
    0.559368E+09    0.101247E+07
    0.216077E+04    0.929496E+03   -0.182420E+03
    0.559867E+09    0.101252E+07
    0.216138E+04    0.929586E+03   -0.182191E+03
    0.560365E+09    0.101258E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.216200E+04    0.929677E+03   -0.181962E+03
    0.560864E+09    0.101264E+07
    0.216262E+04    0.929768E+03   -0.181734E+03
    0.561362E+09    0.101270E+07
    0.216324E+04    0.929858E+03   -0.181505E+03
    0.561861E+09    0.101276E+07
    0.216385E+04    0.929949E+03   -0.181276E+03
    0.562359E+09    0.101282E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.216447E+04    0.930040E+03   -0.181048E+03
    0.562857E+09    0.101288E+07
    0.216509E+04    0.930130E+03   -0.180819E+03
    0.563356E+09    0.101294E+07
    0.216570E+04    0.930221E+03   -0.180591E+03
    0.563854E+09    0.101300E+07
    0.216632E+04    0.930311E+03   -0.180363E+03
    0.564353E+09    0.101306E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.216694E+04    0.930402E+03   -0.180134E+03
    0.564851E+09    0.101311E+07
    0.216755E+04    0.930492E+03   -0.179906E+03
    0.565350E+09    0.101317E+07
    0.216817E+04    0.930583E+03   -0.179678E+03
    0.565848E+09    0.101323E+07
    0.216879E+04    0.930673E+03   -0.179450E+03
    0.566347E+09    0.101329E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.216940E+04    0.930764E+03   -0.179222E+03
    0.566845E+09    0.101335E+07
    0.217002E+04    0.930854E+03   -0.178994E+03
    0.567343E+09    0.101341E+07
    0.217063E+04    0.930944E+03   -0.178766E+03
    0.567842E+09    0.101347E+07
    0.217125E+04    0.931034E+03   -0.178538E+03
    0.568340E+09    0.101353E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.217186E+04    0.931125E+03   -0.178310E+03
    0.568839E+09    0.101359E+07
    0.217248E+04    0.931215E+03   -0.178083E+03
    0.569337E+09    0.101365E+07
    0.217309E+04    0.931305E+03   -0.177855E+03
    0.569836E+09    0.101371E+07
    0.217371E+04    0.931395E+03   -0.177627E+03
    0.570334E+09    0.101376E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.217432E+04    0.931486E+03   -0.177400E+03
    0.570833E+09    0.101382E+07
    0.217494E+04    0.931576E+03   -0.177172E+03
    0.571331E+09    0.101388E+07
    0.217555E+04    0.931666E+03   -0.176945E+03
    0.571830E+09    0.101394E+07
    0.217616E+04    0.931756E+03   -0.176717E+03
    0.572328E+09    0.101400E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.217678E+04    0.931846E+03   -0.176490E+03
    0.572826E+09    0.101406E+07
    0.217739E+04    0.931936E+03   -0.176263E+03
    0.573325E+09    0.101412E+07
    0.217800E+04    0.932026E+03   -0.176035E+03
    0.573823E+09    0.101418E+07
    0.217862E+04    0.932116E+03   -0.175808E+03
    0.574322E+09    0.101424E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.217923E+04    0.932206E+03   -0.175581E+03
    0.574820E+09    0.101430E+07
    0.217984E+04    0.932295E+03   -0.175354E+03
    0.575319E+09    0.101436E+07
    0.218046E+04    0.932385E+03   -0.175127E+03
    0.575817E+09    0.101442E+07
    0.218107E+04    0.932475E+03   -0.174900E+03
    0.576316E+09    0.101448E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.218168E+04    0.932565E+03   -0.174673E+03
    0.576814E+09    0.101454E+07
    0.218229E+04    0.932655E+03   -0.174447E+03
    0.577313E+09    0.101460E+07
    0.218291E+04    0.932744E+03   -0.174220E+03
    0.577811E+09    0.101466E+07
    0.218352E+04    0.932834E+03   -0.173993E+03
    0.578309E+09    0.101472E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.218413E+04    0.932924E+03   -0.173767E+03
    0.578808E+09    0.101478E+07
    0.218474E+04    0.933013E+03   -0.173540E+03
    0.579306E+09    0.101484E+07
    0.218535E+04    0.933103E+03   -0.173313E+03
    0.579805E+09    0.101489E+07
    0.218596E+04    0.933193E+03   -0.173087E+03
    0.580303E+09    0.101495E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.218658E+04    0.933282E+03   -0.172861E+03
    0.580802E+09    0.101501E+07
    0.218719E+04    0.933372E+03   -0.172634E+03
    0.581300E+09    0.101507E+07
    0.218780E+04    0.933461E+03   -0.172408E+03
    0.581799E+09    0.101513E+07
    0.218841E+04    0.933551E+03   -0.172182E+03
    0.582297E+09    0.101519E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.218902E+04    0.933640E+03   -0.171956E+03
    0.582796E+09    0.101525E+07
    0.218963E+04    0.933729E+03   -0.171730E+03
    0.583294E+09    0.101531E+07
    0.219024E+04    0.933819E+03   -0.171504E+03
    0.583792E+09    0.101537E+07
    0.219085E+04    0.933908E+03   -0.171278E+03
    0.584291E+09    0.101543E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.219146E+04    0.933998E+03   -0.171052E+03
    0.584789E+09    0.101549E+07
    0.219207E+04    0.934087E+03   -0.170826E+03
    0.585288E+09    0.101555E+07
    0.219268E+04    0.934176E+03   -0.170600E+03
    0.585786E+09    0.101561E+07
    0.219329E+04    0.934265E+03   -0.170374E+03
    0.586285E+09    0.101567E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.219390E+04    0.934354E+03   -0.170148E+03
    0.586783E+09    0.101573E+07
    0.219451E+04    0.934444E+03   -0.169923E+03
    0.587282E+09    0.101579E+07
    0.219512E+04    0.934533E+03   -0.169697E+03
    0.587780E+09    0.101585E+07
    0.219573E+04    0.934622E+03   -0.169472E+03
    0.588278E+09    0.101591E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.219633E+04    0.934711E+03   -0.169246E+03
    0.588777E+09    0.101597E+07
    0.219694E+04    0.934800E+03   -0.169021E+03
    0.589275E+09    0.101603E+07
    0.219755E+04    0.934889E+03   -0.168796E+03
    0.589774E+09    0.101609E+07
    0.219816E+04    0.934978E+03   -0.168570E+03
    0.590272E+09    0.101615E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.219877E+04    0.935067E+03   -0.168345E+03
    0.590771E+09    0.101621E+07
    0.219938E+04    0.935156E+03   -0.168120E+03
    0.591269E+09    0.101627E+07
    0.219998E+04    0.935245E+03   -0.167895E+03
    0.591768E+09    0.101633E+07
    0.220059E+04    0.935334E+03   -0.167670E+03
    0.592266E+09    0.101639E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.220120E+04    0.935423E+03   -0.167445E+03
    0.592765E+09    0.101645E+07
    0.220181E+04    0.935512E+03   -0.167220E+03
    0.593263E+09    0.101651E+07
    0.220241E+04    0.935600E+03   -0.166995E+03
    0.593761E+09    0.101657E+07
    0.220302E+04    0.935689E+03   -0.166770E+03
    0.594260E+09    0.101663E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.220363E+04    0.935778E+03   -0.166545E+03
    0.594758E+09    0.101669E+07
    0.220423E+04    0.935867E+03   -0.166321E+03
    0.595257E+09    0.101675E+07
    0.220484E+04    0.935955E+03   -0.166096E+03
    0.595755E+09    0.101681E+07
    0.220545E+04    0.936044E+03   -0.165871E+03
    0.596254E+09    0.101687E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.220605E+04    0.936133E+03   -0.165647E+03
    0.596752E+09    0.101694E+07
    0.220666E+04    0.936221E+03   -0.165422E+03
    0.597251E+09    0.101700E+07
    0.220727E+04    0.936310E+03   -0.165198E+03
    0.597749E+09    0.101706E+07
    0.220787E+04    0.936398E+03   -0.164974E+03
    0.598248E+09    0.101712E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.220848E+04    0.936487E+03   -0.164749E+03
    0.598746E+09    0.101718E+07
    0.220908E+04    0.936575E+03   -0.164525E+03
    0.599244E+09    0.101724E+07
    0.220969E+04    0.936664E+03   -0.164301E+03
    0.599743E+09    0.101730E+07
    0.221029E+04    0.936752E+03   -0.164077E+03
    0.600241E+09    0.101736E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.221090E+04    0.936841E+03   -0.163853E+03
    0.600740E+09    0.101742E+07
    0.221150E+04    0.936929E+03   -0.163629E+03
    0.601238E+09    0.101748E+07
    0.221211E+04    0.937017E+03   -0.163405E+03
    0.601737E+09    0.101754E+07
    0.221271E+04    0.937106E+03   -0.163181E+03
    0.602235E+09    0.101760E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.221332E+04    0.937194E+03   -0.162957E+03
    0.602734E+09    0.101766E+07
    0.221392E+04    0.937282E+03   -0.162733E+03
    0.603232E+09    0.101772E+07
    0.221452E+04    0.937370E+03   -0.162509E+03
    0.603730E+09    0.101778E+07
    0.221513E+04    0.937459E+03   -0.162286E+03
    0.604229E+09    0.101784E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.221573E+04    0.937547E+03   -0.162062E+03
    0.604727E+09    0.101790E+07
    0.221634E+04    0.937635E+03   -0.161839E+03
    0.605226E+09    0.101796E+07
    0.221694E+04    0.937723E+03   -0.161615E+03
    0.605724E+09    0.101802E+07
    0.221754E+04    0.937811E+03   -0.161392E+03
    0.606223E+09    0.101809E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.221815E+04    0.937899E+03   -0.161168E+03
    0.606721E+09    0.101815E+07
    0.221875E+04    0.937987E+03   -0.160945E+03
    0.607220E+09    0.101821E+07
    0.221935E+04    0.938075E+03   -0.160722E+03
    0.607718E+09    0.101827E+07
    0.221995E+04    0.938163E+03   -0.160498E+03
    0.608217E+09    0.101833E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.222056E+04    0.938251E+03   -0.160275E+03
    0.608715E+09    0.101839E+07
    0.222116E+04    0.938339E+03   -0.160052E+03
    0.609213E+09    0.101845E+07
    0.222176E+04    0.938427E+03   -0.159829E+03
    0.609712E+09    0.101851E+07
    0.222236E+04    0.938515E+03   -0.159606E+03
    0.610210E+09    0.101857E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.222297E+04    0.938603E+03   -0.159383E+03
    0.610709E+09    0.101863E+07
    0.222357E+04    0.938690E+03   -0.159160E+03
    0.611207E+09    0.101869E+07
    0.222417E+04    0.938778E+03   -0.158937E+03
    0.611706E+09    0.101875E+07
    0.222477E+04    0.938866E+03   -0.158715E+03
    0.612204E+09    0.101881E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.222537E+04    0.938954E+03   -0.158492E+03
    0.612703E+09    0.101888E+07
    0.222597E+04    0.939041E+03   -0.158269E+03
    0.613201E+09    0.101894E+07
    0.222657E+04    0.939129E+03   -0.158047E+03
    0.613700E+09    0.101900E+07
    0.222717E+04    0.939217E+03   -0.157824E+03
    0.614198E+09    0.101906E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.222778E+04    0.939304E+03   -0.157602E+03
    0.614696E+09    0.101912E+07
    0.222838E+04    0.939392E+03   -0.157379E+03
    0.615195E+09    0.101918E+07
    0.222898E+04    0.939479E+03   -0.157157E+03
    0.615693E+09    0.101924E+07
    0.222958E+04    0.939567E+03   -0.156934E+03
    0.616192E+09    0.101930E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.223018E+04    0.939654E+03   -0.156712E+03
    0.616690E+09    0.101936E+07
    0.223078E+04    0.939742E+03   -0.156490E+03
    0.617189E+09    0.101943E+07
    0.223138E+04    0.939829E+03   -0.156268E+03
    0.617687E+09    0.101949E+07
    0.223198E+04    0.939917E+03   -0.156046E+03
    0.618186E+09    0.101955E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.223258E+04    0.940004E+03   -0.155824E+03
    0.618684E+09    0.101961E+07
    0.223318E+04    0.940092E+03   -0.155602E+03
    0.619183E+09    0.101967E+07
    0.223377E+04    0.940179E+03   -0.155380E+03
    0.619681E+09    0.101973E+07
    0.223437E+04    0.940266E+03   -0.155158E+03
    0.620179E+09    0.101979E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.223497E+04    0.940354E+03   -0.154936E+03
    0.620678E+09    0.101985E+07
    0.223557E+04    0.940441E+03   -0.154714E+03
    0.621176E+09    0.101991E+07
    0.223617E+04    0.940528E+03   -0.154493E+03
    0.621675E+09    0.101998E+07
    0.223677E+04    0.940615E+03   -0.154271E+03
    0.622173E+09    0.102004E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.223737E+04    0.940702E+03   -0.154049E+03
    0.622672E+09    0.102010E+07
    0.223796E+04    0.940790E+03   -0.153828E+03
    0.623170E+09    0.102016E+07
    0.223856E+04    0.940877E+03   -0.153606E+03
    0.623669E+09    0.102022E+07
    0.223916E+04    0.940964E+03   -0.153385E+03
    0.624167E+09    0.102028E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.223976E+04    0.941051E+03   -0.153163E+03
    0.624665E+09    0.102034E+07
    0.224036E+04    0.941138E+03   -0.152942E+03
    0.625164E+09    0.102041E+07
    0.224095E+04    0.941225E+03   -0.152721E+03
    0.625662E+09    0.102047E+07
    0.224155E+04    0.941312E+03   -0.152500E+03
    0.626161E+09    0.102053E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.224215E+04    0.941399E+03   -0.152278E+03
    0.626659E+09    0.102059E+07
    0.224274E+04    0.941486E+03   -0.152057E+03
    0.627158E+09    0.102065E+07
    0.224334E+04    0.941573E+03   -0.151836E+03
    0.627656E+09    0.102071E+07
    0.224394E+04    0.941659E+03   -0.151615E+03
    0.628155E+09    0.102077E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.224453E+04    0.941746E+03   -0.151394E+03
    0.628653E+09    0.102084E+07
    0.224513E+04    0.941833E+03   -0.151174E+03
    0.629152E+09    0.102090E+07
    0.224573E+04    0.941920E+03   -0.150953E+03
    0.629650E+09    0.102096E+07
    0.224632E+04    0.942007E+03   -0.150732E+03
    0.630148E+09    0.102102E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.224692E+04    0.942093E+03   -0.150511E+03
    0.630647E+09    0.102108E+07
    0.224752E+04    0.942180E+03   -0.150291E+03
    0.631145E+09    0.102114E+07
    0.224811E+04    0.942267E+03   -0.150070E+03
    0.631644E+09    0.102121E+07
    0.224871E+04    0.942353E+03   -0.149849E+03
    0.632142E+09    0.102127E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.224930E+04    0.942440E+03   -0.149629E+03
    0.632641E+09    0.102133E+07
    0.224990E+04    0.942527E+03   -0.149408E+03
    0.633139E+09    0.102139E+07
    0.225049E+04    0.942613E+03   -0.149188E+03
    0.633638E+09    0.102145E+07
    0.225109E+04    0.942700E+03   -0.148968E+03
    0.634136E+09    0.102151E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.225168E+04    0.942786E+03   -0.148747E+03
    0.634635E+09    0.102158E+07
    0.225228E+04    0.942873E+03   -0.148527E+03
    0.635133E+09    0.102164E+07
    0.225287E+04    0.942959E+03   -0.148307E+03
    0.635631E+09    0.102170E+07
    0.225347E+04    0.943046E+03   -0.148087E+03
    0.636130E+09    0.102176E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.225406E+04    0.943132E+03   -0.147867E+03
    0.636628E+09    0.102182E+07
    0.225465E+04    0.943219E+03   -0.147647E+03
    0.637127E+09    0.102188E+07
    0.225525E+04    0.943305E+03   -0.147427E+03
    0.637625E+09    0.102195E+07
    0.225584E+04    0.943391E+03   -0.147207E+03
    0.638124E+09    0.102201E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.225643E+04    0.943478E+03   -0.146987E+03
    0.638622E+09    0.102207E+07
    0.225703E+04    0.943564E+03   -0.146767E+03
    0.639121E+09    0.102213E+07
    0.225762E+04    0.943650E+03   -0.146548E+03
    0.639619E+09    0.102219E+07
    0.225821E+04    0.943736E+03   -0.146328E+03
    0.640118E+09    0.102226E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.225881E+04    0.943822E+03   -0.146108E+03
    0.640616E+09    0.102232E+07
    0.225940E+04    0.943909E+03   -0.145889E+03
    0.641114E+09    0.102238E+07
    0.225999E+04    0.943995E+03   -0.145669E+03
    0.641613E+09    0.102244E+07
    0.226059E+04    0.944081E+03   -0.145450E+03
    0.642111E+09    0.102250E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.226118E+04    0.944167E+03   -0.145230E+03
    0.642610E+09    0.102257E+07
    0.226177E+04    0.944253E+03   -0.145011E+03
    0.643108E+09    0.102263E+07
    0.226236E+04    0.944339E+03   -0.144792E+03
    0.643607E+09    0.102269E+07
    0.226295E+04    0.944425E+03   -0.144572E+03
    0.644105E+09    0.102275E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.226355E+04    0.944511E+03   -0.144353E+03
    0.644604E+09    0.102281E+07
    0.226414E+04    0.944597E+03   -0.144134E+03
    0.645102E+09    0.102288E+07
    0.226473E+04    0.944683E+03   -0.143915E+03
    0.645600E+09    0.102294E+07
    0.226532E+04    0.944769E+03   -0.143696E+03
    0.646099E+09    0.102300E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.226591E+04    0.944855E+03   -0.143477E+03
    0.646597E+09    0.102306E+07
    0.226650E+04    0.944941E+03   -0.143258E+03
    0.647096E+09    0.102313E+07
    0.226709E+04    0.945026E+03   -0.143039E+03
    0.647594E+09    0.102319E+07
    0.226768E+04    0.945112E+03   -0.142820E+03
    0.648093E+09    0.102325E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.226828E+04    0.945198E+03   -0.142602E+03
    0.648591E+09    0.102331E+07
    0.226887E+04    0.945284E+03   -0.142383E+03
    0.649090E+09    0.102337E+07
    0.226946E+04    0.945369E+03   -0.142164E+03
    0.649588E+09    0.102344E+07
    0.227005E+04    0.945455E+03   -0.141946E+03
    0.650087E+09    0.102350E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.227064E+04    0.945541E+03   -0.141727E+03
    0.650585E+09    0.102356E+07
    0.227123E+04    0.945626E+03   -0.141509E+03
    0.651083E+09    0.102362E+07
    0.227182E+04    0.945712E+03   -0.141290E+03
    0.651582E+09    0.102369E+07
    0.227241E+04    0.945798E+03   -0.141072E+03
    0.652080E+09    0.102375E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.227300E+04    0.945883E+03   -0.140853E+03
    0.652579E+09    0.102381E+07
    0.227359E+04    0.945969E+03   -0.140635E+03
    0.653077E+09    0.102387E+07
    0.227417E+04    0.946054E+03   -0.140417E+03
    0.653576E+09    0.102394E+07
    0.227476E+04    0.946140E+03   -0.140199E+03
    0.654074E+09    0.102400E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.227535E+04    0.946225E+03   -0.139981E+03
    0.654573E+09    0.102406E+07
    0.227594E+04    0.946311E+03   -0.139763E+03
    0.655071E+09    0.102412E+07
    0.227653E+04    0.946396E+03   -0.139544E+03
    0.655570E+09    0.102419E+07
    0.227712E+04    0.946481E+03   -0.139327E+03
    0.656068E+09    0.102425E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.227771E+04    0.946567E+03   -0.139109E+03
    0.656566E+09    0.102431E+07
    0.227829E+04    0.946652E+03   -0.138891E+03
    0.657065E+09    0.102437E+07
    0.227888E+04    0.946737E+03   -0.138673E+03
    0.657563E+09    0.102444E+07
    0.227947E+04    0.946823E+03   -0.138455E+03
    0.658062E+09    0.102450E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.228006E+04    0.946908E+03   -0.138237E+03
    0.658560E+09    0.102456E+07
    0.228065E+04    0.946993E+03   -0.138020E+03
    0.659059E+09    0.102462E+07
    0.228123E+04    0.947078E+03   -0.137802E+03
    0.659557E+09    0.102469E+07
    0.228182E+04    0.947163E+03   -0.137585E+03
    0.660056E+09    0.102475E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.228241E+04    0.947249E+03   -0.137367E+03
    0.660554E+09    0.102481E+07
    0.228300E+04    0.947334E+03   -0.137150E+03
    0.661052E+09    0.102487E+07
    0.228358E+04    0.947419E+03   -0.136932E+03
    0.661551E+09    0.102494E+07
    0.228417E+04    0.947504E+03   -0.136715E+03
    0.662049E+09    0.102500E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.228476E+04    0.947589E+03   -0.136498E+03
    0.662548E+09    0.102506E+07
    0.228534E+04    0.947674E+03   -0.136281E+03
    0.663046E+09    0.102512E+07
    0.228593E+04    0.947759E+03   -0.136063E+03
    0.663545E+09    0.102519E+07
    0.228651E+04    0.947844E+03   -0.135846E+03
    0.664043E+09    0.102525E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.228710E+04    0.947929E+03   -0.135629E+03
    0.664542E+09    0.102531E+07
    0.228769E+04    0.948014E+03   -0.135412E+03
    0.665040E+09    0.102538E+07
    0.228827E+04    0.948099E+03   -0.135195E+03
    0.665539E+09    0.102544E+07
    0.228886E+04    0.948183E+03   -0.134978E+03
    0.666037E+09    0.102550E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.228944E+04    0.948268E+03   -0.134761E+03
    0.666535E+09    0.102556E+07
    0.229003E+04    0.948353E+03   -0.134545E+03
    0.667034E+09    0.102563E+07
    0.229061E+04    0.948438E+03   -0.134328E+03
    0.667532E+09    0.102569E+07
    0.229120E+04    0.948523E+03   -0.134111E+03
    0.668031E+09    0.102575E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.229178E+04    0.948607E+03   -0.133895E+03
    0.668529E+09    0.102582E+07
    0.229237E+04    0.948692E+03   -0.133678E+03
    0.669028E+09    0.102588E+07
    0.229295E+04    0.948777E+03   -0.133461E+03
    0.669526E+09    0.102594E+07
    0.229354E+04    0.948861E+03   -0.133245E+03
    0.670025E+09    0.102601E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.229412E+04    0.948946E+03   -0.133028E+03
    0.670523E+09    0.102607E+07
    0.229471E+04    0.949031E+03   -0.132812E+03
    0.671022E+09    0.102613E+07
    0.229529E+04    0.949115E+03   -0.132596E+03
    0.671520E+09    0.102619E+07
    0.229588E+04    0.949200E+03   -0.132379E+03
    0.672018E+09    0.102626E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.229646E+04    0.949284E+03   -0.132163E+03
    0.672517E+09    0.102632E+07
    0.229704E+04    0.949369E+03   -0.131947E+03
    0.673015E+09    0.102638E+07
    0.229763E+04    0.949453E+03   -0.131731E+03
    0.673514E+09    0.102645E+07
    0.229821E+04    0.949538E+03   -0.131515E+03
    0.674012E+09    0.102651E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.229879E+04    0.949622E+03   -0.131299E+03
    0.674511E+09    0.102657E+07
    0.229938E+04    0.949706E+03   -0.131083E+03
    0.675009E+09    0.102664E+07
    0.229996E+04    0.949791E+03   -0.130867E+03
    0.675508E+09    0.102670E+07
    0.230054E+04    0.949875E+03   -0.130651E+03
    0.676006E+09    0.102676E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.230112E+04    0.949959E+03   -0.130435E+03
    0.676505E+09    0.102683E+07
    0.230171E+04    0.950044E+03   -0.130219E+03
    0.677003E+09    0.102689E+07
    0.230229E+04    0.950128E+03   -0.130004E+03
    0.677501E+09    0.102695E+07
    0.230287E+04    0.950212E+03   -0.129788E+03
    0.678000E+09    0.102702E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.230345E+04    0.950297E+03   -0.129573E+03
    0.678498E+09    0.102708E+07
    0.230404E+04    0.950381E+03   -0.129357E+03
    0.678997E+09    0.102714E+07
    0.230462E+04    0.950465E+03   -0.129141E+03
    0.679495E+09    0.102720E+07
    0.230520E+04    0.950549E+03   -0.128926E+03
    0.679994E+09    0.102727E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.230578E+04    0.950633E+03   -0.128711E+03
    0.680492E+09    0.102733E+07
    0.230636E+04    0.950717E+03   -0.128495E+03
    0.680991E+09    0.102739E+07
    0.230694E+04    0.950801E+03   -0.128280E+03
    0.681489E+09    0.102746E+07
    0.230753E+04    0.950885E+03   -0.128065E+03
    0.681987E+09    0.102752E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.230811E+04    0.950969E+03   -0.127849E+03
    0.682486E+09    0.102758E+07
    0.230869E+04    0.951053E+03   -0.127634E+03
    0.682984E+09    0.102765E+07
    0.230927E+04    0.951137E+03   -0.127419E+03
    0.683483E+09    0.102771E+07
    0.230985E+04    0.951221E+03   -0.127204E+03
    0.683981E+09    0.102778E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.231043E+04    0.951305E+03   -0.126989E+03
    0.684480E+09    0.102784E+07
    0.231101E+04    0.951389E+03   -0.126774E+03
    0.684978E+09    0.102790E+07
    0.231159E+04    0.951473E+03   -0.126559E+03
    0.685477E+09    0.102797E+07
    0.231217E+04    0.951557E+03   -0.126345E+03
    0.685975E+09    0.102803E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.231275E+04    0.951641E+03   -0.126130E+03
    0.686474E+09    0.102809E+07
    0.231333E+04    0.951724E+03   -0.125915E+03
    0.686972E+09    0.102816E+07
    0.231391E+04    0.951808E+03   -0.125700E+03
    0.687470E+09    0.102822E+07
    0.231449E+04    0.951892E+03   -0.125486E+03
    0.687969E+09    0.102828E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.231507E+04    0.951976E+03   -0.125271E+03
    0.688467E+09    0.102835E+07
    0.231565E+04    0.952059E+03   -0.125057E+03
    0.688966E+09    0.102841E+07
    0.231623E+04    0.952143E+03   -0.124842E+03
    0.689464E+09    0.102847E+07
    0.231681E+04    0.952227E+03   -0.124628E+03
    0.689963E+09    0.102854E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.231738E+04    0.952310E+03   -0.124413E+03
    0.690461E+09    0.102860E+07
    0.231796E+04    0.952394E+03   -0.124199E+03
    0.690960E+09    0.102866E+07
    0.231854E+04    0.952477E+03   -0.123985E+03
    0.691458E+09    0.102873E+07
    0.231912E+04    0.952561E+03   -0.123770E+03
    0.691957E+09    0.102879E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.231970E+04    0.952644E+03   -0.123556E+03
    0.692455E+09    0.102886E+07
    0.232028E+04    0.952728E+03   -0.123342E+03
    0.692953E+09    0.102892E+07
    0.232085E+04    0.952811E+03   -0.123128E+03
    0.693452E+09    0.102898E+07
    0.232143E+04    0.952895E+03   -0.122914E+03
    0.693950E+09    0.102905E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.232201E+04    0.952978E+03   -0.122700E+03
    0.694449E+09    0.102911E+07
    0.232259E+04    0.953062E+03   -0.122486E+03
    0.694947E+09    0.102917E+07
    0.232316E+04    0.953145E+03   -0.122272E+03
    0.695446E+09    0.102924E+07
    0.232374E+04    0.953228E+03   -0.122058E+03
    0.695944E+09    0.102930E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.232432E+04    0.953312E+03   -0.121845E+03
    0.696443E+09    0.102937E+07
    0.232490E+04    0.953395E+03   -0.121631E+03
    0.696941E+09    0.102943E+07
    0.232547E+04    0.953478E+03   -0.121417E+03
    0.697440E+09    0.102949E+07
    0.232605E+04    0.953561E+03   -0.121204E+03
    0.697938E+09    0.102956E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.232663E+04    0.953645E+03   -0.120990E+03
    0.698436E+09    0.102962E+07
    0.232720E+04    0.953728E+03   -0.120777E+03
    0.698935E+09    0.102969E+07
    0.232778E+04    0.953811E+03   -0.120563E+03
    0.699433E+09    0.102975E+07
    0.232836E+04    0.953894E+03   -0.120350E+03
    0.699932E+09    0.102981E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.232893E+04    0.953977E+03   -0.120136E+03
    0.700430E+09    0.102988E+07
    0.232951E+04    0.954060E+03   -0.119923E+03
    0.700929E+09    0.102994E+07
    0.233008E+04    0.954143E+03   -0.119710E+03
    0.701427E+09    0.103001E+07
    0.233066E+04    0.954226E+03   -0.119496E+03
    0.701926E+09    0.103007E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.233124E+04    0.954309E+03   -0.119283E+03
    0.702424E+09    0.103013E+07
    0.233181E+04    0.954392E+03   -0.119070E+03
    0.702922E+09    0.103020E+07
    0.233239E+04    0.954475E+03   -0.118857E+03
    0.703421E+09    0.103026E+07
    0.233296E+04    0.954558E+03   -0.118644E+03
    0.703919E+09    0.103033E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.233354E+04    0.954641E+03   -0.118431E+03
    0.704418E+09    0.103039E+07
    0.233411E+04    0.954724E+03   -0.118218E+03
    0.704916E+09    0.103045E+07
    0.233469E+04    0.954807E+03   -0.118005E+03
    0.705415E+09    0.103052E+07
    0.233526E+04    0.954890E+03   -0.117792E+03
    0.705913E+09    0.103058E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.233583E+04    0.954973E+03   -0.117580E+03
    0.706412E+09    0.103065E+07
    0.233641E+04    0.955055E+03   -0.117367E+03
    0.706910E+09    0.103071E+07
    0.233698E+04    0.955138E+03   -0.117154E+03
    0.707409E+09    0.103077E+07
    0.233756E+04    0.955221E+03   -0.116942E+03
    0.707907E+09    0.103084E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.233813E+04    0.955304E+03   -0.116729E+03
    0.708405E+09    0.103090E+07
    0.233871E+04    0.955386E+03   -0.116517E+03
    0.708904E+09    0.103097E+07
    0.233928E+04    0.955469E+03   -0.116304E+03
    0.709402E+09    0.103103E+07
    0.233985E+04    0.955552E+03   -0.116092E+03
    0.709901E+09    0.103110E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.234043E+04    0.955634E+03   -0.115879E+03
    0.710399E+09    0.103116E+07
    0.234100E+04    0.955717E+03   -0.115667E+03
    0.710898E+09    0.103122E+07
    0.234157E+04    0.955800E+03   -0.115455E+03
    0.711396E+09    0.103129E+07
    0.234215E+04    0.955882E+03   -0.115243E+03
    0.711895E+09    0.103135E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.234272E+04    0.955965E+03   -0.115030E+03
    0.712393E+09    0.103142E+07
    0.234329E+04    0.956047E+03   -0.114818E+03
    0.712892E+09    0.103148E+07
    0.234386E+04    0.956130E+03   -0.114606E+03
    0.713390E+09    0.103155E+07
    0.234444E+04    0.956212E+03   -0.114394E+03
    0.713888E+09    0.103161E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.234501E+04    0.956294E+03   -0.114182E+03
    0.714387E+09    0.103167E+07
    0.234558E+04    0.956377E+03   -0.113970E+03
    0.714885E+09    0.103174E+07
    0.234615E+04    0.956459E+03   -0.113758E+03
    0.715384E+09    0.103180E+07
    0.234672E+04    0.956542E+03   -0.113546E+03
    0.715882E+09    0.103187E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.234730E+04    0.956624E+03   -0.113335E+03
    0.716381E+09    0.103193E+07
    0.234787E+04    0.956706E+03   -0.113123E+03
    0.716879E+09    0.103200E+07
    0.234844E+04    0.956789E+03   -0.112911E+03
    0.717378E+09    0.103206E+07
    0.234901E+04    0.956871E+03   -0.112700E+03
    0.717876E+09    0.103213E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.234958E+04    0.956953E+03   -0.112488E+03
    0.718375E+09    0.103219E+07
    0.235015E+04    0.957035E+03   -0.112277E+03
    0.718873E+09    0.103225E+07
    0.235072E+04    0.957117E+03   -0.112065E+03
    0.719371E+09    0.103232E+07
    0.235130E+04    0.957200E+03   -0.111854E+03
    0.719870E+09    0.103238E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.235187E+04    0.957282E+03   -0.111642E+03
    0.720368E+09    0.103245E+07
    0.235244E+04    0.957364E+03   -0.111431E+03
    0.720867E+09    0.103251E+07
    0.235301E+04    0.957446E+03   -0.111220E+03
    0.721365E+09    0.103258E+07
    0.235358E+04    0.957528E+03   -0.111008E+03
    0.721864E+09    0.103264E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.235415E+04    0.957610E+03   -0.110797E+03
    0.722362E+09    0.103271E+07
    0.235472E+04    0.957692E+03   -0.110586E+03
    0.722861E+09    0.103277E+07
    0.235529E+04    0.957774E+03   -0.110375E+03
    0.723359E+09    0.103284E+07
    0.235586E+04    0.957856E+03   -0.110164E+03
    0.723857E+09    0.103290E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.235643E+04    0.957938E+03   -0.109953E+03
    0.724356E+09    0.103296E+07
    0.235700E+04    0.958020E+03   -0.109742E+03
    0.724854E+09    0.103303E+07
    0.235757E+04    0.958102E+03   -0.109531E+03
    0.725353E+09    0.103309E+07
    0.235814E+04    0.958184E+03   -0.109320E+03
    0.725851E+09    0.103316E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.235870E+04    0.958266E+03   -0.109109E+03
    0.726350E+09    0.103322E+07
    0.235927E+04    0.958347E+03   -0.108899E+03
    0.726848E+09    0.103329E+07
    0.235984E+04    0.958429E+03   -0.108688E+03
    0.727347E+09    0.103335E+07
    0.236041E+04    0.958511E+03   -0.108477E+03
    0.727845E+09    0.103342E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.236098E+04    0.958593E+03   -0.108267E+03
    0.728344E+09    0.103348E+07
    0.236155E+04    0.958675E+03   -0.108056E+03
    0.728842E+09    0.103355E+07
    0.236212E+04    0.958756E+03   -0.107846E+03
    0.729340E+09    0.103361E+07
    0.236268E+04    0.958838E+03   -0.107635E+03
    0.729839E+09    0.103368E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.236325E+04    0.958920E+03   -0.107425E+03
    0.730337E+09    0.103374E+07
    0.236382E+04    0.959001E+03   -0.107214E+03
    0.730836E+09    0.103381E+07
    0.236439E+04    0.959083E+03   -0.107004E+03
    0.731334E+09    0.103387E+07
    0.236496E+04    0.959165E+03   -0.106794E+03
    0.731833E+09    0.103394E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.236552E+04    0.959246E+03   -0.106584E+03
    0.732331E+09    0.103400E+07
    0.236609E+04    0.959328E+03   -0.106373E+03
    0.732830E+09    0.103407E+07
    0.236666E+04    0.959409E+03   -0.106163E+03
    0.733328E+09    0.103413E+07
    0.236723E+04    0.959491E+03   -0.105953E+03
    0.733827E+09    0.103420E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.236779E+04    0.959572E+03   -0.105743E+03
    0.734325E+09    0.103426E+07
    0.236836E+04    0.959654E+03   -0.105533E+03
    0.734823E+09    0.103433E+07
    0.236893E+04    0.959735E+03   -0.105323E+03
    0.735322E+09    0.103439E+07
    0.236949E+04    0.959816E+03   -0.105113E+03
    0.735820E+09    0.103446E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.237006E+04    0.959898E+03   -0.104904E+03
    0.736319E+09    0.103452E+07
    0.237063E+04    0.959979E+03   -0.104694E+03
    0.736817E+09    0.103459E+07
    0.237119E+04    0.960061E+03   -0.104484E+03
    0.737316E+09    0.103465E+07
    0.237176E+04    0.960142E+03   -0.104274E+03
    0.737814E+09    0.103472E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.237233E+04    0.960223E+03   -0.104065E+03
    0.738313E+09    0.103478E+07
    0.237289E+04    0.960304E+03   -0.103855E+03
    0.738811E+09    0.103485E+07
    0.237346E+04    0.960386E+03   -0.103645E+03
    0.739309E+09    0.103491E+07
    0.237402E+04    0.960467E+03   -0.103436E+03
    0.739808E+09    0.103498E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.237459E+04    0.960548E+03   -0.103227E+03
    0.740306E+09    0.103504E+07
    0.237515E+04    0.960629E+03   -0.103017E+03
    0.740805E+09    0.103511E+07
    0.237572E+04    0.960710E+03   -0.102808E+03
    0.741303E+09    0.103517E+07
    0.237628E+04    0.960792E+03   -0.102598E+03
    0.741802E+09    0.103524E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.237685E+04    0.960873E+03   -0.102389E+03
    0.742300E+09    0.103530E+07
    0.237741E+04    0.960954E+03   -0.102180E+03
    0.742799E+09    0.103537E+07
    0.237798E+04    0.961035E+03   -0.101971E+03
    0.743297E+09    0.103543E+07
    0.237854E+04    0.961116E+03   -0.101762E+03
    0.743796E+09    0.103550E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.237911E+04    0.961197E+03   -0.101553E+03
    0.744294E+09    0.103556E+07
    0.237967E+04    0.961278E+03   -0.101344E+03
    0.744792E+09    0.103563E+07
    0.238024E+04    0.961359E+03   -0.101135E+03
    0.745291E+09    0.103569E+07
    0.238080E+04    0.961440E+03   -0.100926E+03
    0.745789E+09    0.103576E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.238136E+04    0.961521E+03   -0.100717E+03
    0.746288E+09    0.103582E+07
    0.238193E+04    0.961602E+03   -0.100508E+03
    0.746786E+09    0.103589E+07
    0.238249E+04    0.961682E+03   -0.100299E+03
    0.747285E+09    0.103596E+07
    0.238306E+04    0.961763E+03   -0.100090E+03
    0.747783E+09    0.103602E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.238362E+04    0.961844E+03   -0.998818E+02
    0.748282E+09    0.103609E+07
    0.238418E+04    0.961925E+03   -0.996731E+02
    0.748780E+09    0.103615E+07
    0.238475E+04    0.962006E+03   -0.994645E+02
    0.749279E+09    0.103622E+07
    0.238531E+04    0.962086E+03   -0.992560E+02
    0.749777E+09    0.103628E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.238587E+04    0.962167E+03   -0.990475E+02
    0.750275E+09    0.103635E+07
    0.238643E+04    0.962248E+03   -0.988390E+02
    0.750774E+09    0.103641E+07
    0.238700E+04    0.962329E+03   -0.986306E+02
    0.751272E+09    0.103648E+07
    0.238756E+04    0.962409E+03   -0.984223E+02
    0.751771E+09    0.103654E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.238812E+04    0.962490E+03   -0.982140E+02
    0.752269E+09    0.103661E+07
    0.238868E+04    0.962571E+03   -0.980057E+02
    0.752768E+09    0.103668E+07
    0.238925E+04    0.962651E+03   -0.977975E+02
    0.753266E+09    0.103674E+07
    0.238981E+04    0.962732E+03   -0.975893E+02
    0.753765E+09    0.103681E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.239037E+04    0.962812E+03   -0.973812E+02
    0.754263E+09    0.103687E+07
    0.239093E+04    0.962893E+03   -0.971731E+02
    0.754762E+09    0.103694E+07
    0.239149E+04    0.962973E+03   -0.969651E+02
    0.755260E+09    0.103700E+07
    0.239206E+04    0.963054E+03   -0.967571E+02
    0.755758E+09    0.103707E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.239262E+04    0.963134E+03   -0.965492E+02
    0.756257E+09    0.103713E+07
    0.239318E+04    0.963215E+03   -0.963413E+02
    0.756755E+09    0.103720E+07
    0.239374E+04    0.963295E+03   -0.961334E+02
    0.757254E+09    0.103727E+07
    0.239430E+04    0.963375E+03   -0.959256E+02
    0.757752E+09    0.103733E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.239486E+04    0.963456E+03   -0.957179E+02
    0.758251E+09    0.103740E+07
    0.239542E+04    0.963536E+03   -0.955102E+02
    0.758749E+09    0.103746E+07
    0.239598E+04    0.963616E+03   -0.953025E+02
    0.759248E+09    0.103753E+07
    0.239654E+04    0.963697E+03   -0.950949E+02
    0.759746E+09    0.103759E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.239710E+04    0.963777E+03   -0.948873E+02
    0.760244E+09    0.103766E+07
    0.239766E+04    0.963857E+03   -0.946798E+02
    0.760743E+09    0.103772E+07
    0.239822E+04    0.963938E+03   -0.944724E+02
    0.761241E+09    0.103779E+07
    0.239878E+04    0.964018E+03   -0.942649E+02
    0.761740E+09    0.103786E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.239934E+04    0.964098E+03   -0.940576E+02
    0.762238E+09    0.103792E+07
    0.239990E+04    0.964178E+03   -0.938502E+02
    0.762737E+09    0.103799E+07
    0.240046E+04    0.964258E+03   -0.936429E+02
    0.763235E+09    0.103805E+07
    0.240102E+04    0.964338E+03   -0.934357E+02
    0.763734E+09    0.103812E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.240158E+04    0.964418E+03   -0.932285E+02
    0.764232E+09    0.103818E+07
    0.240214E+04    0.964499E+03   -0.930214E+02
    0.764731E+09    0.103825E+07
    0.240270E+04    0.964579E+03   -0.928143E+02
    0.765229E+09    0.103832E+07
    0.240326E+04    0.964659E+03   -0.926072E+02
    0.765727E+09    0.103838E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.240382E+04    0.964739E+03   -0.924002E+02
    0.766226E+09    0.103845E+07
    0.240438E+04    0.964819E+03   -0.921933E+02
    0.766724E+09    0.103851E+07
    0.240494E+04    0.964899E+03   -0.919864E+02
    0.767223E+09    0.103858E+07
    0.240550E+04    0.964979E+03   -0.917795E+02
    0.767721E+09    0.103865E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.240605E+04    0.965058E+03   -0.915727E+02
    0.768220E+09    0.103871E+07
    0.240661E+04    0.965138E+03   -0.913659E+02
    0.768718E+09    0.103878E+07
    0.240717E+04    0.965218E+03   -0.911592E+02
    0.769217E+09    0.103884E+07
    0.240773E+04    0.965298E+03   -0.909525E+02
    0.769715E+09    0.103891E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.240829E+04    0.965378E+03   -0.907459E+02
    0.770214E+09    0.103898E+07
    0.240884E+04    0.965458E+03   -0.905393E+02
    0.770712E+09    0.103904E+07
    0.240940E+04    0.965537E+03   -0.903327E+02
    0.771210E+09    0.103911E+07
    0.240996E+04    0.965617E+03   -0.901262E+02
    0.771709E+09    0.103917E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.241052E+04    0.965697E+03   -0.899198E+02
    0.772207E+09    0.103924E+07
    0.241107E+04    0.965777E+03   -0.897134E+02
    0.772706E+09    0.103931E+07
    0.241163E+04    0.965856E+03   -0.895070E+02
    0.773204E+09    0.103937E+07
    0.241219E+04    0.965936E+03   -0.893007E+02
    0.773703E+09    0.103944E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.241274E+04    0.966016E+03   -0.890944E+02
    0.774201E+09    0.103950E+07
    0.241330E+04    0.966095E+03   -0.888882E+02
    0.774700E+09    0.103957E+07
    0.241386E+04    0.966175E+03   -0.886820E+02
    0.775198E+09    0.103964E+07
    0.241441E+04    0.966254E+03   -0.884759E+02
    0.775697E+09    0.103970E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.241497E+04    0.966334E+03   -0.882698E+02
    0.776195E+09    0.103977E+07
    0.241553E+04    0.966414E+03   -0.880638E+02
    0.776693E+09    0.103983E+07
    0.241608E+04    0.966493E+03   -0.878578E+02
    0.777192E+09    0.103990E+07
    0.241664E+04    0.966573E+03   -0.876519E+02
    0.777690E+09    0.103997E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.241720E+04    0.966652E+03   -0.874460E+02
    0.778189E+09    0.104003E+07
    0.241775E+04    0.966731E+03   -0.872401E+02
    0.778687E+09    0.104010E+07
    0.241831E+04    0.966811E+03   -0.870343E+02
    0.779186E+09    0.104016E+07
    0.241886E+04    0.966890E+03   -0.868285E+02
    0.779684E+09    0.104023E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.241942E+04    0.966970E+03   -0.866228E+02
    0.780183E+09    0.104030E+07
    0.241997E+04    0.967049E+03   -0.864171E+02
    0.780681E+09    0.104036E+07
    0.242053E+04    0.967128E+03   -0.862115E+02
    0.781179E+09    0.104043E+07
    0.242108E+04    0.967208E+03   -0.860059E+02
    0.781678E+09    0.104050E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.242164E+04    0.967287E+03   -0.858004E+02
    0.782176E+09    0.104056E+07
    0.242219E+04    0.967366E+03   -0.855949E+02
    0.782675E+09    0.104063E+07
    0.242275E+04    0.967445E+03   -0.853895E+02
    0.783173E+09    0.104069E+07
    0.242330E+04    0.967525E+03   -0.851841E+02
    0.783672E+09    0.104076E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.242386E+04    0.967604E+03   -0.849787E+02
    0.784170E+09    0.104083E+07
    0.242441E+04    0.967683E+03   -0.847734E+02
    0.784669E+09    0.104089E+07
    0.242497E+04    0.967762E+03   -0.845681E+02
    0.785167E+09    0.104096E+07
    0.242552E+04    0.967841E+03   -0.843629E+02
    0.785666E+09    0.104103E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.242607E+04    0.967921E+03   -0.841578E+02
    0.786164E+09    0.104109E+07
    0.242663E+04    0.968000E+03   -0.839526E+02
    0.786662E+09    0.104116E+07
    0.242718E+04    0.968079E+03   -0.837475E+02
    0.787161E+09    0.104123E+07
    0.242774E+04    0.968158E+03   -0.835425E+02
    0.787659E+09    0.104129E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.242829E+04    0.968237E+03   -0.833375E+02
    0.788158E+09    0.104136E+07
    0.242884E+04    0.968316E+03   -0.831326E+02
    0.788656E+09    0.104143E+07
    0.242940E+04    0.968395E+03   -0.829277E+02
    0.789155E+09    0.104149E+07
    0.242995E+04    0.968474E+03   -0.827228E+02
    0.789653E+09    0.104156E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.243050E+04    0.968553E+03   -0.825180E+02
    0.790152E+09    0.104162E+07
    0.243105E+04    0.968632E+03   -0.823132E+02
    0.790650E+09    0.104169E+07
    0.243161E+04    0.968710E+03   -0.821085E+02
    0.791149E+09    0.104176E+07
    0.243216E+04    0.968789E+03   -0.819038E+02
    0.791647E+09    0.104182E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.243271E+04    0.968868E+03   -0.816992E+02
    0.792145E+09    0.104189E+07
    0.243326E+04    0.968947E+03   -0.814946E+02
    0.792644E+09    0.104196E+07
    0.243382E+04    0.969026E+03   -0.812901E+02
    0.793142E+09    0.104202E+07
    0.243437E+04    0.969105E+03   -0.810856E+02
    0.793641E+09    0.104209E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.243492E+04    0.969183E+03   -0.808811E+02
    0.794139E+09    0.104216E+07
    0.243547E+04    0.969262E+03   -0.806767E+02
    0.794638E+09    0.104222E+07
    0.243602E+04    0.969341E+03   -0.804724E+02
    0.795136E+09    0.104229E+07
    0.243658E+04    0.969420E+03   -0.802681E+02
    0.795635E+09    0.104236E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.243713E+04    0.969498E+03   -0.800638E+02
    0.796133E+09    0.104242E+07
    0.243768E+04    0.969577E+03   -0.798596E+02
    0.796631E+09    0.104249E+07
    0.243823E+04    0.969655E+03   -0.796554E+02
    0.797130E+09    0.104256E+07
    0.243878E+04    0.969734E+03   -0.794512E+02
    0.797628E+09    0.104262E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.243933E+04    0.969813E+03   -0.792471E+02
    0.798127E+09    0.104269E+07
    0.243988E+04    0.969891E+03   -0.790431E+02
    0.798625E+09    0.104276E+07
    0.244043E+04    0.969970E+03   -0.788391E+02
    0.799124E+09    0.104282E+07
    0.244098E+04    0.970048E+03   -0.786351E+02
    0.799622E+09    0.104289E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.244154E+04    0.970127E+03   -0.784312E+02
    0.800121E+09    0.104296E+07
    0.244209E+04    0.970205E+03   -0.782274E+02
    0.800619E+09    0.104302E+07
    0.244264E+04    0.970284E+03   -0.780235E+02
    0.801118E+09    0.104309E+07
    0.244319E+04    0.970362E+03   -0.778197E+02
    0.801616E+09    0.104316E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.244374E+04    0.970441E+03   -0.776160E+02
    0.802114E+09    0.104322E+07
    0.244429E+04    0.970519E+03   -0.774123E+02
    0.802613E+09    0.104329E+07
    0.244484E+04    0.970597E+03   -0.772087E+02
    0.803111E+09    0.104336E+07
    0.244539E+04    0.970676E+03   -0.770051E+02
    0.803610E+09    0.104342E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.244594E+04    0.970754E+03   -0.768015E+02
    0.804108E+09    0.104349E+07
    0.244649E+04    0.970832E+03   -0.765980E+02
    0.804607E+09    0.104356E+07
    0.244703E+04    0.970911E+03   -0.763945E+02
    0.805105E+09    0.104362E+07
    0.244758E+04    0.970989E+03   -0.761911E+02
    0.805604E+09    0.104369E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.244813E+04    0.971067E+03   -0.759877E+02
    0.806102E+09    0.104376E+07
    0.244868E+04    0.971145E+03   -0.757844E+02
    0.806601E+09    0.104383E+07
    0.244923E+04    0.971224E+03   -0.755811E+02
    0.807099E+09    0.104389E+07
    0.244978E+04    0.971302E+03   -0.753778E+02
    0.807597E+09    0.104396E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.245033E+04    0.971380E+03   -0.751746E+02
    0.808096E+09    0.104403E+07
    0.245088E+04    0.971458E+03   -0.749715E+02
    0.808594E+09    0.104409E+07
    0.245143E+04    0.971536E+03   -0.747684E+02
    0.809093E+09    0.104416E+07
    0.245197E+04    0.971614E+03   -0.745653E+02
    0.809591E+09    0.104423E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.245252E+04    0.971692E+03   -0.743623E+02
    0.810090E+09    0.104429E+07
    0.245307E+04    0.971770E+03   -0.741593E+02
    0.810588E+09    0.104436E+07
    0.245362E+04    0.971848E+03   -0.739563E+02
    0.811087E+09    0.104443E+07
    0.245417E+04    0.971927E+03   -0.737534E+02
    0.811585E+09    0.104449E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.245471E+04    0.972004E+03   -0.735506E+02
    0.812084E+09    0.104456E+07
    0.245526E+04    0.972082E+03   -0.733478E+02
    0.812582E+09    0.104463E+07
    0.245581E+04    0.972160E+03   -0.731450E+02
    0.813080E+09    0.104470E+07
    0.245636E+04    0.972238E+03   -0.729423E+02
    0.813579E+09    0.104476E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.245690E+04    0.972316E+03   -0.727396E+02
    0.814077E+09    0.104483E+07
    0.245745E+04    0.972394E+03   -0.725370E+02
    0.814576E+09    0.104490E+07
    0.245800E+04    0.972472E+03   -0.723344E+02
    0.815074E+09    0.104496E+07
    0.245854E+04    0.972550E+03   -0.721318E+02
    0.815573E+09    0.104503E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.245909E+04    0.972628E+03   -0.719293E+02
    0.816071E+09    0.104510E+07
    0.245964E+04    0.972705E+03   -0.717269E+02
    0.816570E+09    0.104517E+07
    0.246018E+04    0.972783E+03   -0.715245E+02
    0.817068E+09    0.104523E+07
    0.246073E+04    0.972861E+03   -0.713221E+02
    0.817566E+09    0.104530E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.246128E+04    0.972939E+03   -0.711198E+02
    0.818065E+09    0.104537E+07
    0.246182E+04    0.973016E+03   -0.709175E+02
    0.818563E+09    0.104543E+07
    0.246237E+04    0.973094E+03   -0.707153E+02
    0.819062E+09    0.104550E+07
    0.246291E+04    0.973172E+03   -0.705131E+02
    0.819560E+09    0.104557E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.246346E+04    0.973249E+03   -0.703109E+02
    0.820059E+09    0.104564E+07
    0.246401E+04    0.973327E+03   -0.701088E+02
    0.820557E+09    0.104570E+07
    0.246455E+04    0.973405E+03   -0.699067E+02
    0.821056E+09    0.104577E+07
    0.246510E+04    0.973482E+03   -0.697047E+02
    0.821554E+09    0.104584E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.246564E+04    0.973560E+03   -0.695027E+02
    0.822053E+09    0.104590E+07
    0.246619E+04    0.973637E+03   -0.693008E+02
    0.822551E+09    0.104597E+07
    0.246673E+04    0.973715E+03   -0.690989E+02
    0.823049E+09    0.104604E+07
    0.246728E+04    0.973792E+03   -0.688971E+02
    0.823548E+09    0.104611E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.246782E+04    0.973870E+03   -0.686953E+02
    0.824046E+09    0.104617E+07
    0.246837E+04    0.973947E+03   -0.684935E+02
    0.824545E+09    0.104624E+07
    0.246891E+04    0.974025E+03   -0.682918E+02
    0.825043E+09    0.104631E+07
    0.246946E+04    0.974102E+03   -0.680901E+02
    0.825542E+09    0.104638E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.247000E+04    0.974180E+03   -0.678885E+02
    0.826040E+09    0.104644E+07
    0.247055E+04    0.974257E+03   -0.676869E+02
    0.826539E+09    0.104651E+07
    0.247109E+04    0.974334E+03   -0.674853E+02
    0.827037E+09    0.104658E+07
    0.247163E+04    0.974412E+03   -0.672838E+02
    0.827536E+09    0.104665E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.247218E+04    0.974489E+03   -0.670824E+02
    0.828034E+09    0.104671E+07
    0.247272E+04    0.974566E+03   -0.668810E+02
    0.828532E+09    0.104678E+07
    0.247326E+04    0.974644E+03   -0.666796E+02
    0.829031E+09    0.104685E+07
    0.247381E+04    0.974721E+03   -0.664783E+02
    0.829529E+09    0.104691E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.247435E+04    0.974798E+03   -0.662770E+02
    0.830028E+09    0.104698E+07
    0.247490E+04    0.974875E+03   -0.660757E+02
    0.830526E+09    0.104705E+07
    0.247544E+04    0.974952E+03   -0.658745E+02
    0.831025E+09    0.104712E+07
    0.247598E+04    0.975030E+03   -0.656734E+02
    0.831523E+09    0.104718E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.247652E+04    0.975107E+03   -0.654723E+02
    0.832022E+09    0.104725E+07
    0.247707E+04    0.975184E+03   -0.652712E+02
    0.832520E+09    0.104732E+07
    0.247761E+04    0.975261E+03   -0.650702E+02
    0.833019E+09    0.104739E+07
    0.247815E+04    0.975338E+03   -0.648692E+02
    0.833517E+09    0.104745E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.247870E+04    0.975415E+03   -0.646682E+02
    0.834015E+09    0.104752E+07
    0.247924E+04    0.975492E+03   -0.644673E+02
    0.834514E+09    0.104759E+07
    0.247978E+04    0.975569E+03   -0.642665E+02
    0.835012E+09    0.104766E+07
    0.248032E+04    0.975646E+03   -0.640657E+02
    0.835511E+09    0.104773E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.248086E+04    0.975723E+03   -0.638649E+02
    0.836009E+09    0.104779E+07
    0.248141E+04    0.975800E+03   -0.636642E+02
    0.836508E+09    0.104786E+07
    0.248195E+04    0.975877E+03   -0.634635E+02
    0.837006E+09    0.104793E+07
    0.248249E+04    0.975954E+03   -0.632628E+02
    0.837505E+09    0.104800E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.248303E+04    0.976031E+03   -0.630622E+02
    0.838003E+09    0.104806E+07
    0.248357E+04    0.976108E+03   -0.628617E+02
    0.838501E+09    0.104813E+07
    0.248411E+04    0.976185E+03   -0.626612E+02
    0.839000E+09    0.104820E+07
    0.248466E+04    0.976262E+03   -0.624607E+02
    0.839498E+09    0.104827E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.248520E+04    0.976338E+03   -0.622603E+02
    0.839997E+09    0.104833E+07
    0.248574E+04    0.976415E+03   -0.620599E+02
    0.840495E+09    0.104840E+07
    0.248628E+04    0.976492E+03   -0.618595E+02
    0.840994E+09    0.104847E+07
    0.248682E+04    0.976569E+03   -0.616592E+02
    0.841492E+09    0.104854E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.248736E+04    0.976645E+03   -0.614590E+02
    0.841991E+09    0.104860E+07
    0.248790E+04    0.976722E+03   -0.612587E+02
    0.842489E+09    0.104867E+07
    0.248844E+04    0.976799E+03   -0.610586E+02
    0.842988E+09    0.104874E+07
    0.248898E+04    0.976876E+03   -0.608584E+02
    0.843486E+09    0.104881E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.248952E+04    0.976952E+03   -0.606583E+02
    0.843984E+09    0.104888E+07
    0.249006E+04    0.977029E+03   -0.604583E+02
    0.844483E+09    0.104894E+07
    0.249060E+04    0.977105E+03   -0.602583E+02
    0.844981E+09    0.104901E+07
    0.249114E+04    0.977182E+03   -0.600583E+02
    0.845480E+09    0.104908E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.249168E+04    0.977259E+03   -0.598584E+02
    0.845978E+09    0.104915E+07
    0.249222E+04    0.977335E+03   -0.596585E+02
    0.846477E+09    0.104921E+07
    0.249276E+04    0.977412E+03   -0.594587E+02
    0.846975E+09    0.104928E+07
    0.249330E+04    0.977488E+03   -0.592589E+02
    0.847474E+09    0.104935E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.249384E+04    0.977565E+03   -0.590591E+02
    0.847972E+09    0.104942E+07
    0.249438E+04    0.977641E+03   -0.588594E+02
    0.848471E+09    0.104949E+07
    0.249492E+04    0.977718E+03   -0.586598E+02
    0.848969E+09    0.104955E+07
    0.249546E+04    0.977794E+03   -0.584601E+02
    0.849467E+09    0.104962E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.249600E+04    0.977870E+03   -0.582606E+02
    0.849966E+09    0.104969E+07
    0.249654E+04    0.977947E+03   -0.580610E+02
    0.850464E+09    0.104976E+07
    0.249707E+04    0.978023E+03   -0.578615E+02
    0.850963E+09    0.104983E+07
    0.249761E+04    0.978100E+03   -0.576621E+02
    0.851461E+09    0.104989E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.249815E+04    0.978176E+03   -0.574627E+02
    0.851960E+09    0.104996E+07
    0.249869E+04    0.978252E+03   -0.572633E+02
    0.852458E+09    0.105003E+07
    0.249923E+04    0.978328E+03   -0.570639E+02
    0.852957E+09    0.105010E+07
    0.249977E+04    0.978405E+03   -0.568647E+02
    0.853455E+09    0.105017E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.250030E+04    0.978481E+03   -0.566654E+02
    0.853954E+09    0.105023E+07
    0.250084E+04    0.978557E+03   -0.564662E+02
    0.854452E+09    0.105030E+07
    0.250138E+04    0.978633E+03   -0.562670E+02
    0.854950E+09    0.105037E+07
    0.250192E+04    0.978710E+03   -0.560679E+02
    0.855449E+09    0.105044E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.250245E+04    0.978786E+03   -0.558688E+02
    0.855947E+09    0.105051E+07
    0.250299E+04    0.978862E+03   -0.556698E+02
    0.856446E+09    0.105057E+07
    0.250353E+04    0.978938E+03   -0.554708E+02
    0.856944E+09    0.105064E+07
    0.250407E+04    0.979014E+03   -0.552719E+02
    0.857443E+09    0.105071E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.250460E+04    0.979090E+03   -0.550729E+02
    0.857941E+09    0.105078E+07
    0.250514E+04    0.979166E+03   -0.548741E+02
    0.858440E+09    0.105085E+07
    0.250568E+04    0.979242E+03   -0.546752E+02
    0.858938E+09    0.105091E+07
    0.250621E+04    0.979318E+03   -0.544765E+02
    0.859436E+09    0.105098E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.250675E+04    0.979394E+03   -0.542777E+02
    0.859935E+09    0.105105E+07
    0.250729E+04    0.979470E+03   -0.540790E+02
    0.860433E+09    0.105112E+07
    0.250782E+04    0.979546E+03   -0.538803E+02
    0.860932E+09    0.105119E+07
    0.250836E+04    0.979622E+03   -0.536817E+02
    0.861430E+09    0.105125E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.250890E+04    0.979698E+03   -0.534831E+02
    0.861929E+09    0.105132E+07
    0.250943E+04    0.979774E+03   -0.532846E+02
    0.862427E+09    0.105139E+07
    0.250997E+04    0.979850E+03   -0.530861E+02
    0.862926E+09    0.105146E+07
    0.251050E+04    0.979926E+03   -0.528877E+02
    0.863424E+09    0.105153E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.251104E+04    0.980002E+03   -0.526892E+02
    0.863923E+09    0.105160E+07
    0.251157E+04    0.980078E+03   -0.524909E+02
    0.864421E+09    0.105166E+07
    0.251211E+04    0.980153E+03   -0.522925E+02
    0.864919E+09    0.105173E+07
    0.251265E+04    0.980229E+03   -0.520943E+02
    0.865418E+09    0.105180E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.251318E+04    0.980305E+03   -0.518960E+02
    0.865916E+09    0.105187E+07
    0.251372E+04    0.980381E+03   -0.516978E+02
    0.866415E+09    0.105194E+07
    0.251425E+04    0.980456E+03   -0.514996E+02
    0.866913E+09    0.105201E+07
    0.251479E+04    0.980532E+03   -0.513015E+02
    0.867412E+09    0.105207E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.251532E+04    0.980608E+03   -0.511034E+02
    0.867910E+09    0.105214E+07
    0.251586E+04    0.980683E+03   -0.509054E+02
    0.868409E+09    0.105221E+07
    0.251639E+04    0.980759E+03   -0.507074E+02
    0.868907E+09    0.105228E+07
    0.251692E+04    0.980835E+03   -0.505094E+02
    0.869406E+09    0.105235E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.251746E+04    0.980910E+03   -0.503115E+02
    0.869904E+09    0.105241E+07
    0.251799E+04    0.980986E+03   -0.501136E+02
    0.870402E+09    0.105248E+07
    0.251853E+04    0.981061E+03   -0.499158E+02
    0.870901E+09    0.105255E+07
    0.251906E+04    0.981137E+03   -0.497180E+02
    0.871399E+09    0.105262E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.251960E+04    0.981213E+03   -0.495203E+02
    0.871898E+09    0.105269E+07
    0.252013E+04    0.981288E+03   -0.493225E+02
    0.872396E+09    0.105276E+07
    0.252066E+04    0.981364E+03   -0.491249E+02
    0.872895E+09    0.105283E+07
    0.252120E+04    0.981439E+03   -0.489273E+02
    0.873393E+09    0.105289E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.252173E+04    0.981514E+03   -0.487297E+02
    0.873892E+09    0.105296E+07
    0.252226E+04    0.981590E+03   -0.485321E+02
    0.874390E+09    0.105303E+07
    0.252280E+04    0.981665E+03   -0.483346E+02
    0.874888E+09    0.105310E+07
    0.252333E+04    0.981741E+03   -0.481371E+02
    0.875387E+09    0.105317E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.252386E+04    0.981816E+03   -0.479397E+02
    0.875885E+09    0.105324E+07
    0.252440E+04    0.981891E+03   -0.477423E+02
    0.876384E+09    0.105330E+07
    0.252493E+04    0.981967E+03   -0.475450E+02
    0.876882E+09    0.105337E+07
    0.252546E+04    0.982042E+03   -0.473477E+02
    0.877381E+09    0.105344E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.252599E+04    0.982117E+03   -0.471504E+02
    0.877879E+09    0.105351E+07
    0.252653E+04    0.982193E+03   -0.469532E+02
    0.878378E+09    0.105358E+07
    0.252706E+04    0.982268E+03   -0.467560E+02
    0.878876E+09    0.105365E+07
    0.252759E+04    0.982343E+03   -0.465589E+02
    0.879375E+09    0.105372E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.252812E+04    0.982418E+03   -0.463618E+02
    0.879873E+09    0.105378E+07
    0.252866E+04    0.982494E+03   -0.461647E+02
    0.880371E+09    0.105385E+07
    0.252919E+04    0.982569E+03   -0.459677E+02
    0.880870E+09    0.105392E+07
    0.252972E+04    0.982644E+03   -0.457707E+02
    0.881368E+09    0.105399E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.253025E+04    0.982719E+03   -0.455738E+02
    0.881867E+09    0.105406E+07
    0.253078E+04    0.982794E+03   -0.453769E+02
    0.882365E+09    0.105413E+07
    0.253131E+04    0.982869E+03   -0.451801E+02
    0.882864E+09    0.105420E+07
    0.253185E+04    0.982944E+03   -0.449832E+02
    0.883362E+09    0.105426E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.253238E+04    0.983019E+03   -0.447865E+02
    0.883861E+09    0.105433E+07
    0.253291E+04    0.983094E+03   -0.445897E+02
    0.884359E+09    0.105440E+07
    0.253344E+04    0.983169E+03   -0.443931E+02
    0.884858E+09    0.105447E+07
    0.253397E+04    0.983244E+03   -0.441964E+02
    0.885356E+09    0.105454E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.253450E+04    0.983319E+03   -0.439998E+02
    0.885854E+09    0.105461E+07
    0.253503E+04    0.983394E+03   -0.438032E+02
    0.886353E+09    0.105468E+07
    0.253556E+04    0.983469E+03   -0.436067E+02
    0.886851E+09    0.105474E+07
    0.253609E+04    0.983544E+03   -0.434102E+02
    0.887350E+09    0.105481E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.253662E+04    0.983619E+03   -0.432138E+02
    0.887848E+09    0.105488E+07
    0.253715E+04    0.983694E+03   -0.430173E+02
    0.888347E+09    0.105495E+07
    0.253768E+04    0.983769E+03   -0.428210E+02
    0.888845E+09    0.105502E+07
    0.253821E+04    0.983844E+03   -0.426247E+02
    0.889344E+09    0.105509E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.253874E+04    0.983919E+03   -0.424284E+02
    0.889842E+09    0.105516E+07
    0.253927E+04    0.983993E+03   -0.422321E+02
    0.890341E+09    0.105523E+07
    0.253980E+04    0.984068E+03   -0.420359E+02
    0.890839E+09    0.105529E+07
    0.254033E+04    0.984143E+03   -0.418397E+02
    0.891337E+09    0.105536E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.254086E+04    0.984218E+03   -0.416436E+02
    0.891836E+09    0.105543E+07
    0.254139E+04    0.984292E+03   -0.414475E+02
    0.892334E+09    0.105550E+07
    0.254192E+04    0.984367E+03   -0.412515E+02
    0.892833E+09    0.105557E+07
    0.254245E+04    0.984442E+03   -0.410555E+02
    0.893331E+09    0.105564E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.254298E+04    0.984516E+03   -0.408595E+02
    0.893830E+09    0.105571E+07
    0.254351E+04    0.984591E+03   -0.406636E+02
    0.894328E+09    0.105578E+07
    0.254404E+04    0.984666E+03   -0.404677E+02
    0.894827E+09    0.105585E+07
    0.254457E+04    0.984740E+03   -0.402719E+02
    0.895325E+09    0.105591E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.254509E+04    0.984815E+03   -0.400761E+02
    0.895823E+09    0.105598E+07
    0.254562E+04    0.984890E+03   -0.398803E+02
    0.896322E+09    0.105605E+07
    0.254615E+04    0.984964E+03   -0.396846E+02
    0.896820E+09    0.105612E+07
    0.254668E+04    0.985039E+03   -0.394889E+02
    0.897319E+09    0.105619E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.254721E+04    0.985113E+03   -0.392932E+02
    0.897817E+09    0.105626E+07
    0.254774E+04    0.985188E+03   -0.390976E+02
    0.898316E+09    0.105633E+07
    0.254826E+04    0.985262E+03   -0.389021E+02
    0.898814E+09    0.105640E+07
    0.254879E+04    0.985337E+03   -0.387065E+02
    0.899313E+09    0.105647E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.254932E+04    0.985411E+03   -0.385111E+02
    0.899811E+09    0.105653E+07
    0.254985E+04    0.985485E+03   -0.383156E+02
    0.900310E+09    0.105660E+07
    0.255038E+04    0.985560E+03   -0.381202E+02
    0.900808E+09    0.105667E+07
    0.255090E+04    0.985634E+03   -0.379248E+02
    0.901306E+09    0.105674E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.255143E+04    0.985709E+03   -0.377295E+02
    0.901805E+09    0.105681E+07
    0.255196E+04    0.985783E+03   -0.375342E+02
    0.902303E+09    0.105688E+07
    0.255248E+04    0.985857E+03   -0.373390E+02
    0.902802E+09    0.105695E+07
    0.255301E+04    0.985932E+03   -0.371438E+02
    0.903300E+09    0.105702E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.255354E+04    0.986006E+03   -0.369486E+02
    0.903799E+09    0.105709E+07
    0.255407E+04    0.986080E+03   -0.367535E+02
    0.904297E+09    0.105716E+07
    0.255459E+04    0.986154E+03   -0.365584E+02
    0.904796E+09    0.105722E+07
    0.255512E+04    0.986229E+03   -0.363633E+02
    0.905294E+09    0.105729E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.255565E+04    0.986303E+03   -0.361683E+02
    0.905793E+09    0.105736E+07
    0.255617E+04    0.986377E+03   -0.359734E+02
    0.906291E+09    0.105743E+07
    0.255670E+04    0.986451E+03   -0.357784E+02
    0.906789E+09    0.105750E+07
    0.255722E+04    0.986525E+03   -0.355835E+02
    0.907288E+09    0.105757E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.255775E+04    0.986599E+03   -0.353887E+02
    0.907786E+09    0.105764E+07
    0.255828E+04    0.986674E+03   -0.351939E+02
    0.908285E+09    0.105771E+07
    0.255880E+04    0.986748E+03   -0.349991E+02
    0.908783E+09    0.105778E+07
    0.255933E+04    0.986822E+03   -0.348044E+02
    0.909282E+09    0.105785E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.255985E+04    0.986896E+03   -0.346097E+02
    0.909780E+09    0.105792E+07
    0.256038E+04    0.986970E+03   -0.344150E+02
    0.910279E+09    0.105799E+07
    0.256090E+04    0.987044E+03   -0.342204E+02
    0.910777E+09    0.105805E+07
    0.256143E+04    0.987118E+03   -0.340258E+02
    0.911276E+09    0.105812E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.256196E+04    0.987192E+03   -0.338313E+02
    0.911774E+09    0.105819E+07
    0.256248E+04    0.987266E+03   -0.336368E+02
    0.912272E+09    0.105826E+07
    0.256301E+04    0.987340E+03   -0.334424E+02
    0.912771E+09    0.105833E+07
    0.256353E+04    0.987414E+03   -0.332479E+02
    0.913269E+09    0.105840E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.256406E+04    0.987488E+03   -0.330536E+02
    0.913768E+09    0.105847E+07
    0.256458E+04    0.987561E+03   -0.328592E+02
    0.914266E+09    0.105854E+07
    0.256510E+04    0.987635E+03   -0.326649E+02
    0.914765E+09    0.105861E+07
    0.256563E+04    0.987709E+03   -0.324707E+02
    0.915263E+09    0.105868E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.256615E+04    0.987783E+03   -0.322764E+02
    0.915762E+09    0.105875E+07
    0.256668E+04    0.987857E+03   -0.320823E+02
    0.916260E+09    0.105882E+07
    0.256720E+04    0.987931E+03   -0.318881E+02
    0.916758E+09    0.105889E+07
    0.256773E+04    0.988004E+03   -0.316940E+02
    0.917257E+09    0.105895E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.256825E+04    0.988078E+03   -0.315000E+02
    0.917755E+09    0.105902E+07
    0.256877E+04    0.988152E+03   -0.313059E+02
    0.918254E+09    0.105909E+07
    0.256930E+04    0.988226E+03   -0.311119E+02
    0.918752E+09    0.105916E+07
    0.256982E+04    0.988299E+03   -0.309180E+02
    0.919251E+09    0.105923E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.257034E+04    0.988373E+03   -0.307241E+02
    0.919749E+09    0.105930E+07
    0.257087E+04    0.988447E+03   -0.305302E+02
    0.920248E+09    0.105937E+07
    0.257139E+04    0.988520E+03   -0.303364E+02
    0.920746E+09    0.105944E+07
    0.257191E+04    0.988594E+03   -0.301426E+02
    0.921245E+09    0.105951E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.257244E+04    0.988668E+03   -0.299489E+02
    0.921743E+09    0.105958E+07
    0.257296E+04    0.988741E+03   -0.297551E+02
    0.922241E+09    0.105965E+07
    0.257348E+04    0.988815E+03   -0.295615E+02
    0.922740E+09    0.105972E+07
    0.257401E+04    0.988888E+03   -0.293678E+02
    0.923238E+09    0.105979E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.257453E+04    0.988962E+03   -0.291742E+02
    0.923737E+09    0.105986E+07
    0.257505E+04    0.989035E+03   -0.289807E+02
    0.924235E+09    0.105993E+07
    0.257557E+04    0.989109E+03   -0.287872E+02
    0.924734E+09    0.106000E+07
    0.257610E+04    0.989182E+03   -0.285937E+02
    0.925232E+09    0.106007E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.257662E+04    0.989256E+03   -0.284002E+02
    0.925731E+09    0.106013E+07
    0.257714E+04    0.989329E+03   -0.282068E+02
    0.926229E+09    0.106020E+07
    0.257766E+04    0.989403E+03   -0.280135E+02
    0.926728E+09    0.106027E+07
    0.257819E+04    0.989476E+03   -0.278202E+02
    0.927226E+09    0.106034E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.257871E+04    0.989549E+03   -0.276269E+02
    0.927724E+09    0.106041E+07
    0.257923E+04    0.989623E+03   -0.274336E+02
    0.928223E+09    0.106048E+07
    0.257975E+04    0.989696E+03   -0.272404E+02
    0.928721E+09    0.106055E+07
    0.258027E+04    0.989770E+03   -0.270472E+02
    0.929220E+09    0.106062E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.258079E+04    0.989843E+03   -0.268541E+02
    0.929718E+09    0.106069E+07
    0.258132E+04    0.989916E+03   -0.266610E+02
    0.930217E+09    0.106076E+07
    0.258184E+04    0.989989E+03   -0.264680E+02
    0.930715E+09    0.106083E+07
    0.258236E+04    0.990063E+03   -0.262750E+02
    0.931214E+09    0.106090E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.258288E+04    0.990136E+03   -0.260820E+02
    0.931712E+09    0.106097E+07
    0.258340E+04    0.990209E+03   -0.258890E+02
    0.932210E+09    0.106104E+07
    0.258392E+04    0.990282E+03   -0.256961E+02
    0.932709E+09    0.106111E+07
    0.258444E+04    0.990356E+03   -0.255033E+02
    0.933207E+09    0.106118E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.258496E+04    0.990429E+03   -0.253105E+02
    0.933706E+09    0.106125E+07
    0.258548E+04    0.990502E+03   -0.251177E+02
    0.934204E+09    0.106132E+07
    0.258600E+04    0.990575E+03   -0.249249E+02
    0.934703E+09    0.106139E+07
    0.258652E+04    0.990648E+03   -0.247322E+02
    0.935201E+09    0.106146E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.258704E+04    0.990721E+03   -0.245395E+02
    0.935700E+09    0.106153E+07
    0.258756E+04    0.990794E+03   -0.243469E+02
    0.936198E+09    0.106160E+07
    0.258808E+04    0.990867E+03   -0.241543E+02
    0.936697E+09    0.106167E+07
    0.258860E+04    0.990940E+03   -0.239618E+02
    0.937195E+09    0.106174E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.258912E+04    0.991013E+03   -0.237693E+02
    0.937693E+09    0.106180E+07
    0.258964E+04    0.991086E+03   -0.235768E+02
    0.938192E+09    0.106187E+07
    0.259016E+04    0.991159E+03   -0.233843E+02
    0.938690E+09    0.106194E+07
    0.259068E+04    0.991232E+03   -0.231919E+02
    0.939189E+09    0.106201E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.259120E+04    0.991305E+03   -0.229996E+02
    0.939687E+09    0.106208E+07
    0.259172E+04    0.991378E+03   -0.228073E+02
    0.940186E+09    0.106215E+07
    0.259224E+04    0.991451E+03   -0.226150E+02
    0.940684E+09    0.106222E+07
    0.259276E+04    0.991524E+03   -0.224227E+02
    0.941183E+09    0.106229E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.259328E+04    0.991597E+03   -0.222305E+02
    0.941681E+09    0.106236E+07
    0.259380E+04    0.991670E+03   -0.220383E+02
    0.942180E+09    0.106243E+07
    0.259432E+04    0.991743E+03   -0.218462E+02
    0.942678E+09    0.106250E+07
    0.259483E+04    0.991815E+03   -0.216541E+02
    0.943176E+09    0.106257E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.259535E+04    0.991888E+03   -0.214621E+02
    0.943675E+09    0.106264E+07
    0.259587E+04    0.991961E+03   -0.212700E+02
    0.944173E+09    0.106271E+07
    0.259639E+04    0.992034E+03   -0.210781E+02
    0.944672E+09    0.106278E+07
    0.259691E+04    0.992106E+03   -0.208861E+02
    0.945170E+09    0.106285E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.259743E+04    0.992179E+03   -0.206942E+02
    0.945669E+09    0.106292E+07
    0.259794E+04    0.992252E+03   -0.205023E+02
    0.946167E+09    0.106299E+07
    0.259846E+04    0.992325E+03   -0.203105E+02
    0.946666E+09    0.106306E+07
    0.259898E+04    0.992397E+03   -0.201187E+02
    0.947164E+09    0.106313E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.259950E+04    0.992470E+03   -0.199270E+02
    0.947663E+09    0.106320E+07
    0.260001E+04    0.992543E+03   -0.197352E+02
    0.948161E+09    0.106327E+07
    0.260053E+04    0.992615E+03   -0.195436E+02
    0.948659E+09    0.106334E+07
    0.260105E+04    0.992688E+03   -0.193519E+02
    0.949158E+09    0.106341E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.260157E+04    0.992760E+03   -0.191603E+02
    0.949656E+09    0.106348E+07
    0.260208E+04    0.992833E+03   -0.189688E+02
    0.950155E+09    0.106355E+07
    0.260260E+04    0.992905E+03   -0.187772E+02
    0.950653E+09    0.106362E+07
    0.260312E+04    0.992978E+03   -0.185857E+02
    0.951152E+09    0.106369E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.260364E+04    0.993050E+03   -0.183943E+02
    0.951650E+09    0.106376E+07
    0.260415E+04    0.993123E+03   -0.182029E+02
    0.952149E+09    0.106383E+07
    0.260467E+04    0.993195E+03   -0.180115E+02
    0.952647E+09    0.106390E+07
    0.260519E+04    0.993268E+03   -0.178202E+02
    0.953145E+09    0.106397E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.260570E+04    0.993340E+03   -0.176289E+02
    0.953644E+09    0.106404E+07
    0.260622E+04    0.993413E+03   -0.174376E+02
    0.954142E+09    0.106411E+07
    0.260673E+04    0.993485E+03   -0.172464E+02
    0.954641E+09    0.106418E+07
    0.260725E+04    0.993558E+03   -0.170552E+02
    0.955139E+09    0.106425E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.260777E+04    0.993630E+03   -0.168640E+02
    0.955638E+09    0.106432E+07
    0.260828E+04    0.993702E+03   -0.166729E+02
    0.956136E+09    0.106439E+07
    0.260880E+04    0.993775E+03   -0.164819E+02
    0.956635E+09    0.106446E+07
    0.260931E+04    0.993847E+03   -0.162908E+02
    0.957133E+09    0.106453E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.260983E+04    0.993919E+03   -0.160998E+02
    0.957632E+09    0.106460E+07
    0.261035E+04    0.993991E+03   -0.159089E+02
    0.958130E+09    0.106467E+07
    0.261086E+04    0.994064E+03   -0.157179E+02
    0.958628E+09    0.106474E+07
    0.261138E+04    0.994136E+03   -0.155270E+02
    0.959127E+09    0.106481E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.261189E+04    0.994208E+03   -0.153362E+02
    0.959625E+09    0.106488E+07
    0.261241E+04    0.994280E+03   -0.151454E+02
    0.960124E+09    0.106495E+07
    0.261292E+04    0.994353E+03   -0.149546E+02
    0.960622E+09    0.106502E+07
    0.261344E+04    0.994425E+03   -0.147639E+02
    0.961121E+09    0.106509E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.261395E+04    0.994497E+03   -0.145732E+02
    0.961619E+09    0.106516E+07
    0.261447E+04    0.994569E+03   -0.143825E+02
    0.962118E+09    0.106523E+07
    0.261498E+04    0.994641E+03   -0.141919E+02
    0.962616E+09    0.106530E+07
    0.261550E+04    0.994713E+03   -0.140013E+02
    0.963115E+09    0.106537E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.261601E+04    0.994785E+03   -0.138107E+02
    0.963613E+09    0.106544E+07
    0.261653E+04    0.994857E+03   -0.136202E+02
    0.964111E+09    0.106551E+07
    0.261704E+04    0.994929E+03   -0.134298E+02
    0.964610E+09    0.106558E+07
    0.261755E+04    0.995001E+03   -0.132393E+02
    0.965108E+09    0.106565E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.261807E+04    0.995074E+03   -0.130489E+02
    0.965607E+09    0.106572E+07
    0.261858E+04    0.995145E+03   -0.128586E+02
    0.966105E+09    0.106579E+07
    0.261910E+04    0.995217E+03   -0.126682E+02
    0.966604E+09    0.106586E+07
    0.261961E+04    0.995289E+03   -0.124779E+02
    0.967102E+09    0.106593E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.262012E+04    0.995361E+03   -0.122877E+02
    0.967601E+09    0.106600E+07
    0.262064E+04    0.995433E+03   -0.120975E+02
    0.968099E+09    0.106607E+07
    0.262115E+04    0.995505E+03   -0.119073E+02
    0.968598E+09    0.106614E+07
    0.262166E+04    0.995577E+03   -0.117171E+02
    0.969096E+09    0.106621E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.262218E+04    0.995649E+03   -0.115270E+02
    0.969594E+09    0.106628E+07
    0.262269E+04    0.995721E+03   -0.113370E+02
    0.970093E+09    0.106636E+07
    0.262320E+04    0.995793E+03   -0.111469E+02
    0.970591E+09    0.106643E+07
    0.262372E+04    0.995864E+03   -0.109570E+02
    0.971090E+09    0.106650E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.262423E+04    0.995936E+03   -0.107670E+02
    0.971588E+09    0.106657E+07
    0.262474E+04    0.996008E+03   -0.105771E+02
    0.972087E+09    0.106664E+07
    0.262525E+04    0.996080E+03   -0.103872E+02
    0.972585E+09    0.106671E+07
    0.262577E+04    0.996152E+03   -0.101973E+02
    0.973084E+09    0.106678E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.262628E+04    0.996223E+03   -0.100075E+02
    0.973582E+09    0.106685E+07
    0.262679E+04    0.996295E+03   -0.981777E+01
    0.974080E+09    0.106692E+07
    0.262730E+04    0.996367E+03   -0.962803E+01
    0.974579E+09    0.106699E+07
    0.262782E+04    0.996438E+03   -0.943833E+01
    0.975077E+09    0.106706E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.262833E+04    0.996510E+03   -0.924867E+01
    0.975576E+09    0.106713E+07
    0.262884E+04    0.996582E+03   -0.905905E+01
    0.976074E+09    0.106720E+07
    0.262935E+04    0.996653E+03   -0.886946E+01
    0.976573E+09    0.106727E+07
    0.262986E+04    0.996725E+03   -0.867991E+01
    0.977071E+09    0.106734E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.263038E+04    0.996796E+03   -0.849039E+01
    0.977570E+09    0.106741E+07
    0.263089E+04    0.996868E+03   -0.830092E+01
    0.978068E+09    0.106748E+07
    0.263140E+04    0.996940E+03   -0.811148E+01
    0.978567E+09    0.106755E+07
    0.263191E+04    0.997011E+03   -0.792207E+01
    0.979065E+09    0.106762E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.263242E+04    0.997083E+03   -0.773271E+01
    0.979563E+09    0.106769E+07
    0.263293E+04    0.997154E+03   -0.754337E+01
    0.980062E+09    0.106776E+07
    0.263344E+04    0.997226E+03   -0.735408E+01
    0.980560E+09    0.106783E+07
    0.263395E+04    0.997297E+03   -0.716482E+01
    0.981059E+09    0.106790E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.263447E+04    0.997369E+03   -0.697560E+01
    0.981557E+09    0.106797E+07
    0.263498E+04    0.997440E+03   -0.678642E+01
    0.982056E+09    0.106804E+07
    0.263549E+04    0.997511E+03   -0.659727E+01
    0.982554E+09    0.106812E+07
    0.263600E+04    0.997583E+03   -0.640816E+01
    0.983053E+09    0.106819E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.263651E+04    0.997654E+03   -0.621908E+01
    0.983551E+09    0.106826E+07
    0.263702E+04    0.997726E+03   -0.603005E+01
    0.984050E+09    0.106833E+07
    0.263753E+04    0.997797E+03   -0.584105E+01
    0.984548E+09    0.106840E+07
    0.263804E+04    0.997868E+03   -0.565208E+01
    0.985046E+09    0.106847E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.263855E+04    0.997940E+03   -0.546315E+01
    0.985545E+09    0.106854E+07
    0.263906E+04    0.998011E+03   -0.527426E+01
    0.986043E+09    0.106861E+07
    0.263957E+04    0.998082E+03   -0.508540E+01
    0.986542E+09    0.106868E+07
    0.264008E+04    0.998153E+03   -0.489658E+01
    0.987040E+09    0.106875E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.264059E+04    0.998225E+03   -0.470780E+01
    0.987539E+09    0.106882E+07
    0.264110E+04    0.998296E+03   -0.451905E+01
    0.988037E+09    0.106889E+07
    0.264161E+04    0.998367E+03   -0.433034E+01
    0.988536E+09    0.106896E+07
    0.264212E+04    0.998438E+03   -0.414167E+01
    0.989034E+09    0.106903E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.264263E+04    0.998509E+03   -0.395303E+01
    0.989533E+09    0.106910E+07
    0.264314E+04    0.998581E+03   -0.376443E+01
    0.990031E+09    0.106917E+07
    0.264364E+04    0.998652E+03   -0.357587E+01
    0.990529E+09    0.106924E+07
    0.264415E+04    0.998723E+03   -0.338734E+01
    0.991028E+09    0.106932E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.264466E+04    0.998794E+03   -0.319885E+01
    0.991526E+09    0.106939E+07
    0.264517E+04    0.998865E+03   -0.301039E+01
    0.992025E+09    0.106946E+07
    0.264568E+04    0.998936E+03   -0.282197E+01
    0.992523E+09    0.106953E+07
    0.264619E+04    0.999007E+03   -0.263359E+01
    0.993022E+09    0.106960E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.264670E+04    0.999078E+03   -0.244524E+01
    0.993520E+09    0.106967E+07
    0.264721E+04    0.999149E+03   -0.225693E+01
    0.994019E+09    0.106974E+07
    0.264771E+04    0.999220E+03   -0.206865E+01
    0.994517E+09    0.106981E+07
    0.264822E+04    0.999291E+03   -0.188041E+01
    0.995015E+09    0.106988E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.264873E+04    0.999362E+03   -0.169221E+01
    0.995514E+09    0.106995E+07
    0.264924E+04    0.999433E+03   -0.150404E+01
    0.996012E+09    0.107002E+07
    0.264975E+04    0.999504E+03   -0.131591E+01
    0.996511E+09    0.107009E+07
    0.265025E+04    0.999575E+03   -0.112781E+01
    0.997009E+09    0.107016E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.265076E+04    0.999646E+03   -0.939756E+00
    0.997508E+09    0.107023E+07
    0.265127E+04    0.999717E+03   -0.751732E+00
    0.998006E+09    0.107031E+07
    0.265178E+04    0.999788E+03   -0.563745E+00
    0.998505E+09    0.107038E+07
    0.265229E+04    0.999858E+03   -0.375794E+00
    0.999003E+09    0.107045E+07
 );
 LEXACT = LEXACT ET ( PROG 
    0.265279E+04    0.999929E+03   -0.187879E+00
    0.999502E+09    0.107052E+07
    0.265332E+04    0.100000E+04    0.000000E+00
    0.100000E+10    0.107059E+07
    0.291863E+04    0.100000E+04    0.000000E+00
    0.100000E+10    0.107059E+07
 );
 aa = 'DIME' LEXACT ;
 LEX_XOT = 'LECT' 1 PAS 5 (aa '-' 4) ;
 LEX_XOT = 'EXTRAIRE' LEXACT LEX_XOT ;
 LEX_RHO = 'LECT' 2 PAS 5 (aa '-' 3) ;
 LEX_RHO = 'EXTRAIRE' LEXACT LEX_RHO ;
 LEX_U = 'LECT' 3 PAS 5 (aa '-' 2) ;
 LEX_U = 'EXTRAIRE' LEXACT LEX_U ;
 LEX_P = 'LECT' 4 PAS 5 (aa '-' 1) ;
 LEX_P = 'EXTRAIRE' LEXACT LEX_P ;
 LEX_E = 'LECT' 5 PAS 5 (aa '-' 0) ;
 LEX_E = 'EXTRAIRE' LEXACT LEX_E ;
*
 LP = 'IPOL' LXST LEX_XOT LEX_P ;
 LU = 'IPOL' LXST LEX_XOT LEX_U ;
 LRHO = 'IPOL' LXST LEX_XOT LEX_RHO ;
 LE = 'IPOL' LXST LEX_XOT LEX_E ;
 'FINPROC' LRHO LU LP LE ;
*
****************************************************************
****************************************************************
*** END EXACT SOLUTION.                                *********
****************************************************************
****************************************************************
*

****************************************************************
*****      1D mesh                                         *****
****************************************************************
*
*
*   A4 ------------------- A5 ----------------------- A6
*   |                       |                         |  
*   |        ZONE1          |          ZONE2          |  
*   |                       |                         |  
*   A1 ------------------- A2 ----------------------- A3
*   |                       |                         |  
*   |          L1           |           L2            |  
*  >|<--------------------->|<----------------------->|<
*
*  ZONE1
*  ZONE2
*
 RAF = 100 ;
*  RAF = 4 ;
 
 L1 = 0.3;
 L2 = 0.7;

 DX = (L1 '+' L2)  '/' RAF ;
 N1 = 'ENTIER' ((L1 '/' DX) '+' 0.5) ;
 N2 =  RAF '-' N1 ;
 

* For sake of simplicity, we will only consider NY mesh in y-direction

 NY = 1 ;
 H1 = NY '*' DX ;

 A1 = 0.0 0.0 ;
 A2 = L1 0.0 ;
 A3 = (L1 '+' L2) 0.0 ;
 A4 = 0.0 H1 ;
 A5 = L1  H1 ;
 A6 = (L1 '+' L2) H1 ;
 
* 
 'OPTION' 'ELEM' 'SEG2' ;
 A1A2 = A1 'DROIT' N1 A2 ;
 A2A3 = A2 'DROIT' N2 A3 ;
 A4A5 = A4 'DROIT' N1 A5 ;
 A5A6 = A5 'DROIT' N2 A6 ;
*
 A1A4 = A1 'DROIT' NY A4 ;
 A2A5 = A2 'DROIT' NY A5 ;
 A3A6 = A3 'DROIT' NY A6 ;
*
**** 2D mesh
*
 'OPTION' 'ELEM' 'QUA4' ;
 DOM1 = 'DALLER' A1A2 A2A5 ('INVERSE' A4A5) ('INVERSE' A1A4) ;
 DOM2 = 'DALLER' A2A3 A3A6 ('INVERSE' A5A6) ('INVERSE' A2A5) ;
*
 LIMG = A1A4 ;
 LIMD = A3A6 ;
*
* DOMTOT = total region
*
 DOMTOT = DOM1 'ET' DOM2  ;
 'ELIMINATION' (1.0D-3 '*' DX) DOMTOT ;
 DOMLIM = 'CONTOUR' DOMTOT ;
*
**** Pour epx
*
 SI FAUX ;
    OPTI SAUV FORM ('CHAINE' 'tube_forestier' RAF '.msh') ;
    SAUV FORM DOMTOT ;
    'OPTION' DONN 5 ;
 'FINSI' ;
*
**** The tables 'DOMAINE'
*
 $DOMTOT = 'MODELISER' DOMTOT 'EULER' ;
 $DOMLIM = 'MODELISER' DOMLIM 'EULER' ;
 $DOM1   = 'MODELISER' DOM1 'EULER' ;
 $DOM2   = 'MODELISER' DOM2 'EULER' ;
 $LIMG   = 'MODELISER' LIMG 'EULER' ;
 $LIMD   = 'MODELISER' LIMD 'EULER' ;
* 
 TDOMTOT = 'DOMA' $DOMTOT 'VF' ;
 TDOMLIM = 'DOMA' $DOMLIM 'VF' ;
 TDOM1   = 'DOMA' $DOM1   'VF' ;
 TDOM2   = 'DOMA' $DOM2   'VF' ;
 TLIMG   = 'DOMA' $LIMG   'VF' ;
 TLIMD   = 'DOMA' $LIMD   'VF' ;
* 
 QDOMTOT = TDOMTOT  . 'QUAF' ;
 QDOMLIM = TDOMLIM  . 'QUAF' ;
 QDOM1   = TDOM1    . 'QUAF' ;
 QDOM2   = TDOM2    . 'QUAF' ;
 QLIMG   = TLIMG    . 'QUAF' ;
 QLIMD   = TLIMD    . 'QUAF' ;
*
 'ELIMINATION' QDOMTOT (0.001 '*' DX) QDOMLIM ;
 'ELIMINATION' QDOMTOT (0.001 '*' DX) QDOM1 ;
 'ELIMINATION' QDOMTOT (0.001 '*' DX) QDOM2 ;
 'ELIMINATION' QDOMTOT (0.001 '*' DX) QLIMG ;
 'ELIMINATION' QDOMTOT (0.001 '*' DX) QLIMD ;
*
**** MOD1 = model (created just to display the CHAMELEMs)
*
 MOD1 =  'MODELISER'  ('DOMA' $DOMTOT 'MAILLAGE') 'THERMIQUE' ;
*
**** Line for graphics
*
 'OPTION' 'ELEM' 'SEG2' ;
 LIMCON = 'MANUEL' 'QUA4'
    (A1 'PLUS' ((0.25 * DX) (0.25 * DX)))
    (A3 'PLUS' ((-0.25 * DX) (0.25 * DX)))
    (A3 'PLUS' ((-0.25 * DX) (0.75 * DX)))
    (A1 'PLUS' ((0.25 * DX) (0.75 * DX))) ;
 LIMCON = LIMCON 'COULEUR' ROUG ;
* 
 LIGEVO = (TDOMTOT . 'CENTRE') 'INCL' LIMCON ;
 P1 = 'POIN' (COOR 1 LIGEVO) 'MINIMUM' ;
 'ORDONNER' LIGEVO P1 ;
 LIGEVO = 'QUELCONQUE' 'SEG2' LIGEVO 'COULEUR' 'VERT' ;
 'SI' GRAPH  ;
*    'OPTI' 'TRAC' 'PSC' ;
*    'OPTI' 'FTRA' '/u2/becc/Dwork/Dcastem/ligne.ps' ;
    'TRACER' (LIMCON 'ET' QDOMTOT 'ET' LIGEVO) ;
 'FINSI' ;
* 'OPTION' 'SAUVER' ('CHAINE' 'mesh.sauv_raf' RAF) ;
* 'SAUVER' RAF DOMTOT $DOMTOT $DOM1 $DOM2 $DOM3 LIGEVO MOD1 ;

* Point to compute the solution
 PC4 =  (TDOMTOT  . 'CENTRE') 'POIN' 'PROC'
    (((1.1 * L1) '-' (DX '*' 0.5)) (H1 * 0.5)) ;
 PC3 = (TDOMTOT  . 'CENTRE')  'POIN' 'PROC'
    ((L1 '+' (DX '*' 0.5)) (H1 * 0.5)) ;
 PC2 =  (TDOMTOT  . 'CENTRE') 'POIN' 'PROC'
    ((L1 '-' (DX '*' 0.5)) (H1 * 0.5)) ;
 PC1 =  (TDOMTOT  . 'CENTRE') 'POIN' 'PROC'
    (((0.9 * L1) '-' (DX '*' 0.5)) (H1 * 0.5)) ;
 LTPS = 'PROG' ;
 LPC1 = 'PROG' ;
 LPC2 = 'PROG' ;
 LPC3 = 'PROG' ;
 LPC4 = 'PROG' ;
 SI GRAPH ;
    MAI1 = ('MANUEL' 'POI1' PC1) 'ET' PC2 'ET' PC3 'ET' PC4 ;
    MAI1 = MAI1 'COULEUR' 'ROUG' ;
    'TRACER' (DOMTOT 'ET' MAI1) ;
 'FINSI' ;
*
****************************************************************
****************************************************************
*****      Initial conditions and gas properties.          *****
****************************************************************
****************************************************************
*
*************************************************
**** Poperties of the gas ***********************
*************************************************
*
* He-water-air GFMP
 'SI' VRAI ;
* 
*   We have 1 interfaces and 2 species
*
*   Left region (1) : gas (11) and liquid (12) ; phi1 < 0
*
    phi1 = -1. ;
    GAM11 = 1.4 ;
    PINF11 = 0.00D0 ;
    rho11  = 10. ;
    alpha11 = 0.999999 ;
    alpha12 = 1. '-' alpha11 ;
    GAM12 = 4.4 ;
    PINF12 = 6.0E8 ;
    rho12  = 2525. ;
    rho1 = (alpha11 * rho11) '+' (alpha12 * rho12) ;
    y11  = (alpha11 * rho11) '/' rho1 ;
    P1 = 1.0E5 ;
    un1 = 0.0 ;
    ut1 = 0.0 ;
*
*   Right region (2) : liquid (21) and gas (22) ; phi1 > 0
*
    phi2 = 1. ;
    GAM21 = 4.4 ;
    PINF21 = 6.0E8 ;
    rho21  = 1000. ;
    alpha21 = 0.999999 ;
    alpha22 = 1. '-' alpha21 ;
    GAM22 = 1.4 ;
    PINF22 = 0.0 ;
    rho22  = 14888. ;
    rho2 = (alpha21 * rho21) '+' (alpha22 * rho22) ;
    y21  = (alpha21 * rho21) '/' rho2 ;
    P2 = 1.0E9 ;
    un2 = 0.0 ;
    ut2 = 0.0 ;
*    
*    TFINAL = 5.0D-4 ;
*    TFINAL = 1.110D-3 ;
     TFINAL = 0.220D-3 ;
*
    TABG = 'TABLE' ;
    TABG . 'ESPEULE' = 'MOTS' 'ESP1' ;
    TABG . 'ESPNEULE' = 'ESP2' ;
* 
* Properties...
* First espeule... then espneule
*
    TABG . 'MGAM' = 'PROG' GAM11 GAM12 ;
    TABG . 'PGAM' = 'PROG' GAM21 GAM22 ;
    TABG . 'MPIN' = 'PROG' PINF11 PINF12 ;
    TABG . 'PPIN' = 'PROG' PINF21 PINF22 ;
*
 'FINSI' ;
*
 MESP = ('DIME' (TABG . 'ESPEULE')) > 0 ; 
 PMIN = 0.0D0 ;
*
*************************************************
**** The initial conditions *********************
*************************************************
* 
 CHPHN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'SCAL' phi1) ;
 CHPHN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 1 'SCAL' phi2) ;
 CHPHN = CHPHN1 '+' CHPHN2 ;
 CHPHN0 = 'COPIER' CHPHN ;
* 
 CHVN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 2 'UX' un1
   'UY' ut1) ;
 CHVN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 2 'UX' un2
   'UY' ut2) ;
 CHVN = CHVN1 '+' CHVN2  ;
 CHVN0 = 'COPIER' CHVN ;
*
 CHPN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'SCAL' p1) ;
 CHPN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 1 'SCAL' p2) ;
 CHPN = CHPN1 '+' CHPN2  ;
 CHPN0 = 'COPIER' CHPN ;
*
 CHRN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'SCAL' rho1) ;
 CHRN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 1 'SCAL' rho2) ;
 CHRN = CHRN1 '+' CHRN2  ;
 CHRN0 = 'COPIER' CHRN ;
*
 SI MESP ;
    CHALN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'ESP1' alpha11) ;
    CHALN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 1 'ESP1' alpha21) ;
    CHALN = CHALN1 '+' CHALN2  ;
    SI (('DIME' TABG . 'MGAM') EGA 3) ;
      CHALN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'ESP2' alpha12) ;
      CHALN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 1 'ESP2' alpha22) ;
      CHALN = CHALN '+' (CHALN1 '+' CHALN2) ;
    'FINSI' ;
    CHALN0 = 'COPIER' CHALN ;
* 
    CHYN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'ESP1' y11) ;
    CHYN2  = ('MANUEL' 'CHPO' (TDOM2 . 'CENTRE') 1 'ESP1' y21) ;
    CHYN = CHYN1 '+' CHYN2  ;
    SI (('DIME' TABG . 'MGAM') EGA 3) ;
       CHYN1  = ('MANUEL' 'CHPO' (TDOM1 . 'CENTRE') 1 'ESP2' y12) ;
       CHYN2  = ('MANUEL' 'CHPO' (TDOM2a . 'CENTRE') 1 'ESP2' y22) ;
       CHYN = CHYN '+' CHYN1 ;
    'FINSI' ;
    CHYN0 = 'COPIER' CHYN ;
    CHRYN = CHYN * CHRN ;
 'FINSI' ;
*
 SI MESP ;
    CHGAM CHPINF CHRPHN CHGN CHREN = PRIMCONS TABG CHPHN CHRN CHVN CHPN
       CHALN ;
 'SINON' ;
    CHGAM CHPINF CHRPHN CHGN CHREN = PRIMCONS TABG CHPHN CHRN CHVN
       CHPN ;
 'FINSI' ;
*
 PHI = CHRPHN '/' CHRN ;
 SI MESP ;
    VITESSE PRES YN  = 'PRIM' 'GFMP' TABG  CHPHN CHRN CHGN CHREN
       CHRYN CHALN ;
 'SINON' ;
    VITESSE PRES = 'PRIM' 'GFMP' TABG  CHPHN CHRN CHGN CHREN ;
 'FINSI' ;
* 
* Test for PRIMCONS
*
 ERRO = 'MAXIMUM' (PRES '-' CHPN) 'ABS' ;
 ERRO = ERRO '+' ('MAXIMUM' (CHVN '-' VITESSE) 'ABS') ;
 ERRO = ERRO  '+' ('MAXIMUM' (PHI '-' CHPHN) 'ABS') ;
 SI (ERRO > 1.0D-6) ;
    'MESS' 'Problem in PRIM' ;
    'ERREUR' 21 ;
 'FINSI' ;
*
**** Parameter for the time loop 
*
*    Names of the residuum components
*
 LISTINCO = ('MOTS' 'PHI1' 'RN1' 'RNX1' 'RNY1' 'RET1') ;
 LISYT = 'MOTS' 'Y1' 'Y2' 'Y3' 'Y4' 'Y5' 'Y6' 'Y7' 'Y8' 'Y9' ;
 LISAT = 'MOTS' 'A1' 'A2' 'A3' 'A4' 'A5' 'A6' 'A7' 'A8' 'A9' ;
 LISY = 'MOTS' ;
 LISA = 'MOTS' ;
 SI MESP ;
   'REPETER' BL1 ('DIME' (TABG . 'ESPEULE')) ;
      LISY = LISY 'ET' ('MOTS' ('EXTRAIRE' LISYT &BL1)) ;
   'FIN' BL1 ;
   LISTINCO = LISTINCO 'ET' LISY ;
   'REPETER' BL1 ('DIME' (TABG . 'ESPEULE')) ;
      LISA = LISA 'ET' ('MOTS' ('EXTRAIRE' LISAT &BL1)) ;
   'FIN' BL1 ;
   LISTINCO = LISTINCO 'ET' LISA ;
 'FINSI' ;
 
*
**** BC
*
 KONLIM = 'DIFF' (TLIMG . 'CENTRE') (TLIMG . 'CENTRE') ;
 CHPVID CHMVID = 'KOPS' 'MATRIK' ;
 RESLIM = 'COPIER' CHPVID ;
 DOMFAN = KONLIM ;
* 
****************************************************************
****************************************************************
*****           Parameters for the computations           ******
****************************************************************
****************************************************************
*
* Iterations
* Final time
* Safety Factor for the time step
* Second order reconstruction?
* We compute the gradients during the correction or not ?

 NITER = 100000 ;
* TFINAL = 0.24D-5 ;
* TFINAL = 0.1D0 ;
 SAFFAC = 0.9 ;
 LOGSO = VRAI ;
 LOGCON = FAUX ;
 'MESSAGE' ;
 'MESSAGE' ('CHAINE' 'TFINAL = ' TFINAL) ;
*
* 'OPTION' 'SAUVER' 'parameters.sauv' ;
* 'SAUVER'  METO  NITER  TFINAL  SAFFAC LOGSO ;

****************************************************************
****************************************************************
*****           The computation                           ******
****************************************************************
****************************************************************
*
**** Geometrical coefficient to compute gradients
*
 GRADR0 ALR0 COEFSCAL =  'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'NOLIMITE'
          ('MOTS' 'SCAL') CHRN ;
 GRADR0 = GRADR0 * 0.0 ;
 ALR0   = ALR0   * 0.0 ;
 COEFVECT = COEFSCAL ;
          
 GRADV0 ALV0  =  'PENT' $DOMTOT 'CENTRE' 'EULEVECT' 'NOLIMITE'
          ('MOTS' 'UX' 'UY') CHVN 'GRADGEO' COEFVECT ;
 GRADV0 = GRADV0 * 0.0 ;
 ALV0   = ALV0   * 0.0 ;
 SI MESP ;
    GRADY0 ALY0  =  'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'NOLIMITE'
          (TABG . 'ESPEULE') CHYN 'GRADGEO' COEFVECT ;
    ALY0 = ALY0 * 0.0 ;
 'FINSI' ;
*
**** Temporal loop
*
 TPS = 0.0 ;
* 
 'MESSAGE' ;
 'MESSAGE' ('CHAINE' 'Methode = ' METO) ;
 'MESSAGE' ('CHAINE' 'SAFFAC      = ' SAFFAC) ;
 'MESSAGE' ;
*
 'TEMPS' 'ZERO' ;
 'REPETER' BLITER NITER ;
*
    'SI' LOGSO ;
       GRPHI1 ALPHI1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
          ('MOTS' 'SCAL') CHPHN  'GRADGEO' COEFSCAL ;
       GRADR1 ALR1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
          ('MOTS' 'SCAL') CHRN  'GRADGEO' COEFSCAL ;
       GRADP1 ALP1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
          ('MOTS' 'SCAL') CHPN  'GRADGEO' COEFSCAL ;
       GRADV1 ALV1 = 'PENT' $DOMTOT 'CENTRE' 'EULEVECT' 'LIMITEUR'
          ('MOTS' 'UX' 'UY') CHVN   'GRADGEO'  COEFVECT ;
       SI MESP ;
          GRALP1 ALALP1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
             (TABG . 'ESPEULE') CHALN  'GRADGEO' COEFSCAL ;
          GRALY1 ALY1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
             (TABG . 'ESPEULE') CHYN  'GRADGEO' COEFSCAL ;
          CHFPH1 CHFRN1 CHFVN1 CHFPN1 CHFYN1 CHFALP1 =
            'PRET' 'GFMP'  (TABG . 'ESPEULE') $DOMTOT
             CHPHN  GRPHI1  ALPHI1
             CHRN  GRADR1  ALR1
             CHVN  GRADV1  ALV1
             CHPN  GRADP1  ALP1
             CHYN  GRALY1 ALY1
             CHALN GRALP1 ALALP1 ;
        'SINON' ;
           CHFPH1 CHFRN1 CHFVN1 CHFPN1 =
             'PRET' 'GFMP'  (TABG . 'ESPEULE') $DOMTOT
              CHPHN  GRPHI1  ALPHI1
              CHRN  GRADR1  ALR1
              CHVN  GRADV1  ALV1
              CHPN  GRADP1  ALP1 ;
        'FINSI' ;
    'SINON' ;
       SI MESP ;
          CHFPH1 CHFRN1 CHFVN1 CHFPN1 CHFYN1 CHFALP1 =
            'PRET' 'GFMP' (TABG . 'ESPEULE') $DOMTOT
             CHPHN GRADR0  ALR0
             CHRN  GRADR0  ALR0
             CHVN  GRADV0  ALV0
             CHPN  GRADR0  ALR0
             CHYN  GRADY0  ALY0 
             CHALN  GRADY0  ALY0 ;
       'SINON' ;
          CHFPH1 CHFRN1 CHFVN1 CHFPN1  =
            'PRET' 'GFMP' (TABG . 'ESPEULE') $DOMTOT
             CHPHN GRADR0  ALR0
             CHRN  GRADR0  ALR0
             CHVN  GRADV0  ALV0
             CHPN  GRADR0  ALR0 ;
       'FINSI' ;
    'FINSI' ;
    SI MESP ;
       RESIDU DELTAT = 'KONV' 'VF' 'GFMP' 'RESI' METO
          TABG $DOMTOT LISTINCO
          CHPHN
          CHFPH1 CHFRN1 CHFVN1 CHFPN1
          CHFYN1 CHFALP1 CHALN
          KONLIM LOGCON PMIN ;
    'SINON' ;
       RESIDU DELTAT = 'KONV' 'VF' 'GFMP' 'RESI' METO
          TABG $DOMTOT LISTINCO
          CHPHN
          CHFPH1 CHFRN1 CHFVN1 CHFPN1
          KONLIM LOGCON PMIN ;
    'FINSI' ;
    RESLIM = -1.0 * ('REDU' RESIDU DOMFAN) ;
    RESIDU = RESIDU '+' RESLIM ;
*    
*    'REPETER' BL1 ('DIME' LISTINCO) ;  
*       mot1 = 'EXTRAIRE' LISTINCO &BL1 ;
*       valre1 = 'MAXIMUM' ('EXCO' RESLIM mot1) 'ABS' ;
*       tit1 = 'CHAINE' 'Component ' mot1 ', reference value ' valre1 ;
*       evaa = 'EVOL' 'CHPO' RESIDU mot1  LIGEVO ;
*       'DESSIN' evaa 'TITRE' tit1 ;
*    'FIN' BL1 ;
 
*    'OPTION' DONN 5 ;
*   Problem with RNY1, RNY2
*                              
    DT_CON = SAFFAC '*' DELTAT ;     
*
**** The time step linked to tps
*
    DTTPS = (TFINAL '-' TPS) * (1. '+' 1.0D-6) ;
*
**** The time step
*
    DTMIN = 'MINIMUM' ('PROG' DT_CON DTTPS) ;
*
**** Increment of the variables (predictor)
*
    RESIDU = (0.5 * DTMIN) '*' RESIDU ;
*
    DPHI1  = 'EXCO' 'PHI1' RESIDU 'SCAL' ;
    DRN1   = 'EXCO' 'RN1'  RESIDU 'SCAL' ;
    DGN1   = 'EXCO' ('MOTS' 'RNX1' 'RNY1') RESIDU ('MOTS' 'UX' 'UY') ;
    DRET1  = 'EXCO' 'RET1' RESIDU 'SCAL' ;
*
    SI LOGCON ;
       CHRPHNB = CHRPHN '+' DPHI1 ;
    'SINON' ;
       CHPHNB = CHPHN '+' DPHI1 ;
    'FINSI' ;
    CHRNB  = CHRN  '+'  DRN1  ;
    CHGNB  = CHGN  '+'  DGN1  ;
    CHRENB = CHREN '+'  DRET1 ;
*
    SI MESP ;
      DRY1 = 'EXCO' LISY RESIDU (TABG . 'ESPEULE') ;
      DA1  = 'EXCO' LISA RESIDU (TABG . 'ESPEULE') ;
      CHRYNB = CHRYN '+' DRY1 ;
      CHALNB = CHALN '+' DA1 ;
    'FINSI' ;
*    
*** Corrector
*   For the correction, we use the properties according to CHPHN
*   (we have computed CHPHNB but it is treated as a passive scalar).
*
    'SI' MESP ;
       CHVN CHPN CHYN  = 'PRIM' 'GFMP' TABG CHPHN CHRNB CHGNB CHRENB
          CHRYNB CHALNB ;
    'SINON' ;
       CHVN CHPN   = 'PRIM' 'GFMP' TABG CHPHN CHRNB CHGNB CHRENB ;
    'FINSI' ;
*    
    SI LOGCON ;
       CHPHNB = CHRPHNB '/' CHRNB ;
    'FINSI' ;
*
    'SI' LOGSO ;
       GRPHI1 ALPHI1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
          ('MOTS' 'SCAL') CHPHNB  'GRADGEO' COEFSCAL ;

       GRADR1 ALR1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
          ('MOTS' 'SCAL') CHRNB  'GRADGEO' COEFSCAL ;
          
       GRADP1 ALP1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
          ('MOTS' 'SCAL') CHPN  'GRADGEO' COEFSCAL ;

       GRADV1 ALV1 = 'PENT' $DOMTOT 'CENTRE' 'EULEVECT' 'LIMITEUR'
          ('MOTS' 'UX' 'UY') CHVN  'GRADGEO'  COEFVECT ;

       SI MESP ;
          GRALP1 ALALP1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
             (TABG . 'ESPEULE') CHALNB  'GRADGEO' COEFSCAL ;
          
          GRALY1 ALY1 = 'PENT' $DOMTOT 'CENTRE' 'EULESCAL' 'LIMITEUR'
             (TABG . 'ESPEULE') CHYN  'GRADGEO' COEFSCAL ;

          CHFPH1 CHFRN1 CHFVN1 CHFPN1 CHFYN1 CHFALP1 =
            'PRET' 'GFMP'  (TABG . 'ESPEULE') $DOMTOT
             CHPHNB  GRPHI1  ALPHI1
             CHRNB  GRADR1  ALR1
             CHVN  GRADV1  ALV1
             CHPN  GRADP1  ALP1
             CHYN  GRALY1 ALY1
             CHALNB GRALP1 ALALP1 ;

       'SINON' ;

          CHFPH1 CHFRN1 CHFVN1 CHFPN1 =
            'PRET' 'GFMP'  (TABG . 'ESPEULE') $DOMTOT
             CHPHNB  GRPHI1  ALPHI1
             CHRNB   GRADR1  ALR1
             CHVN    GRADV1  ALV1
             CHPN    GRADP1  ALP1 ;

       'FINSI' ;

    'SINON' ;

       SI MESP ;
          CHFPH1 CHFRN1 CHFVN1 CHFPN1 CHFYN1 CHFALP1 =
            'PRET' 'GFMP'  (TABG . 'ESPEULE') $DOMTOT
             CHPHNB GRADR0  ALR0
             CHRNB GRADR0  ALR0
             CHVN  GRADV0  ALV0
             CHPN  GRADR0  ALR0 
             CHYN  GRADY0  ALY0
             CHALNB GRADY0  ALY0 ;
       'SINON' ;
          CHFPH1 CHFRN1 CHFVN1 CHFPN1 =
            'PRET' 'GFMP' (TABG . 'ESPEULE') $DOMTOT
             CHPHNB GRADR0  ALR0
             CHRNB GRADR0  ALR0
             CHVN  GRADV0  ALV0
             CHPN  GRADR0  ALR0 ;
       'FINSI' ;

    'FINSI' ;
*    'LISTE' &BLITER ;
    SI (&BLITER 'EGA' 11) ;
*       'LISTE' CHFALP1 ;
*       'QUITTER' BLITER ;
*       'OPTION' DONN 5 ;
    'FINSI' ;
*
*   NB In 'KONV' we use CHPHN in the EOS but we update
*   PHI according to CHPHNB
*
    SI MESP ;
       RESIDU DELTAT = 'KONV' 'VF' 'GFMP' 'RESI' METO
          TABG $DOMTOT LISTINCO
          CHPHN
          CHFPH1 CHFRN1 CHFVN1 CHFPN1 CHFYN1 CHFALP1
          CHALNB
          KONLIM LOGCON PMIN ;
    'SINON' ;
       RESIDU DELTAT = 'KONV' 'VF' 'GFMP' 'RESI' METO
          TABG $DOMTOT LISTINCO
          CHPHN
          CHFPH1 CHFRN1 CHFVN1 CHFPN1
          KONLIM LOGCON PMIN ;
    'FINSI' ;
*
    RESLIM = -1.0 * ('REDU' RESIDU DOMFAN) ;
    RESIDU = RESIDU '+' RESLIM ;
*    
*    
*    'REPETER' BL1 ('DIME' LISTINCO) ;  
*       mot1 = 'EXTRAIRE' LISTINCO &BL1 ;
*       valre1 = 'MAXIMUM' ('EXCO' RESLIM mot1) 'ABS' ;
*       tit1 = 'CHAINE' 'Component ' mot1 ', reference value ' valre1 ;
*       evaa = 'EVOL' 'CHPO' RESIDU mot1  LIGEVO ;
*       'DESSIN' evaa 'TITRE' tit1 ;
*    'FIN' BL1 ;
 
*    'OPTION' DONN 5 ;
*   Problem with RNY1, RNY2

    RESIDU = DTMIN '*' RESIDU ;

    DPHI1  = 'EXCO' 'PHI1' RESIDU 'SCAL' ;
    DRN1   = 'EXCO' 'RN1'  RESIDU 'SCAL' ;
    DGN1   = 'EXCO' ('MOTS' 'RNX1' 'RNY1') RESIDU ('MOTS' 'UX' 'UY') ;
    DRET1  = 'EXCO' 'RET1' RESIDU 'SCAL' ;
*   
    TPS    = TPS   '+'  DTMIN ;
    CHRN   = CHRN  '+'  DRN1  ;
    CHGN   = CHGN  '+'  DGN1  ;
    CHREN  = CHREN '+'  DRET1 ;
*
*   We copy the old value of CHPHN in CHFPNM
*
    CHPHNM = 'COPIER' CHPHN ;
    SI LOGCON ;
       CHRPHN = CHRPHN '+' DPHI1 ;
       CHPHN = CHRPHN '/' CHRN ;
    'SINON' ;
       CHPHN = CHPHN '+' DPHI1 ;
       CHRPHN = CHPHN * CHRN ;
    'FINSI' ;
*
    SI MESP ;
       DRY1 = 'EXCO' LISY RESIDU (TABG . 'ESPEULE') ;
       DA1  = 'EXCO' LISA RESIDU (TABG . 'ESPEULE') ;
       CHRYN = CHRYN '+' DRY1 ;
       CHALN = CHALN '+' DA1 ;
    'FINSI' ;    
*
**** Primitive variables already computed.
*    NB We recall that in the computation of the flow
*       we should use the properties at the previous time
*       step. 
*
    SI MESP ;
       CHVN CHPN CHYN = 'PRIM' 'GFMP' TABG  CHPHNM CHRN CHGN CHREN
          CHRYN CHALN ;
    'SINON' ;
       CHVN CHPN   = 'PRIM' 'GFMP' TABG  CHPHNM CHRN CHGN CHREN ;
    'FINSI' ;
    CHREN1 = 'COPIER' CHREN ;
*    We compute the conservative variables from the primitive
*    variables with the new value of CHPHN
*    From now on, CHPHN determines the flow properties.
    SI MESP ;
       CHGAM CHPINF CHRPHN CHGN CHREN = PRIMCONS TABG
           CHPHN CHRN CHVN CHPN CHALN ;
    'SINON' ;
       CHGAM CHPINF CHRPHN CHGN CHREN = PRIMCONS TABG
           CHPHN CHRN CHVN CHPN ;
    'FINSI' ;

*   Conservative error linked to the new computation of
*   the internal energy.
*
    ERRO = 'MAXIMUM' (CHREN '-' CHREN1) 'ABS' ;
*   SI (ERRO > 1.0D-12) ;
*       'LISTE' ERRO ;
*       'ERREUR' 21 ;
*   'FINSI' ;
    
    'SI' (((&BLITER '/' 20) '*' 20) 'EGA' &BLITER) ;
        'MESSAGE' ('CHAINE' 'ITER =' &BLITER '  TPS =' TPS) ;
        EVPN = ('EVOL' 'CHPO' CHPN LIGEVO) 'COULEUR' 'VERT' ;
        EVPHI = ('EVOL' 'CHPO' CHPHN LIGEVO) 'COULEUR' 'ROUG' ;
*       We plot p and phi
        'SI' GRAPH ;
           'DESSIN' ((EVPN  '/' p2) 'ET' EVPHI) TITRE 'P & phi' NCLK ;
        'FINSI' ;
        LTPS = LTPS 'ET' ('PROG' TPS) ;
        LPC1 = LPC1 'ET' ('PROG' ('EXTRAIRE' CHPN PC1 'SCAL')) ;
        LPC1 = LPC1 'ET' ('PROG' ('EXTRAIRE' CHRN PC1 'SCAL')) ;
        LPC1 = LPC1 'ET' ('PROG' ('EXTRAIRE' CHVN PC1 'UX')) ;
        LPC2 = LPC2 'ET' ('PROG' ('EXTRAIRE' CHPN PC2 'SCAL')) ;
        LPC2 = LPC2 'ET' ('PROG' ('EXTRAIRE' CHRN PC2 'SCAL')) ;
        LPC2 = LPC2 'ET' ('PROG' ('EXTRAIRE' CHVN PC2 'UX')) ;
        LPC3 = LPC3 'ET' ('PROG' ('EXTRAIRE' CHPN PC3 'SCAL')) ;
        LPC3 = LPC3 'ET' ('PROG' ('EXTRAIRE' CHRN PC3 'SCAL')) ;
        LPC3 = LPC3 'ET' ('PROG' ('EXTRAIRE' CHVN PC3 'UX')) ;
        LPC4 = LPC4 'ET' ('PROG' ('EXTRAIRE' CHPN PC4 'SCAL')) ;
        LPC4 = LPC4 'ET' ('PROG' ('EXTRAIRE' CHRN PC4 'SCAL')) ;
        LPC4 = LPC4 'ET' ('PROG' ('EXTRAIRE' CHVN PC4 'UX')) ;
    'FINSI' ;

    'SI' (TPS >EG TFINAL) ;
       'QUITTER' BLITER ;
    'FINSI' ;

 'FIN' BLITER ;
* 'TEMPS' 'IMPR' ;
 'TEMPS' ;

* 'OPTION' 'SAUVER' ('CHAINE' 'result.sauv_' RAF 'tps_' TPS ) ;
* 'SAUVER'  ;

****************************************************************
****************************************************************
*****           The post-treatment                        ******
****************************************************************
****************************************************************
*
* 'OPTI' 'REST' 'result.sauv_1tps_5' ;
* 'REST' ;

* 
**** The mesh
*

 'SI' GRAPH ;
    'TRACER' ('DOMA' $DOMTOT 'MAILLAGE')
         'TITR' ('CHAINE' 'Maillage: ' ('NBEL' DOMTOT) ' elts');
 'FINSI' ;

*
**** Initial conditions
*

  MOD1 =  'MODELISER'  ('DOMA' $DOMTOT 'MAILLAGE') 'THERMIQUE' ;
 
 'SI' FAUX ;

    CHM_PHI0  =  'KCHA'  $DOMTOT  'CHAM'  CHPHN0 ;
    CHM_RN10  =  'KCHA'  $DOMTOT  'CHAM'  CHRN0 ;
    CHM_VN10  =  'KCHA'  $DOMTOT  'CHAM'  CHVN0 ;
    CHM_PN10  =  'KCHA'  $DOMTOT  'CHAM'  CHPN0 ;
    
    'TRAC' CHM_PHI0  MOD1 
       'TITR' ('CHAINE' 'phi at t=' 0.0)   ;
    'TRAC' CHM_RN10  MOD1 
       'TITR' ('CHAINE' 'rho_1 at t=' 0.0)   ;
    'TRAC' CHM_VN10  MOD1 
       'TITR' ('CHAINE' 'v_1 at t= '  0.0)   ;
    'TRAC' CHM_PN10  MOD1 
       'TITR' ('CHAINE' 'p_1 at t= '  0.0)   ;

    SI MESP ;
       CHM_AL10  =  'KCHA'  $DOMTOT  'CHAM'  CHALN0 ;
       CHM_Y0  =  'KCHA'  $DOMTOT  'CHAM'  CHYN0 ;
       'TRAC' CHM_AL10  MOD1 
          'TITR' ('CHAINE' 'alp at t=' 0.0)   ;
       'TRAC' CHM_Y0  MOD1 
          'TITR' ('CHAINE' ' at t=' 0.0)   ;
    'FINSI' ;
       
 'FINSI' ;

*
**** Results
*

 'SI' (GRAPH ET FAUX) ;
 
    CHM_PHI  =  'KCHA'  $DOMTOT  'CHAM'  CHPHN ;
    CHM_RN1  =  'KCHA'  $DOMTOT  'CHAM'  CHRN  ;
    CHM_VN1  =  'KCHA'  $DOMTOT  'CHAM'  CHVN  ;
    CHM_PN1  =  'KCHA'  $DOMTOT  'CHAM'  CHPN  ;
    
    'TRAC' CHM_PHI  MOD1 
       'TITR' ('CHAINE' 'phi   at t=' TPS)
       DOMLIM ;
    'TRAC' CHM_RN1  MOD1 
       'TITR' ('CHAINE' 'rho_1 at t=' TPS)
       DOMLIM ;
    'TRAC' CHM_VN1  MOD1 
       'TITR' ('CHAINE' 'v_1 at t= ' TPS)
       DOMLIM ;
    'TRAC' CHM_PN1  MOD1 
       'TITR' ('CHAINE' 'p_1 at t= ' TPS)
       DOMLIM ;

    SI MESP ;
       CHM_AL1  =  'KCHA'  $DOMTOT  'CHAM'  CHALN ;
       CHM_YN  =  'KCHA'  $DOMTOT  'CHAM'  CHYN ;
       'TRAC' CHM_AL1  MOD1 
          'TITR' ('CHAINE' 'alp at t=' TPS)   ;
       'TRAC' CHM_YN  MOD1 
          'TITR' ('CHAINE' ' at t=' TPS)   ;
    'FINSI' ;
    
 'FINSI' ;

*
*** Evolution Objects
*

* LXMED = 'PROG' ('DIME' LEX_XOT) '*' 1.0 ;

 XX = 'COORDONNEE' 1 LIGEVO ;
 EVXX = 'EVOL' 'CHPO' XX LIGEVO ;
 LX = 'EXTRAIRE' EVXX 'ORDO' ;
 LXST = LX '-' ('PROG' ('DIME' LX) '*' L1) ;
 LXST = LXST '/' TFINAL ;
 LEX_RHO LEX_U LEX_P LEX_E = EXSO LXST ;
 
 TAB1=TABLE;
 TAB1.'TITRE'= TABLE ;
 TAB1.1='MARQ TRIB REGU';
 TAB1.'TITRE' . 1  = MOT 'Numerique' ;
 TAB1.2='MARQ CROI REGU';
 TAB1.'TITRE' . 2  = MOT 'Exacte' ;

 eval = ('EVOL' 'CHPO' CHPHN LIGEVO) 'COULEUR' 'ROUG' ;

 evrn  = ('EVOL' 'CHPO' CHRN LIGEVO) 'COULEUR' 'VERT' ;
 evrna = 'EVOL' 'MANU' 'x' LX  'SCAL' LEX_RHO ;

 evpn  = ('EVOL' 'CHPO' CHPN LIGEVO) 'COULEUR' 'VERT' ;
 evpna = 'EVOL' 'MANU' 'x' LX  'SCAL' LEX_P ;
 
 evux  = ('EVOL' 'CHPO' chvn LIGEVO 'UX') 'COULEUR' 'ROUG' ;
 evuxa  = 'EVOL' 'MANU' 'x' LX  'UX' LEX_U ;
 
 evuy  = ('EVOL' 'CHPO' chvn LIGEVO 'UY') 'COULEUR' 'ROUG' ;

 evgam  = ('EVOL' 'CHPO' chgam LIGEVO) 'COULEUR' 'ROUG' ;

 evpif  = ('EVOL' 'CHPO' chpinf LIGEVO) 'COULEUR' 'ROUG' ;

*
* Evolutions
*

 'SI' GRAPH ;
    'DESSIN' eval 'TITRE' 'phi ' 'GRIL' ;
 
    'DESSIN' (evrn et evrna) 'TITRE' 'Density' 'GRIL' 
       'LEGE' TAB1 ;
 
    'DESSIN' (evpn et evpna) 'TITRE' 'Pressure' 'GRIL' 
       'LEGE' TAB1 ;

    'DESSIN'  (evux et evuxa)  'TITRE' 'ux' 'GRIL' 
       'LEGE' TAB1 ;

    'DESSIN' evuy 'TITRE' 'uy' 'GRIL';

    'DESSIN' evgam 'TITRE' 'gamma' 'GRIL';

    'DESSIN' evpif 'TITRE' 'pinf' 'GRIL';

    SI MESP ;
       EVY = 'TABLE'  ;
       EVA = 'TABLE'  ;
       NUMECO = 'DIME' (TABG . 'ESPEULE') ;
       'REPETER'  BLOCCO NUMECO;
           NOMCEL = 'EXTRAIRE' (TABG . 'ESPEULE') &BLOCCO  ;
           Y0 =  'EXCO' NOMCEL CHYN 'SCAL' ;
           EVY0   =  ('EVOL' 'CHPO' Y0 LIGEVO) 'COULEUR' 'ROUG' ;
           'DESSIN' EVY0 'TITRE' ('CHAINE' 'Y ' &BLOCCO)
              'GRIL' 'MIMA' ;
           EVY . &BLOCCO   = EVY0;
       'FIN' BLOCCO;
       EVRY = 'TABLE' ;
       'REPETER'  BLOCCO NUMECO;
           NOMCEL = 'EXTRAIRE' (TABG . 'ESPEULE') &BLOCCO  ;
           Y0 =  'EXCO' NOMCEL CHRYN 'SCAL' ;
           EVY0   =  ('EVOL' 'CHPO' Y0 LIGEVO) 'COULEUR' 'ROUG' ;
           'DESSIN' EVY0 'TITRE' ('CHAINE' 'RY ' &BLOCCO)
              'GRIL' 'MIMA' ;
           EVRY . &BLOCCO   = EVY0;
       'FIN' BLOCCO;
       'REPETER'  BLOCCO NUMECO;
           NOMCEL = 'EXTRAIRE' (TABG . 'ESPEULE') &BLOCCO  ;
           Y0 =  'EXCO' NOMCEL CHALN 'SCAL' ;
           EVY0   =  ('EVOL' 'CHPO' Y0 LIGEVO) 'COULEUR' 'ROUG' ;
           'DESSIN' EVY0 'TITRE' ('CHAINE' 'A ' &BLOCCO)
              'GRIL' 'MIMA' ; 
           EVA . &BLOCCO   = EVY0;
       'FIN' BLOCCO;
    'FINSI' ;
     SI FAUX ;
     TAB1     = 'TABLE' ;
     TAB1 . 'TITRE'     = 'TABLE' ;
     TAB1 . 'TITRE' . 1 = 'MOT' 'Y1' ;
     TAB1 . 'TITRE' . 2 = 'MOT' 'Y2' ;
     TAB1 . 'TITRE' . 3 = 'MOT' 'A1' ;
     TAB1 . 'TITRE' . 4 = 'MOT' 'A2' ;
     TAB1 . 'TITRE' . 5 = 'MOT' 'rho' ;
     EV1 = (EVY . 1) 'COULEUR' 'ROUG' ;
     EV2 = (EVY . 2) 'COULEUR' 'ROUG' ;
     EV3 = (EVA . 1) 'COULEUR' 'VERT' ;
     EV4 = (EVA . 2) 'COULEUR' 'VERT' ;
     LX = 'EXTRAIRE' EVRN 'ABSC' ;
     LRO = 'EXTRAIRE' EVRN 'ORDO' ;
     LROAD = LRO '/' ('MAXIMUM' LRO) ;
     EV5 = ('EVOL' 'MANU' LX LROAD) 'COULEUR' 'TURQ' ;
     'DESS' (EV1 'ET' EV2 'ET' EV3 'ET' EV4 ET EV5) 'LEGE' TAB1 ;
     EV1 = (EVY . 1) 'COULEUR' 'ROUG' ;
     EV2 = (EVY . 2) 'COULEUR' 'ROUG' ;
     EV3 = (EVRY . 1) 'COULEUR' 'VERT' ;
     EV4 = (EVRY . 2) 'COULEUR' 'VERT' ;
     TAB1 . 'TITRE' . 1 = 'MOT' 'Y1' ;
     TAB1 . 'TITRE' . 2 = 'MOT' 'Y2' ;
     TAB1 . 'TITRE' . 3 = 'MOT' 'RY1' ;
     TAB1 . 'TITRE' . 4 = 'MOT' 'RY2' ;
     'DESS' (EV1 'ET' EV2 'ET' EV3 'ET' EV4 ET EV5) 'LEGE' TAB1 ;
     'FINSI' ;
 'FINSI' ;
*
* Test.
* Comparison with the exact solution.
*
 LRHON = 'EXTRAIRE' EVRN 'ORDO' ;
 LRHOA = 'EXTRAIRE' EVRNA 'ORDO' ;
 LERRHO = (LRHOA '-' LRHON) 'ABS' ;
 EVERRO = 'EVOL' 'MANU' 'x' LX 'erro' LERRHO  ;
 EVL1RH = 'PRIM' EVERRO ;
 EVL1RE = 'PRIM' EVRNA ;
 COEF = 'EXTRAIRE' EVL1RE 'ORDO' ;
 COEF = 'EXTRAIRE' COEF ('DIME' COEF) ;
 
 SI GRAPH ;
    'DESSIN' EVERRO 'TITRE' '|rho - rho_a|' ;
*   L1(|rho - rho_a|) = f(x)  
    'DESSIN' EVL1RH 'TITRE' 'L1(|rho - rho_a|)' ;
 'FINSI' ;
 ERRO = ('MAXIMUM' ('EXTRAIRE' EVL1RH 'ORDO')) '/' COEF ;
* 
 'SI' (ERRO > 5E-2) ;
    'MESSAGE' ('CHAINE' 'Error too large : ' ERRO) ;
    'ERREUR' 5 ;
 'FINSI' ;
*
*
**** Density and level set function
*
 SI FAUX ;
    XX = 'COORDONNEE' 1 LIGEVO ;
    EVXX = 'EVOL' 'CHPO' XX LIGEVO ;
    LX = 'EXTRAIRE' EVXX 'ORDO' ;
    LRHON = 'EXTRAIRE' EVRN 'ORDO' ;
    LPHI = 'EVOL' 'CHPO' LIGEVO CHPHN ;
    LPHI = 'EXTRAIRE' LPHI 'ORDO' ;
    NN = 'DIME' LX ;
    'OPTION' ECHO 0 'IMPR' 11 'IMPR' 'kunkun.txt' ;
    'REPETER' BL1 NN ;
       XX = 'EXTRAIRE' LX &BL1 ;
       YPHI = 'EXTRAIRE' LPHI &BL1 ;
       YRHO = 'EXTRAIRE' LRHON &BL1 ;
       'MESSAGE' XX ' ' YPHI ' ' YRHO ;
    'FIN' BL1 ;
    'OPTION' 'IMPR' 6 ;
    'OPTION' ECHO 1 ;
    'OPTION' DONN 5 ;
 'FINSI' ;
 'FIN' ;
*

 

© Cast3M 2003 - All rights reserved.
Disclaimer