home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / pgplot_1 / SYS_ARC / f77 / GRtrim < prev    next >
Text File  |  1996-04-26  |  1KB  |  42 lines
  1. C*GRTRIM -- length of string excluding trailing blanks
  2. C+
  3.       INTEGER FUNCTION GRTRIM(S)
  4.       CHARACTER*(*) S
  5. C
  6. C Find the length of a character string excluding trailing blanks.
  7. C A blank string returns a value of 0.
  8. C
  9. C Argument:
  10. C  S      (input)  : character string.
  11. C
  12. C Returns:
  13. C  GRTRIM          : number of characters in S, excluding trailing
  14. C                    blanks, in range 0...LEN(S). A blank string
  15. C                    returns a value of 0.
  16. C
  17. C Subroutines required:
  18. C  None
  19. C
  20. C Fortran 77 extensions:
  21. C  None
  22. C
  23. C History:
  24. C  1987 Nov 12 - TJP.
  25. C-----------------------------------------------------------------------
  26.       INTEGER  I
  27. C
  28. C next card falls over bug 8 in Fortran so invert it!  
  29. C           D.J. Crennell           27 April 1996
  30. C      IF (S.EQ.' ') THEN
  31.       IF (' '.EQ.S) THEN
  32.           GRTRIM = 0
  33.       ELSE
  34.           DO 10 I=LEN(S),1,-1
  35.               GRTRIM = I
  36.               IF (S(I:I).NE.' ') GOTO 20
  37.    10     CONTINUE
  38.           GRTRIM = 0
  39.    20     CONTINUE
  40.       END IF
  41.       END
  42.