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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:46  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      FUNCTION ICLUNS (CHV,JL,JR)
C
C CERN PROGLIB# M432    ICLUNS          .VERSION KERNFOR  4.21  890323
C ORIG. 16/01/89, JZ
C
C-    Locate the first 'unseen' character in CHV(JL:JR)

      CHARACTER    CHV*(*)
#include "kerngen/qnatch.inc"
* Ignoring t=pass

      JX = JL
   12 IF (JX.GT.JR)          GO TO 90
#if defined(CERNLIB_QASCII)
      IVAL = ICHAR(CHV(JX:JX))
      IF (IVAL.LT.32)        GO TO 91
      IF (IVAL.GE.127)       GO TO 91
#endif
#if defined(CERNLIB_QEBCDIC)
      IVAL = ICHAR(CHV(JX:JX))
      IF (NATCH(IVAL+1).EQ.0)   GO TO 91
#endif
      JX = JX + 1
      GO TO 12

   90 JX = 0
   91 ICLUNS = JX
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:46 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	FUNCTION ICLUNS (CHV,JL,JR)
	11	C
	12	C CERN PROGLIB# M432 ICLUNS .VERSION KERNFOR 4.21 890323
	13	C ORIG. 16/01/89, JZ
	14	C
	15	C- Locate the first 'unseen' character in CHV(JL:JR)
	16
	17	CHARACTER CHV()
	18	#include "kerngen/qnatch.inc"
	19	* Ignoring t=pass
	20
	21	JX = JL
	22	12 IF (JX.GT.JR) GO TO 90
	23	#if defined(CERNLIB_QASCII)
	24	IVAL = ICHAR(CHV(JX:JX))
	25	IF (IVAL.LT.32) GO TO 91
	26	IF (IVAL.GE.127) GO TO 91
	27	#endif
	28	#if defined(CERNLIB_QEBCDIC)
	29	IVAL = ICHAR(CHV(JX:JX))
	30	IF (NATCH(IVAL+1).EQ.0) GO TO 91
	31	#endif
	32	JX = JX + 1
	33	GO TO 12
	34
	35	90 JX = 0
	36	91 ICLUNS = JX
	37	RETURN
	38	END