-
Notifications
You must be signed in to change notification settings - Fork 18
/
Copy pathflkdt4.F
97 lines (95 loc) · 3.08 KB
/
flkdt4.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
*
* $Id$
*
* $Log: flkdt4.F,v $
* Revision 1.1.1.1 2002/06/16 15:17:52 hristov
* Separate distribution of Geant3
*
* Revision 1.1.1.1 1999/05/18 15:55:04 fca
* AliRoot sources
*
* Revision 1.1.1.1 1995/10/24 10:19:35 cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ : 3.21/02 29/03/94 15.41.45 by S.Giani
*-- Author :
*$ CREATE BLKDT4.FOR
*COPY BLKDT4
*
*=== blkdt4 ===========================================================*
*== *
SUBROUTINE FLKDT4
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
*----- Block Data without names
#include "geant321/hadflg.inc"
#include "geant321/redver.inc"
COMMON / FKSLOP / AMBMBB(75)
DIMENSION IKII1(17), IEII1(17), IRII1(17)
DIMENSION AMBMB1(75)
DIMENSION IKCHX1(16), INNUR1(2,2,16)
*
* datas datas datas datas datas
*------ *********
DATA IKII1/ 0, 15, 41, 67, 82, 93, 110, 133, 148, 159, 172, 183,
& 207, 224, 241, 252, 268 /
DATA IEII1/ 0, 21, 46, 71, 92, 109, 126, 143, 160, 173, 186, 199,
& 220, 241, 262, 279, 296 /
DATA IRII1/ 0,315, 965, 1615, 1930, 2117, 2406, 2797, 3052, 3195,
& 3364, 3507, 4011, 4368, 4725, 4912, 5184/
*
* Masses for the slope B(M) in GeV
* Slope B(M) for an mesonic system
* Slope B(M) for a baryonic system
*
DATA AMBMB1/ 0.8D0, 0.85D0, 0.9D0, 0.95D0, 1.D0,
& 1.05D0, 1.1D0, 1.15D0, 1.2D0, 1.25D0,
& 1.3D0, 1.35D0, 1.4D0, 1.45D0, 1.5D0,
& 1.55D0, 1.6D0, 1.65D0, 1.7D0, 1.75D0,
& 1.8D0, 1.85D0, 1.9D0, 1.95D0, 2.D0,
& 15.6D0, 14.95D0, 14.3D0, 13.65D0, 13.D0,
& 12.35D0, 11.7D0, 10.85D0, 10.D0, 9.15D0,
& 8.3D0, 7.8D0, 7.3D0, 7.25D0, 7.2D0,
& 6.95D0, 6.7D0, 6.6D0, 6.5D0, 6.3D0,
& 6.1D0, 5.85D0, 5.6D0, 5.35D0, 5.1D0,
& 15.D0, 15.D0, 15.D0, 15.D0, 15.D0, 15.D0, 15.D0,
& 14.2D0, 13.4D0, 12.6D0,
& 11.8D0, 11.2D0, 10.6D0, 9.8D0, 9.D0,
& 8.25D0, 7.5D0, 6.25D0, 5.D0, 4.5D0, 5*4.D0 /
*
* /Hadflg/
DATA IELFL1, ICXFL1, IOLDH1 / 3*0 /
DATA IKCHX1 / 0, 2, 2, 0, 0, 2, 2, 0, 0, 0, 0, 4, 0, 0, 0, 0 /
DATA INNUR1 / 13, 1, 2*0, 14, 8, 23, 1, 14, 1, 23, 8, 14, 8, 2*0,
& 15, 1, 2*0, 15, 8, 24, 1, 16, 1, 25, 8, 16, 8, 2*0,
& 1, 1, 2*0, 1, 8, 8, 1, 8, 8, 2*0, 2, 1, 9, 8,
& 2, 8, 2*0, 9, 1, 2*0, 24, 8, 2*0, 25, 1, 2*0 /
*
DO 10 J=1,17
IKII(J) = IKII1(J)
IEII(J) = IEII1(J)
IRII(J) = IRII1(J)
10 CONTINUE
*
DO 20 J=1,75
AMBMBB(J) = AMBMB1(J)
20 CONTINUE
*
DO 30 J=1,16
IKCHXG(J) = IKCHX1(J)
30 CONTINUE
DO 60 J1=1,2
DO 50 J2=1,2
DO 40 J3=1,16
INNURE(J1,J2,J3) = INNUR1(J1,J2,J3)
40 CONTINUE
50 CONTINUE
60 CONTINUE
IELFLG = IELFL1
ICXFLG = ICXFL1
IOLDHD = IOLDH1
*= end*block.blkdt4 *
END