c The following Fortran program randomizes a sequence of 
c integer numbers.
c Output is the randomized sequence


      parameter (datavalues=100)


      integer i,k,n
      integer totaldata
      integer count
      integer ipl
      integer krandom(datavalues)

     
      totaldata=100

      k=0

      krandom(0)=random(0)*totaldata+1      

      do icount=1,totaldata
232      ipl = random(0)*(totaldata) + 1
         do k=1,icount-1
           if (ipl.eq.krandom(k)) goto 232
         end do
         krandom(icount)=ipl
      end do

      do k=1,totaldata
        print*, 'k=', krandom(k)
      end do


      end