Mathc complexes/h09f

Sommaire

Installer ce fichier dans votre répertoire de travail.

	wgel_op.h

/* ------------------------------------ */
/*  Save as :   wgel_op.h               */
/* ------------------------------------ */
double **swapcoef_R0_mZ(
double **A,
int c1,
int c2)
{
double T;

         T        = A[R0][c1];
         A[R0][c1] = A[R0][c2];
         A[R0][c2] = T;
         
        
return(A);
}
/* ------------------------------------ */
double **swapC_R0_mZ(
double **A,
int c1,
int c2)
{
double T;
int r;

    for ( r=R0; r<A[R_SIZE][C0]; r++)
        {
         T        = A[r][c1];
         A[r][c1] = A[r][c2];
         A[r][c2] = T;

         T           = A[r][c1+C1];
         A[r][c1+C1] = A[r][c2+C1];
         A[r][c2+C1] = T;
        }
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.