Mathc complexes/h10i

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	w_g.h

/* ------------------------------------ */
/*  Save as :   wgj.h                   */
/* ------------------------------------ */
double **gj_mZ(
double **Ab
)
{
double **A;
nb_Z det;
double r_T = (((Ab[R_SIZE][C0]-C1)*C2)+C1);

   if( r_T == Ab[C_SIZE_A][C0])
     {
       A = i_RC_mZ(Ab[R_SIZE][C0],Ab[C_SIZE_A][C0]);

       c_Ab_A_mZ(Ab,A);

       det=det_Z(A);

       if(det.r && det.i) gj1_mZ(Ab);
       else               gj4_mZ(Ab);
       
       f_mZ(A);
      }

   else if( r_T <  Ab[C_SIZE_A][C0])
     {
       A = i_RC_mZ(Ab[R_SIZE][C0],(((Ab[R_SIZE][C0]-C1)*C2)+C1));
       c_Ab_subArxr_mZ(Ab,A);

       det=det_Z(A);

       if(det.r && det.i) gj2_mZ(Ab);
       else               gj4_mZ(Ab);
       
       f_mZ(A);
      }

    else if( r_T >  Ab[C_SIZE_A][C0])
    
    {
     printf("\n Error : gj_mR();\n");
     printf("\n The number of colums\n");
     printf("\n must be superior or egal\n");
     printf("\n to the number of rows\n");
     printf("\n Press return to continue.\n");
     fflush(stdout);
     getchar();
     exit(EXIT_FAILURE);
    }    
    
return(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.