--- rpl/src/sommations.c	2013/02/27 17:11:46	1.41
+++ rpl/src/sommations.c	2013/03/16 11:31:41	1.42
@@ -76,8 +76,8 @@ tri_vecteur(real8 *vecteur, unsigned lon
 
 					if ((indice_i > 0) && (indice_l > 0))
 					{
-						if (fabs(vecteur[indice_i - 1]) >
-								fabs(vecteur[indice_l - 1]))
+						if (abs(vecteur[indice_i - 1]) >
+								abs(vecteur[indice_l - 1]))
 						{
 							registre = vecteur[indice_i - 1];
 							vecteur[indice_i - 1] = vecteur[indice_l - 1];