1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil -*- */
2 /*
3 * Copyright (c) 2004-2005 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) 2011-2013 Cisco Systems, Inc. All rights reserved.
14 * Copyright (c) 2013 Los Alamos National Security, LLC. All rights
15 * reserved.
16 * Copyright (c) 2015 Research Organization for Information Science
17 * and Technology (RIST). All rights reserved.
18 * $COPYRIGHT$
19 *
20 * Additional copyrights may follow
21 *
22 * $HEADER$
23 */
24
25 #include "ompi_config.h"
26
27 #include "ompi/mpi/fortran/mpif-h/bindings.h"
28
29 #if OMPI_BUILD_MPI_PROFILING
30 #if OPAL_HAVE_WEAK_SYMBOLS
31 #pragma weak PMPI_COMM_CREATE_GROUP = ompi_comm_create_group_f
32 #pragma weak pmpi_comm_create_group = ompi_comm_create_group_f
33 #pragma weak pmpi_comm_create_group_ = ompi_comm_create_group_f
34 #pragma weak pmpi_comm_create_group__ = ompi_comm_create_group_f
35
36 #pragma weak PMPI_Comm_create_group_f = ompi_comm_create_group_f
37 #pragma weak PMPI_Comm_create_group_f08 = ompi_comm_create_group_f
38 #else
39 OMPI_GENERATE_F77_BINDINGS (PMPI_COMM_CREATE_GROUP,
40 pmpi_comm_create_group,
41 pmpi_comm_create_group_,
42 pmpi_comm_create_group__,
43 pompi_comm_create_group_f,
44 (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *tag, MPI_Fint *newcomm, MPI_Fint *ierr),
45 (comm, group, tag, newcomm, ierr) )
46 #endif
47 #endif
48
49 #if OPAL_HAVE_WEAK_SYMBOLS
50 #pragma weak MPI_COMM_CREATE_GROUP = ompi_comm_create_group_f
51 #pragma weak mpi_comm_create_group = ompi_comm_create_group_f
52 #pragma weak mpi_comm_create_group_ = ompi_comm_create_group_f
53 #pragma weak mpi_comm_create_group__ = ompi_comm_create_group_f
54
55 #pragma weak MPI_Comm_create_group_f = ompi_comm_create_group_f
56 #pragma weak MPI_Comm_create_group_f08 = ompi_comm_create_group_f
57 #else
58 #if ! OMPI_BUILD_MPI_PROFILING
59 OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_GROUP,
60 mpi_comm_create_group,
61 mpi_comm_create_group_,
62 mpi_comm_create_group__,
63 ompi_comm_create_group_f,
64 (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *tag, MPI_Fint *newcomm, MPI_Fint *ierr),
65 (comm, group, tag, newcomm, ierr) )
66 #else
67 #define ompi_comm_create_group_f pompi_comm_create_group_f
68 #endif
69 #endif
70
ompi_comm_create_group_f(MPI_Fint * comm,MPI_Fint * group,MPI_Fint * tag,MPI_Fint * newcomm,MPI_Fint * ierr)71 void ompi_comm_create_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *tag, MPI_Fint *newcomm, MPI_Fint *ierr)
72 {
73 int c_ierr;
74 MPI_Comm c_newcomm;
75 MPI_Comm c_comm = PMPI_Comm_f2c (*comm);
76 MPI_Group c_group = PMPI_Group_f2c(*group);
77
78 c_ierr = PMPI_Comm_create_group (c_comm, c_group, OMPI_FINT_2_INT(*tag), &c_newcomm);
79 if (NULL != ierr) *ierr = OMPI_INT_2_FINT(c_ierr);
80
81 if (MPI_SUCCESS == c_ierr) {
82 *newcomm = PMPI_Comm_c2f (c_newcomm);
83 }
84 }
85