--- rpl/src/algebre_lineaire4.c	2010/01/27 22:22:09	1.2
+++ rpl/src/algebre_lineaire4.c	2010/06/24 10:10:39	1.10
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
+  RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -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);