--- rpl/src/calcul_integral.c	2011/04/11 12:10:04	1.17
+++ rpl/src/calcul_integral.c	2011/04/14 09:57:15	1.18
@@ -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