program main

      integer i, n
      double precision x(1000), x_max

      n = 1000

      do i = 1, n
        x(i) = rand ( )
      end do

      x_max = -1000.0

      do i = 1, n
        if ( x_max < x(i) ) then
          x_max = x(i)
        end if
      end do

      stop
      end