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

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

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

revision 2548 by jfenwick, Mon Jul 20 06:20:06 2009 UTC revision 2550 by gross, Tue Jul 21 03:36:13 2009 UTC
# Line 88  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 88  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
88    double S=0;    double S=0;
89        
90    /*Make sure we have block sizes 1*/    /*Make sure we have block sizes 1*/
91    A_p->pattern->input_block_size=A_p->col_block_size;    if (A_p->col_block_size>1) {
92    A_p->pattern->output_block_size=A_p->row_block_size;       Paso_setError(TYPE_ERROR,"Paso_Solver_getAMG: AMG requires column block size 1.");
93    A_p->pattern->block_size=A_p->block_size;       return NULL;
94      }
95      if (A_p->row_block_size>1) {
96         Paso_setError(TYPE_ERROR,"Paso_Solver_getAMG: AMG requires row block size 1.");
97         return NULL;
98      }
99        
100    /* identify independend set of rows/columns */    /* identify independend set of rows/columns */
101    mis_marker=TMPMEMALLOC(n,index_t);    mis_marker=TMPMEMALLOC(n,index_t);

Legend:
Removed from v.2548  
changed lines
  Added in v.2550

  ViewVC Help
Powered by ViewVC 1.1.26