/[escript]/trunk/escript/src/Utils.cpp
ViewVC logotype

Diff of /trunk/escript/src/Utils.cpp

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

revision 2308 by gross, Mon Mar 16 01:20:56 2009 UTC revision 2313 by gross, Tue Mar 17 03:41:17 2009 UTC
# Line 115  int getNumberOfThreads() Line 115  int getNumberOfThreads()
115    
116  }  }
117    
118  int getMPISizeWorld() {  ESCRIPT_DLL_API int getMPISizeWorld() {
119    int mpi_num = 1;    int mpi_num = 1;
120    #ifdef PASO_MPI    #ifdef PASO_MPI
121    MPI_Comm_size(MPI_COMM_WORLD, &mpi_num);    MPI_Comm_size(MPI_COMM_WORLD, &mpi_num);
# Line 123  int getMPISizeWorld() { Line 123  int getMPISizeWorld() {
123    return mpi_num;    return mpi_num;
124  }  }
125    
126  int getMPIRankWorld() {  ESCRIPT_DLL_API int getMPIRankWorld() {
127    int mpi_iam = 0;    int mpi_iam = 0;
128    #ifdef PASO_MPI    #ifdef PASO_MPI
129    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_iam);    MPI_Comm_rank(MPI_COMM_WORLD, &mpi_iam);
# Line 144  ESCRIPT_DLL_API int getMPIWorldMax(const Line 144  ESCRIPT_DLL_API int getMPIWorldMax(const
144    
145        
146    
147  double getMachinePrecision() {  ESCRIPT_DLL_API double getMachinePrecision() {
148     return DBL_EPSILON;     return DBL_EPSILON;
149  }  }
150  double getMaxFloat() {  ESCRIPT_DLL_API double getMaxFloat() {
151     return DBL_MAX;     return DBL_MAX;
152  }  }
153    ESCRIPT_DLL_API void MPIBarrierWorld() {
154      #ifdef PASO_MPI
155      MPI_Barrier(MPI_COMM_WORLD );
156      #endif
157    }
158    
159    
160  }  // end of namespace  }  // end of namespace

Legend:
Removed from v.2308  
changed lines
  Added in v.2313

  ViewVC Help
Powered by ViewVC 1.1.26