# putint - write decimal integer  n  in field width >= w  to  f
include ratdef
   subroutine putint(n, w, f)
   integer n, w, f
   character chars(MAXCHARS)
   integer itoc
   integer junk
   
   junk = itoc(n, chars, MAXCHARS)
   call putstr(chars, w, f)
   return
   end