rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.8, 2010/05/24 10:58:37	version 1.42, 2013/03/16 11:31:41
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.16	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 43 tri_vecteur(real8 *vecteur, unsigned lon	Line 43 tri_vecteur(real8 *vecteur, unsigned lon
logical1 terminaison_boucle_2;	logical1 terminaison_boucle_2;
logical1 terminaison_boucle_3;	logical1 terminaison_boucle_3;

	real8 registre;

signed long indice_i;	signed long indice_i;
signed long indice_j;	signed long indice_j;
signed long indice_k;	signed long indice_k;
Line 74 tri_vecteur(real8 *vecteur, unsigned lon	Line 76 tri_vecteur(real8 *vecteur, unsigned lon

if ((indice_i > 0) && (indice_l > 0))	if ((indice_i > 0) && (indice_l > 0))
{	{
if (fabs(vecteur[indice_i - 1]) >	if (abs(vecteur[indice_i - 1]) >
fabs(vecteur[indice_l - 1]))	abs(vecteur[indice_l - 1]))
{	{
swap((void *) &(vecteur[indice_i - 1]),	registre = vecteur[indice_i - 1];
(void *) &(vecteur[indice_l - 1]),	vecteur[indice_i - 1] = vecteur[indice_l - 1];
sizeof(real8));	vecteur[indice_l - 1] = registre;

indice_i -= ecartement;	indice_i -= ecartement;