--- rpl/src/sommations.c	2012/01/17 14:44:13	1.32
+++ rpl/src/sommations.c	2020/01/10 11:15:52	1.68
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.6
-  Copyright (C) 1989-2012 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.
 
@@ -37,7 +37,7 @@
 */
 
 void
-tri_vecteur(real8 *vecteur, unsigned long taille)
+tri_vecteur(real8 *vecteur, integer8 taille)
 {
 	logical1					terminaison_boucle_1;
 	logical1					terminaison_boucle_2;
@@ -45,12 +45,11 @@ tri_vecteur(real8 *vecteur, unsigned lon
 
 	real8						registre;
 
-	signed long					indice_i;
-	signed long					indice_j;
-	signed long					indice_k;
-	signed long					indice_l;
-
-	unsigned long				ecartement;
+	integer8					ecartement;
+	integer8					indice_i;
+	integer8					indice_j;
+	integer8					indice_k;
+	integer8					indice_l;
 
 	ecartement = taille;
 	terminaison_boucle_1 = d_faux;
@@ -76,8 +75,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];
@@ -131,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
@@ -161,7 +160,7 @@ sommation_vecteur_reel(real8 *vecteur, u
 	real8				registre;
 	real8				tampon;
 
-	unsigned long		i;
+	integer8			i;
 
 	somme = 0;
 	erreur = 0;
@@ -195,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;
 
@@ -237,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);
 }