Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/grtrim.dc3 Дата изменения: Wed Oct 31 05:16:04 2001 Дата индексирования: Fri Jan 16 01:25:32 2009 Кодировка:

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.