--- rpl/src/sommations.c	2010/04/21 13:45:51	1.7
+++ rpl/src/sommations.c	2020/01/10 11:15:52	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.15
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -37,18 +37,19 @@
 */
 
 void
-tri_vecteur(real8 *vecteur, unsigned long taille)
+tri_vecteur(real8 *vecteur, integer8 taille)
 {
 	logical1					terminaison_boucle_1;
 	logical1					terminaison_boucle_2;
 	logical1					terminaison_boucle_3;
 
-	signed long					indice_i;
-	signed long					indice_j;
-	signed long					indice_k;
-	signed long					indice_l;
+	real8						registre;
 
-	unsigned long				ecartement;
+	integer8					ecartement;
+	integer8					indice_i;
+	integer8					indice_j;
+	integer8					indice_k;
+	integer8					indice_l;
 
 	ecartement = taille;
 	terminaison_boucle_1 = d_faux;
@@ -74,12 +75,12 @@ 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]))
 						{
-							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;
 
@@ -129,7 +130,7 @@ tri_vecteur(real8 *vecteur, unsigned lon
 */
 
 real8
-sommation_vecteur_reel(real8 *vecteur, unsigned long *taille,
+sommation_vecteur_reel(real8 *vecteur, integer8 *taille,
 		logical1 *erreur_memoire)
 {
 #if 0
@@ -159,7 +160,7 @@ sommation_vecteur_reel(real8 *vecteur, u
 	real8				registre;
 	real8				tampon;
 
-	unsigned long		i;
+	integer8			i;
 
 	somme = 0;
 	erreur = 0;
@@ -193,17 +194,17 @@ sommation_vecteur_reel(real8 *vecteur, u
 */
 
 complex16
-sommation_vecteur_complexe(complex16 *vecteur, unsigned long *taille,
+sommation_vecteur_complexe(complex16 *vecteur, integer8 *taille,
 		logical1 *erreur_memoire)
 {
 	complex16					cumul;
 
 	real8						*tampon;
 
-	unsigned long				i;
-	unsigned long				nombre_elements;
+	integer8					i;
+	integer8					nombre_elements;
 
- 	if ((tampon = malloc((*taille) * sizeof(real8))) == NULL)
+ 	if ((tampon = sys_malloc(((size_t) (*taille)) * sizeof(real8))) == NULL)
 	{
 		(*erreur_memoire) = d_vrai;
 
@@ -235,7 +236,7 @@ sommation_vecteur_complexe(complex16 *ve
 	cumul.partie_imaginaire = sommation_vecteur_reel(tampon, taille,
 			erreur_memoire);
 
-	free(tampon);
+	sys_free(tampon);
 
 	return(cumul);
 }