%N grtoup %F $MIR/src/grtoup.f
%D Convert character string to upper case
%B
      SUBROUTINE GRTOUP (DST, SRC)
      CHARACTER*(*) DST, SRC

 GRPCKG (internal routine): convert character string to upper case.

 Arguments:
  DST    (output) : output string (upper case).
  SRC    (input)  : input string to be converted.
