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

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

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