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

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

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

revision 1981 by jfenwick, Thu Nov 6 05:27:33 2008 UTC revision 2126 by ksteube, Thu Dec 4 00:13:03 2008 UTC
# Line 127  dim_t Paso_MPIInfo_setDistribution(Paso_ Line 127  dim_t Paso_MPIInfo_setDistribution(Paso_
127  /* NOTE : does not make guarentee consistency of error string on each process */  /* NOTE : does not make guarentee consistency of error string on each process */
128  bool_t Paso_MPIInfo_noError( Paso_MPIInfo *mpi_info )  bool_t Paso_MPIInfo_noError( Paso_MPIInfo *mpi_info )
129  {  {
130    int errorLocal = 0;    int errorLocal = Paso_noError() ? 0 : 1;
131    int errorGlobal= 0;    int errorGlobal = errorLocal;
132    errorLocal= Paso_noError() ? 0 : 1;  #if 0
133    #ifdef PASO_MPI
134    if (mpi_info->size>1) {    if (mpi_info->size>1) {
      #ifdef PASO_MPI  
 #if 1 /* ksteube disable error checking during benchmarking activities */  
135       MPI_Allreduce( &errorLocal, &errorGlobal, 1, MPI_INT, MPI_MAX, mpi_info->comm  );       MPI_Allreduce( &errorLocal, &errorGlobal, 1, MPI_INT, MPI_MAX, mpi_info->comm  );
 #else  
      errorGlobal=errorLocal;  
 #endif  
      #else  
      errorGlobal=errorLocal;  
      #endif  
      /* take care of the case where the error was on another processor */  
      if( (errorLocal==0) && (errorGlobal==1) ) {  
          Paso_setError( PASO_MPI_ERROR, "Paso_MPI_noError() : there was an error on another MPI process" );  
      }  
136    }    }
137      if( (errorLocal==0) && (errorGlobal==1) ) {
138         Paso_setError( PASO_MPI_ERROR, "Paso_MPI_noError() : there was an error on another MPI process" );
139      }
140    #endif
141    #endif
142    return (errorGlobal==0);    return (errorGlobal==0);
143  }  }
144    
   
145  /**************************************************  /**************************************************
146                   WRAPPERS                   WRAPPERS
147  **************************************************/  **************************************************/

Legend:
Removed from v.1981  
changed lines
  Added in v.2126

  ViewVC Help
Powered by ViewVC 1.1.26