File: len_trim.f

package info (click to toggle)
python-igraph 0.9.0-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 21,944 kB
  • sloc: ansic: 225,735; cpp: 23,208; python: 17,085; xml: 2,407; yacc: 1,164; sh: 531; lex: 486; pascal: 158; sed: 45; makefile: 23; javascript: 20; fortran: 8
file content (14 lines) | stat: -rw-r--r-- 270 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
*
*  -- LEN_TRIM is Fortran 95, so we use a replacement here
*
      FUNCTION LEN_TRIM(S)
*
      CHARACTER*(*)  S
      INTEGER LEN_TRIM
*
      INTRINSIC LEN
*
      DO LEN_TRIM = LEN(S), 1, -1
         IF (s(LEN_TRIM:LEN_TRIM) .NE. ' ') RETURN
      END DO
      END