1
1
openmpi/oshmem/shmem/c/shmem_pe_accessible.c
2015-06-23 20:59:57 -07:00

36 строки
711 B
C

/*
* Copyright (c) 2013 Mellanox Technologies, Inc.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "oshmem_config.h"
#include <stdlib.h>
#include "orte/util/show_help.h"
#include "oshmem/constants.h"
#include "oshmem/include/shmem.h"
#include "oshmem/runtime/runtime.h"
#if OSHMEM_PROFILING
#include "oshmem/include/pshmem.h"
#pragma weak shmem_pe_accessible = pshmem_pe_accessible
#include "oshmem/shmem/c/profile/defines.h"
#endif
int shmem_pe_accessible(int pe)
{
RUNTIME_CHECK_INIT();
/* Assume that everything between 0 and num_pes() is reachable. */
return 0 <= pe && pe < _num_pes() ? 1 : 0;
}