c
c $Id: rsum.f,v 1.1 1999/08/03 04:24:40 aai Exp $.
c
c{
      real function rsum(n,x)
      integer n
      real x(n)
c
c     Rsum: Total the elements of a REAL array.
c
c     Usage: n   The number of elements in the operand array.
c            x   The array to be totaled.
c
c     Phillip A. Cheeseman, Purdue University Computing Center.
c
      rsum = 0.0
      do i=1,n
         rsum = rsum+x(i)
      enddo
c
      return
c
      end
c}