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