openmpi/src/mpi/f77/comm_set_name_f.c

/*
 * $HEADER$
 */

#include "lam_config.h"

#include "mpi.h"
#include "mpi/interface/f77/bindings.h"

#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER
#pragma weak PMPI_COMM_SET_NAME = mpi_comm_set_name_f
#pragma weak pmpi_comm_set_name = mpi_comm_set_name_f
#pragma weak pmpi_comm_set_name_ = mpi_comm_set_name_f
#pragma weak pmpi_comm_set_name__ = mpi_comm_set_name_f
#elif LAM_PROFILE_LAYER
LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SET_NAME,
            pmpi_comm_set_name,
            pmpi_comm_set_name_,
            pmpi_comm_set_name__,
            pmpi_comm_set_name_f,
            (MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen),
            (comm, name, ierror, charlen))
#endif

#if LAM_HAVE_WEAK_SYMBOLS
#pragma weak MPI_COMM_SET_NAME = mpi_comm_set_name_f
#pragma weak mpi_comm_set_name = mpi_comm_set_name_f
#pragma weak mpi_comm_set_name_ = mpi_comm_set_name_f
#pragma weak mpi_comm_set_name__ = mpi_comm_set_name_f
#endif

#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS
LAM_GENERATE_F77_BINDINGS (MPI_COMM_SET_NAME,
            mpi_comm_set_name,
            mpi_comm_set_name_,
            mpi_comm_set_name__,
            mpi_comm_set_name_f,
            (MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen),
            (comm, name, ierror, charlen))
#endif


void
mpi_comm_set_name_f(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen)
{
  /* JMS: Translate comm from int to MPI_Comm */
     
  MPI_Comm c_comm = MPI_COMM_WORLD;

  *ierror = MPI_Comm_set_name(c_comm, name);
}