c
c $Id: iset.f,v 1.1 1999/08/03 04:24:40 aai Exp $.
c
c{
      subroutine iset(n,c,x)
      integer n
      integer c
      integer x(n)
c
c     Iset: Set the elements of an INTEGER 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}