%N stcat %F $MIR/src/subs/string.for
%D Concatenate two strings avoiding blank padding.
%P rjs
%: string
%B
      character*(*) function stcat(a,b)

      character a*(*), b*(*)
  ---------------------------------------------------------------------
  Concatenate two strings ignoring blank padding.

  Inputs:
    a,b        The strings to be concatenated.
  Output:
    stcat      The concatenated strings a//b.
