unix/boot/spp/rpp/ratlibf/putint.f


1
2
3
4
5
6
7
8
9
10

subroutine putint (n, w, fd)
      integer n, w
      integer fd
      integer chars (20)
      integer junk
      integer itoc
      junk = itoc (n, chars, 20)
      call putstr (chars, w, fd)
      return
      end