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

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

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

revision 415 by gross, Wed Jan 4 05:37:33 2006 UTC revision 425 by gross, Tue Jan 10 04:10:39 2006 UTC
# Line 61  Paso_SystemMatrixPattern* Paso_SystemMat Line 61  Paso_SystemMatrixPattern* Paso_SystemMat
61             for (iPtr=pattern->ptr[i]-index_offset_in;iPtr<pattern->ptr[i+1]-index_offset_in;++iPtr)  {             for (iPtr=pattern->ptr[i]-index_offset_in;iPtr<pattern->ptr[i+1]-index_offset_in;++iPtr)  {
62                for (k=0;k<row_block_size;++k) {                for (k=0;k<row_block_size;++k) {
63                   for (j=0;j<col_block_size;++j) {                   for (j=0;j<col_block_size;++j) {
64                      index[ptr[i*row_block_size+k]-index_offset_out+(iPtr-pattern->ptr[i]-index_offset_in)*col_block_size+j]=(pattern->index[iPtr]-index_offset_in)*col_block_size+j+index_offset_out;                      index[ptr[i*row_block_size+k]-index_offset_out+(iPtr-(pattern->ptr[i]-index_offset_in))*col_block_size+j]=(pattern->index[iPtr]-index_offset_in)*col_block_size+j+index_offset_out;
65                   }                   }
66                }                }
67             }             }

Legend:
Removed from v.415  
changed lines
  Added in v.425

  ViewVC Help
Powered by ViewVC 1.1.26