GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
lennob.f
Go to the documentation of this file.
1  INTEGER FUNCTION lennob(string)
2  IMPLICIT INTEGER (a-p,r-z),LOGICAL (q)
3 C**********************************************************************
4 C
5 C INTEGER FUNCTION LENNOB( STRING )
6 C LENgth NOt counting trailing Blanks
7 C
8 C
9 C Function
10 C
11 C
12 C Returns the length of STRING up to and including the last
13 C non-blank character.
14 C
15 C
16 C Arguments
17 C
18 C
19 C STRING --> String whose length not counting trailing blanks
20 C is returned.
21 C
22 C**********************************************************************
23  CHARACTER*(*) string
24 
25  end = len(string)
26  DO 20,i = end,1,-1
27  IF (.NOT. (string(i:i).NE.' ')) go to 10
28  lennob = i
29  RETURN
30 
31  10 CONTINUE
32  20 CONTINUE
33  lennob = 0
34  RETURN
35 
36  END