/[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 1980 by ksteube, Thu Sep 25 23:11:13 2008 UTC revision 1981 by jfenwick, Thu Nov 6 05:27:33 2008 UTC
# Line 155  bool_t Paso_MPIInfo_noError( Paso_MPIInf Line 155  bool_t Paso_MPIInfo_noError( Paso_MPIInf
155    
156  int Paso_MPIInfo_initialized( void )  int Paso_MPIInfo_initialized( void )
157  {  {
   int error=0, initialised=0;  
   
158    #ifdef PASO_MPI    #ifdef PASO_MPI
159         int error=0, initialised=0;
160       error = MPI_Initialized( &initialised );       error = MPI_Initialized( &initialised );
161       if( error!=MPI_SUCCESS )       if( error!=MPI_SUCCESS )
162           Paso_setError( PASO_MPI_ERROR, "mpi_initialised : MPI error" );           Paso_setError( PASO_MPI_ERROR, "mpi_initialised : MPI error" );

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

  ViewVC Help
Powered by ViewVC 1.1.26