root/orte/mca/ras/base/ras_base_close.c

DEFINITIONS

1. orte_ras_base_finalize
2. orte_ras_base_close

   1 /*
   2  * Copyright (c) 2004-2005 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$
  13  *
  14  * Additional copyrights may follow
  15  *
  16  * $HEADER$
  17  */
  18 
  19 #include "orte_config.h"
  20 #include "orte/constants.h"
  21 
  22 #include <stdio.h>
  23 
  24 #include "orte/mca/mca.h"
  25 #include "opal/mca/base/base.h"
  26 
  27 #include "orte/mca/ras/base/base.h"
  28 
  29 #include "orte/mca/ras/base/ras_private.h"
  30 
  31 int orte_ras_base_finalize(void)
  32 {
  33     if (NULL != orte_ras_base.active_module) {
  34         orte_ras_base.active_module->finalize();
  35     }
  36 
  37     return ORTE_SUCCESS;
  38 }
  39 
  40 
  41 int orte_ras_base_close(void)
  42 {
  43     /* Close all remaining available components (may be one if this is a
  44        Open RTE program, or [possibly] multiple if this is ompi_info) */
  45 
  46     mca_base_components_close(orte_ras_base_framework.framework_output,
  47                               &orte_ras_base.ras_opened, NULL);
  48 
  49     /* Close the framework output */
  50     opal_output_close (orte_ras_base_framework.framework_output);
  51     orte_ras_base_framework.framework_output = -1;
  52 
  53     return ORTE_SUCCESS;
  54 }