SUBROUTINE PUTDEC(N, W)
      INTEGER N, W
      CALL PUTINT(N, W, 1)
      RETURN
      END