1 /*
2 * Copyright (c) 2004-2007 The Trustees of Indiana University and Indiana
3 * University Research and Technology
4 * Corporation. All rights reserved.
5 * Copyright (c) 2004-2005 The University of Tennessee and The University
6 * of Tennessee Research Foundation. All rights
7 * reserved.
8 * Copyright (c) 2004-2008 High Performance Computing Center Stuttgart,
9 * University of Stuttgart. All rights reserved.
10 * Copyright (c) 2004-2005 The Regents of the University of California.
11 * All rights reserved.
12 * Copyright (c) 2009 Cisco Systems, Inc. All rights reserved.
13 * $COPYRIGHT$
14 *
15 * Additional copyrights may follow
16 *
17 * $HEADER$
18 */
19
20 #include "ompi_config.h"
21
22 #include <stdio.h>
23
24 #include "opal_stdint.h"
25
26 #include "ompi/mpi/c/bindings.h"
27
28
29 int MPI_Bcast(void *buffer, int count, MPI_Datatype datatype,
30 int root, MPI_Comm comm)
31 {
32 char typename[MPI_MAX_OBJECT_NAME], commname[MPI_MAX_OBJECT_NAME];
33 int len;
34 int rank;
35
36 PMPI_Comm_rank(MPI_COMM_WORLD, &rank);
37 PMPI_Type_get_name(datatype, typename, &len);
38 PMPI_Comm_get_name(comm, commname, &len);
39
40 fprintf(stderr, "MPI_BCAST[%d]: buffer %0" PRIxPTR " count %d datatype %s root %d comm %s\n",
41 rank, (uintptr_t) buffer, count, typename, root, commname);
42 fflush(stderr);
43
44 return PMPI_Bcast(buffer, count, datatype, root, comm);
45 }