|
version 1.10, 2010/07/14 14:19:40
|
version 1.11, 2010/07/25 16:16:21
|
|
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; |
| |
|
![[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