!-----  Ex6_2: Product Array   -----
      REAL :: x(0:4)
      x = (/ ( 2.0**n, n = 0, 4)  /)
      x = x(0:4) * x(4:0:-1)
      PRINT *, x
      END