C     @(#)cfill.f	1.1     02/19/98
C
      subroutine cfill (string, c)

c     !* character fill - fill string with c

      character*(*) string, c

      lc = len(c)
      ls = len(string)
      do i = 1, ls, lc
        string(i:min0(i+lc-1,ls)) = c
      end do
      return
      end