|
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]; |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sommations.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src