diff options
Diffstat (limited to 'src/main/CactusDefaultShutdown.c')
-rw-r--r-- | src/main/CactusDefaultShutdown.c | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/main/CactusDefaultShutdown.c b/src/main/CactusDefaultShutdown.c index 123582b1..f09206ad 100644 --- a/src/main/CactusDefaultShutdown.c +++ b/src/main/CactusDefaultShutdown.c @@ -19,6 +19,7 @@ #include "mpi.h" #endif +static char *rcsid = "$Header$"; #ifdef MPI extern char MPI_Active; @@ -27,16 +28,16 @@ extern char MPI_Active; #ifdef MPI #define CACTUS_MPI_ERROR(xf) do {int errcode; \ if((errcode = xf) != MPI_SUCCESS) \ - { \ - char mpi_error_string[MPI_MAX_ERROR_STRING+1]; \ - int resultlen; \ - MPI_Error_string(errcode, mpi_error_string, &resultlen);\ - fprintf(stderr, "MPI Call %s returned error code %d (%s)\n", \ + { \ + char mpi_error_string[MPI_MAX_ERROR_STRING+1]; \ + int resultlen; \ + MPI_Error_string(errcode, mpi_error_string, &resultlen);\ + fprintf(stderr, "MPI Call %s returned error code %d (%s)\n", \ #xf, errcode, mpi_error_string); \ - fprintf(stderr, "At line %d of file %s\n", \ - __LINE__, __FILE__); \ - } \ - } while (0) + fprintf(stderr, "At line %d of file %s\n", \ + __LINE__, __FILE__); \ + } \ + } while (0) #endif /*@@ |