rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.46, 2013/09/06 10:30:57	version 1.64, 2018/12/24 15:56:42
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.16	RPL/2 (R) version 4.1.30
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2018 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);
}	}