rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.6, 2010/04/07 13:45:10	version 1.26, 2011/07/22 07:38:42
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.14	RPL/2 (R) version 4.1.1
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 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 77 tri_vecteur(real8 *vecteur, unsigned lon	Line 79 tri_vecteur(real8 *vecteur, unsigned lon
if (fabs(vecteur[indice_i - 1]) >	if (fabs(vecteur[indice_i - 1]) >
fabs(vecteur[indice_l - 1]))	fabs(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;