anchor.diff:  
     integer seedArr(25)
     character(len=32) serName
  +  character(len=6)  jMode
   
     if(fromMaster) then
       ! Set seed from master seed
       seedVal = rnd_masterSeed + rnd_seedStep*seriesID
  +    jMode   = "MASTER"
  +  else
  +    jMode   = "CUSTOM"
  +  end if
  +  if(seedVal == rnd_seriesData(seriesID)%initseed) then
  +    jMode   = "RESET"
     end if
   
     if(seriesID < 1 .or. seriesID > rnd_nSeries) then
  
positive.code:   write(rnd_seedUnit, "(a,i0)") "# Master Seed         : ",rnd_masterSeed
    write(rnd_seedUnit, "(a,i0)") "# RANLUX Luxury Level : ",rnd_luxuryLev
    write(rnd_seedUnit, "(a)")    "#"
    write(rnd_seedUnit, "(a)")    "# Number Series                  Gen           Seed"
  
    currTime = time_getSysClock()
    call rnd_setSeed(rndser_timeSeed1, genRanecu, currTime, .false.)
    call rnd_setSeed(rndser_timeSeed2, genRanlux, currTime, .false.)
    call rnd_setSeed(rndser_genSeq1, genRanecu, currSeed, .true.)
    call rnd_setSeed(rndser_genSeq2, genRanlux, currSeed, .true.)
    call rnd_setSeed(rndser_flucErr,   genRanecu, currSeed, .true.)
    call rnd_setSeed(rndser_scatMain,  genRanecu, currSeed, .true.)
    call rnd_setSeed(rndser_scatPart,  genRanecu, currSeed, .true.)
  
negative.code:   private :: rnd_rayleigh_nocut
    private :: rnd_rayleigh_maxcut
    private :: rnd_rayleigh_maxmincut
  
  #ifdef CR
    type(type_rndRecord), private, save :: rnd_seriesData_CR(rnd_nSeries)
  #endif
  
  contains
  
  