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

Diff for /rpl/src/algebre_lineaire4.c between versions 1.3 and 1.4

version 1.3, 2010/02/10 10:14:18 version 1.4, 2010/03/04 10:09:31
Line 38 Line 38
 static integer4  static integer4
 calcul_cond(struct_processus *s_etat_processus, void *matrice_f77,  calcul_cond(struct_processus *s_etat_processus, void *matrice_f77,
         integer4 nombre_lignes_a, integer4 nombre_colonnes_a,          integer4 nombre_lignes_a, integer4 nombre_colonnes_a,
         integer4 *pivot, integer4 dimension_vecteur_pivot,          integer4 *pivot, unsigned char type, real8 *cond)
         unsigned char type, real8 *cond)  
 {  {
     integer4                    erreur;      integer4                    erreur;
     integer4                    *iwork;      integer4                    *iwork;
Line 215  cond(struct_processus *s_etat_processus, Line 214  cond(struct_processus *s_etat_processus,
   
             if ((rang = calcul_cond(s_etat_processus, matrice_f77,              if ((rang = calcul_cond(s_etat_processus, matrice_f77,
                     nombre_lignes_a, nombre_colonnes_a, pivot,                      nombre_lignes_a, nombre_colonnes_a, pivot,
                     dimension_vecteur_pivot, 'R', &cond)) < 0)                      'R', &cond)) < 0)
             {              {
                 free(pivot);                  free(pivot);
                 free(matrice_f77);                  free(matrice_f77);
Line 247  cond(struct_processus *s_etat_processus, Line 246  cond(struct_processus *s_etat_processus,
   
             if ((rang = calcul_cond(s_etat_processus, matrice_f77,              if ((rang = calcul_cond(s_etat_processus, matrice_f77,
                     nombre_lignes_a, nombre_colonnes_a, pivot,                      nombre_lignes_a, nombre_colonnes_a, pivot,
                     dimension_vecteur_pivot, 'R', &cond)) < 0)                      'R', &cond)) < 0)
             {              {
                 free(pivot);                  free(pivot);
                 free(matrice_f77);                  free(matrice_f77);
Line 279  cond(struct_processus *s_etat_processus, Line 278  cond(struct_processus *s_etat_processus,
   
             if ((rang = calcul_cond(s_etat_processus, matrice_f77,              if ((rang = calcul_cond(s_etat_processus, matrice_f77,
                     nombre_lignes_a, nombre_colonnes_a, pivot,                      nombre_lignes_a, nombre_colonnes_a, pivot,
                     dimension_vecteur_pivot, 'C', &cond)) < 0)                      'C', &cond)) < 0)
             {              {
                 free(pivot);                  free(pivot);
                 free(matrice_f77);                  free(matrice_f77);
Removed from v.1.3  
changed lines
  Added in v.1.4

CVSweb interface <joel.bertrand@systella.fr>