real flat(10)
      call hurdgy(flat, 10)

      end

      subroutine hurdgy(xx,i)
      integer i
      real xx(i)
      end