Some function moved to AliZDC
[u/mrichter/AliRoot.git] / GEANT321 / erdecks / eufilv.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 EUFILV (N, EIN, CNAMV, NUMV, IOVL)
13*
14C. ******************************************************************
15C. * *
16C. * User routine to fill the input values of the commons : *
17C. * /EROPTS/, /EROPTC/ and /ERTRIO/ for CHOPT = 'V' *
18C. * N Number of predictions where to store results *
19C. * EIN Input error matrix *
20C. * CNAMV Volume name of the prediction *
21C. * NUMV Volume number (if 0 = all volumes) *
22C. * IOVL = 1 prediction when entering in the volume *
23C. * = 2 prediction when leaving the volume *
24C. * *
25C. * ==>Called by : USER (before calling ERTRAK) *
26C. * Author M.Maire, E.Nagy ********* *
27C. * *
28C. ******************************************************************
29C.
30#include "geant321/ertrio.inc"
31 DIMENSION EIN(15), NUMV(N), IOVL(N)
32 CHARACTER * 4 CNAMV(N)
33*
34 NEPRED = MIN0 (N, MXPRED)
35*
36 CALL UCOPY (EIN(1), ERRIN(1), 15)
37 DO I=1,NEPRED
38 CALL UCTOH (CNAMV(I),NAMEER(I),4,4)
39 ENDDO
40 CALL UCOPY (NUMV(1),NUMVER(1),NEPRED)
41 CALL UCOPY (IOVL(1),IOVLER(1),NEPRED)
42*
43* END EUFILV
44 99 END