--- rpl/src/sommations.c	2010/01/27 22:22:18	1.2
+++ rpl/src/sommations.c	2012/01/17 14:44:13	1.32
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.10
-  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.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -43,6 +43,8 @@ tri_vecteur(real8 *vecteur, unsigned lon
 	logical1					terminaison_boucle_2;
 	logical1					terminaison_boucle_3;
 
+	real8						registre;
+
 	signed long					indice_i;
 	signed long					indice_j;
 	signed long					indice_k;
@@ -77,9 +79,9 @@ tri_vecteur(real8 *vecteur, unsigned lon
 						if (fabs(vecteur[indice_i - 1]) >
 								fabs(vecteur[indice_l - 1]))
 						{
-							swap((void *) &(vecteur[indice_i - 1]),
-									(void *) &(vecteur[indice_l - 1]),
-									sizeof(real8));
+							registre = vecteur[indice_i - 1];
+							vecteur[indice_i - 1] = vecteur[indice_l - 1];
+							vecteur[indice_l - 1] = registre;
 
 							indice_i -= ecartement;