anchor.diff:    end do
   
     do i=1,250
  -    write(fUnit,"(i3,6(1x,f13.9))") i,rndOut(i,1:6)
  +    write(fUnit,"(i3,8(1x,f13.9))") i,rndOut(i,1:8)
     end do
   
     ! Reset seeds and close file
  
positive.code:   use mod_ranecu
    use mod_ranlux
  
    integer,          intent(in)  :: seriesID
    real(kind=fPrec), intent(out) :: rndVec(*)
    integer,          intent(in)  :: vLen
  
    integer seedArr(25), tmpArr(25), genID
  
  
negative.code:       case(5)
          call rnd_rayleigh(rndser_genSeq1, rndReal(:,1), rndInt(i))
          call rnd_rayleigh(rndser_genSeq2, rndReal(:,2), rndInt(i))
        case(7)
          call rnd_irwinHall(rndser_genSeq1, rndReal(:,1), rndInt(i), 4)
          call rnd_irwinHall(rndser_genSeq2, rndReal(:,2), rndInt(i), 4)
        end select
  
        do j=1,rndInt(i)
  