JIMMY first commit.
[u/mrichter/AliRoot.git] / HERWIG / jimmy / cernmisc / jmlnoc.F
1       FUNCTION JMLNOC (CHV)
2 C
3 C CERN PROGLIB# M507    LENOCC          .VERSION KERNFOR  4.21  890323
4 C ORIG. March 85, A.Petrilli, re-write 21/02/89, JZ
5 C
6 C-    Find last non-blank character in CHV
7  
8       CHARACTER    CHV*(*)
9  
10       N = LEN(CHV)
11  
12       DO 17  JJ= N,1,-1
13       IF (CHV(JJ:JJ).NE.' ') GO TO 99
14  17    CONTINUE
15       JJ = 0
16  
17  99    JMLNOC = JJ
18       RETURN
19       END