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

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

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

revision 1362 by gross, Mon Dec 17 02:28:16 2007 UTC revision 1374 by gross, Tue Jan 8 09:37:55 2008 UTC
# Line 155  void Paso_Coupler_startCollect(Paso_Coup Line 155  void Paso_Coupler_startCollect(Paso_Coup
155          }          }
156       }       }
157       /* collect values into buffer */       /* collect values into buffer */
158       #pragma parallel omp for private(i)       #pragma omp parallel for private(i)
159       for (i=0; i < coupler->send->numSharedComponents;++i) {       for (i=0; i < coupler->send->numSharedComponents;++i) {
160          memcpy(&(coupler->send_buffer[(block_size)*i]),&(in[ block_size * coupler->send->shared[i]]), block_size_size);          memcpy(&(coupler->send_buffer[(block_size)*i]),&(in[ block_size * coupler->send->shared[i]]), block_size_size);
161       }       }

Legend:
Removed from v.1362  
changed lines
  Added in v.1374

  ViewVC Help
Powered by ViewVC 1.1.26