/[escript]/trunk/dudley/src/Mesh_optimizeDOFDistribution.c
ViewVC logotype

Diff of /trunk/dudley/src/Mesh_optimizeDOFDistribution.c

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

revision 3259 by jfenwick, Mon Oct 11 01:48:14 2010 UTC revision 3603 by caltinay, Mon Sep 19 03:42:53 2011 UTC
# Line 72  void Dudley_Mesh_optimizeDOFDistribution Line 72  void Dudley_Mesh_optimizeDOFDistribution
72      size_t mpiSize_size;      size_t mpiSize_size;
73      index_t *partition = NULL;      index_t *partition = NULL;
74      Paso_Pattern *pattern = NULL;      Paso_Pattern *pattern = NULL;
75      Esys_MPI_rank myRank, dest, source, current_rank, rank;      Esys_MPI_rank myRank, current_rank, rank;
76      Dudley_IndexList *index_list = NULL;      Dudley_IndexList *index_list = NULL;
77      float *xyz = NULL;      float *xyz = NULL;
78      int c;      int c;
79    
80  #ifdef ESYS_MPI  #ifdef ESYS_MPI
81        Esys_MPI_rank dest, source;
82      MPI_Status status;      MPI_Status status;
83  #endif  #endif
84    
# Line 248  void Dudley_Mesh_optimizeDOFDistribution Line 249  void Dudley_Mesh_optimizeDOFDistribution
249          TMPMEMFREE(recvbuf);          TMPMEMFREE(recvbuf);
250    
251          /* now the overlap needs to be created by sending the partition around */          /* now the overlap needs to be created by sending the partition around */
252    #ifdef ESYS_MPI
253          dest = Esys_MPIInfo_mod(mpiSize, myRank + 1);          dest = Esys_MPIInfo_mod(mpiSize, myRank + 1);
254          source = Esys_MPIInfo_mod(mpiSize, myRank - 1);          source = Esys_MPIInfo_mod(mpiSize, myRank - 1);
255    #endif
256          current_rank = myRank;          current_rank = myRank;
257  #pragma omp parallel for private(i)  #pragma omp parallel for private(i)
258          for (i = 0; i < in->Nodes->numNodes; ++i)          for (i = 0; i < in->Nodes->numNodes; ++i)

Legend:
Removed from v.3259  
changed lines
  Added in v.3603

  ViewVC Help
Powered by ViewVC 1.1.26