c
c $Id: rset.f,v 1.1 1999/08/03 04:24:40 aai Exp $.
c
c{
      subroutine rset(n,c,x)
      integer n
      real c
      real x(n)
c
c     Rset: Set the elements of a REAL array to a known value.
c
c     Usage: n   The number of elements in the array to be set.
c            c   The value to which the elements are to be set.
c            x   The array to be initialized.
c
c     Phillip A. Cheeseman, Purdue University Computing Center.
c
      do i=1,n
         x(i) = c
      enddo
c
      return
c
      end
c}