INNER CODE UNIT · C

swapSeed

NBISweden/MrBayes · src/bayes.c:521

            swapSeed = -swapSeed;
        }
    ierror = MPI_Bcast(&swapSeed, 1, MPI_LONG, 0, MPI_COMM_WORLD);
    if (ierror != MPI_SUCCESS)
        {
        MrBayesPrint ("%s   Problem broadcasting swap seed\n", spacer);
        }

    if (proc_id == 0)
        {
        /* Note: runIDSeed will often be same as globalSeed */
        curTime = time(NULL);
        runIDSeed  = (RandLong)curTime;
        if (runIDSeed < 0)
            runIDSeed = -runIDSeed;
        }
    ierror = MPI_Bcast(&runIDSeed, 1, MPI_LONG, 0, MPI_COMM_WORLD);
    if (ierror != MPI_SUCCESS)

View source record →