Name:         GRTRIM

Purpose:      length of string excluding trailing blanks

Category:     GRAPHICS

File:         pgplot.src

Author:       T.J. Pearson

Use:          see description below.

Description:

            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.

Updates:      Oct 16, 1998: JPT automatically extracted from source.