5 * Revision 1.1.1.1 1999/05/18 15:55:20 fca
8 * Revision 1.1.1.1 1995/10/24 10:21:18 cernlib
12 #include "geant321/pilot.h"
13 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
17 C. ******************************************************************
19 C. * GEANT INTERFACE TO THE LUND MONTE-CARLO *
21 C. * FOR TECHNICAL DETAILS OF THE LUND MONTE CARLO,SEE *
22 C. * 1. THE LUND MONTE CARLO FOR JET FRAGMENTATION - T.SJOSTRAND *
23 C. * LU TP 82-3 and COMPUTER PHYSICS COMMUNICATION 27(1982)243 *
24 C. * 2. THE LUND MONTE CARLO FOR E+E- JET PHYSICS - T.SJOSTRAND *
25 C. * LU TP 82-7 and COMPUTER PHYSICS COMMUNICATION 28(1983)229 *
27 C. * The parameters to use the LUND interface are set in GLUNDI *
28 C. * They can be changed by data cards (see GLUNDI) *
30 C. * ==>Called by : <USER>, GUKINE *
31 C. * Author R.Hemingway ********* *
32 C. * modified by R.Brun 18/11/85 ** *
34 C. ******************************************************************
37 #include "geant321/gcbank.inc"
38 #include "geant321/gcflag.inc"
39 #include "geant321/gcpush.inc"
40 #include "geant321/lujets.inc"
41 #include "geant321/gclund.inc"
43 DIMENSION IPLUND(NSEL)
47 + 22, -11, 11, 12, -13, 13, 111, 211,
48 + -211, 130, 321, -321, 2112, 2212, -2212, 310,
49 + 221, 3122, 3222, 3212, 3112, 3322, 3312, 3334,
50 + -2112, -3122, -3112, -3212, -3222, -3322, -3312, -3334,
51 + -15, 15, 411, -411, 421, -421, 431, -431,
54 *. ------------------------------------------------------------------
56 IF (IFINIT(3).EQ.0) CALL GLUNDI
58 CALL PYEEVT(IFLUND,ECLUND)
71 CALL GSVERT(V,0,0,BUF,NWBUF,NVTX)
74 IF(K(I,1).GE.1.AND.K(I,1).LE.10) THEN
76 IF(IPLUND(IGE).EQ.K(I,2)) THEN
80 CALL GSKINE(PGEANT,IGE,NVTX,BUF,0,NT)
92 * Copy the LUND record into a bank of real variables.
95 Q(JUV+2 +NP) = K(NP,1)
96 Q(JUV+2+ N+NP) = K(NP,2)
97 Q(JUV+2+2*N+NP) = K(NP,3)
98 Q(JUV+2+3*N+NP) = K(NP,4)
99 Q(JUV+2+4*N+NP) = K(NP,5)
100 Q(JUV+2+5*N+NP) = P(NP,1)
101 Q(JUV+2+6*N+NP) = P(NP,2)
102 Q(JUV+2+7*N+NP) = P(NP,3)
103 Q(JUV+2+8*N+NP) = P(NP,4)
104 Q(JUV+2+9*N+NP) = P(NP,5)