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

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

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

revision 3286 by gross, Mon Oct 18 22:39:28 2010 UTC revision 3287 by gross, Tue Oct 19 00:42:22 2010 UTC
# Line 405  void Paso_Preconditioner_AMG_RSCoarsenin Line 405  void Paso_Preconditioner_AMG_RSCoarsenin
405             #pragma ivdep             #pragma ivdep
406             for(bi=0;bi<n_block*n_block;++bi) fnorm+=A->val[iptr*n_block*n_block+bi]*A->val[iptr*n_block*n_block+bi];             for(bi=0;bi<n_block*n_block;++bi) fnorm+=A->val[iptr*n_block*n_block+bi]*A->val[iptr*n_block*n_block+bi];
407             fnorm=sqrt(fnorm);             fnorm=sqrt(fnorm);
408                         rtmp[iptr-A->pattern->ptr[i]]=fnorm;
409             if( j != i) {             if( j != i) {
           rtmp[iptr-A->pattern->ptr[i]]=fnorm;  
410            max_offdiagonal = MAX(max_offdiagonal,fnorm);            max_offdiagonal = MAX(max_offdiagonal,fnorm);
411            sum_row+=fnorm;            sum_row+=fnorm;
412             } else {             } else {

Legend:
Removed from v.3286  
changed lines
  Added in v.3287

  ViewVC Help
Powered by ViewVC 1.1.26