/** * initialize the ping sub-system. Respect any environment setting * asking for different ping timeout. * */ void shmemi_ping_init (void) { #if 0 double timeout = DEFAULT_PE_ACCESSIBLE_TIMEOUT; char *pt = shmemi_comms_getenv (ping_timeout_envvar); if (pt != (char *) NULL) { timeout = atof (pt); } /* sanity check it */ if (timeout < 0.0) { double ot = timeout; timeout = DEFAULT_PE_ACCESSIBLE_TIMEOUT; shmemi_trace (SHMEM_LOG_INIT, "PE accessibility timeout %f negative, reset to default %f sec", ot, timeout); } shmemi_set_ping_timeout (timeout); assign_timer (0, 0, &zero); #endif }
void shmemi_collect_dispatch_init (void) { char *name = shmemi_comms_getenv ("SHMEM_COLLECT_ALGORITHM"); if (EXPR_LIKELY (name == (char *) NULL)) { name = default_implementation; } if (strcmp (name, "linear") == 0) { func32 = shmemi_collect32_linear; func64 = shmemi_collect64_linear; } else { ; /* error */ } /* * report which implementation we set up */ shmemi_trace (SHMEM_LOG_BROADCAST, "using collect \"%s\"", name); }