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

[u/mrichter/AliRoot.git] / GEANT321 / erdecks / eufill.F

diff --git a/GEANT321/erdecks/eufill.F b/GEANT321/erdecks/eufill.F
deleted file mode 100644 (file)
index c43cb13..0000000
--- a/GEANT321/erdecks/eufill.F
+++ /dev/null
@@ -1,38 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/03/06 15:37:35  mclareni
-* Add geane321 source directories
-*
-*
-#include "geant321/pilot.h"
-*CMZ :  3.21/02 29/03/94  15.41.49  by  S.Giani
-*-- Author :
-      SUBROUTINE EUFILL (N, EIN, XLF)
-*
-C.    ******************************************************************
-C.    *                                                                *
-C.    *    User routine to fill the input values of the commons :      *
-C.    *               /EROPTS/, /EROPTC/ and /ERTRIO/ for CHOPT = 'L'  *
-C.    *         N     Number of predictions where to store results     *
-C.    *         EIN   Input error matrix                               *
-C.    *         XLF   Defines the tracklengths which if passed the     *
-C.    *                      result should be stored                   *
-C.    *                                                                *
-C.    *                                                                *
-C.    *    ==>Called by : USER (before calling ERTRAK)                 *
-C.    *       Author    M.Maire, E.Nagy  *********                     *
-C.    *                                                                *
-C.    ******************************************************************
-C.
-#include "geant321/ertrio.inc"
-      DIMENSION EIN(15), XLF(N)
-*
-      NEPRED = MIN0 (N, MXPRED)
-*
-      CALL UCOPY (EIN(1), ERRIN(1),  15)
-      CALL UCOPY (XLF(1), ERLENG(1), NEPRED)
-*
-*                                                           END EUFILL
-  99  END