subroutine putc (c)
      integer c
      call putch (c, 1)
      return
      end