COSMOS v7.655  COSMOSv7655
(AirShowerMC)
bert-bl1.f
Go to the documentation of this file.
1 !************************************************************************
2 !* *
3  block data bertbl1
4 !* *
5 !* Geometrical cross section (b) *
6 !* Bertini model data *
7 !* last modified by K.Niita on 08/02/2000 *
8 !* *
9 !************************************************************************
10 
11 !*-----------------------------------------------------------------------
12 
13  implicit real*8 (a-h,o-z)
14 
15  common /geosig/ geosig(250)
16 
17 !*-----------------------------------------------------------------------
18 
19  data geosig/
20  & 4.1854407d-01, 4.7798009d-01, 5.2368086d-01,
21  & 5.6227827d-01, 5.9633539d-01, 6.2716689d-01,
22  & 6.5555495d-01, 6.8200908d-01, 7.0688386d-01,
23  & 7.3043723d-01, 7.5286413d-01, 7.7431586d-01,
24  & 7.9491303d-01, 8.1475300d-01, 8.3391628d-01,
25  & 8.5247018d-01, 8.7047127d-01, 8.8796816d-01,
26  & 9.0500285d-01, 9.2161153d-01, 9.3782625d-01,
27  & 9.5367487d-01, 9.6918251d-01, 9.8437127d-01,
28  & 9.9926126d-01, 1.0138704d+00, 1.0282148d+00,
29  & 1.0423092d+00, 1.0561670d+00, 1.0698006d+00,
30  & 1.0832210d+00, 1.0964387d+00, 1.1094633d+00,
31  & 1.1223033d+00, 1.1349672d+00, 1.1474624d+00,
32  & 1.1597961d+00, 1.1719747d+00, 1.1840042d+00,
33  & 1.1958907d+00, 1.2076394d+00, 1.2192555d+00,
34  & 1.2307434d+00, 1.2421079d+00, 1.2533531d+00,
35  & 1.2644830d+00, 1.2755015d+00, 1.2864120d+00,
36  & 1.2972179d+00, 1.3079224d+00, 1.3185288d+00,
37  & 1.3290396d+00, 1.3394579d+00, 1.3497859d+00,
38  & 1.3600267d+00, 1.3701823d+00, 1.3802551d+00,
39  & 1.3902471d+00, 1.4001606d+00, 1.4099977d+00,
40  & 1.4197600d+00, 1.4294494d+00, 1.4390680d+00,
41  & 1.4486171d+00, 1.4580985d+00, 1.4675139d+00,
42  & 1.4768643d+00, 1.4861517d+00, 1.4953775d+00,
43  & 1.5045425d+00, 1.5136484d+00, 1.5226966d+00,
44  & 1.5316881d+00, 1.5406239d+00, 1.5495052d+00,
45  & 1.5583334d+00, 1.5671092d+00, 1.5758336d+00,
46  & 1.5845081d+00, 1.5931330d+00, 1.6017097d+00,
47  & 1.6102386d+00, 1.6187210d+00, 1.6271578d+00,
48  & 1.6355494d+00, 1.6438968d+00, 1.6522010d+00,
49  & 1.6604625d+00, 1.6686820d+00, 1.6768601d+00,
50  & 1.6849978d+00, 1.6930957d+00, 1.7011543d+00,
51  & 1.7091743d+00, 1.7171563d+00, 1.7251010d+00,
52  & 1.7330088d+00, 1.7408803d+00, 1.7487163d+00,
53  & 1.7565172d+00, 1.7642833d+00, 1.7720152d+00,
54  & 1.7797137d+00, 1.7873791d+00, 1.7950118d+00,
55  & 1.8026122d+00, 1.8101808d+00, 1.8177184d+00,
56  & 1.8252250d+00, 1.8327012d+00, 1.8401474d+00,
57  & 1.8475639d+00, 1.8549514d+00, 1.8623099d+00,
58  & 1.8696401d+00, 1.8769420d+00, 1.8842162d+00,
59  & 1.8914631d+00, 1.8986830d+00, 1.9058761d+00,
60  & 1.9130432d+00, 1.9201838d+00, 1.9272990d+00,
61  & 1.9343886d+00, 1.9414532d+00, 1.9484932d+00,
62  & 1.9555085d+00, 1.9624996d+00, 1.9694667d+00,
63  & 1.9764102d+00, 1.9833305d+00, 1.9902276d+00,
64  & 1.9971015d+00, 2.0039531d+00, 2.0107825d+00,
65  & 2.0175896d+00, 2.0243748d+00, 2.0311383d+00,
66  & 2.0378807d+00, 2.0446016d+00, 2.0513019d+00,
67  & 2.0579814d+00, 2.0646400d+00, 2.0712787d+00,
68  & 2.0778974d+00, 2.0844960d+00, 2.0910751d+00,
69  & 2.0976345d+00, 2.1041749d+00, 2.1106962d+00,
70  & 2.1171985d+00, 2.1236819d+00, 2.1301469d+00,
71  & 2.1365937d+00, 2.1430223d+00, 2.1494327d+00,
72  & 2.1558256d+00, 2.1622007d+00, 2.1685584d+00,
73  & 2.1748987d+00, 2.1812217d+00, 2.1875281d+00,
74  & 2.1938171d+00, 2.2000898d+00, 2.2063457d+00,
75  & 2.2125853d+00, 2.2188089d+00, 2.2250163d+00,
76  & 2.2312076d+00, 2.2373832d+00, 2.2435427d+00,
77  & 2.2496872d+00, 2.2558160d+00, 2.2619296d+00,
78  & 2.2680279d+00, 2.2741112d+00, 2.2801798d+00,
79  & 2.2862336d+00, 2.2922726d+00, 2.2982972d+00,
80  & 2.3043075d+00, 2.3103035d+00, 2.3162850d+00,
81  & 2.3222526d+00, 2.3282062d+00, 2.3341462d+00,
82  & 2.3400724d+00, 2.3459849d+00, 2.3518839d+00,
83  & 2.3577696d+00, 2.3636418d+00, 2.3695008d+00,
84  & 2.3753470d+00, 2.3811799d+00, 2.3870000d+00,
85  & 2.3928074d+00, 2.3986021d+00, 2.4043843d+00,
86  & 2.4101536d+00, 2.4159108d+00, 2.4216557d+00,
87  & 2.4273882d+00, 2.4331087d+00, 2.4388170d+00,
88  & 2.4445133d+00, 2.4501979d+00, 2.4558708d+00,
89  & 2.4615315d+00, 2.4671810d+00, 2.4728187d+00,
90  & 2.4784451d+00, 2.4840603d+00, 2.4896637d+00,
91  & 2.4952563d+00, 2.5008376d+00, 2.5064078d+00,
92  & 2.5119669d+00, 2.5175153d+00, 2.5230528d+00,
93  & 2.5285795d+00, 2.5340955d+00, 2.5396009d+00,
94  & 2.5450954d+00, 2.5505799d+00, 2.5560538d+00,
95  & 2.5615172d+00, 2.5669704d+00, 2.5724137d+00,
96  & 2.5778464d+00, 2.5832694d+00, 2.5886820d+00,
97  & 2.5940848d+00, 2.5994775d+00, 2.6048590d+00,
98  & 2.6102361d+00, 2.6155988d+00, 2.6209522d+00,
99  & 2.6262960d+00, 2.6316304d+00, 2.6394273d+00,
100  & 2.6469205d+00, 2.6544194d+00, 2.6613570d+00,
101  & 2.6688813d+00, 2.6758327d+00, 2.6833774d+00,
102  & 2.6909327d+00, 2.6979128d+00, 2.7054885d+00,
103  & 2.7124925d+00/
104 
105 !*-----------------------------------------------------------------------
106 
107  end block data
108 
109 
z
nodes z
Definition: cstdatmos0.fNew2.h:93
o
struct ob o[NpMax]
Definition: Zprivate.h:34
d
dE dx *! Nuc Int sampling table d
Definition: cblkMuInt.h:130
a
nodes a
Definition: cstdatmos0.fNew2.h:93
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130