5 * Revision 1.1.1.1 1995/10/24 10:19:35 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.45 by S.Giani
15 *=== blkdt4 ===========================================================*
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *----- Block Data without names
23 #include "geant321/hadflg.inc"
24 #include "geant321/redver.inc"
25 COMMON / FKSLOP / AMBMBB(75)
26 DIMENSION IKII1(17), IEII1(17), IRII1(17)
28 DIMENSION IKCHX1(16), INNUR1(2,2,16)
30 * datas datas datas datas datas
32 DATA IKII1/ 0, 15, 41, 67, 82, 93, 110, 133, 148, 159, 172, 183,
33 & 207, 224, 241, 252, 268 /
34 DATA IEII1/ 0, 21, 46, 71, 92, 109, 126, 143, 160, 173, 186, 199,
35 & 220, 241, 262, 279, 296 /
36 DATA IRII1/ 0,315, 965, 1615, 1930, 2117, 2406, 2797, 3052, 3195,
37 & 3364, 3507, 4011, 4368, 4725, 4912, 5184/
40 * Masses for the slope B(M) in GeV
41 * Slope B(M) for an mesonic system
42 * Slope B(M) for a baryonic system
44 DATA AMBMB1/ 0.8D0, 0.85D0, 0.9D0, 0.95D0, 1.D0,
45 & 1.05D0, 1.1D0, 1.15D0, 1.2D0, 1.25D0,
46 & 1.3D0, 1.35D0, 1.4D0, 1.45D0, 1.5D0,
47 & 1.55D0, 1.6D0, 1.65D0, 1.7D0, 1.75D0,
48 & 1.8D0, 1.85D0, 1.9D0, 1.95D0, 2.D0,
49 & 15.6D0, 14.95D0, 14.3D0, 13.65D0, 13.D0,
50 & 12.35D0, 11.7D0, 10.85D0, 10.D0, 9.15D0,
51 & 8.3D0, 7.8D0, 7.3D0, 7.25D0, 7.2D0,
52 & 6.95D0, 6.7D0, 6.6D0, 6.5D0, 6.3D0,
53 & 6.1D0, 5.85D0, 5.6D0, 5.35D0, 5.1D0,
54 & 15.D0, 15.D0, 15.D0, 15.D0, 15.D0, 15.D0, 15.D0,
55 & 14.2D0, 13.4D0, 12.6D0,
56 & 11.8D0, 11.2D0, 10.6D0, 9.8D0, 9.D0,
57 & 8.25D0, 7.5D0, 6.25D0, 5.D0, 4.5D0, 5*4.D0 /
60 DATA IELFL1, ICXFL1, IOLDH1 / 3*0 /
61 DATA IKCHX1 / 0, 2, 2, 0, 0, 2, 2, 0, 0, 0, 0, 4, 0, 0, 0, 0 /
62 DATA INNUR1 / 13, 1, 2*0, 14, 8, 23, 1, 14, 1, 23, 8, 14, 8, 2*0,
63 & 15, 1, 2*0, 15, 8, 24, 1, 16, 1, 25, 8, 16, 8, 2*0,
64 & 1, 1, 2*0, 1, 8, 8, 1, 8, 8, 2*0, 2, 1, 9, 8,
65 & 2, 8, 2*0, 9, 1, 2*0, 24, 8, 2*0, 25, 1, 2*0 /
83 INNURE(J1,J2,J3) = INNUR1(J1,J2,J3)