anchor.diff:    ! Alternatively, we can use ranecu instead, which is capable of continuing a chain of random numbers from
     ! a given set of seeds.
     ! It is probably unnecessary to use different random seeds here in the first place.
  -  rnd_lux = 3
  -  rnd_k1  = 0
  -  rnd_k2  = 0
  -  call rluxgo(rnd_lux, rnd_seed, rnd_k2, rnd_k2)
  +  call rluxgo(3, rnd_seed, 0, 0)
     dummy = rndm5(1) ! Reset rndm5 too
   
   end subroutine collimate_start
  
positive.code:   real(kind=fPrec), save :: remitx_dist,remity_dist,remitx_collgap,remity_collgap
  
    logical, save :: firstcoll
    integer rnd_lux,rnd_k1,rnd_k2
  
    integer, save :: myix
  
  
negative.code:   ! Initialize random number generator
    if(rnd_seed == 0) rnd_seed = time_getSysClock()
    if(rnd_seed <  0) rnd_seed = abs(rnd_seed)
    call rluxgo(3, rnd_seed, 0, 0)
    write(outlun,*) 'INFO>  rnd_seed: ', rnd_seed
  
    ! Call distribution routines only if collimation block is in fort.3
  