anchor.diff:    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"
  +  write(rnd_seedUnit, "(a)")    "# Number Series                   Gen     Action         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_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.)
  
positive.code:   private :: rnd_rayleigh_nocut
    private :: rnd_rayleigh_maxcut
    private :: rnd_rayleigh_maxmincut
  
  contains
  
  
negative.code: 
  end subroutine rnd_irwinHall
  
  #ifdef CR
  ! ================================================================================================ !
  !  CheckPoint/Restart Routines
  !  V.K. Berglyd Olsen, BE-ABP-HSS
  !  Created: 2019-09-27
  !  Updated: 2019-09-27
  ! ================================================================================================ !
  subroutine rnd_crcheck(fileUnit, readErr)
  
    use crcoall
  
    integer, intent(in)  :: fileUnit
    logical, intent(out) :: readErr
  
    integer i
    do i=1,rnd_nSeries
      read(fileUnit, err=10, end=10) rnd_seriesData_CR(i)
    end do
  
    readErr = .false.
    return
  
  10 continue
    readErr = .true.
    write(lout, "(a,i0,a)") "SIXTRACR> ERROR Reading C/R file unit ",fileUnit," in RND"
    write(crlog,"(a,i0,a)") "SIXTRACR> ERROR Reading C/R file unit ",fileUnit," in RND"
    flush(crlog)
  
  end subroutine rnd_crcheck
  
  subroutine rnd_crpoint(fileUnit, writeErr)
  
    use crcoall
  
    integer, intent(in)  :: fileUnit
    logical, intent(out) :: writeErr
  
    integer i
    do i=1,rnd_nSeries
      write(fileunit,err=10) rnd_seriesData(i)
    end do
    flush(fileUnit)
  
    writeErr = .false.
  
    return
  
  10 continue
    writeErr = .true.
    write(lout, "(a,i0,a)") "SIXTRACR> ERROR Writing C/R file unit ",fileUnit," in RND"
    write(crlog,"(a,i0,a)") "SIXTRACR> ERROR Writing C/R file unit ",fileUnit," in RND"
    flush(crlog)
  
  end subroutine rnd_crpoint
  
  subroutine rnd_crstart
    integer i
    do i=1,rnd_nSeries
      rnd_seriesData(i) = rnd_seriesData_CR(i)
    end do
  end subroutine rnd_crstart
  #endif
  
  end module mod_random
  