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