/[escript]/trunk/paso/src/SparseMatrix_nullifyRowsAndCols.c
ViewVC logotype

Diff of /trunk/paso/src/SparseMatrix_nullifyRowsAndCols.c

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

revision 1552 by gross, Thu May 8 08:52:41 2008 UTC revision 1563 by gross, Wed May 21 15:27:34 2008 UTC
# Line 63  void Paso_SparseMatrix_nullifyRowsAndCol Line 63  void Paso_SparseMatrix_nullifyRowsAndCol
63        for (iptr=A->pattern->ptr[irow]-index_offset;iptr<A->pattern->ptr[irow+1]-index_offset; iptr++) {        for (iptr=A->pattern->ptr[irow]-index_offset;iptr<A->pattern->ptr[irow+1]-index_offset; iptr++) {
64          icol=A->pattern->index[iptr]-index_offset;          icol=A->pattern->index[iptr]-index_offset;
65          if (mask_col[icol]>0. || mask_row[irow]>0. ) {          if (mask_col[icol]>0. || mask_row[irow]>0. ) {
66    printf("eliminated %d %d\n",icol,irow);
67             if (irow==icol) {             if (irow==icol) {
68            A->val[iptr]=main_diagonal_value;            A->val[iptr]=main_diagonal_value;
69              } else {              } else {

Legend:
Removed from v.1552  
changed lines
  Added in v.1563

  ViewVC Help
Powered by ViewVC 1.1.26