%N len1 %F $MIR/src/subs/string.for
%D Determine the unpadded length of a character string.
%P rjs
%: strings
%B
      integer function len1(string)

      character string*(*)
  ---------------------------------------------------------------------
  Determine the unblanked length of a character string.

  Input:
    string     The character string that we are interested in.
  Output:
    len1       The unpadded length of the character string.  May be 0.
