rpl/src/sommations.c - diff

Return to sommations.c CVS log

Up to [local] / rpl / src

version 1.17.2.1, 2011/04/11 13:02:29	version 1.42, 2013/03/16 11:31:41
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.22	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2011 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 76 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]))
{	{
registre = vecteur[indice_i - 1];	registre = vecteur[indice_i - 1];
vecteur[indice_i - 1] = vecteur[indice_l - 1];	vecteur[indice_i - 1] = vecteur[indice_l - 1];