COSMOS v7.655  COSMOSv7655
(AirShowerMC)
cblkMuInt.h
Go to the documentation of this file.
1  block data cblkMuInt
2  integer i
3 #include "Zcmuint.h"
4 
5 ! Pair total X-sec.
6  data ( MuPrTX(i), i= 1, 38)/
7  1 0.431132E-02, 0.473175E-02, 0.514887E-02, 0.556010E-02,
8  2 0.596286E-02, 0.635461E-02, 0.673285E-02, 0.709522E-02,
9  3 0.743955E-02, 0.776396E-02, 0.806695E-02, 0.834742E-02,
10  4 0.860479E-02, 0.883891E-02, 0.905012E-02, 0.923915E-02,
11  5 0.940706E-02, 0.955517E-02, 0.968498E-02, 0.979806E-02,
12  6 0.989601E-02, 0.998043E-02, 0.100528E-01, 0.101146E-01,
13  7 0.101672E-01, 0.102116E-01, 0.102491E-01, 0.102805E-01,
14  8 0.103068E-01, 0.103286E-01, 0.103467E-01, 0.103616E-01,
15  9 0.103739E-01, 0.103839E-01, 0.103920E-01, 0.103987E-01,
16  a 0.104040E-01, 0.104083E-01
17  * /
18 
19 ! Pair dE/dx(v<vmin)/E /(g/cm2)
20  data ( MuPrdEdx0(i), i= 1, 38)/
21  1 0.415696E-07, 0.508098E-07, 0.606769E-07, 0.710744E-07,
22  2 0.819072E-07, 0.930817E-07, 0.104506E-06, 0.116091E-06,
23  3 0.127747E-06, 0.139387E-06, 0.150927E-06, 0.162285E-06,
24  4 0.173381E-06, 0.184145E-06, 0.194509E-06, 0.204417E-06,
25  5 0.213820E-06, 0.222682E-06, 0.230976E-06, 0.238687E-06,
26  6 0.245811E-06, 0.252353E-06, 0.258325E-06, 0.263746E-06,
27  7 0.268643E-06, 0.273044E-06, 0.276982E-06, 0.280489E-06,
28  8 0.283600E-06, 0.286349E-06, 0.288768E-06, 0.290890E-06,
29  9 0.292744E-06, 0.294359E-06, 0.295761E-06, 0.296974E-06,
30  a 0.298020E-06, 0.298920E-06
31  * /
32 !
33 ! Pair; dE/dx/E (v<all) /(g/cm2)
34  data ( MuPrdEdxt(i), i= 1, 38)/
35  1 0.664623E-06, 0.725450E-06, 0.786305E-06, 0.846786E-06,
36  2 0.906509E-06, 0.965081E-06, 0.102213E-05, 0.107730E-05,
37  3 0.113026E-05, 0.118071E-05, 0.122843E-05, 0.127320E-05,
38  4 0.131491E-05, 0.135348E-05, 0.138889E-05, 0.142119E-05,
39  5 0.145044E-05, 0.147678E-05, 0.150034E-05, 0.152131E-05,
40  6 0.153987E-05, 0.155620E-05, 0.157052E-05, 0.158301E-05,
41  7 0.159386E-05, 0.160325E-05, 0.161134E-05, 0.161830E-05,
42  8 0.162426E-05, 0.162936E-05, 0.163370E-05, 0.163739E-05,
43  9 0.164053E-05, 0.164318E-05, 0.164542E-05, 0.164731E-05,
44  a 0.164890E-05, 0.165023E-05
45  * /
46 !
47 !
48 ! Brem; Total X-sec
49  data ( MuBrTX(i), i= 1, 36)/
50  1 0.348421E-03, 0.353857E-03, 0.358933E-03, 0.363712E-03,
51  2 0.368194E-03, 0.372385E-03, 0.376290E-03, 0.379917E-03,
52  3 0.383272E-03, 0.386366E-03, 0.389207E-03, 0.391806E-03,
53  4 0.394175E-03, 0.396325E-03, 0.398269E-03, 0.400021E-03,
54  5 0.401591E-03, 0.402995E-03, 0.404244E-03, 0.405351E-03,
55  6 0.406329E-03, 0.407189E-03, 0.407942E-03, 0.408600E-03,
56  7 0.409173E-03, 0.409669E-03, 0.410098E-03, 0.410467E-03,
57  8 0.410784E-03, 0.411055E-03, 0.411286E-03, 0.411483E-03,
58  9 0.411650E-03, 0.411791E-03, 0.411910E-03, 0.412010E-03
59  * /
60 
61 ! Brem: dE/dx/E (v<vmin) /(g/cm2)
62  data ( MuBrdEdx0(i), i= 1, 36)/
63  1 0.178842E-08, 0.178961E-08, 0.179057E-08, 0.179133E-08,
64  2 0.179194E-08, 0.179242E-08, 0.179281E-08, 0.179312E-08,
65  3 0.179336E-08, 0.179356E-08, 0.179371E-08, 0.179384E-08,
66  4 0.179393E-08, 0.179401E-08, 0.179407E-08, 0.179412E-08,
67  5 0.179416E-08, 0.179419E-08, 0.179422E-08, 0.179424E-08,
68  6 0.179425E-08, 0.179426E-08, 0.179428E-08, 0.179428E-08,
69  7 0.179429E-08, 0.179429E-08, 0.179430E-08, 0.179430E-08,
70  8 0.179430E-08, 0.179431E-08, 0.179431E-08, 0.179431E-08,
71  9 0.179431E-08, 0.179431E-08, 0.179431E-08, 0.179431E-08
72  * /
73 
74 ! Brem: dE/dx/E(v<all) /(g/cm2)
75  data ( MuBrdEdxt(i), i= 1, 36)/
76  1 0.785146E-06, 0.816296E-06, 0.845259E-06, 0.873845E-06,
77  2 0.901994E-06, 0.929644E-06, 0.956731E-06, 0.983189E-06,
78  3 0.100895E-05, 0.103394E-05, 0.105811E-05, 0.108137E-05,
79  4 0.110368E-05, 0.112497E-05, 0.114520E-05, 0.116433E-05,
80  5 0.118231E-05, 0.119914E-05, 0.121480E-05, 0.122929E-05,
81  6 0.124263E-05, 0.125484E-05, 0.126595E-05, 0.127601E-05,
82  7 0.128506E-05, 0.129317E-05, 0.130038E-05, 0.130677E-05,
83  8 0.131240E-05, 0.131734E-05, 0.132165E-05, 0.132540E-05,
84  9 0.132864E-05, 0.133143E-05, 0.133383E-05, 0.133588E-05
85  * /
86 
87 ! Nuc.Int Total X-sec
88  data ( MuNTX(i), i= 1, 34)/
89  1 0.131090E-03, 0.144395E-03, 0.158387E-03, 0.172382E-03,
90  2 0.187685E-03, 0.202425E-03, 0.218363E-03, 0.234279E-03,
91  3 0.251198E-03, 0.268982E-03, 0.286553E-03, 0.305978E-03,
92  4 0.324348E-03, 0.335809E-03, 0.325788E-03, 0.318789E-03,
93  5 0.316786E-03, 0.314891E-03, 0.313318E-03, 0.312124E-03,
94  6 0.311322E-03, 0.310982E-03, 0.311065E-03, 0.311680E-03,
95  7 0.312847E-03, 0.314774E-03, 0.317242E-03, 0.319977E-03,
96  8 0.323055E-03, 0.326491E-03, 0.330301E-03, 0.334529E-03,
97  9 0.339117E-03, 0.343873E-03
98  * /
99 
100 ! Nuc.Int. dE/dx/E (v<vmin) /(g/cm2)
101  data ( MuNdEdx0(i), i= 1, 34)/
102  1 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00,
103  2 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00,
104  3 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00,
105  4 0.000000E+00, 0.220165E-09, 0.915062E-09, 0.139798E-08,
106  5 0.167378E-08, 0.189541E-08, 0.207196E-08, 0.220734E-08,
107  6 0.230651E-08, 0.238182E-08, 0.243526E-08, 0.247029E-08,
108  7 0.248771E-08, 0.248822E-08, 0.248032E-08, 0.247220E-08,
109  8 0.246348E-08, 0.245385E-08, 0.244290E-08, 0.242993E-08,
110  9 0.241769E-08, 0.241067E-08
111  * /
112 
113 ! Nuc.Int; dE/dx/E /(g/cm2)
114  data ( MuNdEdxt(i), i= 1, 34)/
115  1 0.402333E-06, 0.402855E-06, 0.402707E-06, 0.402319E-06,
116  2 0.401983E-06, 0.401883E-06, 0.402184E-06, 0.403040E-06,
117  3 0.404575E-06, 0.406782E-06, 0.409625E-06, 0.413063E-06,
118  4 0.417039E-06, 0.421500E-06, 0.426368E-06, 0.431588E-06,
119  5 0.437116E-06, 0.442897E-06, 0.448886E-06, 0.455043E-06,
120  6 0.461337E-06, 0.467737E-06, 0.474219E-06, 0.480764E-06,
121  7 0.487353E-06, 0.493973E-06, 0.500611E-06, 0.507257E-06,
122  8 0.513904E-06, 0.520544E-06, 0.527173E-06, 0.533785E-06,
123  9 0.540378E-06, 0.546948E-06
124  * /
125 
126 !
127 ! Nuc. Int. sampling table.
128 !
129  data ( MuNTbl(i, 1), i= 1, 68)/
130  1 -0.172472E+01,-0.145269E+01,-0.125199E+01,-0.111430E+01,
131  2 -0.101163E+01,-0.930870E+00,-0.865230E+00,-0.810390E+00,
132  3 -0.763540E+00,-0.722800E+00,-0.686860E+00,-0.654790E+00,
133  4 -0.625860E+00,-0.599560E+00,-0.575470E+00,-0.553250E+00,
134  5 -0.532640E+00,-0.513430E+00,-0.495450E+00,-0.478620E+00,
135  6 -0.462850E+00,-0.448010E+00,-0.434010E+00,-0.420760E+00,
136  7 -0.408200E+00,-0.396260E+00,-0.384890E+00,-0.374040E+00,
137  8 -0.363660E+00,-0.353720E+00,-0.344190E+00,-0.335030E+00,
138  9 -0.326220E+00,-0.317730E+00,-0.309550E+00,-0.301640E+00,
139  a -0.294000E+00,-0.286610E+00,-0.279440E+00,-0.272500E+00,
140  b -0.265760E+00,-0.259210E+00,-0.252850E+00,-0.246650E+00,
141  c -0.240630E+00,-0.234750E+00,-0.229020E+00,-0.223430E+00,
142  d -0.217980E+00,-0.212650E+00,-0.207430E+00,-0.202330E+00,
143  e -0.197340E+00,-0.192450E+00,-0.187660E+00,-0.182970E+00,
144  f -0.178360E+00,-0.173830E+00,-0.169390E+00,-0.165030E+00,
145  g -0.160740E+00,-0.156510E+00,-0.152360E+00,-0.148270E+00,
146  h -0.144240E+00,-0.140260E+00,-0.136350E+00,-0.132480E+00
147  * /
148  data ( MuNTbl(i, 1), i= 69, 101)/
149  1 -0.128660E+00,-0.124890E+00,-0.121160E+00,-0.117480E+00,
150  2 -0.113830E+00,-0.110220E+00,-0.106640E+00,-0.103090E+00,
151  3 -0.995700E-01,-0.960700E-01,-0.926000E-01,-0.891400E-01,
152  4 -0.857000E-01,-0.822700E-01,-0.788500E-01,-0.754400E-01,
153  5 -0.720200E-01,-0.686100E-01,-0.651800E-01,-0.617300E-01,
154  6 -0.582600E-01,-0.547600E-01,-0.512200E-01,-0.476200E-01,
155  7 -0.439500E-01,-0.401800E-01,-0.363100E-01,-0.321800E-01,
156  8 -0.279000E-01,-0.225300E-01,-0.167700E-01,-0.132000E-01,
157  9 -0.113000E-02
158  * /
159  data ( MuNTbl(i, 2), i= 1, 68)/
160  1 -0.192472E+01,-0.161718E+01,-0.139522E+01,-0.124252E+01,
161  2 -0.112845E+01,-0.103907E+01,-0.966380E+00,-0.905490E+00,
162  3 -0.853330E+00,-0.807830E+00,-0.767530E+00,-0.731410E+00,
163  4 -0.698690E+00,-0.668970E+00,-0.641900E+00,-0.617080E+00,
164  5 -0.594210E+00,-0.573010E+00,-0.553280E+00,-0.534850E+00,
165  6 -0.517560E+00,-0.501300E+00,-0.485950E+00,-0.471420E+00,
166  7 -0.457640E+00,-0.444530E+00,-0.432040E+00,-0.420110E+00,
167  8 -0.408700E+00,-0.397770E+00,-0.387270E+00,-0.377180E+00,
168  9 -0.367470E+00,-0.358110E+00,-0.349070E+00,-0.340340E+00,
169  a -0.331890E+00,-0.323710E+00,-0.315770E+00,-0.308080E+00,
170  b -0.300600E+00,-0.293330E+00,-0.286260E+00,-0.279370E+00,
171  c -0.272660E+00,-0.266120E+00,-0.259730E+00,-0.253490E+00,
172  d -0.247400E+00,-0.241430E+00,-0.235600E+00,-0.229890E+00,
173  e -0.224290E+00,-0.218800E+00,-0.213420E+00,-0.208140E+00,
174  f -0.202950E+00,-0.197860E+00,-0.192850E+00,-0.187930E+00,
175  g -0.183080E+00,-0.178310E+00,-0.173600E+00,-0.168970E+00,
176  h -0.164400E+00,-0.159900E+00,-0.155450E+00,-0.151050E+00
177  * /
178  data ( MuNTbl(i, 2), i= 69, 101)/
179  1 -0.146710E+00,-0.142420E+00,-0.138170E+00,-0.133970E+00,
180  2 -0.129810E+00,-0.125690E+00,-0.121600E+00,-0.117540E+00,
181  3 -0.113510E+00,-0.109510E+00,-0.105530E+00,-0.101570E+00,
182  4 -0.976200E-01,-0.936900E-01,-0.897600E-01,-0.858400E-01,
183  5 -0.819100E-01,-0.779900E-01,-0.740500E-01,-0.701000E-01,
184  6 -0.661200E-01,-0.621000E-01,-0.580400E-01,-0.539200E-01,
185  7 -0.497200E-01,-0.454300E-01,-0.409800E-01,-0.363800E-01,
186  8 -0.314100E-01,-0.262600E-01,-0.184200E-01,-0.141700E-01,
187  9 -0.710000E-03
188  * /
189  data ( MuNTbl(i, 3), i= 1, 68)/
190  1 -0.212472E+01,-0.178196E+01,-0.153838E+01,-0.137024E+01,
191  2 -0.124475E+01,-0.114634E+01,-0.106600E+01,-0.998400E+00,
192  3 -0.940160E+00,-0.889050E+00,-0.844020E+00,-0.804090E+00,
193  4 -0.768300E+00,-0.735960E+00,-0.706500E+00,-0.679500E+00,
194  5 -0.654610E+00,-0.631550E+00,-0.610080E+00,-0.590020E+00,
195  6 -0.571190E+00,-0.553470E+00,-0.536740E+00,-0.520910E+00,
196  7 -0.505870E+00,-0.491570E+00,-0.477930E+00,-0.464890E+00,
197  8 -0.452420E+00,-0.440450E+00,-0.428960E+00,-0.417900E+00,
198  9 -0.407250E+00,-0.396970E+00,-0.387040E+00,-0.377430E+00,
199  a -0.368130E+00,-0.359120E+00,-0.350370E+00,-0.341870E+00,
200  b -0.333600E+00,-0.325560E+00,-0.317730E+00,-0.310090E+00,
201  c -0.302640E+00,-0.295360E+00,-0.288250E+00,-0.281310E+00,
202  d -0.274510E+00,-0.267870E+00,-0.261370E+00,-0.255010E+00,
203  e -0.248780E+00,-0.242660E+00,-0.236670E+00,-0.230790E+00,
204  f -0.225010E+00,-0.219330E+00,-0.213750E+00,-0.208260E+00,
205  g -0.202860E+00,-0.197550E+00,-0.192310E+00,-0.187150E+00,
206  h -0.182060E+00,-0.177040E+00,-0.172090E+00,-0.167190E+00
207  * /
208  data ( MuNTbl(i, 3), i= 69, 101)/
209  1 -0.162360E+00,-0.157580E+00,-0.152850E+00,-0.148180E+00,
210  2 -0.143540E+00,-0.138960E+00,-0.134410E+00,-0.129890E+00,
211  3 -0.125410E+00,-0.120960E+00,-0.116540E+00,-0.112140E+00,
212  4 -0.107760E+00,-0.103390E+00,-0.990400E-01,-0.946900E-01,
213  5 -0.903400E-01,-0.859900E-01,-0.816200E-01,-0.772400E-01,
214  6 -0.728300E-01,-0.683800E-01,-0.638800E-01,-0.593100E-01,
215  7 -0.546700E-01,-0.499000E-01,-0.450000E-01,-0.398900E-01,
216  8 -0.345400E-01,-0.286700E-01,-0.206700E-01,-0.147500E-01,
217  9 -0.450000E-03
218  * /
219  data ( MuNTbl(i, 4), i= 1, 68)/
220  1 -0.232472E+01,-0.194684E+01,-0.168123E+01,-0.149722E+01,
221  2 -0.135994E+01,-0.125171E+01,-0.116276E+01,-0.108731E+01,
222  3 -0.102278E+01,-0.967050E+00,-0.918210E+00,-0.874890E+00,
223  4 -0.836080E+00,-0.800980E+00,-0.769020E+00,-0.739710E+00,
224  5 -0.712670E+00,-0.687610E+00,-0.664270E+00,-0.642440E+00,
225  6 -0.621950E+00,-0.602640E+00,-0.584400E+00,-0.567110E+00,
226  7 -0.550680E+00,-0.535040E+00,-0.520100E+00,-0.505820E+00,
227  8 -0.492130E+00,-0.478980E+00,-0.466370E+00,-0.454250E+00,
228  9 -0.442580E+00,-0.431330E+00,-0.420480E+00,-0.409990E+00,
229  a -0.399850E+00,-0.390020E+00,-0.380490E+00,-0.371250E+00,
230  b -0.362270E+00,-0.353540E+00,-0.345040E+00,-0.336760E+00,
231  c -0.328690E+00,-0.320820E+00,-0.313140E+00,-0.305630E+00,
232  d -0.298300E+00,-0.291120E+00,-0.284090E+00,-0.277210E+00,
233  e -0.270470E+00,-0.263850E+00,-0.257360E+00,-0.250990E+00,
234  f -0.244730E+00,-0.238580E+00,-0.232530E+00,-0.226580E+00,
235  g -0.220720E+00,-0.214950E+00,-0.209260E+00,-0.203660E+00,
236  h -0.198130E+00,-0.192670E+00,-0.187290E+00,-0.181960E+00
237  * /
238  data ( MuNTbl(i, 4), i= 69, 101)/
239  1 -0.176700E+00,-0.171500E+00,-0.166360E+00,-0.161260E+00,
240  2 -0.156220E+00,-0.151210E+00,-0.146260E+00,-0.141340E+00,
241  3 -0.136450E+00,-0.131600E+00,-0.126770E+00,-0.121970E+00,
242  4 -0.117190E+00,-0.112420E+00,-0.107660E+00,-0.102910E+00,
243  5 -0.981700E-01,-0.934100E-01,-0.886400E-01,-0.838600E-01,
244  6 -0.790400E-01,-0.741800E-01,-0.692700E-01,-0.642900E-01,
245  7 -0.592200E-01,-0.540300E-01,-0.486900E-01,-0.431300E-01,
246  8 -0.373000E-01,-0.309300E-01,-0.235700E-01,-0.151500E-01,
247  9 -0.280000E-03
248  * /
249  data ( MuNTbl(i, 5), i= 1, 68)/
250  1 -0.252472E+01,-0.211161E+01,-0.182344E+01,-0.162318E+01,
251  2 -0.147320E+01,-0.135396E+01,-0.125521E+01,-0.117290E+01,
252  3 -0.110307E+01,-0.104274E+01,-0.989840E+00,-0.942900E+00,
253  4 -0.900800E+00,-0.862710E+00,-0.827980E+00,-0.796100E+00,
254  5 -0.766670E+00,-0.739340E+00,-0.713860E+00,-0.689990E+00,
255  6 -0.667580E+00,-0.646520E+00,-0.626670E+00,-0.607900E+00,
256  7 -0.590120E+00,-0.573220E+00,-0.557120E+00,-0.541770E+00,
257  8 -0.527090E+00,-0.513020E+00,-0.499530E+00,-0.486560E+00,
258  9 -0.474080E+00,-0.462060E+00,-0.450450E+00,-0.439240E+00,
259  a -0.428390E+00,-0.417880E+00,-0.407700E+00,-0.397810E+00,
260  b -0.388210E+00,-0.378870E+00,-0.369780E+00,-0.360930E+00,
261  c -0.352300E+00,-0.343890E+00,-0.335670E+00,-0.327640E+00,
262  d -0.319790E+00,-0.312110E+00,-0.304590E+00,-0.297220E+00,
263  e -0.290000E+00,-0.282920E+00,-0.275970E+00,-0.269140E+00,
264  f -0.262440E+00,-0.255850E+00,-0.249370E+00,-0.242990E+00,
265  g -0.236710E+00,-0.230520E+00,-0.224420E+00,-0.218410E+00,
266  h -0.212480E+00,-0.206620E+00,-0.200840E+00,-0.195130E+00
267  * /
268  data ( MuNTbl(i, 5), i= 69, 101)/
269  1 -0.189480E+00,-0.183900E+00,-0.178370E+00,-0.172900E+00,
270  2 -0.167470E+00,-0.162100E+00,-0.156770E+00,-0.151480E+00,
271  3 -0.146230E+00,-0.141010E+00,-0.135830E+00,-0.130660E+00,
272  4 -0.125520E+00,-0.120400E+00,-0.115280E+00,-0.110180E+00,
273  5 -0.105070E+00,-0.999600E-01,-0.948400E-01,-0.896900E-01,
274  6 -0.845200E-01,-0.793000E-01,-0.740300E-01,-0.686800E-01,
275  7 -0.632400E-01,-0.576700E-01,-0.519400E-01,-0.459900E-01,
276  8 -0.397200E-01,-0.329800E-01,-0.256100E-01,-0.154800E-01,
277  9 -0.180000E-03
278  * /
279  data ( MuNTbl(i, 6), i= 1, 68)/
280  1 -0.272472E+01,-0.227609E+01,-0.196461E+01,-0.174754E+01,
281  2 -0.158359E+01,-0.145190E+01,-0.134483E+01,-0.125594E+01,
282  3 -0.118044E+01,-0.111513E+01,-0.105780E+01,-0.100684E+01,
283  4 -0.961060E+00,-0.919560E+00,-0.881650E+00,-0.846920E+00,
284  5 -0.814980E+00,-0.785470E+00,-0.758060E+00,-0.732510E+00,
285  6 -0.708590E+00,-0.686130E+00,-0.664970E+00,-0.644970E+00,
286  7 -0.626030E+00,-0.608040E+00,-0.590910E+00,-0.574580E+00,
287  8 -0.558970E+00,-0.544030E+00,-0.529690E+00,-0.515920E+00,
288  9 -0.502680E+00,-0.489910E+00,-0.477600E+00,-0.465710E+00,
289  a -0.454210E+00,-0.443070E+00,-0.432280E+00,-0.421810E+00,
290  b -0.411640E+00,-0.401750E+00,-0.392140E+00,-0.382770E+00,
291  c -0.373640E+00,-0.364740E+00,-0.356040E+00,-0.347550E+00,
292  d -0.339250E+00,-0.331140E+00,-0.323190E+00,-0.315410E+00,
293  e -0.307780E+00,-0.300300E+00,-0.292960E+00,-0.285750E+00,
294  f -0.278680E+00,-0.271720E+00,-0.264870E+00,-0.258130E+00,
295  g -0.251500E+00,-0.244960E+00,-0.238520E+00,-0.232160E+00,
296  h -0.225890E+00,-0.219690E+00,-0.213580E+00,-0.207530E+00
297  * /
298  data ( MuNTbl(i, 6), i= 69, 101)/
299  1 -0.201550E+00,-0.195630E+00,-0.189780E+00,-0.183980E+00,
300  2 -0.178230E+00,-0.172530E+00,-0.166870E+00,-0.161260E+00,
301  3 -0.155680E+00,-0.150140E+00,-0.144620E+00,-0.139130E+00,
302  4 -0.133660E+00,-0.128210E+00,-0.122770E+00,-0.117330E+00,
303  5 -0.111890E+00,-0.106440E+00,-0.100980E+00,-0.954900E-01,
304  6 -0.899700E-01,-0.844000E-01,-0.787700E-01,-0.730600E-01,
305  7 -0.672400E-01,-0.613000E-01,-0.551800E-01,-0.488300E-01,
306  8 -0.421600E-01,-0.350400E-01,-0.270700E-01,-0.158900E-01,
307  9 -0.110000E-03
308  * /
309  data ( MuNTbl(i, 7), i= 1, 68)/
310  1 -0.292472E+01,-0.244015E+01,-0.210466E+01,-0.186977E+01,
311  2 -0.169000E+01,-0.154712E+01,-0.143174E+01,-0.133577E+01,
312  3 -0.125410E+01,-0.118330E+01,-0.112098E+01,-0.106546E+01,
313  4 -0.101583E+01,-0.971160E+00,-0.930630E+00,-0.893620E+00,
314  5 -0.859620E+00,-0.828230E+00,-0.799110E+00,-0.771980E+00,
315  6 -0.746620E+00,-0.722810E+00,-0.700410E+00,-0.679260E+00,
316  7 -0.659240E+00,-0.640240E+00,-0.622170E+00,-0.604960E+00,
317  8 -0.588520E+00,-0.572790E+00,-0.557710E+00,-0.543250E+00,
318  9 -0.529340E+00,-0.515950E+00,-0.503050E+00,-0.490590E+00,
319  a -0.478550E+00,-0.466900E+00,-0.455620E+00,-0.444660E+00,
320  b -0.434030E+00,-0.423690E+00,-0.413630E+00,-0.403840E+00,
321  c -0.394290E+00,-0.384970E+00,-0.375880E+00,-0.366990E+00,
322  d -0.358310E+00,-0.349800E+00,-0.341480E+00,-0.333320E+00,
323  e -0.325330E+00,-0.317480E+00,-0.309780E+00,-0.302210E+00,
324  f -0.294770E+00,-0.287460E+00,-0.280260E+00,-0.273180E+00,
325  g -0.266200E+00,-0.259320E+00,-0.252530E+00,-0.245840E+00,
326  h -0.239230E+00,-0.232700E+00,-0.226250E+00,-0.219870E+00
327  * /
328  data ( MuNTbl(i, 7), i= 69, 101)/
329  1 -0.213560E+00,-0.207320E+00,-0.201130E+00,-0.195010E+00,
330  2 -0.188930E+00,-0.182910E+00,-0.176930E+00,-0.170990E+00,
331  3 -0.165080E+00,-0.159210E+00,-0.153370E+00,-0.147550E+00,
332  4 -0.141750E+00,-0.135970E+00,-0.130200E+00,-0.124430E+00,
333  5 -0.118650E+00,-0.112870E+00,-0.107060E+00,-0.101230E+00,
334  6 -0.953700E-01,-0.894500E-01,-0.834600E-01,-0.774000E-01,
335  7 -0.712200E-01,-0.649000E-01,-0.584000E-01,-0.516500E-01,
336  8 -0.445800E-01,-0.370000E-01,-0.285400E-01,-0.164300E-01,
337  9 -0.700000E-04
338  * /
339  data ( MuNTbl(i, 8), i= 1, 68)/
340  1 -0.300000E+01,-0.246289E+01,-0.211859E+01,-0.187312E+01,
341  2 -0.168713E+01,-0.154212E+01,-0.142447E+01,-0.132610E+01,
342  3 -0.124206E+01,-0.116974E+01,-0.110669E+01,-0.105107E+01,
343  4 -0.100149E+01,-0.956920E+00,-0.916540E+00,-0.879710E+00,
344  5 -0.845940E+00,-0.814790E+00,-0.785940E+00,-0.759110E+00,
345  6 -0.734050E+00,-0.710570E+00,-0.688510E+00,-0.667700E+00,
346  7 -0.648020E+00,-0.629360E+00,-0.611610E+00,-0.594710E+00,
347  8 -0.578560E+00,-0.563120E+00,-0.548320E+00,-0.534110E+00,
348  9 -0.520440E+00,-0.507280E+00,-0.494600E+00,-0.482340E+00,
349  a -0.470500E+00,-0.459030E+00,-0.447920E+00,-0.437140E+00,
350  b -0.426670E+00,-0.416490E+00,-0.406590E+00,-0.396950E+00,
351  c -0.387550E+00,-0.378380E+00,-0.369430E+00,-0.360680E+00,
352  d -0.352130E+00,-0.343760E+00,-0.335560E+00,-0.327540E+00,
353  e -0.319660E+00,-0.311940E+00,-0.304360E+00,-0.296910E+00,
354  f -0.289590E+00,-0.282400E+00,-0.275310E+00,-0.268340E+00,
355  g -0.261470E+00,-0.254700E+00,-0.248030E+00,-0.241440E+00,
356  h -0.234940E+00,-0.228520E+00,-0.222180E+00,-0.215910E+00
357  * /
358  data ( MuNTbl(i, 8), i= 69, 101)/
359  1 -0.209710E+00,-0.203570E+00,-0.197490E+00,-0.191460E+00,
360  2 -0.185490E+00,-0.179570E+00,-0.173690E+00,-0.167860E+00,
361  3 -0.162060E+00,-0.156290E+00,-0.150550E+00,-0.144840E+00,
362  4 -0.139140E+00,-0.133460E+00,-0.127790E+00,-0.122130E+00,
363  5 -0.116460E+00,-0.110780E+00,-0.105090E+00,-0.993600E-01,
364  6 -0.936100E-01,-0.878000E-01,-0.819200E-01,-0.759700E-01,
365  7 -0.699100E-01,-0.637100E-01,-0.573300E-01,-0.507100E-01,
366  8 -0.437600E-01,-0.363100E-01,-0.277500E-01,-0.187300E-01,
367  9 -0.400000E-04
368  * /
369  data ( MuNTbl(i, 9), i= 1, 68)/
370  1 -0.300000E+01,-0.243876E+01,-0.208535E+01,-0.183439E+01,
371  2 -0.164808E+01,-0.150166E+01,-0.138275E+01,-0.128472E+01,
372  3 -0.120212E+01,-0.113132E+01,-0.106974E+01,-0.101555E+01,
373  4 -0.967370E+00,-0.924170E+00,-0.885140E+00,-0.849610E+00,
374  5 -0.817050E+00,-0.787040E+00,-0.759240E+00,-0.733370E+00,
375  6 -0.709210E+00,-0.686550E+00,-0.665230E+00,-0.645120E+00,
376  7 -0.626090E+00,-0.608030E+00,-0.590860E+00,-0.574500E+00,
377  8 -0.558870E+00,-0.543920E+00,-0.529590E+00,-0.515830E+00,
378  9 -0.502600E+00,-0.489850E+00,-0.477560E+00,-0.465690E+00,
379  a -0.454220E+00,-0.443110E+00,-0.432340E+00,-0.421900E+00,
380  b -0.411760E+00,-0.401900E+00,-0.392310E+00,-0.382960E+00,
381  c -0.373860E+00,-0.364980E+00,-0.356310E+00,-0.347830E+00,
382  d -0.339550E+00,-0.331450E+00,-0.323520E+00,-0.315740E+00,
383  e -0.308120E+00,-0.300650E+00,-0.293310E+00,-0.286110E+00,
384  f -0.279030E+00,-0.272060E+00,-0.265220E+00,-0.258470E+00,
385  g -0.251830E+00,-0.245290E+00,-0.238840E+00,-0.232480E+00,
386  h -0.226200E+00,-0.220000E+00,-0.213880E+00,-0.207820E+00
387  * /
388  data ( MuNTbl(i, 9), i= 69, 101)/
389  1 -0.201830E+00,-0.195910E+00,-0.190050E+00,-0.184240E+00,
390  2 -0.178480E+00,-0.172770E+00,-0.167100E+00,-0.161480E+00,
391  3 -0.155890E+00,-0.150340E+00,-0.144810E+00,-0.139310E+00,
392  4 -0.133830E+00,-0.128360E+00,-0.122910E+00,-0.117460E+00,
393  5 -0.112010E+00,-0.106550E+00,-0.101070E+00,-0.955700E-01,
394  6 -0.900400E-01,-0.844600E-01,-0.788100E-01,-0.730900E-01,
395  7 -0.672600E-01,-0.613100E-01,-0.551800E-01,-0.488200E-01,
396  8 -0.421400E-01,-0.349700E-01,-0.265800E-01,-0.181800E-01,
397  9 -0.300000E-04
398  * /
399  data ( MuNTbl(i, 10), i= 1, 68)/
400  1 -0.300000E+01,-0.242609E+01,-0.205915E+01,-0.180517E+01,
401  2 -0.161495E+01,-0.146767E+01,-0.135004E+01,-0.125346E+01,
402  3 -0.117244E+01,-0.110329E+01,-0.104339E+01,-0.990760E+00,
403  4 -0.943970E+00,-0.901990E+00,-0.864000E+00,-0.829390E+00,
404  5 -0.797650E+00,-0.768380E+00,-0.741270E+00,-0.716030E+00,
405  6 -0.692440E+00,-0.670320E+00,-0.649500E+00,-0.629860E+00,
406  7 -0.611260E+00,-0.593620E+00,-0.576840E+00,-0.560840E+00,
407  8 -0.545570E+00,-0.530950E+00,-0.516930E+00,-0.503480E+00,
408  9 -0.490540E+00,-0.478070E+00,-0.466050E+00,-0.454450E+00,
409  a -0.443220E+00,-0.432360E+00,-0.421820E+00,-0.411610E+00,
410  b -0.401690E+00,-0.392040E+00,-0.382660E+00,-0.373520E+00,
411  c -0.364620E+00,-0.355930E+00,-0.347450E+00,-0.339170E+00,
412  d -0.331070E+00,-0.323150E+00,-0.315390E+00,-0.307790E+00,
413  e -0.300340E+00,-0.293030E+00,-0.285860E+00,-0.278820E+00,
414  f -0.271900E+00,-0.265100E+00,-0.258410E+00,-0.251830E+00,
415  g -0.245340E+00,-0.238950E+00,-0.232650E+00,-0.226440E+00,
416  h -0.220310E+00,-0.214260E+00,-0.208290E+00,-0.202380E+00
417  * /
418  data ( MuNTbl(i, 10), i= 69, 101)/
419  1 -0.196540E+00,-0.190760E+00,-0.185040E+00,-0.179370E+00,
420  2 -0.173760E+00,-0.168190E+00,-0.162670E+00,-0.157190E+00,
421  3 -0.151750E+00,-0.146340E+00,-0.140950E+00,-0.135600E+00,
422  4 -0.130260E+00,-0.124940E+00,-0.119630E+00,-0.114320E+00,
423  5 -0.109010E+00,-0.103700E+00,-0.983700E-01,-0.930200E-01,
424  6 -0.876300E-01,-0.822000E-01,-0.767200E-01,-0.711500E-01,
425  7 -0.654800E-01,-0.596900E-01,-0.537300E-01,-0.475400E-01,
426  8 -0.410500E-01,-0.340600E-01,-0.258200E-01,-0.178000E-01,
427  9 -0.200000E-04
428  * /
429  data ( MuNTbl(i, 11), i= 1, 68)/
430  1 -0.300000E+01,-0.240477E+01,-0.203076E+01,-0.177108E+01,
431  2 -0.158100E+01,-0.143556E+01,-0.132020E+01,-0.122609E+01,
432  3 -0.114729E+01,-0.107998E+01,-0.102156E+01,-0.970180E+00,
433  4 -0.924480E+00,-0.883450E+00,-0.846310E+00,-0.812460E+00,
434  5 -0.781400E+00,-0.752760E+00,-0.726210E+00,-0.701490E+00,
435  6 -0.678380E+00,-0.656710E+00,-0.636310E+00,-0.617050E+00,
436  7 -0.598820E+00,-0.581530E+00,-0.565070E+00,-0.549380E+00,
437  8 -0.534400E+00,-0.520060E+00,-0.506310E+00,-0.493110E+00,
438  9 -0.480420E+00,-0.468190E+00,-0.456390E+00,-0.445000E+00,
439  a -0.433990E+00,-0.423330E+00,-0.412990E+00,-0.402970E+00,
440  b -0.393230E+00,-0.383770E+00,-0.374560E+00,-0.365600E+00,
441  c -0.356860E+00,-0.348340E+00,-0.340020E+00,-0.331890E+00,
442  d -0.323950E+00,-0.316170E+00,-0.308570E+00,-0.301110E+00,
443  e -0.293810E+00,-0.286640E+00,-0.279610E+00,-0.272710E+00,
444  f -0.265930E+00,-0.259260E+00,-0.252700E+00,-0.246250E+00,
445  g -0.239890E+00,-0.233630E+00,-0.227460E+00,-0.221380E+00,
446  h -0.215380E+00,-0.209450E+00,-0.203600E+00,-0.197810E+00
447  * /
448  data ( MuNTbl(i, 11), i= 69, 101)/
449  1 -0.192090E+00,-0.186440E+00,-0.180840E+00,-0.175300E+00,
450  2 -0.169800E+00,-0.164360E+00,-0.158960E+00,-0.153600E+00,
451  3 -0.148270E+00,-0.142980E+00,-0.137720E+00,-0.132480E+00,
452  4 -0.127260E+00,-0.122060E+00,-0.116870E+00,-0.111690E+00,
453  5 -0.106500E+00,-0.101310E+00,-0.961100E-01,-0.908800E-01,
454  6 -0.856200E-01,-0.803200E-01,-0.749600E-01,-0.695200E-01,
455  7 -0.639900E-01,-0.583300E-01,-0.525100E-01,-0.464600E-01,
456  8 -0.401200E-01,-0.333000E-01,-0.252000E-01,-0.174700E-01,
457  9 -0.100000E-04
458  * /
459  data ( MuNTbl(i, 12), i= 1, 68)/
460  1 -0.300000E+01,-0.238211E+01,-0.199913E+01,-0.173882E+01,
461  2 -0.155119E+01,-0.140901E+01,-0.129651E+01,-0.120452E+01,
462  3 -0.112740E+01,-0.106148E+01,-0.100422E+01,-0.953830E+00,
463  4 -0.909000E+00,-0.868730E+00,-0.832260E+00,-0.799010E+00,
464  5 -0.768490E+00,-0.740340E+00,-0.714240E+00,-0.689940E+00,
465  6 -0.667210E+00,-0.645890E+00,-0.625820E+00,-0.606880E+00,
466  7 -0.588940E+00,-0.571910E+00,-0.555720E+00,-0.540280E+00,
467  8 -0.525520E+00,-0.511410E+00,-0.497870E+00,-0.484870E+00,
468  9 -0.472370E+00,-0.460330E+00,-0.448710E+00,-0.437500E+00,
469  a -0.426650E+00,-0.416150E+00,-0.405970E+00,-0.396100E+00,
470  b -0.386510E+00,-0.377190E+00,-0.368130E+00,-0.359300E+00,
471  c -0.350690E+00,-0.342300E+00,-0.334110E+00,-0.326110E+00,
472  d -0.318290E+00,-0.310630E+00,-0.303140E+00,-0.295810E+00,
473  e -0.288620E+00,-0.281570E+00,-0.274650E+00,-0.267850E+00,
474  f -0.261180E+00,-0.254620E+00,-0.248170E+00,-0.241820E+00,
475  g -0.235570E+00,-0.229410E+00,-0.223340E+00,-0.217360E+00,
476  h -0.211450E+00,-0.205630E+00,-0.199870E+00,-0.194190E+00
477  * /
478  data ( MuNTbl(i, 12), i= 69, 101)/
479  1 -0.188570E+00,-0.183010E+00,-0.177510E+00,-0.172060E+00,
480  2 -0.166660E+00,-0.161310E+00,-0.156010E+00,-0.150740E+00,
481  3 -0.145510E+00,-0.140320E+00,-0.135150E+00,-0.130010E+00,
482  4 -0.124880E+00,-0.119780E+00,-0.114680E+00,-0.109600E+00,
483  5 -0.104510E+00,-0.994100E-01,-0.943100E-01,-0.891800E-01,
484  6 -0.840200E-01,-0.788100E-01,-0.735600E-01,-0.682200E-01,
485  7 -0.628000E-01,-0.572400E-01,-0.515300E-01,-0.456000E-01,
486  8 -0.393800E-01,-0.327000E-01,-0.247300E-01,-0.172000E-01,
487  9 -0.100000E-04
488  * /
489  data ( MuNTbl(i, 13), i= 1, 68)/
490  1 -0.300000E+01,-0.235981E+01,-0.197039E+01,-0.171262E+01,
491  2 -0.152890E+01,-0.138951E+01,-0.127903E+01,-0.118860E+01,
492  3 -0.111274E+01,-0.104785E+01,-0.991460E+00,-0.941810E+00,
493  4 -0.897620E+00,-0.857910E+00,-0.821940E+00,-0.789130E+00,
494  5 -0.759020E+00,-0.731230E+00,-0.705470E+00,-0.681470E+00,
495  6 -0.659030E+00,-0.637970E+00,-0.618140E+00,-0.599420E+00,
496  7 -0.581700E+00,-0.564870E+00,-0.548870E+00,-0.533610E+00,
497  8 -0.519030E+00,-0.505070E+00,-0.491690E+00,-0.478840E+00,
498  9 -0.466480E+00,-0.454580E+00,-0.443090E+00,-0.432000E+00,
499  a -0.421280E+00,-0.410900E+00,-0.400840E+00,-0.391080E+00,
500  b -0.381600E+00,-0.372380E+00,-0.363420E+00,-0.354690E+00,
501  c -0.346180E+00,-0.337890E+00,-0.329790E+00,-0.321880E+00,
502  d -0.314150E+00,-0.306580E+00,-0.299180E+00,-0.291930E+00,
503  e -0.284820E+00,-0.277850E+00,-0.271020E+00,-0.264300E+00,
504  f -0.257710E+00,-0.251230E+00,-0.244850E+00,-0.238580E+00,
505  g -0.232400E+00,-0.226320E+00,-0.220330E+00,-0.214420E+00,
506  h -0.208590E+00,-0.202830E+00,-0.197150E+00,-0.191540E+00
507  * /
508  data ( MuNTbl(i, 13), i= 69, 101)/
509  1 -0.185990E+00,-0.180500E+00,-0.175070E+00,-0.169690E+00,
510  2 -0.164360E+00,-0.159080E+00,-0.153850E+00,-0.148650E+00,
511  3 -0.143490E+00,-0.138370E+00,-0.133270E+00,-0.128190E+00,
512  4 -0.123140E+00,-0.118110E+00,-0.113080E+00,-0.108060E+00,
513  5 -0.103050E+00,-0.980200E-01,-0.929900E-01,-0.879300E-01,
514  6 -0.828400E-01,-0.777100E-01,-0.725300E-01,-0.672700E-01,
515  7 -0.619200E-01,-0.564400E-01,-0.508100E-01,-0.449700E-01,
516  8 -0.388200E-01,-0.322500E-01,-0.243800E-01,-0.169900E-01,
517  9 0.000000E+00
518  * /
519  data ( MuNTbl(i, 14), i= 1, 68)/
520  1 -0.300000E+01,-0.234033E+01,-0.195058E+01,-0.169674E+01,
521  2 -0.151557E+01,-0.137792E+01,-0.126871E+01,-0.117927E+01,
522  3 -0.110419E+01,-0.103994E+01,-0.984080E+00,-0.934890E+00,
523  4 -0.891080E+00,-0.851710E+00,-0.816040E+00,-0.783500E+00,
524  5 -0.753630E+00,-0.726060E+00,-0.700490E+00,-0.676670E+00,
525  6 -0.654390E+00,-0.633490E+00,-0.613810E+00,-0.595220E+00,
526  7 -0.577620E+00,-0.560910E+00,-0.545020E+00,-0.529860E+00,
527  8 -0.515380E+00,-0.501520E+00,-0.488230E+00,-0.475460E+00,
528  9 -0.463180E+00,-0.451360E+00,-0.439950E+00,-0.428930E+00,
529  a -0.418280E+00,-0.407960E+00,-0.397970E+00,-0.388270E+00,
530  b -0.378850E+00,-0.369700E+00,-0.360790E+00,-0.352120E+00,
531  c -0.343670E+00,-0.335430E+00,-0.327380E+00,-0.319520E+00,
532  d -0.311840E+00,-0.304320E+00,-0.296970E+00,-0.289770E+00,
533  e -0.282710E+00,-0.275780E+00,-0.268990E+00,-0.262320E+00,
534  f -0.255770E+00,-0.249330E+00,-0.243000E+00,-0.236770E+00,
535  g -0.230640E+00,-0.224600E+00,-0.218640E+00,-0.212770E+00,
536  h -0.206980E+00,-0.201270E+00,-0.195630E+00,-0.190050E+00
537  * /
538  data ( MuNTbl(i, 14), i= 69, 101)/
539  1 -0.184540E+00,-0.179090E+00,-0.173700E+00,-0.168360E+00,
540  2 -0.163080E+00,-0.157830E+00,-0.152640E+00,-0.147480E+00,
541  3 -0.142360E+00,-0.137270E+00,-0.132210E+00,-0.127170E+00,
542  4 -0.122160E+00,-0.117160E+00,-0.112180E+00,-0.107200E+00,
543  5 -0.102220E+00,-0.972300E-01,-0.922400E-01,-0.872200E-01,
544  6 -0.821700E-01,-0.770800E-01,-0.719400E-01,-0.667200E-01,
545  7 -0.614100E-01,-0.559800E-01,-0.504000E-01,-0.446000E-01,
546  8 -0.385000E-01,-0.319800E-01,-0.241800E-01,-0.168600E-01,
547  9 0.000000E+00
548  * /
549  data ( MuNTbl(i, 15), i= 1, 68)/
550  1 -0.300000E+01,-0.232414E+01,-0.193753E+01,-0.168662E+01,
551  2 -0.150721E+01,-0.137075E+01,-0.126241E+01,-0.117362E+01,
552  3 -0.109906E+01,-0.103522E+01,-0.979710E+00,-0.930800E+00,
553  4 -0.887250E+00,-0.848090E+00,-0.812610E+00,-0.780240E+00,
554  5 -0.750520E+00,-0.723080E+00,-0.697630E+00,-0.673920E+00,
555  6 -0.651740E+00,-0.630930E+00,-0.611340E+00,-0.592830E+00,
556  7 -0.575300E+00,-0.558670E+00,-0.542840E+00,-0.527740E+00,
557  8 -0.513320E+00,-0.499510E+00,-0.486270E+00,-0.473560E+00,
558  9 -0.461330E+00,-0.449550E+00,-0.438180E+00,-0.427200E+00,
559  a -0.416590E+00,-0.406310E+00,-0.396360E+00,-0.386690E+00,
560  b -0.377310E+00,-0.368190E+00,-0.359320E+00,-0.350680E+00,
561  c -0.342260E+00,-0.334050E+00,-0.326030E+00,-0.318200E+00,
562  d -0.310550E+00,-0.303060E+00,-0.295730E+00,-0.288550E+00,
563  e -0.281520E+00,-0.274620E+00,-0.267860E+00,-0.261210E+00,
564  f -0.254680E+00,-0.248270E+00,-0.241960E+00,-0.235750E+00,
565  g -0.229640E+00,-0.223630E+00,-0.217700E+00,-0.211850E+00,
566  h -0.206080E+00,-0.200390E+00,-0.194770E+00,-0.189220E+00
567  * /
568  data ( MuNTbl(i, 15), i= 69, 101)/
569  1 -0.183730E+00,-0.178300E+00,-0.172930E+00,-0.167610E+00,
570  2 -0.162350E+00,-0.157130E+00,-0.151950E+00,-0.146810E+00,
571  3 -0.141710E+00,-0.136640E+00,-0.131610E+00,-0.126590E+00,
572  4 -0.121600E+00,-0.116620E+00,-0.111660E+00,-0.106700E+00,
573  5 -0.101740E+00,-0.967800E-01,-0.918000E-01,-0.868100E-01,
574  6 -0.817800E-01,-0.767100E-01,-0.715900E-01,-0.664000E-01,
575  7 -0.611100E-01,-0.557100E-01,-0.501500E-01,-0.443700E-01,
576  8 -0.383000E-01,-0.318200E-01,-0.240600E-01,-0.167800E-01,
577  9 0.000000E+00
578  * /
579  data ( MuNTbl(i, 16), i= 1, 68)/
580  1 -0.300000E+01,-0.231337E+01,-0.193063E+01,-0.168158E+01,
581  2 -0.150326E+01,-0.136752E+01,-0.125968E+01,-0.117126E+01,
582  3 -0.109697E+01,-0.103336E+01,-0.978030E+00,-0.929270E+00,
583  4 -0.885830E+00,-0.846780E+00,-0.811390E+00,-0.779100E+00,
584  5 -0.749440E+00,-0.722060E+00,-0.696670E+00,-0.673010E+00,
585  6 -0.650870E+00,-0.630100E+00,-0.610540E+00,-0.592070E+00,
586  7 -0.574570E+00,-0.557960E+00,-0.542150E+00,-0.527080E+00,
587  8 -0.512680E+00,-0.498900E+00,-0.485680E+00,-0.472980E+00,
588  9 -0.460770E+00,-0.449000E+00,-0.437650E+00,-0.426690E+00,
589  a -0.416090E+00,-0.405820E+00,-0.395880E+00,-0.386230E+00,
590  b -0.376860E+00,-0.367750E+00,-0.358880E+00,-0.350250E+00,
591  c -0.341840E+00,-0.333640E+00,-0.325630E+00,-0.317810E+00,
592  d -0.310170E+00,-0.302690E+00,-0.295370E+00,-0.288200E+00,
593  e -0.281170E+00,-0.274280E+00,-0.267520E+00,-0.260880E+00,
594  f -0.254360E+00,-0.247950E+00,-0.241650E+00,-0.235450E+00,
595  g -0.229350E+00,-0.223340E+00,-0.217410E+00,-0.211570E+00,
596  h -0.205810E+00,-0.200120E+00,-0.194510E+00,-0.188960E+00
597  * /
598  data ( MuNTbl(i, 16), i= 69, 101)/
599  1 -0.183480E+00,-0.178060E+00,-0.172690E+00,-0.167380E+00,
600  2 -0.162120E+00,-0.156900E+00,-0.151730E+00,-0.146600E+00,
601  3 -0.141510E+00,-0.136440E+00,-0.131410E+00,-0.126400E+00,
602  4 -0.121410E+00,-0.116440E+00,-0.111480E+00,-0.106530E+00,
603  5 -0.101580E+00,-0.966200E-01,-0.916500E-01,-0.866600E-01,
604  6 -0.816400E-01,-0.765800E-01,-0.714600E-01,-0.662800E-01,
605  7 -0.610000E-01,-0.556000E-01,-0.500500E-01,-0.442900E-01,
606  8 -0.382200E-01,-0.317500E-01,-0.240000E-01,-0.167400E-01,
607  9 0.000000E+00
608  * /
609  data ( MuNTbl(i, 17), i= 1, 68)/
610  1 -0.300000E+01,-0.231061E+01,-0.192993E+01,-0.168175E+01,
611  2 -0.150387E+01,-0.136836E+01,-0.126066E+01,-0.117231E+01,
612  3 -0.109807E+01,-0.103448E+01,-0.979160E+00,-0.930400E+00,
613  4 -0.886960E+00,-0.847900E+00,-0.812490E+00,-0.780180E+00,
614  5 -0.750510E+00,-0.723120E+00,-0.697700E+00,-0.674030E+00,
615  6 -0.651880E+00,-0.631090E+00,-0.611510E+00,-0.593020E+00,
616  7 -0.575500E+00,-0.558880E+00,-0.543050E+00,-0.527970E+00,
617  8 -0.513550E+00,-0.499750E+00,-0.486510E+00,-0.473800E+00,
618  9 -0.461570E+00,-0.449790E+00,-0.438430E+00,-0.427450E+00,
619  a -0.416830E+00,-0.406560E+00,-0.396600E+00,-0.386930E+00,
620  b -0.377550E+00,-0.368420E+00,-0.359550E+00,-0.350900E+00,
621  c -0.342480E+00,-0.334260E+00,-0.326240E+00,-0.318410E+00,
622  d -0.310750E+00,-0.303260E+00,-0.295930E+00,-0.288750E+00,
623  e -0.281710E+00,-0.274810E+00,-0.268030E+00,-0.261380E+00,
624  f -0.254850E+00,-0.248430E+00,-0.242120E+00,-0.235910E+00,
625  g -0.229790E+00,-0.223770E+00,-0.217830E+00,-0.211980E+00,
626  h -0.206200E+00,-0.200510E+00,-0.194880E+00,-0.189320E+00
627  * /
628  data ( MuNTbl(i, 17), i= 69, 101)/
629  1 -0.183830E+00,-0.178390E+00,-0.173020E+00,-0.167690E+00,
630  2 -0.162420E+00,-0.157200E+00,-0.152010E+00,-0.146870E+00,
631  3 -0.141770E+00,-0.136690E+00,-0.131650E+00,-0.126630E+00,
632  4 -0.121630E+00,-0.116650E+00,-0.111680E+00,-0.106710E+00,
633  5 -0.101750E+00,-0.967800E-01,-0.918000E-01,-0.868000E-01,
634  6 -0.817700E-01,-0.767000E-01,-0.715700E-01,-0.663700E-01,
635  7 -0.610800E-01,-0.556800E-01,-0.501100E-01,-0.443300E-01,
636  8 -0.382600E-01,-0.317800E-01,-0.240200E-01,-0.167400E-01,
637  9 0.000000E+00
638  * /
639 
640  end
MuPrdEdx0
real real real real BrTXL BrSTSB MuPrdEdx0
Definition: ZbpTable.h:18
MuNTbl
real real real real BrTXL BrSTSB MuNTbl
Definition: ZbpTable.h:18
integer
int integer
Definition: Zdef.h:3
e
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
a
block data cblkMuInt integer i ! Pair total X sec a
Definition: cblkMuInt.h:7
data
block data cblkMuInt integer i ! Pair total X sec data(MuPrTX(i), i=1, 38)/1 0.431132E-02
MuBrdEdxt
real real real real BrTXL BrSTSB MuBrdEdxt
Definition: ZbpTable.h:18
MuPrdEdxt
real real real real BrTXL BrSTSB * MuPrdEdxt
Definition: ZbpTable.h:18
MuNTX
real real real real BrTXL BrSTSB MuNTX
Definition: ZbpTable.h:18
i
block data cblkMuInt integer i ! Pair total X sec *! Pair dE i
Definition: cblkMuInt.h:20
MuBrdEdx0
real real real real BrTXL BrSTSB MuBrdEdx0
Definition: ZbpTable.h:18
block
integer maxFiles ! actual logical file ! it will be used during mpi skeleton making time ! so when the program starts to normal ! it will not be used block
Definition: Zmpi.h:23
sampling
! parameters for primary angle sampling(-> --------------------------------------------------- complex *16 CosZenith !1 Range of cos(zenith angle). Say,(0.5, 1.0). Used when Za2ry is 'is' ! If ObsPlane=3(spherical), real(CosZenith) must be $> $0, and means ! the zenith angle range at the incident point(not in Exyz system). ! In that case, azimuth is 0 to 2pi. complex *16 Azimuth !1 Range of azimuthal angle in deg. Say,(0, 45). Default is(0, 360). ! Can be such as(300., 390.). Used when Za1ry is 'is'\newline ! If ObsPlane=3(spherical), this is used to show the half opening angle ! range where the primary injection position is uniformly distributed ! on a sphere. The center of the opening angle is(Latit, Longit, HeightOfInj). ! In this case, for the upper opening angle, min(Imag(Azimuth), 180.) is used. character *4 Za1ry !1 Specify the primary angle sampling method by one of 'is', 'ps' or 'aps'.\newline ! "is" is isotropic. The range is by CosZenith.\newline ! "ps" is for point source(See also SourceDec)\newline ! "aps" is around point source(See also SourceDec and Ddelta) \newline ! If ObsPlane=3(spherical), this must be "is". real *8 SourceDec !1 Source declination of point source.(deg) real *8 Ddelta !1 SourceDec $\pm$ Ddelta is the region for 'aps'(deg). real *8 HeightOfInj !1 The vertical height of primary injection point(m). ! If this is $<$ deepest obs. level and zeinth angle of primary is $< 0$, ! the primary is assumed to be upgoing even if Reverse=0. ! NOTE:BorderHeightH must be given explicitly in this case. real *8 OffsetHeight !2 The vertical offset height from the deepest detector. ! The primary is directed to this height above the detector. ! If ObsPlane is 3(spherical), not used. !<-) ---------------------------------------------------- common/Zincident/Azimuth
dx
block data cblkMuInt integer i ! Pair total X sec *! Pair dE dx(v< vmin)/E/(g/cm2) data(MuPrdEdx0(i)
d
dE dx *! Nuc Int sampling table d
Definition: cblkMuInt.h:130
MuNdEdx0
real real real real BrTXL BrSTSB MuNdEdx0
Definition: ZbpTable.h:18
b
dE dx *! Nuc Int sampling table b
Definition: cblkMuInt.h:130
MuPrTX
real real real real BrTXL BrSTSB MuPrTX
Definition: ZbpTable.h:18
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130
g
dE dx *! Nuc Int sampling table g
Definition: cblkMuInt.h:130
MuNdEdxt
real real real real BrTXL BrSTSB * MuNdEdxt
Definition: ZbpTable.h:18
Int
Total X sec *! Nuc Int Total X sec *! Nuc Int dE dx *! Nuc Int
Definition: cblkMuInt.h:101
f
dE dx *! Nuc Int sampling table f
Definition: cblkMuInt.h:130
E
dE dx E(v< all)/(g/cm2) data(MuPrdEdxt(i)
MuBrTX
real real real real BrTXL BrSTSB MuBrTX
Definition: ZbpTable.h:18
c
dE dx *! Nuc Int sampling table c
Definition: cblkMuInt.h:130