8a8f147fe2257e3a966533b6464a7623bb5c8670
[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hidata.F
1 * $Id$
2 C
3 C
4 C***************************************************************
5
6         BLOCK DATA HIDATA
7 #include "bveg1_hijing.inc"
8 #include "hiparnt.inc"
9 #include "himain1.inc"
10 #include "himain2.inc"
11 #include "histrng.inc"
12 #include "hijcrdn.inc"
13 #include "hijjet1.inc"
14 #include "hijjet2.inc"
15 #include "hijdat.inc"
16 #include "hipyint.inc"
17         DATA XL/10*0.D0/,XU/10*1.D0/
18         DATA NCALL/1000/ITMX/100/ACC/0.01/NPRN/0/
19 C...give all the switchs and parameters the default values
20         DATA HIPR1/
21      &  1.5,  0.35, 0.5,  0.9,  2.0,  0.1,  1.5,  2.0, -1.0, -2.25,
22      &  2.0,  0.5,  1.0,  2.0,  0.2,  2.0,  2.5,  0.3,  0.1,  1.4,
23      &  1.6,  1.0,  2.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.4,  57.0,
24      &  28.5, 3.9,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  
25      &  3.141592654,
26      &  0.0,  0.4,  0.1,  1.5,  0.1, 0.25, 0.0,  0.5,  0.0,  0.0,
27      &  50*0.0/
28
29         DATA IHPR2/
30      &  1,    3,    0,    1,    1,    1,    1,    10,    0,    0,
31      &  1,    1,    1,    1,    0,    0,    1,     0,    0,    1,
32      &  30*0/
33
34         DATA HINT1/100*0/
35         DATA IHNT2/50*0/
36
37 C...initialize all the data common blocks
38         DATA NATT/0/EATT/0.0/JATT/0/NT/0/NP/0/N0/0/N01/0/N10/0/N11/0/
39         DATA KATT/520000*0/PATT/520000*0.0/
40
41         DATA NFP/4500*0/PP/4500*0.0/NFT/4500*0/PT/4500*0.0/
42
43         DATA YP/900*0.0/YT/900*0.0/
44
45         DATA NPJ/300*0/KFPJ/150000*0/PJPX/150000*0.0/PJPY/150000*0.0/
46      &  PJPZ/150000*0.0/PJPE/150000*0.0/PJPM/150000*0.0/
47         DATA NTJ/300*0/KFTJ/150000*0/PJTX/150000*0.0/PJTY/150000*0.0/
48      &  PJTZ/150000*0.0/PJTE/150000*0.0/PJTM/150000*0.0/
49
50         DATA NSG/0/NJSG/900*0/IASG/2700*0/K1SG/90000*0/K2SG/90000*0/
51      &  PXSG/90000*0.0/PYSG/90000*0.0/PZSG/90000*0.0/PESG/90000*0.0/
52      &  PMSG/90000*0.0/
53         DATA MINT4/0/MINT5/0/ATCO/4000*0.0/ATXS/201*0.0/
54         DATA (HIDAT0(1,I),I=1,10)/0.0,0.0,0.0,0.0,0.0,0.0,2.25,
55      &          2.5,4.0,4.1/
56         DATA (HIDAT0(2,I),I=1,10)/2.0,3.0,5.0,6.0,7.0,8.0,8.0,10.0,
57      &          10.0,10.0/
58         DATA (HIDAT0(3,I),I=1,10)/1.0,0.8,0.8,0.7,0.45,0.215,
59      &          0.21,0.19,0.19,0.19/
60         DATA (HIDAT0(4,I),I=1,10)/0.35,0.35,0.3,0.3,0.3,0.3,
61      &          0.5,0.6,0.6,0.6/
62         DATA (HIDAT0(5,I),I=1,10)/23.8,24.0,26.0,26.2,27.0,28.5,28.5,
63      &          28.5,28.5,28.5/
64         DATA ((HIDAT0(J,I),I=1,10),J=6,9)/40*0.0/
65         DATA (HIDAT0(10,I),I=1,10)/5.0,20.0,53.0,62.0,100.0,200.0,
66      &          546.0,900.0,1800.0,4000.0/
67         DATA HIDAT/10*0.0/
68         END