void shmem_internal_start_pes(int npes) { int tl_provided; shmem_internal_initialized_with_start_pes = 1; shmem_internal_init(SHMEMX_THREAD_SINGLE, &tl_provided); }
void SHMEM_FUNCTION_ATTRIBUTES shmemx_init_thread(int tl_requested, int *tl_provided) { if (shmem_internal_initialized) { RAISE_ERROR_STR("attempt to reinitialize library"); } shmem_internal_init(tl_requested, tl_provided); }
void FC_SHMEM_INIT(void) { int tl_provided; if (shmem_internal_initialized) { RAISE_ERROR_STR("attempt to reinitialize library"); } shmem_internal_init(SHMEMX_THREAD_SINGLE, &tl_provided); }
void SHMEM_FUNCTION_ATTRIBUTES shmem_init(void) { int tl_provided; if (shmem_internal_initialized) { RAISE_ERROR_STR("attempt to reinitialize library"); } shmem_internal_init(SHMEMX_THREAD_SINGLE, &tl_provided); }