bsp_abort.c

Go to the documentation of this file.

/*
    BSPonMPI. This is an implementation of the BSPlib standard on top of MPI
    Copyright (C) 2006  Wijnand J. Suijlen
                                                                                
    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 of the License, or (at your option) any later version.
                                                                                
    This library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    Lesser General Public License for more details.
                                                                                
    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    You may contact me via electronic mail: 
      wjsuijle@users.sourceforge.net
    or snail mail: 
      W.J. Suijlen
      Kraaiheidelaan 10
      2803 VP Gouda
      The Netherlands
*/

#include <stdio.h>
#include "bsp_abort.h"
#include <stdlib.h>
#ifdef UNITTESTING
  #include "../tests/bsp_test.h"
#else  
 #include <mpi.h>
#endif  


void
bsp_intern_abort (const int err_number, const char *func,
                  const char *file, int line)
{
  int flag;
  const char *messages[] = ERR_MESSAGES;
  fprintf (stderr, "%s at %s:%d: %s\n", func, file, line, 
            messages[err_number - 1]);

  MPI_Initialized (&flag);
  if (flag)
    MPI_Abort (MPI_COMM_WORLD, err_number);
  else
    exit (err_number);
}

---