mpi_errors.h.w

/* This file is part of P^nMPI.
 *
 * Copyright (c)
 *  2008-2019 Lawrence Livermore National Laboratories, United States of America
 *  2011-2016 ZIH, Technische Universitaet Dresden, Federal Republic of Germany
 *  2013-2019 RWTH Aachen University, Federal Republic of Germany
 *
 *
 * P^nMPI 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 version 2.1 dated February 1999.
 *
 * P^nMPI 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 P^nMPI; if not, write to the
 *
 *   Free Software Foundation, Inc.
 *   51 Franklin St, Fifth Floor
 *   Boston, MA 02110, USA
 *
 *
 * Written by Martin Schulz, schulzm@llnl.gov.
 *
 * LLNL-CODE-402774
 */

/* This file provides macros for MPI_* calls to check the calls for their
 * correct return value. If a call wrapped by this file failes, an error message
 * will be printed and the function exited. */

#ifndef PNMPI_MPI_ERRORS_H
#define PNMPI_MPI_ERRORS_H


#include <stdio.h>  // fprintf
#include <stdlib.h> // EXIT_* macros

#include <mpi.h>


{{forallfn fn_name}}
#define {{fn_name}}({{args}})                                         \
  {                                                                   \
    int err;                                                          \
    if ((err = {{fn_name}}({{args}})) != MPI_SUCCESS)                 \
      {                                                               \
        fprintf(stderr, "%s:%d: {{fn_name}} returned an error: %i\n", \
                __FILE__, __LINE__, err);                             \
        exit(EXIT_FAILURE);                                           \
      }                                                               \
  }
{{endforallfn}}


#endif