[u/mrichter/AliRoot.git] / HERWIG / jimmy / cernmisc / jmlnoc.F

      FUNCTION JMLNOC (CHV)
C
C CERN PROGLIB# M507    LENOCC          .VERSION KERNFOR  4.21  890323
C ORIG. March 85, A.Petrilli, re-write 21/02/89, JZ
C
C-    Find last non-blank character in CHV
 
      CHARACTER    CHV*(*)
 
      N = LEN(CHV)
 
      DO 17  JJ= N,1,-1
      IF (CHV(JJ:JJ).NE.' ') GO TO 99
 17    CONTINUE
      JJ = 0
 
 99    JMLNOC = JJ
      RETURN
      END
Commit	Line	Data
ef94df36	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