/[escript]/trunk/esysUtils/src/error.c
ViewVC logotype

Diff of /trunk/esysUtils/src/error.c

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

revision 730 by bcumming, Mon May 15 04:03:49 2006 UTC revision 782 by bcumming, Tue Jul 18 00:47:47 2006 UTC
# Line 101  char* Paso_getErrorMessage(void) { Line 101  char* Paso_getErrorMessage(void) {
101  /* NOTE : does not make guarentee consistency of error string on each process */  /* NOTE : does not make guarentee consistency of error string on each process */
102  bool_t Paso_MPI_noError( Paso_MPIInfo *mpi_info )  bool_t Paso_MPI_noError( Paso_MPIInfo *mpi_info )
103  {  {
104      int errorLocal=0, errorGlobal=0;    int errorLocal=0, errorGlobal=0;
105    
106      errorLocal = (int)Paso_noError();    errorLocal = (int)Paso_noError();
107      MPI_Allreduce( &errorLocal, &errorGlobal, 1, MPI_INT, MPI_LAND, mpi_info->comm  );    MPI_Allreduce( &errorLocal, &errorGlobal, 1, MPI_INT, MPI_LAND, mpi_info->comm  );
108    
109      return errorGlobal;      // take care of the case where the error was on another processor
110        if( errorLocal && !errorGlobal )
111            Paso_setError( PASO_MPI_ERROR, "Paso_MPI_noError() : there was an error on another MPI process" );
112      return errorGlobal;
113  }  }
114  #endif  #endif
115  /**************************************************************/  /**************************************************************/

Legend:
Removed from v.730  
changed lines
  Added in v.782

  ViewVC Help
Powered by ViewVC 1.1.26