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
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.
14
* Additional copyrights may follow
19
#include "orte_config.h"
23
#include "orte/orte_constants.h"
25
#include "opal/mca/mca.h"
26
#include "opal/mca/base/base.h"
27
#include "orte/mca/ras/base/base.h"
30
int orte_ras_base_finalize(void)
32
opal_list_item_t* item;
34
/* Finalize all available modules */
35
if (orte_ras_base.ras_available_valid) {
37
(item = opal_list_remove_first(&orte_ras_base.ras_available))) {
38
orte_ras_base_cmp_t* cmp = (orte_ras_base_cmp_t*)item;
39
cmp->module->finalize();
42
OBJ_DESTRUCT(&orte_ras_base.ras_available);
49
int orte_ras_base_close(void)
51
/* Close all remaining available components (may be one if this is a
52
Open RTE program, or [possibly] multiple if this is ompi_info) */
54
mca_base_components_close(orte_ras_base.ras_output,
55
&orte_ras_base.ras_opened, NULL);