]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1995/10/24 10:19:35 cernlib | |
6 | * Geant | |
7 | * | |
8 | * | |
9 | #include "geant321/pilot.h" | |
10 | *CMZ : 3.21/02 29/03/94 15.41.45 by S.Giani | |
11 | *-- Author : | |
12 | *$ CREATE BLKDT4.FOR | |
13 | *COPY BLKDT4 | |
14 | * | |
15 | *=== blkdt4 ===========================================================* | |
16 | *== * | |
17 | SUBROUTINE FLKDT4 | |
18 | ||
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) | |
27 | DIMENSION AMBMB1(75) | |
28 | DIMENSION IKCHX1(16), INNUR1(2,2,16) | |
29 | * | |
30 | * datas datas datas datas datas | |
31 | *------ ********* | |
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/ | |
38 | ||
39 | * | |
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 | |
43 | * | |
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 / | |
58 | * | |
59 | * /Hadflg/ | |
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 / | |
66 | * | |
67 | DO 10 J=1,17 | |
68 | IKII(J) = IKII1(J) | |
69 | IEII(J) = IEII1(J) | |
70 | IRII(J) = IRII1(J) | |
71 | 10 CONTINUE | |
72 | * | |
73 | DO 20 J=1,75 | |
74 | AMBMBB(J) = AMBMB1(J) | |
75 | 20 CONTINUE | |
76 | * | |
77 | DO 30 J=1,16 | |
78 | IKCHXG(J) = IKCHX1(J) | |
79 | 30 CONTINUE | |
80 | DO 60 J1=1,2 | |
81 | DO 50 J2=1,2 | |
82 | DO 40 J3=1,16 | |
83 | INNURE(J1,J2,J3) = INNUR1(J1,J2,J3) | |
84 | 40 CONTINUE | |
85 | 50 CONTINUE | |
86 | 60 CONTINUE | |
87 | IELFLG = IELFL1 | |
88 | ICXFLG = ICXFL1 | |
89 | IOLDHD = IOLDH1 | |
90 | *= end*block.blkdt4 * | |
91 | END |