Mathc complexes/a44

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wdbm.h

/* ------------------------------------ */
/*  Save as :   wdbm.h                  */
/* ------------------------------------ */
double **f_eigs_mZ(
double (*P_f)(double x),
double **A,
double **fA
)
{
int r;
int c;

  dif_sizes_mZ(A,fA,"eigs_f__mZ();","(A or fA");

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

        if(((r-R1)*C2)==c-C1)
        
             fA[r][c] = (*P_f)(A[r][c]);
              
 return(fA);
}
/* ------------------------------------ */
/* ------------------------------------ */