/[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 1915 by phornby, Thu Oct 23 08:40:09 2008 UTC revision 1917 by phornby, Thu Oct 23 09:09:31 2008 UTC
# Line 132  void Paso_Pattern_coup(Paso_SparseMatrix Line 132  void Paso_Pattern_coup(Paso_SparseMatrix
132  void Paso_Pattern_RS(Paso_SparseMatrix* A, index_t* mis_marker, double theta)  void Paso_Pattern_RS(Paso_SparseMatrix* A, index_t* mis_marker, double theta)
133  {  {
134    index_t index_offset=(A->pattern->type & PATTERN_FORMAT_OFFSET1 ? 1:0);    index_t index_offset=(A->pattern->type & PATTERN_FORMAT_OFFSET1 ? 1:0);
135    dim_t i,j;    dim_t i;
136    index_t iptr;    index_t iptr;
137    double threshold,min_offdiagonal;    double threshold,min_offdiagonal;
   bool_t flag;  
138    dim_t n=A->pattern->numOutput;    dim_t n=A->pattern->numOutput;
139    if (A->pattern->type & PATTERN_FORMAT_SYM) {    if (A->pattern->type & PATTERN_FORMAT_SYM) {
140      Paso_setError(TYPE_ERROR,"Paso_Pattern_RS: symmetric matrix pattern is not supported yet");      Paso_setError(TYPE_ERROR,"Paso_Pattern_RS: symmetric matrix pattern is not supported yet");
Legend:
Removed from v.1915  
changed lines
  Added in v.1917
  ViewVC Help
Powered by ViewVC 1.1.26