rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.7, 2010/04/21 13:45:51	version 1.16, 2011/01/03 12:08:10
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.15	RPL/2 (R) version 4.0.20
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;