--- rpl/src/calcul_integral.c	2010/08/06 15:32:57	1.12
+++ rpl/src/calcul_integral.c	2012/01/17 14:44:04	1.32
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.6
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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