Mathc complexes/Fichiers h : vc1m

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wc_rc.h

/* ------------------------------------ */
/*  Save as :   wc_rc.h                 */
/* ------------------------------------ */
/* ------------------------------------ */
double **c_r_mZ(
double **A,
int rA,
double **B,
int rB
)
{
int c;

    for(c=C1; c<A[C_SIZE][C0]; c++)

            B[rB][c] = A[rA][c];

return(B);
}
/* ------------------------------------ */
double **c_c_mZ(
double **A,
int cA,
double **B,
int cB
)
{
int r;

    for(r=R1; r<A[R_SIZE][C0]; r++)
       {
        B[r][((cB-C1)*C2+C1)]    = A[r][((cA-C1)*C2+C1)];
        B[r][((cB-C1)*C2+C1)+C1] = A[r][((cA-C1)*C2+C1)+C1];
       }

return(B);
}
/* ------------------------------------ */
/* ------------------------------------ */