%N mitoaf %F $MIR/src/subs/string.for
%D Convert many integers into a string.
%P rjs
%: strings
%B
      subroutine mitoaf(array,n,line,length)

      integer n,array(n),length
      character line*(*)
  ---------------------------------------------------------------------
  Convert multiple integers to a neatly formatted character string.

  Input:
    array      Array of integers to be converted to a string.
    n          Number of integers.
  Output:
    line       The formatted string. Integers are separated by
               commas (no blanks).
    length     The length of the line.
