%N lcase %F $MIR/src/subs/string.for
%D Convert a string to lower case.
%P rjs
%: strings
%B
      subroutine lcase(string)

      character string*(*)
  ---------------------------------------------------------------------
  Convert a string to lower case.

  Input/Output:
    string     The string to be converted to lower case.
