--- rpl/src/calcul_integral.c	2010/05/24 10:58:29	1.8
+++ rpl/src/calcul_integral.c	2011/06/27 09:04:54	1.25
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.16
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.0
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -355,22 +355,20 @@ evaluation_romberg(struct_processus *s_e
 
 	if (recherche_variable(s_etat_processus, variable) == d_vrai)
 	{
-		if (((*s_etat_processus).s_liste_variables[(*s_etat_processus)
-				.position_variable_courante]).variable_verrouillee == d_vrai)
+		if ((*(*s_etat_processus).pointeur_variable_courante)
+				.variable_verrouillee == d_vrai)
 		{
 			(*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;
 			return;
 		}
 
-		if ((*((*s_etat_processus).s_liste_variables
-				[(*s_etat_processus).position_variable_courante])
+		if ((*(*(*s_etat_processus).pointeur_variable_courante)
 				.objet).type != REL)
 		{
-			liberation(s_etat_processus, ((*s_etat_processus).s_liste_variables
-					[(*s_etat_processus).position_variable_courante]).objet);
+			liberation(s_etat_processus, (*(*s_etat_processus)
+					.pointeur_variable_courante).objet);
 
-			if ((((*s_etat_processus).s_liste_variables
-					[(*s_etat_processus).position_variable_courante]).objet =
+			if (((*(*s_etat_processus).pointeur_variable_courante).objet =
 					allocation(s_etat_processus, REL)) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -378,8 +376,7 @@ evaluation_romberg(struct_processus *s_e
 			}
 		}
 
-		(*((real8 *) (*((*s_etat_processus).s_liste_variables
-				[(*s_etat_processus).position_variable_courante])
+		(*((real8 *) (*(*(*s_etat_processus).pointeur_variable_courante)
 				.objet).objet)) = (*point);
 	}
 	else