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

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

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

revision 2158 by artak, Thu Dec 4 06:09:50 2008 UTC revision 2159 by artak, Tue Dec 16 03:27:16 2008 UTC
# Line 49  void Paso_Pattern_coup(Paso_SparseMatrix Line 49  void Paso_Pattern_coup(Paso_SparseMatrix
49    diagptr=MEMALLOC(n,index_t);    diagptr=MEMALLOC(n,index_t);
50    
51    if (A->pattern->type & PATTERN_FORMAT_SYM) {    if (A->pattern->type & PATTERN_FORMAT_SYM) {
52      Paso_setError(TYPE_ERROR,"Paso_Pattern_mis: symmetric matrix pattern is not supported yet");      Paso_setError(TYPE_ERROR,"Paso_Pattern_coup: symmetric matrix pattern is not supported yet");
53      return;      return;
54    }    }
55        
# Line 68  void Paso_Pattern_coup(Paso_SparseMatrix Line 68  void Paso_Pattern_coup(Paso_SparseMatrix
68                                  sizeof(index_t),                                  sizeof(index_t),
69                                  Paso_comparIndex);                                  Paso_comparIndex);
70          if (where_p==NULL) {          if (where_p==NULL) {
71              Paso_setError(VALUE_ERROR, "Paso_Solver_getAMG: main diagonal element missing.");              Paso_setError(VALUE_ERROR, "Paso_Pattern_coup: main diagonal element missing.");
72          } else {          } else {
73                  diagptr[i]+=(index_t)(where_p-index);                  diagptr[i]+=(index_t)(where_p-index);
74          }          }

Legend:
Removed from v.2158  
changed lines
  Added in v.2159

  ViewVC Help
Powered by ViewVC 1.1.26