!-----  Ex8_7: Maximum Array   -----
   PROGRAM main
      INTEGER :: n = 3
      INTEGER, ALLOCATABLE :: a(:), b(:)
      ALLOCATE( a(1:n), b(1:n) )
      a = (/ 1, 2, 3 /);  b = (/ 2, 1, 4 /) 
      PRINT *, maxa(a, b)
   CONTAINS
      FUNCTION maxa(x, y)
         INTEGER :: maxa(1:n), x(1:n), y(1:n), i
         DO i = 1, n
            maxa(i) = MAX(x(i), y(i))
         END DO
      END FUNCTION maxa
   END