[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.1.1.1 and 1.9

version 1.1.1.1, 2010/01/26 15:22:45 version 1.9, 2010/05/24 10:58:28
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.9    RPL/2 (R) version 4.0.16
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2010 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
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.1.1.1  
changed lines
  Added in v.1.9

CVSweb interface <joel.bertrand@systella.fr>