anchor.diff:    real*8  :: r
   
     allocate(a(to-from))
  -  do k=1, to-from
  +  do k=1, to-from+1
       a(k) = k+from-1
     end do!k
  -
     call random_number(r)
  -  start = a(int(r*size(a)) + 1)
  +  start = a(int(r*(size(a)+1)) + 1)
     do
       call random_number(r)
  -    k = a(int(r*size(a)) + 1)
  +    k = a(int(r*(size(a)+1)) + 1)
       if (k>start) then
         finish = k
         exit
  
positive.code: subroutine ScrambleMutation(item)
  ! Mutation that shuffles randomly the genes.
    integer, intent(inout) :: item(:)
    integer :: len
    len = size(item,1)
  
  
  end subroutine ScrambleMutation
  
  end module genetics
  
negative.code:       exit
      end if
    end do
  end subroutine pick_range
  
  ! ###################################
  ! ######      GENOM SCALE      ######
  