SUBROUTINE PUTC(C)
      INTEGER C
      CALL PUTCH(C, 1)
      RETURN
      END