5 * Revision 1.1.1.1 1996/03/06 15:37:35 mclareni
6 * Add geane321 source directories
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.49 by S.Giani
12 SUBROUTINE EUFILL (N, EIN, XLF)
14 C. ******************************************************************
16 C. * User routine to fill the input values of the commons : *
17 C. * /EROPTS/, /EROPTC/ and /ERTRIO/ for CHOPT = 'L' *
18 C. * N Number of predictions where to store results *
19 C. * EIN Input error matrix *
20 C. * XLF Defines the tracklengths which if passed the *
21 C. * result should be stored *
24 C. * ==>Called by : USER (before calling ERTRAK) *
25 C. * Author M.Maire, E.Nagy ********* *
27 C. ******************************************************************
29 #include "geant321/ertrio.inc"
30 DIMENSION EIN(15), XLF(N)
32 NEPRED = MIN0 (N, MXPRED)
34 CALL UCOPY (EIN(1), ERRIN(1), 15)
35 CALL UCOPY (XLF(1), ERLENG(1), NEPRED)