c-----------------------------------------------------------
c Chapter 2: Random subset of an n-set(p23)
c-----------------------------------------------------------
c   Name of subroutine: RANSUB
c
c   Algorithm:Generating random subsets of set {1,2,...,n} 
c
c-----------------------------------------------------------

c-----The driver program is in ransub_2.f

c-----Subroutine begins here--------------------------------
      subroutine ransub(n,a)
      integer a(n)
      do 10  i=1,5
   10 a(i)=2.*rand(iseed) 
      return
      end