      subroutine skip(m,n,iseed)
      real a, slaran
      integer iseed(*), m, n
c
      do 30 j = 1,n*m
            a = slaran(iseed) 
   30 continue
      return
      end
