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

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / sungs / mbytet.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgens/sungs/mbytet.F b/MINICERN/packlib/kernlib/kerngen/tcgens/sungs/mbytet.F
deleted file mode 100644 (file)
index 7ef247d..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgens/sungs/mbytet.F
+++ /dev/null
@@ -1,24 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:50:20  mclareni
-* Kernlib
-*
-*
-      FUNCTION MBYTET (MZ,IZW,IZP,NZB)
-C
-C CERN PROGLIB# M421    MBYTET          .VERSION KERNSUN  1.06  920511
-C ORIG. 22/09/88, JZ
-C
-
-#if defined(CERNLIB_BUGLRSHFT)
-      MBYTET = AND (IZW,
-     +               NOT(ishft (LSHIFT(NOT(MZ),32-NZB), -33+IZP+NZB)))
-#endif
-#if !defined(CERNLIB_BUGLRSHFT)
-      MBYTET = AND (IZW,
-     +               NOT(lrshft (LSHIFT(NOT(MZ),32-NZB), 33-IZP-NZB)))
-#endif
-      RETURN
-      END