/[escript]/trunk-mpi-branch/paso/src/Pattern_unrollBlocks.c
ViewVC logotype

Diff of /trunk-mpi-branch/paso/src/Pattern_unrollBlocks.c

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

revision 1283 by ksteube, Wed Aug 22 08:55:03 2007 UTC revision 1284 by ksteube, Mon Sep 3 04:47:52 2007 UTC
# Line 58  Paso_Pattern* Paso_Pattern_unrollBlocks( Line 58  Paso_Pattern* Paso_Pattern_unrollBlocks(
58    
59          #pragma omp for private(i,k) schedule(static)          #pragma omp for private(i,k) schedule(static)
60          for (i=0;i<pattern->numOutput;++i)          for (i=0;i<pattern->numOutput;++i)
             #pragma ivdep  
61              for (k=0;k<output_block_size;++k) ptr[i*output_block_size+k]=(pattern->ptr[i]-index_offset_in)*block_size+(pattern->ptr[i+1]-pattern->ptr[i])*input_block_size*k+index_offset_out;              for (k=0;k<output_block_size;++k) ptr[i*output_block_size+k]=(pattern->ptr[i]-index_offset_in)*block_size+(pattern->ptr[i+1]-pattern->ptr[i])*input_block_size*k+index_offset_out;
62                        
63          #pragma omp for private(i,iPtr) schedule(static)          #pragma omp for private(i,iPtr) schedule(static)
64          for (i=0;i<new_numOutput;++i)          for (i=0;i<new_numOutput;++i) {
65              #pragma ivdep              #pragma ivdep
66              for (iPtr=ptr[i]-index_offset_out;iPtr<ptr[i+1]-index_offset_out;++iPtr) index[iPtr]=index_offset_out;              for (iPtr=ptr[i]-index_offset_out;iPtr<ptr[i+1]-index_offset_out;++iPtr) index[iPtr]=index_offset_out;
67        }
68    
69          #pragma omp for private(i,j,iPtr,k) schedule(static)          #pragma omp for private(i,j,iPtr,k) schedule(static)
70          for (i=0;i<pattern->numOutput;++i) {          for (i=0;i<pattern->numOutput;++i) {

Legend:
Removed from v.1283  
changed lines
  Added in v.1284

  ViewVC Help
Powered by ViewVC 1.1.26