INNER CODE UNIT · C

globalSeed

NBISweden/MrBayes · src/bayes.c:507

            globalSeed = -globalSeed;
        }
    ierror = MPI_Bcast(&globalSeed, 1, MPI_LONG, 0, MPI_COMM_WORLD);
    if (ierror != MPI_SUCCESS)
        {
        MrBayesPrint ("%s   Problem broadcasting seed\n", spacer);
        }
        
    if (proc_id == 0)
        {
        /* Note: swapSeed will often be same as globalSeed */
        curTime = time(NULL);
        swapSeed  = (RandLong)curTime;
        if (swapSeed < 0)
            swapSeed = -swapSeed;
        }
    ierror = MPI_Bcast(&swapSeed, 1, MPI_LONG, 0, MPI_COMM_WORLD);
    if (ierror != MPI_SUCCESS)

View source record →