--- rpl/src/sommations.c	2010/07/14 14:19:40	1.10
+++ rpl/src/sommations.c	2010/07/25 16:16:21	1.11
@@ -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;