Some function moved to AliZDC
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / eufill.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 15:37:35 mclareni
6* Add geane321 source directories
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.49 by S.Giani
11*-- Author :
12 SUBROUTINE EUFILL (N, EIN, XLF)
13*
14C. ******************************************************************
15C. * *
16C. * User routine to fill the input values of the commons : *
17C. * /EROPTS/, /EROPTC/ and /ERTRIO/ for CHOPT = 'L' *
18C. * N Number of predictions where to store results *
19C. * EIN Input error matrix *
20C. * XLF Defines the tracklengths which if passed the *
21C. * result should be stored *
22C. * *
23C. * *
24C. * ==>Called by : USER (before calling ERTRAK) *
25C. * Author M.Maire, E.Nagy ********* *
26C. * *
27C. ******************************************************************
28C.
29#include "geant321/ertrio.inc"
30 DIMENSION EIN(15), XLF(N)
31*
32 NEPRED = MIN0 (N, MXPRED)
33*
34 CALL UCOPY (EIN(1), ERRIN(1), 15)
35 CALL UCOPY (XLF(1), ERLENG(1), NEPRED)
36*
37* END EUFILL
38 99 END