rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.44, 2013/04/01 15:29:39	version 1.74, 2025/04/15 10:17:58
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.14	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 204 sommation_vecteur_complexe(complex16 *ve	Line 204 sommation_vecteur_complexe(complex16 *ve
integer8 i;	integer8 i;
integer8 nombre_elements;	integer8 nombre_elements;

if ((tampon = malloc(((size_t) (taille)) sizeof(real8))) == NULL)	if ((tampon = sys_malloc(((size_t) (taille)) sizeof(real8))) == NULL)
{	{
(*erreur_memoire) = d_vrai;	(*erreur_memoire) = d_vrai;

Line 236 sommation_vecteur_complexe(complex16 *ve	Line 236 sommation_vecteur_complexe(complex16 *ve
cumul.partie_imaginaire = sommation_vecteur_reel(tampon, taille,	cumul.partie_imaginaire = sommation_vecteur_reel(tampon, taille,
erreur_memoire);	erreur_memoire);

free(tampon);	sys_free(tampon);

return(cumul);	return(cumul);
}	}