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

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

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

revision 3602 by jfenwick, Mon Oct 11 01:48:14 2010 UTC revision 3603 by caltinay, Mon Sep 19 03:42:53 2011 UTC
# Line 29  void Dudley_Mesh_optimizeDOFLabeling(Dud Line 29  void Dudley_Mesh_optimizeDOFLabeling(Dud
29      register index_t k;      register index_t k;
30      dim_t mpiSize, myNumVertices, len, p, i;      dim_t mpiSize, myNumVertices, len, p, i;
31      Paso_Pattern *pattern = NULL;      Paso_Pattern *pattern = NULL;
32      Esys_MPI_rank myRank, dest, source, current_rank;      Esys_MPI_rank myRank, current_rank;
33      Dudley_IndexList *index_list = NULL;      Dudley_IndexList *index_list = NULL;
34  #ifdef ESYS_MPI  #ifdef ESYS_MPI
35        Esys_MPI_rank dest, source;
36      MPI_Status status;      MPI_Status status;
37  #endif  #endif
38    
# Line 100  void Dudley_Mesh_optimizeDOFLabeling(Dud Line 101  void Dudley_Mesh_optimizeDOFLabeling(Dud
101          newGlobalDOFID[i] += myFirstVertex;          newGlobalDOFID[i] += myFirstVertex;
102    
103      /* distribute new labeling to other processors */      /* distribute new labeling to other processors */
104    #ifdef ESYS_MPI
105      dest = Esys_MPIInfo_mod(mpiSize, myRank + 1);      dest = Esys_MPIInfo_mod(mpiSize, myRank + 1);
106      source = Esys_MPIInfo_mod(mpiSize, myRank - 1);      source = Esys_MPIInfo_mod(mpiSize, myRank - 1);
107    #endif
108      current_rank = myRank;      current_rank = myRank;
109      for (p = 0; p < mpiSize; ++p)      for (p = 0; p < mpiSize; ++p)
110      {      {

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

  ViewVC Help
Powered by ViewVC 1.1.26