Mathc complexes/Fichiers h : c01a

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wrms.h

/* ------------------------------------ */
/*  Save as :   wrms.h                  */
/* ------------------------------------ */
void rs_mZ(
double **A[],
int      I,
int      n
)
{
int      i;
int      r;
int      c;

  for(i=0; i<I; i++)
  
    for(r=R1; r<A[i][R_SIZE][C0]; r++)
    
 	  for(c=C1; c<A[i][C_SIZE][C0]; c++)

                 A[i][r][c] = r_I(n);
}
/* ------------------------------------ */
/* ------------------------------------ */