60e27c77e7
1. Added reporting points around the xcasts in MPI_Init. Note that these times will include time spent waiting for a trigger to fire, which is why the times between stage gates did NOT include these times initially. The inter-stage-gate times still do NOT include the xcast time - the xcast time is reported separately. 2. Added the process vpid on the MPI_Init timing reports for clarity. 3. Added a report from the xcast function on the HNP that outputs the number of bytes in the message being sent to the processes. This commit was SVN r12422.
91 строка
2.9 KiB
C
91 строка
2.9 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
|
|
* University Research and Technology
|
|
* Corporation. All rights reserved.
|
|
* Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
* of Tennessee Research Foundation. All rights
|
|
* reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
|
|
#include "orte_config.h"
|
|
#include "orte/orte_constants.h"
|
|
#include "opal/mca/mca.h"
|
|
#include "opal/mca/base/base.h"
|
|
#include "opal/mca/base/mca_base_param.h"
|
|
#include "orte/mca/oob/oob.h"
|
|
|
|
|
|
/*
|
|
* The following file was created by configure. It contains extern
|
|
* statements and the definition of an array of pointers to each
|
|
* component's public mca_base_component_t struct.
|
|
*/
|
|
|
|
#include "orte/mca/oob/base/static-components.h"
|
|
|
|
|
|
/*
|
|
* Global variables
|
|
*/
|
|
mca_oob_t mca_oob;
|
|
int mca_oob_base_output = -1;
|
|
char* mca_oob_base_include = NULL;
|
|
char* mca_oob_base_exclude = NULL;
|
|
opal_list_t mca_oob_base_components;
|
|
opal_list_t mca_oob_base_modules;
|
|
opal_list_t mca_oob_base_exception_handlers;
|
|
bool orte_oob_base_timing = false;
|
|
|
|
/**
|
|
* Function for finding and opening either all MCA components, or the one
|
|
* that was specifically requested via a MCA parameter.
|
|
*/
|
|
int mca_oob_base_open(void)
|
|
{
|
|
int param, value;
|
|
|
|
/* Open up all available components */
|
|
|
|
OBJ_CONSTRUCT(&mca_oob_base_components, opal_list_t);
|
|
OBJ_CONSTRUCT(&mca_oob_base_modules, opal_list_t);
|
|
OBJ_CONSTRUCT(&mca_oob_base_exception_handlers, opal_list_t);
|
|
|
|
if (ORTE_SUCCESS !=
|
|
mca_base_components_open("oob", mca_oob_base_output,
|
|
mca_oob_base_static_components,
|
|
&mca_oob_base_components, true)) {
|
|
return ORTE_ERROR;
|
|
}
|
|
|
|
/* register parameters */
|
|
mca_base_param_reg_string_name("oob_base", "include",
|
|
"Components to include for oob framework selection",
|
|
false, false, NULL, &mca_oob_base_include);
|
|
mca_base_param_reg_string_name("oob_base", "exclude",
|
|
"Components to exclude for oob framework selection",
|
|
false, false, NULL, &mca_oob_base_exclude);
|
|
|
|
param = mca_base_param_reg_int_name("orte", "timing",
|
|
"Request that critical timing loops be measured",
|
|
false, false, 0, &value);
|
|
if (value != 0) {
|
|
orte_oob_base_timing = true;
|
|
} else {
|
|
orte_oob_base_timing = false;
|
|
}
|
|
|
|
/* All done */
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|