Mathc complexes/a33

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wgj3free.h

/* ------------------------------------ */
/*  Save as :   wgj3free.h              */
/* ------------------------------------ */
void put_zeroR_mZ(
double **Ab,
double **Ab_free
)
{
int r, c, Abr, t;

 for(r=R1, Abr=R1, c=C1, t=C1; r<Ab_free[R_SIZE][C0]; r++, c=r+t++)
 	 	   
 	 if(Ab[Abr][c]> ERROR_E)
       { 
         c_r_mZ(Ab,Abr,Ab_free,r);
         Abr++; 
         if((Abr+R1)>Ab[R_SIZE][C0]) r = Ab_free[R_SIZE][C0];
        } 	 	   			
}
/* ------------------------------------ */
/* ------------------------------------ */
void put_freeV_mZ(
double **Ab_free
)
{
double **row_nul = i_mZ(R1,csize_Z(Ab_free));

int r,c,t,cfree;

  for(r=R1,c=C1,t=C1,cfree=C2; r<Ab_free[R_SIZE][C0]; r++, c=r+t++)
  
 	    if(Ab_free[r][c]< ERROR_E)
 	     { 	
		   c_r_mZ(row_nul,R1,Ab_free,r); 
		    	   		   
		   c_s_mZ(1.,Ab_free,r,c); 
		   c_s_mZ(1.,Ab_free,r,Ab_free[C_SIZE_A][C0]+cfree);
		   cfree += C2;
		  }
		  	 
  f_mZ(row_nul);		  	   
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.