MINICERN/packlib/kernlib/kerngen/tcgen/ictype.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 ICTYPE (CHV)
  11 C
  12 C CERN PROGLIB# M432    ICTYPE          .VERSION KERNFOR  4.23  891215
  13 C ORIG. 14/11/89, JZ
  14 C
  15 C-    Return the type of character CHV*1 :
  16 C-    Nature : 0 unseen, 1 others, 2 numeric, 3 lower, 4 upper case
  17
  18       CHARACTER    CHV*1
  19 #include "kerngen/qnatch.inc"
  20 * Ignoring t=pass
  21
  22 #if defined(CERNLIB_QASCII)
  23       IVAL = ICHAR(CHV)
  24       JX = 0
  25       IF (IVAL.LT.32)        GO TO 49
  26       IF (IVAL.GE.127)       GO TO 49
  27       JX = 1
  28       IF (IVAL.LT.48)        GO TO 49
  29       IF (IVAL.GE.123)       GO TO 49
  30       IF (IVAL.LE.57)  THEN
  31           JX = 2
  32           GO TO 49
  33         ENDIF
  34       IF (IVAL.LT.65)        GO TO 49
  35       IF (IVAL.LE.90)  THEN
  36           JX = 4
  37           GO TO 49
  38         ENDIF
  39       IF (IVAL.LT.97)        GO TO 49
  40       JX = 3
  41 #endif
  42 #if defined(CERNLIB_QEBCDIC)
  43       IVAL = ICHAR(CHV)
  44       JX = NATCH(IVAL+1)
  45 #endif
  46    49 ICTYPE = JX
  47       RETURN
  48       END