[BACK]Return to sommations.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/sommations.c between versions 1.42 and 1.43

version 1.42, 2013/03/16 11:31:41 version 1.43, 2013/03/21 11:30:31
Line 37 Line 37
 */  */
   
 void  void
 tri_vecteur(real8 *vecteur, unsigned long taille)  tri_vecteur(real8 *vecteur, integer8 taille)
 {  {
     logical1                    terminaison_boucle_1;      logical1                    terminaison_boucle_1;
     logical1                    terminaison_boucle_2;      logical1                    terminaison_boucle_2;
Line 45  tri_vecteur(real8 *vecteur, unsigned lon Line 45  tri_vecteur(real8 *vecteur, unsigned lon
   
     real8                       registre;      real8                       registre;
   
     signed long                 indice_i;      integer8                    ecartement;
     signed long                 indice_j;      integer8                    indice_i;
     signed long                 indice_k;      integer8                    indice_j;
     signed long                 indice_l;      integer8                    indice_k;
       integer8                    indice_l;
     unsigned long               ecartement;  
   
     ecartement = taille;      ecartement = taille;
     terminaison_boucle_1 = d_faux;      terminaison_boucle_1 = d_faux;
Line 131  tri_vecteur(real8 *vecteur, unsigned lon Line 130  tri_vecteur(real8 *vecteur, unsigned lon
 */  */
   
 real8  real8
 sommation_vecteur_reel(real8 *vecteur, unsigned long *taille,  sommation_vecteur_reel(real8 *vecteur, integer8 *taille,
         logical1 *erreur_memoire)          logical1 *erreur_memoire)
 {  {
 #if 0  #if 0
Line 161  sommation_vecteur_reel(real8 *vecteur, u Line 160  sommation_vecteur_reel(real8 *vecteur, u
     real8               registre;      real8               registre;
     real8               tampon;      real8               tampon;
   
     unsigned long       i;      integer8            i;
   
     somme = 0;      somme = 0;
     erreur = 0;      erreur = 0;
Line 195  sommation_vecteur_reel(real8 *vecteur, u Line 194  sommation_vecteur_reel(real8 *vecteur, u
 */  */
   
 complex16  complex16
 sommation_vecteur_complexe(complex16 *vecteur, unsigned long *taille,  sommation_vecteur_complexe(complex16 *vecteur, integer8 *taille,
         logical1 *erreur_memoire)          logical1 *erreur_memoire)
 {  {
     complex16                   cumul;      complex16                   cumul;
   
     real8                       *tampon;      real8                       *tampon;
   
     unsigned long               i;      integer8                    i;
     unsigned long               nombre_elements;      integer8                    nombre_elements;
   
     if ((tampon = malloc((*taille) * sizeof(real8))) == NULL)      if ((tampon = malloc(((size_t) (*taille)) * sizeof(real8))) == NULL)
     {      {
         (*erreur_memoire) = d_vrai;          (*erreur_memoire) = d_vrai;
   
Removed from v.1.42  
changed lines
  Added in v.1.43

CVSweb interface <joel.bertrand@systella.fr>