/*
 * PCN System
 * Author:      Steve Tuecke
 *              Argonne National Laboratory
 *
 * Please see the DISCLAIMER file in the top level directory of the
 * distribution regarding the provisions under which this software
 * is distributed.
 *
 * sys_num_nodes.c
 *
 * Foreign procedures used by sys.pcn
 */

#include "sys_internal.h"

/*
 * Set 'N' to the number of PCN nodes.  If _p_usehost is FALSE, then
 * return the number of nodes not including the host.
 */
void _p_sys_num_nodes(N)
int_t *N;
{
    extern int_t _p_nodes;
    *N = (int_t) _p_nodes;
}