Changeset 3244

Show
Ignore:
Timestamp:
01/06/12 16:30:59 (5 months ago)
Author:
jos
Message:

Avoid MPI_Abort() - just use MPI_Finalize() and exit()

Location:
trunk/lib/share
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • trunk/lib/share/mccode-r.c

    r3243 r3244  
    43764376  mcsiminfo_init(stdout); 
    43774377  mcsiminfo_close(); 
    4378 #ifdef USE_MPI 
    4379 #undef exit 
    4380 #endif 
    43814378  exit(0); 
    4382 #ifdef USE_MPI 
    4383 #define exit(code) MPI_Abort(MPI_COMM_WORLD, code) 
    4384 #endif 
    43854379} /* mcinfo */ 
    43864380 

  • trunk/lib/share/mccode-r.h.in

    r3174 r3244  
    235235int mc_MPI_Recv(void *rbuf, long count, MPI_Datatype dtype, int source); 
    236236 
    237 #define exit(code) MPI_Abort(MPI_COMM_WORLD, code) 
     237#define exit(code) do {                                   \ 
     238    MPI_Finalize();                                       \ 
     239    exit(code);                                           \ 
     240  } while(0) 
    238241 
    239242#else /* !USE_MPI */