]>
Commit | Line | Data |
---|---|---|
e74335a4 | 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/ | |
e1dec796 | 39 | DATA KATT/800000*0/PATT/800000*0.0/ |
2818cab6 | 40 | DATA VATT/800000*0/ |
e74335a4 | 41 | |
42 | DATA NFP/4500*0/PP/4500*0.0/NFT/4500*0/PT/4500*0.0/ | |
43 | ||
44 | DATA YP/900*0.0/YT/900*0.0/ | |
45 | ||
46 | DATA NPJ/300*0/KFPJ/150000*0/PJPX/150000*0.0/PJPY/150000*0.0/ | |
47 | & PJPZ/150000*0.0/PJPE/150000*0.0/PJPM/150000*0.0/ | |
48 | DATA NTJ/300*0/KFTJ/150000*0/PJTX/150000*0.0/PJTY/150000*0.0/ | |
49 | & PJTZ/150000*0.0/PJTE/150000*0.0/PJTM/150000*0.0/ | |
50 | ||
51 | DATA NSG/0/NJSG/900*0/IASG/2700*0/K1SG/90000*0/K2SG/90000*0/ | |
52 | & PXSG/90000*0.0/PYSG/90000*0.0/PZSG/90000*0.0/PESG/90000*0.0/ | |
53 | & PMSG/90000*0.0/ | |
54 | DATA MINT4/0/MINT5/0/ATCO/4000*0.0/ATXS/201*0.0/ | |
55 | DATA (HIDAT0(1,I),I=1,10)/0.0,0.0,0.0,0.0,0.0,0.0,2.25, | |
56 | & 2.5,4.0,4.1/ | |
57 | DATA (HIDAT0(2,I),I=1,10)/2.0,3.0,5.0,6.0,7.0,8.0,8.0,10.0, | |
58 | & 10.0,10.0/ | |
59 | DATA (HIDAT0(3,I),I=1,10)/1.0,0.8,0.8,0.7,0.45,0.215, | |
60 | & 0.21,0.19,0.19,0.19/ | |
61 | DATA (HIDAT0(4,I),I=1,10)/0.35,0.35,0.3,0.3,0.3,0.3, | |
62 | & 0.5,0.6,0.6,0.6/ | |
63 | DATA (HIDAT0(5,I),I=1,10)/23.8,24.0,26.0,26.2,27.0,28.5,28.5, | |
64 | & 28.5,28.5,28.5/ | |
65 | DATA ((HIDAT0(J,I),I=1,10),J=6,9)/40*0.0/ | |
66 | DATA (HIDAT0(10,I),I=1,10)/5.0,20.0,53.0,62.0,100.0,200.0, | |
67 | & 546.0,900.0,1800.0,4000.0/ | |
68 | DATA HIDAT/10*0.0/ | |
69 | END |