root/orte/mca/ess/base/ess_base_get.c

DEFINITIONS

1. orte_ess_env_get

   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-2011 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 #ifdef HAVE_UNISTD_H
  23 #include <unistd.h>
  24 #endif
  25 #include <stdlib.h>
  26 #include <errno.h>
  27 
  28 #include "opal/util/opal_environ.h"
  29 
  30 #include "orte/mca/errmgr/errmgr.h"
  31 #include "orte/util/proc_info.h"
  32 
  33 #include "orte/mca/ess/base/base.h"
  34 
  35 int orte_ess_env_get(void)
  36 {
  37     if (orte_ess_base_num_procs < 0) {
  38         ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
  39         return ORTE_ERR_NOT_FOUND;
  40     }
  41     orte_process_info.num_procs = (orte_std_cntr_t)orte_ess_base_num_procs;
  42 
  43     if (orte_process_info.max_procs < orte_process_info.num_procs) {
  44         orte_process_info.max_procs = orte_process_info.num_procs;
  45     }
  46 
  47     return ORTE_SUCCESS;
  48 }