MINICERN/packlib/kernlib/kerngen/tcgen/icluns.F

   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