c
c $Id: rdot.f,v 1.1 1999/08/03 04:24:40 aai Exp $.
c
c{
      real function rdot(n,x,y)
      integer n
      real x(n)
      real y(n)
c
c     Rdot: Calculate a dot product.
c
c     Usage: n   The number of elements in the product.
c            x,y The arrays to use for the product.
c
c     Phillip A. Cheeseman, Purdue University Computing Center.
c
      rdot = 0.0
      do i=1,n
         rdot = rdot+x(i)*y(i)
      enddo
c
      return
c
      end
c}