version 1.41, 2013/02/27 17:11:46
|
version 1.42, 2013/03/16 11:31:41
|
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]; |