Mathc complexes/h10g

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wgj1.h

/* ------------------------------------ */
/*  Save as :   wgj1.h                  */
/* ------------------------------------ */
void g_T_mZ(
double **Ab
)
{
int r = R1;
int c = C1;

    while((r<Ab[R_SIZE][C0]) &&
          (c<Ab[C_SIZE_A][C0])
         )
       {
        if(pivotbestAb_mZ(Ab,r,c)>ERROR_E)  
           zero_under_pivot_gjAb_mZ(Ab,r,c);
        r++;
        c+=C2;
       }

    r--;
    c-=C2;

    while( (r>R1) )
       {
        zero_below_pivot_gj_mZ(Ab,r,c);
        r--;
        c-=C2;
       }
}
/* ------------------------------------ */
void gj1_mZ(
double **Ab
)
{
  g_T_mZ(Ab);
  sort_c_mZ(Ab);
  sort_r_mZ(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.