--- rpl/src/sommations.c	2013/03/16 11:31:41	1.42
+++ rpl/src/sommations.c	2013/03/21 11:30:31	1.43
@@ -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;
@@ -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 = malloc(((size_t) (*taille)) * sizeof(real8))) == NULL)
 	{
 		(*erreur_memoire) = d_vrai;