GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
lennob.f
Go to the documentation of this file.
1  INTEGER*4 FUNCTION lennob(string)
2  IMPLICIT INTEGER*4 (a-p,r-z),logical(q)
3 C**********************************************************************
4 C
5 C INTEGER*4 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
integer *4 function lennob(string)
Definition: lennob.f:2