root/ompi/mpi/c/group_free.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. MPI_Group_free

   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-2005 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) 2006      Cisco Systems, Inc.  All rights reserved.
  13  * Copyright (c) 2015      Research Organization for Information Science
  14  *                         and Technology (RIST). All rights reserved.
  15  * $COPYRIGHT$
  16  *
  17  * Additional copyrights may follow
  18  *
  19  * $HEADER$
  20  */
  21 #include "ompi_config.h"
  22 #include <stdio.h>
  23 
  24 #include "ompi/mpi/c/bindings.h"
  25 #include "ompi/runtime/params.h"
  26 #include "ompi/communicator/communicator.h"
  27 #include "ompi/errhandler/errhandler.h"
  28 #include "ompi/group/group.h"
  29 
  30 #if OMPI_BUILD_MPI_PROFILING
  31 #if OPAL_HAVE_WEAK_SYMBOLS
  32 #pragma weak MPI_Group_free = PMPI_Group_free
  33 #endif
  34 #define MPI_Group_free PMPI_Group_free
  35 #endif
  36 
  37 static const char FUNC_NAME[] = "MPI_Group_free";
  38 
  39 
  40 int MPI_Group_free(MPI_Group *group)
  41 {
  42     int ret;
  43 
  44     /* check to make sure we don't free GROUP_NULL.  Note that we *do*
  45        allow freeing GROUP_EMPTY after much debate in the OMPI core
  46        group.  The final thread about this, and the decision to
  47        support freeing GROUP_EMPTY can be found here:
  48 
  49        http://www.open-mpi.org/community/lists/devel/2007/12/2750.php
  50 
  51        The short version: other MPI's allow it (LAM/MPI, CT6, MPICH2)
  52        probably mainly because the Intel MPI test suite expects it to
  53        happen and there's now several years worth of expected behavior
  54        to allow this behavior.  Rather than have to explain every time
  55        why OMPI is the only one who completely adheres to the standard
  56        / fails the intel tests, it seemed easier to just let this one
  57        slide.  It's not really that important, after all! */
  58     if (MPI_PARAM_CHECK) {
  59         OMPI_ERR_INIT_FINALIZE(FUNC_NAME);
  60 
  61         if ((NULL == group) ||
  62             (MPI_GROUP_NULL == *group) || (NULL == *group) ) {
  63             return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_GROUP,
  64                                           FUNC_NAME);
  65         }
  66 
  67     }
  68 
  69     OPAL_CR_ENTER_LIBRARY();
  70 
  71     ret = ompi_group_free ( group);
  72     OMPI_ERRHANDLER_CHECK(ret, MPI_COMM_WORLD, ret, FUNC_NAME);
  73 
  74     OPAL_CR_EXIT_LIBRARY();
  75     return MPI_SUCCESS;
  76 }

/* [<][>][^][v][top][bottom][index][help] */