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

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / xvect / vaxgs / xinb.F

diff --git a/MINICERN/packlib/kernlib/kerngen/xvect/vaxgs/xinb.F b/MINICERN/packlib/kernlib/kerngen/xvect/vaxgs/xinb.F
deleted file mode 100644 (file)
index 87715b5..0000000
--- a/MINICERN/packlib/kernlib/kerngen/xvect/vaxgs/xinb.F
+++ /dev/null
@@ -1,29 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:50:36  mclareni
-* Kernlib
-*
-*
-      SUBROUTINE XINB  (LUN,XBV,NXB)
-C
-C CERN PROGLIB# Z203    XINB            .VERSION KERNVAX  2.29  880809
-C ORIG.  8/02/88  JZ
-C
-      COMMON /SLATE/ NXR, DUMMY(39)
-      DIMENSION    XBV(99)
-
-      READ (LUN,IOSTAT=JSTAT) NR, (XBV(J),J=1,MIN(NR,NXB))
-      IF   (JSTAT)           61, 24, 64
-   24 NXR = NR
-      NR  = MIN (NR,NXB)
-      NXB = MAX (NR,1)
-      RETURN
-
-   61 NXB = 0
-      RETURN
-
-   64 NXB = -JSTAT
-      RETURN
-      END