Mathc complexes/h09a

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wgj3.h

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

    while( (r<Ab[R_SIZE][C0]) &&
           (c<Ab[C_SIZE_A][C0]) )
       {
        if(pivotbest_gj3Ab_mZ(Ab,r,c)>ERROR_E) 
                
           zero_under_pivot_gjAb_mZ(Ab,r,c);
           
        else r--;
        
        r++;
        c+=C2;
       }
       
return(Ab);
}
/* ------------------------------------ */
double **GJ_PP_FreeV_mZ(
double **Ab,
double **Ab_free,
double **b_free) 
{
   m0_mZ(Ab_free);

         gj_PP_mZ(Ab);
     put_zeroR_mZ(Ab, Ab_free);
         put_freeV_mZ(Ab_free);
                gj_mZ(Ab_free); 
            c_Ab_b_mZ(Ab_free, b_free); 
   
return(b_free);             
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.