Merging the VirtualMC branch to the main development branch (HEAD)

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

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/ictype.F b/MINICERN/packlib/kernlib/kerngen/tcgen/ictype.F
deleted file mode 100644 (file)
index 25bfaac..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgen/ictype.F
+++ /dev/null
@@ -1,48 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:49:46  mclareni
-* Kernlib
-*
-*
-#include "kerngen/pilot.h"
-      FUNCTION ICTYPE (CHV)
-C
-C CERN PROGLIB# M432    ICTYPE          .VERSION KERNFOR  4.23  891215
-C ORIG. 14/11/89, JZ
-C
-C-    Return the type of character CHV*1 :
-C-    Nature : 0 unseen, 1 others, 2 numeric, 3 lower, 4 upper case
-
-      CHARACTER    CHV*1
-#include "kerngen/qnatch.inc"
-* Ignoring t=pass
-
-#if defined(CERNLIB_QASCII)
-      IVAL = ICHAR(CHV)
-      JX = 0
-      IF (IVAL.LT.32)        GO TO 49
-      IF (IVAL.GE.127)       GO TO 49
-      JX = 1
-      IF (IVAL.LT.48)        GO TO 49
-      IF (IVAL.GE.123)       GO TO 49
-      IF (IVAL.LE.57)  THEN
-          JX = 2
-          GO TO 49
-        ENDIF
-      IF (IVAL.LT.65)        GO TO 49
-      IF (IVAL.LE.90)  THEN
-          JX = 4
-          GO TO 49
-        ENDIF
-      IF (IVAL.LT.97)        GO TO 49
-      JX = 3
-#endif
-#if defined(CERNLIB_QEBCDIC)
-      IVAL = ICHAR(CHV)
-      JX = NATCH(IVAL+1)
-#endif
-   49 ICTYPE = JX
-      RETURN
-      END