Esempio n. 1
0
/**
 * 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
}
Esempio n. 2
0
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);
}