/* ------------------------------------ */
/*  Save as :   wc_coef.h               */
/* ------------------------------------ */
nb_Z  c_coef_Z(
double **A,
int r,
int c
)
{

    if(        r<R1 ||
               c<C1 ||
               r>A[R_SIZE][C0] ||
               c>A[C_SIZE][C0]
       )
    {
     printf("\n\n Error : c_coef_Z(); \n\n");
     printf("   r=%d, c=%d,  and  would  be :\n\n",r,c);
     printf(" r>=1; c>=1;\n r=<%.0f; c=<%.0f;\n",
                   A[R_SIZE][C0],
                   A[C_SIZE][C0] );
     printf("\n Press return to continue. \n");
     fflush(stdout);
     getchar();
     exit(EXIT_FAILURE);
    }

    return( i_Z( A[r][c],
                 A[r][c+C1]) );
}
/* ------------------------------------ */
/* ------------------------------------ */