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

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

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/sungs/intarg.F b/MINICERN/packlib/kernlib/kerngen/tcgen/sungs/intarg.F
deleted file mode 100644 (file)
index 48aaaf7..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgen/sungs/intarg.F
+++ /dev/null
@@ -1,28 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:49:58  mclareni
-* Kernlib
-*
-*
-      FUNCTION INTARG (ARGM)
-C
-C CERN PROGLIB# M250    INTARG          .VERSION KERNSUN  1.00  880922
-C ORIG. 22/09/88, JZ
-C
-C
-      DIMENSION    ARGM(9)
-      EQUIVALENCE  (A,IA)
-C
-C
-      A   = ARGM(1)
-      JCH = RSHIFT (IA,23)
-      IF (JCH.EQ.0)          GO TO 36
-      IF (JCH.EQ.-1)         GO TO 36
-      INTARG = A
-      RETURN
-C
-   36 INTARG = IA
-      RETURN
-      END