--- rpl/src/algebre_lineaire4.c	2010/02/10 10:14:18	1.3
+++ rpl/src/algebre_lineaire4.c	2010/03/04 10:09:31	1.4
@@ -38,8 +38,7 @@
 static integer4
 calcul_cond(struct_processus *s_etat_processus, void *matrice_f77,
 		integer4 nombre_lignes_a, integer4 nombre_colonnes_a,
-		integer4 *pivot, integer4 dimension_vecteur_pivot,
-		unsigned char type, real8 *cond)
+		integer4 *pivot, unsigned char type, real8 *cond)
 {
 	integer4					erreur;
 	integer4					*iwork;
@@ -215,7 +214,7 @@ cond(struct_processus *s_etat_processus,
 
 			if ((rang = calcul_cond(s_etat_processus, matrice_f77,
 					nombre_lignes_a, nombre_colonnes_a, pivot,
-					dimension_vecteur_pivot, 'R', &cond)) < 0)
+					'R', &cond)) < 0)
 			{
 				free(pivot);
 				free(matrice_f77);
@@ -247,7 +246,7 @@ cond(struct_processus *s_etat_processus,
 
 			if ((rang = calcul_cond(s_etat_processus, matrice_f77,
 					nombre_lignes_a, nombre_colonnes_a, pivot,
-					dimension_vecteur_pivot, 'R', &cond)) < 0)
+					'R', &cond)) < 0)
 			{
 				free(pivot);
 				free(matrice_f77);
@@ -279,7 +278,7 @@ cond(struct_processus *s_etat_processus,
 
 			if ((rang = calcul_cond(s_etat_processus, matrice_f77,
 					nombre_lignes_a, nombre_colonnes_a, pivot,
-					dimension_vecteur_pivot, 'C', &cond)) < 0)
+					'C', &cond)) < 0)
 			{
 				free(pivot);
 				free(matrice_f77);