%N grtrim %F $MIR/src/grtrim.f
%D Length of string excluding trailing blanks
%B
      INTEGER FUNCTION GRTRIM(S)
      CHARACTER*(*) S

 Find the length of a character string excluding trailing blanks.
 A blank string returns a value of 0.

 Argument:
  S      (input)  : character string.

 Returns:
  GRTRIM          : number of characters in S, excluding trailing
                    blanks, in range 0...LEN(S). A blank string
                    returns a value of 0.

 Subroutines required:
  None

 Fortran 77 extensions:
  None

 History:
  1987 Nov 12 - TJP.
