program c7p2
      implicit none
      real x(3),y(3),dot,z
      x(1) = 1
      x(2) = 2
      x(3) = 3
      y(1) = 4
      y(2) = 5
      y(3) = 6
      z = 2
      print *, z
      print *, dot(x,y)
      print *, z
      end

      real function dot(x,y)
      real z,x(3),y(3)
      z = 16
      print *, z
      dot = x(1)*y(1)+x(2)*y(2)+x(3)*y(3)
      return
      end