/[escript]/branches/doubleplusgood/finley/src/ElementFile_distributeByRankOfDOF.cpp
ViewVC logotype

Diff of /branches/doubleplusgood/finley/src/ElementFile_distributeByRankOfDOF.cpp

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

revision 4331 by jfenwick, Thu Mar 21 03:07:20 2013 UTC revision 4332 by jfenwick, Thu Mar 21 04:21:14 2013 UTC
# Line 62  void Finley_ElementFile_distributeByRank Line 62  void Finley_ElementFile_distributeByRank
62             memset(send_count, 0, size_size);             memset(send_count, 0, size_size);
63             #pragma omp parallel private(p,loc_proc_mask,loc_send_count)             #pragma omp parallel private(p,loc_proc_mask,loc_send_count)
64             {             {
65                 loc_proc_mask=THREAD_MEMALLOC(size,dim_t);                 loc_proc_mask=new dim_t[size];
66                 loc_send_count=THREAD_MEMALLOC(size,dim_t);                 loc_send_count=new dim_t[size];
67                 memset(loc_send_count, 0, size_size);                 memset(loc_send_count, 0, size_size);
68                 #pragma omp for private(e,j,loc_proc_mask_max) schedule(static)                 #pragma omp for private(e,j,loc_proc_mask_max) schedule(static)
69                 for (e=0;e<self->numElements;e++) {                 for (e=0;e<self->numElements;e++) {
# Line 90  void Finley_ElementFile_distributeByRank Line 90  void Finley_ElementFile_distributeByRank
90                 {                 {
91                   for (p=0;p<size;++p) send_count[p]+=loc_send_count[p];                   for (p=0;p<size;++p) send_count[p]+=loc_send_count[p];
92                 }                 }
93                 THREAD_MEMFREE(loc_proc_mask);                 delete[] loc_proc_mask;
94                 THREAD_MEMFREE(loc_send_count);                 delete[] loc_send_count;
95             }             }
96             #ifdef ESYS_MPI             #ifdef ESYS_MPI
97                MPI_Alltoall(send_count,1,MPI_INT,recv_count,1,MPI_INT,self->MPIInfo->comm);                MPI_Alltoall(send_count,1,MPI_INT,recv_count,1,MPI_INT,self->MPIInfo->comm);

Legend:
Removed from v.4331  
changed lines
  Added in v.4332

  ViewVC Help
Powered by ViewVC 1.1.26