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