"Fossies" - the Fresh Open Source Software Archive

Member "openmpi-3.1.6/ompi/contrib/libompitrace/add_error_string.c" (18 Mar 2020, 1358 Bytes) of package /linux/misc/openmpi-3.1.6.tar.bz2:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "add_error_string.c" see the Fossies "Dox" file reference documentation.

    1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
    2 /*
    3  * Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
    4  *                         University Research and Technology
    5  *                         Corporation.  All rights reserved.
    6  * Copyright (c) 2004-2005 The University of Tennessee and The University
    7  *                         of Tennessee Research Foundation.  All rights
    8  *                         reserved.
    9  * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
   10  *                         University of Stuttgart.  All rights reserved.
   11  * Copyright (c) 2004-2005 The Regents of the University of California.
   12  *                         All rights reserved.
   13  * Copyright (c) 2006      University of Houston. All rights reserved.
   14  * Copyright (c) 2013      Los Alamos National Security, LLC.  All rights
   15  *                         reserved.
   16  * $COPYRIGHT$
   17  *
   18  * Additional copyrights may follow
   19  *
   20  * $HEADER$
   21  */
   22 #include "ompi_config.h"
   23 
   24 #include <stdio.h>
   25 
   26 #include "ompi/mpi/c/bindings.h"
   27 
   28 int MPI_Add_error_string(int errorcode, const char *string)
   29 {
   30     int rank;
   31 
   32     PMPI_Comm_rank(MPI_COMM_WORLD, &rank);
   33 
   34     fprintf(stderr, "MPI_ADD_ERROR_STRING[%d]: errorcode %d string %s\n",
   35             rank, errorcode, string);
   36     fflush(stderr);
   37 
   38     return PMPI_Add_error_string(errorcode, string);
   39 }