-
Notifications
You must be signed in to change notification settings - Fork 3
/
hidata.F
69 lines (61 loc) · 2.28 KB
/
hidata.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
* $Id$
C
C
C***************************************************************
BLOCK DATA HIDATA
#include "bveg1_hijing.inc"
#include "hiparnt.inc"
#include "himain1.inc"
#include "himain2.inc"
#include "histrng.inc"
#include "hijcrdn.inc"
#include "hijjet1.inc"
#include "hijjet2.inc"
#include "hijdat.inc"
#include "hipyint.inc"
DATA XL/10*0.D0/,XU/10*1.D0/
DATA NCALL/100000/ITMX/10000/ACC/0.001/NPRN/1/
C...give all the switchs and parameters the default values
DATA HIPR1/
& 1.5, 0.35, 0.5, 0.9, 2.0, 0.1, 1.5, 2.0, -1.0, -2.25,
& 2.0, 0.5, 1.0, 2.0, 0.2, 2.0, 2.5, 0.3, 0.1, 1.4,
& 1.6, 1.0, 2.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.4, 57.0,
& 28.5, 3.9, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
& 3.141592654,
& 0.0, 0.4, 0.1, 1.5, 0.1, 0.25, 0.0, 0.5, 0.0, 0.0,
& 50*0.0/
DATA IHPR2/
& 1, 3, 0, 1, 1, 1, 1, 10, 0, 0,
& 1, 1, 1, 1, 0, 0, 1, 0, 0, 1,
& 30*0/
DATA HINT1/100*0/
DATA IHNT2/50*0/
C...initialize all the data common blocks
DATA NATT/0/EATT/0.0/JATT/0/NT/0/NP/0/N0/0/N01/0/N10/0/N11/0/
DATA KATT/800000*0/PATT/800000*0.0/
DATA VATT/800000*0/
DATA NFP/4500*0/PP/4500*0.0/NFT/4500*0/PT/4500*0.0/
DATA YP/900*0.0/YT/900*0.0/
DATA NPJ/300*0/KFPJ/150000*0/PJPX/150000*0.0/PJPY/150000*0.0/
& PJPZ/150000*0.0/PJPE/150000*0.0/PJPM/150000*0.0/
DATA NTJ/300*0/KFTJ/150000*0/PJTX/150000*0.0/PJTY/150000*0.0/
& PJTZ/150000*0.0/PJTE/150000*0.0/PJTM/150000*0.0/
DATA NSG/0/NJSG/900*0/IASG/2700*0/K1SG/90000*0/K2SG/90000*0/
& PXSG/90000*0.0/PYSG/90000*0.0/PZSG/90000*0.0/PESG/90000*0.0/
& PMSG/90000*0.0/
DATA MINT4/0/MINT5/0/ATCO/4000*0.0/ATXS/201*0.0/
DATA (HIDAT0(1,I),I=1,10)/0.0,0.0,0.0,0.0,0.0,0.0,2.25,
& 2.5,4.0,4.1/
DATA (HIDAT0(2,I),I=1,10)/2.0,3.0,5.0,6.0,7.0,8.0,8.0,10.0,
& 10.0,10.0/
DATA (HIDAT0(3,I),I=1,10)/1.0,0.8,0.8,0.7,0.45,0.215,
& 0.21,0.19,0.19,0.19/
DATA (HIDAT0(4,I),I=1,10)/0.35,0.35,0.3,0.3,0.3,0.3,
& 0.5,0.6,0.6,0.6/
DATA (HIDAT0(5,I),I=1,10)/23.8,24.0,26.0,26.2,27.0,28.5,28.5,
& 28.5,28.5,28.5/
DATA ((HIDAT0(J,I),I=1,10),J=6,9)/40*0.0/
DATA (HIDAT0(10,I),I=1,10)/5.0,20.0,53.0,62.0,100.0,200.0,
& 546.0,900.0,1800.0,4000.0/
DATA HIDAT/10*0.0/
END