subroutine s88fmt( n, w, ifmt )
  c
  c  s88fmt  replaces ifmt(1), ... , ifmt(n) with
  c  the characters corresponding to the n least significant
  c  digits of w.
  c
        integer n,w,ifmt(n)
  c
        integer nt,wt,digits(10)
  c
        data digits( 1) / 1h0 /
        data digits( 2) / 1h1 /
        data digits( 3) / 1h2 /
        data digits( 4) / 1h3 /
        data digits( 5) / 1h4 /
        data digits( 6) / 1h5 /
        data digits( 7) / 1h6 /
        data digits( 8) / 1h7 /
        data digits( 9) / 1h8 /
        data digits(10) / 1h9 /
  c
        nt = n
        wt = w
  c
   10   if (nt .le. 0) return
          idigit = mod( wt, 10 )
          ifmt(nt) = digits(idigit+1)
          wt = wt/10
          nt = nt - 1
          go to 10
  c
        end