unix/boot/spp/rpp/rppfor/addchr.f


1
2
3
4
5
6
7
8
9
10

subroutine addchr (c, buf, bp, maxsiz)
      integer bp, maxsiz
      integer c, buf (100)
      if (.not.(bp .gt. maxsiz))goto 23000
      call baderr (16Hbuffer overflow.)
23000 continue
      buf (bp) = c
      bp = bp + 1
      return
      end