rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.1.1.1, 2010/01/26 15:22:44	version 1.13, 2010/08/06 15:33:04
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.0.18
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 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;