Aller au contenu

Mathc complexes/Fichiers h : vc2m

Un livre de Wikilivres.

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

wc_rc.h
/* ------------------------------------ */
/*  Save as :   wc_r0.h                 */
/* ------------------------------------ */
/* ------------------------------------ */
double **cR0_mZ(
double **A,
double **B
)
{
int c;
int r;

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

            B[r][c] = A[r][c];
            
return(B);
}
/* ------------------------------------ */
void cR0_c_mZ(
double **A,
int cA,
double **B,
int cB
)
{
int r;

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