/[escript]/trunk/paso/src/Solvers/Solver_jacobi.c
ViewVC logotype

Diff of /trunk/paso/src/Solvers/Solver_jacobi.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 431 by gross, Wed Jan 4 05:37:33 2006 UTC revision 432 by gross, Fri Jan 13 07:38:54 2006 UTC
# Line 40  Paso_Solver_Jacobi* Paso_Solver_getJacob Line 40  Paso_Solver_Jacobi* Paso_Solver_getJacob
40    double A11,A12,A13,A21,A22,A23,A31,A32,A33,D;    double A11,A12,A13,A21,A22,A23,A31,A32,A33,D;
41    /* check matrix is square */    /* check matrix is square */
42    if (A_p->col_block_size !=A_p->row_block_size) {    if (A_p->col_block_size !=A_p->row_block_size) {
43      Paso_setError(TYPE_ERROR, "__FILE__: Jacobi preconditioner square block size.");      Paso_setError(TYPE_ERROR, "Paso_Solver_getJacobi: Jacobi preconditioner square block size.");
44      return NULL;      return NULL;
45    }    }
46    /* check matrix is square */    /* check matrix is square */
47    if (n_block>3) {    if (n_block>3) {
48      Paso_setError(TYPE_ERROR, "__FILE__: Right now the Jacobi preconditioner supports block size less than 4 only");      Paso_setError(TYPE_ERROR, "Paso_Solver_getJacobi: Right now the Jacobi preconditioner supports block size less than 4 only");
49      return NULL;      return NULL;
50    }    }
51    /* allocate vector to hold main diagonal entries: */    /* allocate vector to hold main diagonal entries: */

Legend:
Removed from v.431  
changed lines
  Added in v.432

  ViewVC Help
Powered by ViewVC 1.1.26