From 022fc1f382756b38eefab5c0f63b8f5090f6723c Mon Sep 17 00:00:00 2001
From: Ralph Castain <rhc@open-mpi.org>
Date: Wed, 5 Mar 2008 04:53:32 +0000
Subject: [PATCH] Add another MPI-related enviro variable
 OMPI_COMM_WORLD_NUM_LOCAL_PROCS

This commit was SVN r17723.
---
 orte/mca/ess/base/ess_base_put.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/orte/mca/ess/base/ess_base_put.c b/orte/mca/ess/base/ess_base_put.c
index 861183eea0..b2e3b500b2 100644
--- a/orte/mca/ess/base/ess_base_put.c
+++ b/orte/mca/ess/base/ess_base_put.c
@@ -83,6 +83,14 @@ int orte_ess_env_put(orte_std_cntr_t num_procs,
     }
     opal_setenv(param, value, true, env);
     free(param);
+    /* users would appreciate being given a public environmental variable
+     * that also represents this value - something MPI specific - so
+     * do that here.
+     *
+     * AND YES - THIS BREAKS THE ABSTRACTION BARRIER TO SOME EXTENT.
+     * We know - just live with it
+     */
+    opal_setenv("OMPI_COMM_WORLD_NUM_LOCAL_PROCS", value, true, env);
     free(value);
     
     return ORTE_SUCCESS;