[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / lenocc.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:49  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      FUNCTION LENOCC (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 LENOCC = JJ
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:49 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	FUNCTION LENOCC (CHV)
	11	C
	12	C CERN PROGLIB# M507 LENOCC .VERSION KERNFOR 4.21 890323
	13	C ORIG. March 85, A.Petrilli, re-write 21/02/89, JZ
	14	C
	15	C- Find last non-blank character in CHV
	16
	17	CHARACTER CHV()
	18
	19	N = LEN(CHV)
	20
	21	DO 17 JJ= N,1,-1
	22	IF (CHV(JJ:JJ).NE.' ') GO TO 99
	23	17 CONTINUE
	24	JJ = 0
	25
	26	99 LENOCC = JJ
	27	RETURN
	28	END