version 1.10, 2010/07/14 14:19:40
|
version 1.13, 2010/08/06 15:33:04
|
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; |
|
|