COSMOS v7.655  COSMOSv7655
(AirShowerMC)
genas.f
Go to the documentation of this file.
1 ! to test kdig or kdip
2 !
3 !
4 ! cosz=.98
5 ! e0=2.e5
6 ! de=2.80
7 ! de =20.0
8 ! zob=600.
9 ! s0=0.4
10 !
11 ! do s=s0, 1.8, .2
12 ! r=1.e-4
13 ! do i=1, 56
14 ! call kdip(e0, zob, cosz, s, de, i-1,r, rho)
15 ! write(*, *) r, rho
16 ! r=r*10.**.1
17 ! enddo
18 ! write(*, *)
19 ! enddo
20 ! end
21 
22 ! Changes form original GENAS
23 ! delete unused subroutines
24 ! rndc --> rndcsng which calls rndc inside
25 ! kintp3 ---> kintp3s
26 ! k4ptdi --> k4ptdis
27 ! kfrge --> kfrges
28 ! kgauss --> kgausss
29 ! kmolu ---> modified to use kgetMolierU in Cosmos
30 !
31 ! This is to use rndc's argument as single
32  subroutine rndcsng(u)
33  real*8 u8
34  real u
35  call rndc(u8)
36  u = u8
37  end
38 ! if(k1ry .eq. kgamma) then
39 ! call kdig(e0, zob, cos1ry, sage,discle, 1, r, rho)
40 ! elseif(k1ry .ge. kprotn) then
41 ! call kdip(e0pn, zob, cos1ry, sage,discle, 1, r, rho)
42 ! endif
43 ! if(k1ry .eq. kgamma) then
44 ! call kdigb(e0, zob, cos1ry, sage,discle, 1, r, rho)
45 ! elseif(k1ry .ge. kprotn) then
46 ! call kdipb(e0pn, zob, cos1ry, sage,discle, 1,r, rho)
47 ! endif
48 !
49 
50  block data degb
51 ! this de for u=0 to 1 step 0.1 at given r's. data for standard
52 ! gamma showers. observation by fe.1sc3.5
53 ! from e100v at 600 g/cm**2: fe.1sci3.5 hscint=t
54 ! for u=0 to 1 step .01 de=in mev
55  include "Zdeg"
56 ! 0-5 m
57  data (ed1(i),i= 1, 63)/
58  1 0.0000, 0.3010, 0.6007, 0.8979, 1.1513, 1.3818, 1.6301,
59  2 1.8971, 2.1604, 2.4215, 2.7264, 3.0443, 3.3307, 3.6570,
60  3 4.0426, 4.4397, 4.8547, 5.2753, 5.5256, 5.5804, 5.6353,
61  4 5.6901, 5.7449, 5.7997, 5.8545, 5.9094, 5.9642, 6.0090,
62  5 6.0348, 6.0606, 6.0864, 6.1122, 6.1381, 6.1639, 6.1897,
63  6 6.2155, 6.2414, 6.2672, 6.2930, 6.3188, 6.3446, 6.3705,
64  7 6.3963, 6.4221, 6.4479, 6.4738, 6.4996, 6.5362, 6.5731,
65  8 6.6099, 6.6467, 6.6836, 6.7204, 6.7572, 6.7940, 6.8309,
66  9 6.8677, 6.9045, 6.9414, 6.9782, 7.0234, 7.0806, 7.1378/
67  data (ed1(i),i= 64, 101)/
68  1 7.1950, 7.2522, 7.3094, 7.3666, 7.4238, 7.4810, 7.5545,
69  2 7.6359, 7.7174, 7.7989, 7.8804, 7.9618, 8.0604, 8.1740,
70  3 8.2876, 8.4012, 8.5219, 8.6900, 8.8582, 9.0374, 9.2761,
71  4 9.5171, 9.7934, 10.0736, 10.3653, 10.7035, 11.1019, 11.5615,
72  5 11.9521, 12.3141, 12.6925, 13.0988, 13.5309, 14.0679, 14.6709,
73  6 15.6246, 17.4516, 35.0000/
74 ! 5-10 m
75  data (ed2(i),i= 1, 63)/
76  1 0.0000, 0.2220, 0.4441, 0.6869, 0.9367, 1.2154, 1.5033,
77  2 1.7452, 1.9872, 2.2251, 2.4628, 2.7528, 3.0560, 3.3752,
78  3 3.7236, 4.0938, 4.4738, 4.8441, 5.2310, 5.5178, 5.5723,
79  4 5.6268, 5.6813, 5.7358, 5.7903, 5.8448, 5.8993, 5.9538,
80  5 6.0043, 6.0328, 6.0612, 6.0897, 6.1181, 6.1466, 6.1750,
81  6 6.2034, 6.2319, 6.2603, 6.2888, 6.3172, 6.3456, 6.3741,
82  7 6.4025, 6.4310, 6.4594, 6.4879, 6.5213, 6.5585, 6.5957,
83  8 6.6330, 6.6702, 6.7074, 6.7446, 6.7818, 6.8190, 6.8562,
84  9 6.8934, 6.9306, 6.9679, 7.0069, 7.0575, 7.1081, 7.1587/
85  data (ed2(i),i= 64, 101)/
86  1 7.2093, 7.2600, 7.3106, 7.3612, 7.4118, 7.4624, 7.5211,
87  2 7.6031, 7.6851, 7.7671, 7.8491, 7.9311, 8.0172, 8.1247,
88  3 8.2321, 8.3396, 8.4471, 8.5759, 8.7253, 8.8748, 9.0313,
89  4 9.2240, 9.4167, 9.6563, 9.9315, 10.2343, 10.5470, 10.8644,
90  5 11.3153, 11.7636, 12.1833, 12.6232, 13.0398, 13.5569, 14.1867,
91  6 15.1648, 16.9730, 47.0000/
92 ! 10-15 m
93  data (ed3(i),i= 1, 63)/
94  1 0.0000, 0.2290, 0.4580, 0.7037, 0.9531, 1.1842, 1.4110,
95  2 1.6419, 1.8754, 2.1094, 2.3441, 2.5795, 2.8165, 3.0668,
96  3 3.3627, 3.6773, 4.0073, 4.3069, 4.5935, 4.8567, 5.1607,
97  4 5.5025, 5.5662, 5.6300, 5.6938, 5.7575, 5.8213, 5.8851,
98  5 5.9488, 6.0057, 6.0343, 6.0629, 6.0915, 6.1201, 6.1487,
99  6 6.1773, 6.2059, 6.2345, 6.2631, 6.2917, 6.3204, 6.3490,
100  7 6.3776, 6.4062, 6.4348, 6.4634, 6.4920, 6.5270, 6.5644,
101  8 6.6019, 6.6393, 6.6768, 6.7142, 6.7517, 6.7891, 6.8266,
102  9 6.8640, 6.9015, 6.9389, 6.9764, 7.0199, 7.0738, 7.1277/
103  data (ed3(i),i= 64, 101)/
104  1 7.1816, 7.2354, 7.2893, 7.3432, 7.3971, 7.4510, 7.5071,
105  2 7.5853, 7.6635, 7.7417, 7.8200, 7.8982, 7.9764, 8.0718,
106  3 8.1747, 8.2776, 8.3805, 8.4834, 8.6185, 8.7598, 8.9012,
107  4 9.0556, 9.2402, 9.4248, 9.6371, 9.8683, 10.1476, 10.4903,
108  5 10.8506, 11.2939, 11.7750, 12.2494, 12.7329, 13.2751, 13.9702,
109  6 14.8156, 16.1838, 32.0000/
110 ! 15-25 m
111  data (ed4(i),i= 1, 63)/
112  1 0.0000, 0.1893, 0.3785, 0.5785, 0.7976, 1.0167, 1.2365,
113  2 1.4562, 1.6582, 1.8558, 2.0534, 2.2509, 2.4485, 2.6698,
114  3 2.8994, 3.1369, 3.3804, 3.6389, 3.9120, 4.1878, 4.4648,
115  4 4.7915, 5.1105, 5.4046, 5.5461, 5.6143, 5.6825, 5.7507,
116  5 5.8189, 5.8871, 5.9554, 6.0106, 6.0415, 6.0723, 6.1031,
117  6 6.1339, 6.1647, 6.1956, 6.2264, 6.2572, 6.2880, 6.3188,
118  7 6.3497, 6.3805, 6.4113, 6.4421, 6.4729, 6.5046, 6.5419,
119  8 6.5792, 6.6165, 6.6538, 6.6911, 6.7284, 6.7657, 6.8030,
120  9 6.8403, 6.8776, 6.9149, 6.9522, 6.9895, 7.0384, 7.0918/
121  data (ed4(i),i= 64, 101)/
122  1 7.1453, 7.1988, 7.2523, 7.3057, 7.3592, 7.4127, 7.4661,
123  2 7.5289, 7.6075, 7.6862, 7.7649, 7.8435, 7.9222, 8.0012,
124  3 8.1072, 8.2133, 8.3193, 8.4254, 8.5420, 8.6839, 8.8258,
125  4 8.9676, 9.1545, 9.3547, 9.5665, 9.8093, 10.0703, 10.3985,
126  5 10.7422, 11.1334, 11.6536, 12.2122, 12.7289, 13.2369, 13.8949,
127  6 14.9333, 16.8211, 41.0000/
128 ! 25-50
129  data (ed5(i),i= 1, 63)/
130  1 0.0000, 0.1562, 0.3124, 0.4686, 0.6371, 0.8086, 0.9801,
131  2 1.1585, 1.3378, 1.5148, 1.6702, 1.8256, 1.9810, 2.1427,
132  3 2.3053, 2.4679, 2.6473, 2.8307, 3.0153, 3.2145, 3.4136,
133  4 3.6364, 3.8776, 4.1196, 4.3627, 4.6003, 4.8307, 5.0687,
134  5 5.3283, 5.5260, 5.6026, 5.6793, 5.7560, 5.8327, 5.9094,
135  6 5.9861, 6.0299, 6.0663, 6.1028, 6.1392, 6.1757, 6.2122,
136  7 6.2486, 6.2851, 6.3216, 6.3580, 6.3945, 6.4309, 6.4674,
137  8 6.5043, 6.5449, 6.5854, 6.6260, 6.6666, 6.7072, 6.7477,
138  9 6.7883, 6.8289, 6.8694, 6.9100, 6.9506, 6.9911, 7.0444/
139  data (ed5(i),i= 64, 101)/
140  1 7.1011, 7.1578, 7.2146, 7.2713, 7.3281, 7.3848, 7.4415,
141  2 7.4983, 7.5744, 7.6512, 7.7279, 7.8046, 7.8814, 7.9581,
142  3 8.0501, 8.1603, 8.2706, 8.3809, 8.4911, 8.6389, 8.7900,
143  4 8.9410, 9.1176, 9.3106, 9.5046, 9.7576, 10.0130, 10.3275,
144  5 10.6916, 11.1271, 11.5971, 12.0947, 12.6100, 13.1466, 13.7987,
145  6 14.6733, 16.3022, 41.0000/
146 ! 50-100
147  data (ed6(i),i= 1, 63)/
148  1 0.0000, 0.1170, 0.2341, 0.3511, 0.4681, 0.5953, 0.7264,
149  2 0.8574, 0.9885, 1.1167, 1.2447, 1.3727, 1.5007, 1.6220,
150  3 1.7432, 1.8645, 1.9858, 2.1091, 2.2326, 2.3562, 2.4798,
151  4 2.6132, 2.7486, 2.8839, 3.0228, 3.1826, 3.3424, 3.5025,
152  5 3.6800, 3.8575, 4.0402, 4.2439, 4.4476, 4.6589, 4.8728,
153  6 5.0855, 5.2966, 5.5035, 5.5989, 5.6943, 5.7897, 5.8852,
154  7 5.9806, 6.0360, 6.0812, 6.1264, 6.1716, 6.2168, 6.2620,
155  8 6.3072, 6.3524, 6.3976, 6.4428, 6.4880, 6.5358, 6.5846,
156  9 6.6335, 6.6823, 6.7311, 6.7800, 6.8288, 6.8776, 6.9264/
157  data (ed6(i),i= 64, 101)/
158  1 6.9753, 7.0316, 7.0957, 7.1598, 7.2238, 7.2879, 7.3520,
159  2 7.4161, 7.4801, 7.5588, 7.6440, 7.7292, 7.8144, 7.8996,
160  3 7.9848, 8.0916, 8.2031, 8.3146, 8.4261, 8.5514, 8.7037,
161  4 8.8560, 9.0111, 9.2141, 9.4170, 9.6571, 9.9229, 10.2194,
162  5 10.5333, 10.8971, 11.3557, 11.8788, 12.4648, 12.9627, 13.6247,
163  6 14.4729, 16.1683, 47.0000/
164 ! 100-150
165  data (ed7(i),i= 1, 63)/
166  1 0.0000, 0.0914, 0.1829, 0.2743, 0.3657, 0.4571, 0.5479,
167  2 0.6380, 0.7282, 0.8183, 0.9084, 0.9986, 1.0898, 1.1811,
168  3 1.2723, 1.3636, 1.4549, 1.5433, 1.6291, 1.7148, 1.8005,
169  4 1.8862, 1.9720, 2.0630, 2.1566, 2.2502, 2.3438, 2.4375,
170  5 2.5408, 2.6636, 2.7864, 2.9091, 3.0319, 3.1543, 3.2768,
171  6 3.3993, 3.5252, 3.6668, 3.8084, 3.9500, 4.1015, 4.2584,
172  7 4.4153, 4.5848, 4.7690, 4.9532, 5.1399, 5.3275, 5.5093,
173  8 5.6248, 5.7403, 5.8559, 5.9714, 6.0446, 6.1040, 6.1633,
174  9 6.2226, 6.2819, 6.3412, 6.4005, 6.4599, 6.5197, 6.5805/
175  data (ed7(i),i= 64, 101)/
176  1 6.6413, 6.7021, 6.7629, 6.8237, 6.8845, 6.9453, 7.0081,
177  2 7.0887, 7.1692, 7.2498, 7.3304, 7.4109, 7.4915, 7.5891,
178  3 7.6888, 7.7885, 7.8882, 7.9878, 8.1275, 8.2728, 8.4180,
179  4 8.5735, 8.7424, 8.9113, 9.1112, 9.3455, 9.6049, 9.9130,
180  5 10.2551, 10.6318, 11.0723, 11.6418, 12.2728, 12.9082, 13.6841,
181  6 14.7043, 16.2589, 32.5000/
182 ! 100-177.8
183  data (ed8(i),i= 1, 63)/
184  1 0.0000, 0.0871, 0.1742, 0.2614, 0.3485, 0.4356, 0.5237,
185  2 0.6143, 0.7050, 0.7957, 0.8864, 0.9771, 1.0658, 1.1540,
186  3 1.2421, 1.3302, 1.4183, 1.5062, 1.5909, 1.6755, 1.7602,
187  4 1.8449, 1.9295, 2.0152, 2.1063, 2.1973, 2.2884, 2.3794,
188  5 2.4704, 2.5789, 2.6957, 2.8125, 2.9293, 3.0455, 3.1607,
189  6 3.2760, 3.3912, 3.5078, 3.6470, 3.7862, 3.9255, 4.0726,
190  7 4.2289, 4.3851, 4.5462, 4.7207, 4.8952, 5.0749, 5.2627,
191  8 5.4505, 5.5866, 5.7042, 5.8218, 5.9394, 6.0301, 6.0921,
192  9 6.1541, 6.2162, 6.2782, 6.3402, 6.4022, 6.4643, 6.5266/
193  data (ed8(i),i= 64, 101)/
194  1 6.5895, 6.6523, 6.7151, 6.7779, 6.8407, 6.9036, 6.9664,
195  2 7.0376, 7.1185, 7.1994, 7.2803, 7.3612, 7.4420, 7.5291,
196  3 7.6316, 7.7342, 7.8367, 7.9393, 8.0610, 8.2105, 8.3600,
197  4 8.5112, 8.6884, 8.8655, 9.0565, 9.2909, 9.5330, 9.8393,
198  5 10.1780, 10.5628, 11.0120, 11.5374, 12.1962, 12.8664, 13.6414,
199  6 14.6690, 16.1228, 43.0000/
200 ! 177.8-316.2 m
201  data (ed9(i),i= 1, 63)/
202  1 0.0000, 0.0702, 0.1405, 0.2107, 0.2809, 0.3511, 0.4214,
203  2 0.4916, 0.5621, 0.6326, 0.7032, 0.7737, 0.8443, 0.9148,
204  3 0.9854, 1.0563, 1.1272, 1.1982, 1.2692, 1.3402, 1.4111,
205  4 1.4821, 1.5493, 1.6151, 1.6810, 1.7468, 1.8127, 1.8785,
206  5 1.9444, 2.0111, 2.0827, 2.1544, 2.2260, 2.2976, 2.3693,
207  6 2.4409, 2.5163, 2.6095, 2.7026, 2.7958, 2.8890, 2.9821,
208  7 3.0793, 3.1774, 3.2754, 3.3735, 3.4716, 3.5830, 3.6998,
209  8 3.8166, 3.9334, 4.0576, 4.1916, 4.3256, 4.4595, 4.5977,
210  9 4.7378, 4.8778, 5.0212, 5.1878, 5.3545, 5.5168, 5.6492/
211  data (ed9(i),i= 64, 101)/
212  1 5.7817, 5.9141, 6.0291, 6.1118, 6.1945, 6.2773, 6.3600,
213  2 6.4427, 6.5279, 6.6187, 6.7095, 6.8003, 6.8911, 6.9819,
214  3 7.0882, 7.1984, 7.3085, 7.4187, 7.5386, 7.6857, 7.8328,
215  4 7.9799, 8.1465, 8.3162, 8.4859, 8.6754, 8.8667, 9.1000,
216  5 9.4297, 9.7792, 10.1757, 10.6365, 11.1483, 11.9815, 12.7875,
217  6 13.6833, 15.2957, 34.5000/
218 ! 316.2-562. m
219  data (ed10(i),i= 1, 63)/
220  1 0.0000, 0.0593, 0.1186, 0.1778, 0.2371, 0.2964, 0.3557,
221  2 0.4150, 0.4743, 0.5354, 0.5980, 0.6606, 0.7232, 0.7857,
222  3 0.8483, 0.9109, 0.9735, 1.0380, 1.1040, 1.1700, 1.2359,
223  4 1.3019, 1.3678, 1.4338, 1.4998, 1.5567, 1.6136, 1.6704,
224  5 1.7273, 1.7842, 1.8411, 1.8980, 1.9549, 2.0130, 2.0762,
225  6 2.1393, 2.2025, 2.2656, 2.3288, 2.3919, 2.4551, 2.5220,
226  7 2.5984, 2.6747, 2.7511, 2.8274, 2.9038, 2.9802, 3.0608,
227  8 3.1430, 3.2251, 3.3073, 3.3895, 3.4716, 3.5681, 3.6722,
228  9 3.7763, 3.8804, 3.9844, 4.0988, 4.2149, 4.3310, 4.4471/
229  data (ed10(i),i= 64, 101)/
230  1 4.5836, 4.7371, 4.8907, 5.0485, 5.2168, 5.3850, 5.5492,
231  2 5.7044, 5.8597, 6.0111, 6.1262, 6.2414, 6.3565, 6.4717,
232  3 6.5906, 6.7107, 6.8308, 6.9508, 7.0883, 7.2378, 7.3872,
233  4 7.5383, 7.6944, 7.8505, 8.0099, 8.2421, 8.4744, 8.7451,
234  5 9.0244, 9.3511, 9.7638, 10.2717, 10.9210, 11.9344, 12.9703,
235  6 13.9042, 15.7898, 45.5000/
236 ! 562.-1000. m
237  data (ed11(i),i= 1, 63)/
238  1 0.0000, 0.0615, 0.1231, 0.1846, 0.2462, 0.3077, 0.3693,
239  2 0.4308, 0.4924, 0.5507, 0.6085, 0.6664, 0.7242, 0.7821,
240  3 0.8400, 0.8978, 0.9557, 1.0149, 1.0786, 1.1424, 1.2061,
241  4 1.2698, 1.3336, 1.3973, 1.4610, 1.5202, 1.5723, 1.6244,
242  5 1.6765, 1.7286, 1.7807, 1.8328, 1.8849, 1.9370, 1.9891,
243  6 2.0466, 2.1055, 2.1645, 2.2234, 2.2824, 2.3413, 2.4003,
244  7 2.4592, 2.5218, 2.5928, 2.6637, 2.7346, 2.8056, 2.8765,
245  8 2.9474, 3.0220, 3.1068, 3.1916, 3.2764, 3.3613, 3.4461,
246  9 3.5361, 3.6349, 3.7338, 3.8326, 3.9315, 4.0367, 4.1563/
247  data (ed11(i),i= 64, 101)/
248  1 4.2758, 4.3954, 4.5190, 4.6702, 4.8215, 4.9728, 5.1072,
249  2 5.2380, 5.3688, 5.4996, 5.6669, 5.8343, 6.0013, 6.1321,
250  3 6.2629, 6.3936, 6.5266, 6.6693, 6.8120, 6.9546, 7.0941,
251  4 7.2321, 7.3700, 7.5107, 7.6954, 7.8800, 8.0976, 8.3766,
252  5 8.6946, 9.0400, 9.3619, 9.7472, 10.2488, 10.9549, 12.1528,
253  6 13.6111, 15.1348, 33.5000/
254 ! 1000-1778 m
255  data (ed12(i),i= 1, 63)/
256  1 0.0000, 0.0563, 0.1126, 0.1689, 0.2252, 0.2815, 0.3378,
257  2 0.3941, 0.4504, 0.5065, 0.5604, 0.6144, 0.6683, 0.7223,
258  3 0.7762, 0.8302, 0.8842, 0.9381, 0.9921, 1.0562, 1.1220,
259  4 1.1879, 1.2537, 1.3196, 1.3854, 1.4513, 1.5142, 1.5689,
260  5 1.6237, 1.6784, 1.7331, 1.7878, 1.8425, 1.8973, 1.9520,
261  6 2.0072, 2.0661, 2.1249, 2.1838, 2.2426, 2.3015, 2.3604,
262  7 2.4192, 2.4781, 2.5452, 2.6171, 2.6891, 2.7610, 2.8330,
263  8 2.9049, 2.9768, 3.0538, 3.1331, 3.2123, 3.2916, 3.3709,
264  9 3.4502, 3.5344, 3.6269, 3.7194, 3.8119, 3.9044, 3.9969/
265  data (ed12(i),i= 64, 101)/
266  1 4.1211, 4.2464, 4.3718, 4.4971, 4.6150, 4.7327, 4.8504,
267  2 4.9682, 5.1417, 5.3360, 5.5224, 5.6663, 5.8102, 5.9541,
268  3 6.0980, 6.2418, 6.3857, 6.5400, 6.7342, 6.9285, 7.1227,
269  4 7.3170, 7.5125, 7.7283, 7.9442, 8.1920, 8.4510, 8.7423,
270  5 9.0668, 9.5420, 9.9305, 10.4557, 10.8575, 11.3514, 12.5862,
271  6 13.6148, 17.1147, 45.5000/
272 ! 1778-3162 m
273  data (ed13(i),i= 1, 63)/
274  1 0.0000, 0.0527, 0.1054, 0.1581, 0.2108, 0.2635, 0.3162,
275  2 0.3688, 0.4215, 0.4742, 0.5389, 0.6150, 0.6911, 0.7672,
276  3 0.8433, 0.9194, 0.9956, 1.0717, 1.1478, 1.2239, 1.3000,
277  4 1.3761, 1.4522, 1.5232, 1.5855, 1.6477, 1.7100, 1.7723,
278  5 1.8345, 1.8968, 1.9591, 2.0261, 2.1022, 2.1783, 2.2544,
279  6 2.3306, 2.4067, 2.4828, 2.5662, 2.6519, 2.7375, 2.8231,
280  7 2.9087, 2.9944, 3.0800, 3.1656, 3.2512, 3.3369, 3.4225,
281  8 3.5108, 3.6250, 3.7392, 3.8533, 3.9675, 4.0980, 4.2350,
282  9 4.3720, 4.5045, 4.5730, 4.6415, 4.7100, 4.7785, 4.8470/
283  data (ed13(i),i= 64, 101)/
284  1 4.9155, 4.9840, 5.0875, 5.2017, 5.3158, 5.4300, 5.7650,
285  2 6.1500, 6.3783, 6.5533, 6.6675, 6.7817, 6.8958, 7.0600,
286  3 7.5223, 7.5845, 7.6468, 7.7091, 7.7714, 7.8336, 7.8959,
287  4 7.9582, 8.0750, 8.3033, 8.5949, 9.1400, 9.4825, 9.6625,
288  5 9.8337, 10.0100, 10.3525, 12.0598, 12.7875, 13.2599, 13.9449,
289  6 15.0198, 18.3896, 23.5000/
290 ! 3162-5600 m (same as above)
291  data (ed14(i),i= 1, 63)/
292  1 0.0000, 0.0600, 0.1200, 0.1800, 0.2400, 0.3000, 0.3600,
293  2 0.4200, 0.4800, 0.5267, 0.5667, 0.6067, 0.6467, 0.6867,
294  3 0.7267, 0.7667, 0.8067, 0.8467, 0.8867, 0.9267, 0.9667,
295  4 1.0067, 1.0467, 1.0867, 1.1267, 1.1667, 1.2067, 1.2467,
296  5 1.2867, 1.3267, 1.3667, 1.4067, 1.4467, 1.4867, 1.5400,
297  6 1.6000, 1.6600, 1.7200, 1.7800, 1.8400, 1.9000, 1.9600,
298  7 2.0200, 2.0800, 2.1400, 2.2000, 2.2600, 2.3200, 2.3800,
299  8 2.4400, 2.5000, 2.9200, 3.3400, 3.7600, 4.1800, 4.6000,
300  9 5.0200, 5.4400, 5.8600, 6.1600, 6.4000, 6.6400, 6.8800/
301  data (ed14(i),i= 64, 101)/
302  1 7.1200, 7.3600, 7.6000, 7.8400, 8.1000, 8.4000, 8.7000,
303  2 9.0000, 9.3000, 9.6000, 9.9000, 10.2000, 10.5000, 10.7400,
304  3 10.9800, 11.2200, 11.4600, 11.7000, 11.9400, 12.1800, 12.4200,
305  4 12.6600, 12.9000, 13.1400, 13.3800, 13.6200, 13.8600, 14.1000,
306  5 14.3400, 14.7199, 15.3799, 16.0399, 16.6999, 17.3599, 18.0199,
307  6 18.6799, 19.3399, 20.0000/
308  end
309 ! block data which gives de (energy loss in scinti for
310 ! a standard gamma 1ry shower. scinti is assumed under
311 ! 0.5cmpb+0.1cm fe. scinti is 3.5 cm thick).
312 ! from e100v at 600 g/cm**2: pb.5fe.1sci3.5 hscint=t
313 ! for u=0 to 1 step .01 de=in mev
314  block data degbb
315  include "Zdegb"
316 ! 0-5 m
317  data (ed1(i),i= 1, 63)/
318  1 0.0000, 0.0738, 0.1477, 0.2215, 0.2953, 0.3691, 0.4430,
319  2 0.5424, 0.7291, 0.9157, 1.1274, 1.3599, 1.6185, 1.9170,
320  3 2.2224, 2.5397, 2.9413, 3.3393, 3.7596, 4.2263, 4.6791,
321  4 5.0852, 5.5406, 5.8684, 6.0782, 6.2089, 6.3396, 6.4702,
322  5 6.5928, 6.7131, 6.8333, 6.9535, 7.0807, 7.2123, 7.3439,
323  6 7.4754, 7.6294, 7.7886, 7.9477, 8.1206, 8.3002, 8.4799,
324  7 8.6760, 8.8742, 9.0950, 9.3550, 9.6142, 9.8725, 10.1511,
325  8 10.4496, 10.7772, 11.1056, 11.4239, 11.7289, 12.0251, 12.2800,
326  9 12.5329, 12.7742, 13.0148, 13.2472, 13.4797, 13.6983, 13.9156/
327  data (ed1(i),i= 64, 101)/
328  1 14.1340, 14.3532, 14.5819, 14.8302, 15.0859, 15.3579, 15.6388,
329  2 15.9293, 16.2546, 16.5988, 16.9641, 17.3602, 17.7710, 18.2188,
330  3 18.7069, 19.2197, 19.7583, 20.2570, 20.7728, 21.3754, 22.0388,
331  4 22.6537, 23.3577, 24.3015, 25.1532, 26.0827, 27.1849, 28.2882,
332  5 29.5552, 31.0501, 32.9881, 34.7921, 37.2846, 40.2374, 44.0689,
333  6 49.6488, 60.5412,124.0000/
334 ! 5-10 m
335  data (ed2(i),i= 1, 63)/
336  1 0.0000, 0.0547, 0.1095, 0.1642, 0.2190, 0.2737, 0.3284,
337  2 0.3832, 0.4379, 0.4927, 0.6100, 0.7369, 0.8639, 0.9909,
338  3 1.1724, 1.3581, 1.5529, 1.7770, 2.0011, 2.2522, 2.5043,
339  4 2.8351, 3.1815, 3.5488, 3.9566, 4.3233, 4.7087, 5.1190,
340  5 5.5268, 5.8401, 6.0624, 6.1898, 6.3172, 6.4446, 6.5610,
341  6 6.6689, 6.7769, 6.8848, 6.9928, 7.1138, 7.2358, 7.3577,
342  7 7.4797, 7.6151, 7.7532, 7.8913, 8.0354, 8.2011, 8.3669,
343  8 8.5336, 8.7045, 8.8754, 9.0613, 9.2873, 9.5144, 9.7591,
344  9 10.0042, 10.2737, 10.5456, 10.8300, 11.1225, 11.4272, 11.7148/
345  data (ed2(i),i= 64, 101)/
346  1 11.9971, 12.2774, 12.5501, 12.7932, 13.0379, 13.2914, 13.5431,
347  2 13.7863, 14.0292, 14.2708, 14.5126, 14.7565, 15.0004, 15.2644,
348  3 15.5345, 15.8556, 16.1797, 16.5093, 16.9911, 17.4156, 17.8568,
349  4 18.3094, 18.8073, 19.4079, 20.0710, 20.6831, 21.3597, 22.1528,
350  5 22.9861, 24.0487, 25.0710, 26.4454, 28.1873, 30.1716, 33.0149,
351  6 36.8021, 43.9864, 85.0000/
352 ! 10-15 m
353  data (ed3(i),i= 1, 63)/
354  1 0.0000, 0.0416, 0.0832, 0.1247, 0.1663, 0.2079, 0.2495,
355  2 0.2911, 0.3327, 0.3742, 0.4158, 0.4574, 0.4990, 0.6090,
356  3 0.7207, 0.8324, 0.9442, 1.0812, 1.2434, 1.4057, 1.5832,
357  4 1.7819, 1.9806, 2.2058, 2.4339, 2.6827, 2.9399, 3.2183,
358  5 3.5033, 3.8106, 4.1241, 4.4479, 4.7770, 5.1140, 5.4651,
359  6 5.7511, 6.0152, 6.1564, 6.2976, 6.4388, 6.5626, 6.6730,
360  7 6.7834, 6.8938, 7.0050, 7.1338, 7.2627, 7.3916, 7.5206,
361  8 7.6505, 7.7803, 7.9102, 8.0489, 8.2073, 8.3656, 8.5276,
362  9 8.7094, 8.8912, 9.0991, 9.3458, 9.5833, 9.8052, 10.0315/
363  data (ed3(i),i= 64, 101)/
364  1 10.2887, 10.5500, 10.8300, 11.1242, 11.4402, 11.7575, 12.0747,
365  2 12.3907, 12.7087, 13.0245, 13.3057, 13.5811, 13.8434, 14.0962,
366  3 14.3349, 14.5835, 14.8544, 15.1476, 15.4666, 15.7927, 16.1472,
367  4 16.5526, 16.9808, 17.4695, 18.0180, 18.7308, 19.5051, 20.2249,
368  5 20.9745, 21.9077, 22.9905, 24.2317, 25.8952, 27.8448, 30.1300,
369  6 33.5203, 40.1259,107.5000/
370 ! 15-25 m
371  data (ed4(i),i= 1, 63)/
372  1 0.0000, 0.0382, 0.0765, 0.1147, 0.1530, 0.1912, 0.2294,
373  2 0.2677, 0.3059, 0.3441, 0.3824, 0.4206, 0.4589, 0.4971,
374  3 0.5884, 0.6841, 0.7797, 0.8754, 0.9710, 1.1056, 1.2571,
375  4 1.4086, 1.5730, 1.7570, 1.9410, 2.1291, 2.3192, 2.5109,
376  5 2.7341, 2.9572, 3.2012, 3.4501, 3.7426, 4.0486, 4.3689,
377  6 4.6892, 5.0088, 5.3044, 5.5913, 5.8608, 6.0689, 6.2112,
378  7 6.3536, 6.4959, 6.6063, 6.7158, 6.8253, 6.9348, 7.0495,
379  8 7.1718, 7.2942, 7.4166, 7.5458, 7.6898, 7.8337, 7.9777,
380  9 8.1396, 8.3049, 8.4701, 8.6549, 8.8439, 9.0377, 9.2544/
381  data (ed4(i),i= 64, 101)/
382  1 9.4711, 9.6967, 9.9238, 10.1720, 10.4308, 10.7083, 10.9926,
383  2 11.3073, 11.6282, 11.9576, 12.2774, 12.5862, 12.8729, 13.1623,
384  3 13.4538, 13.7317, 14.0068, 14.2778, 14.5561, 14.8677, 15.1971,
385  4 15.5484, 15.9669, 16.3593, 16.7936, 17.3007, 17.8788, 18.5625,
386  5 19.3250, 20.1580, 21.0951, 22.2919, 23.7341, 25.4084, 27.6309,
387  6 30.8772, 36.4194, 85.0000/
388 ! 25-50
389  data (ed5(i),i= 1, 63)/
390  1 0.0000, 0.0323, 0.0646, 0.0969, 0.1292, 0.1615, 0.1938,
391  2 0.2261, 0.2584, 0.2907, 0.3230, 0.3553, 0.3877, 0.4200,
392  3 0.4523, 0.4846, 0.5437, 0.6273, 0.7110, 0.7946, 0.8783,
393  4 0.9619, 1.0636, 1.1803, 1.2969, 1.4136, 1.5395, 1.6914,
394  5 1.8434, 1.9953, 2.1618, 2.3288, 2.4957, 2.6949, 2.8949,
395  6 3.1087, 3.3379, 3.5757, 3.8346, 4.1055, 4.3976, 4.6872,
396  7 4.9755, 5.2619, 5.5420, 5.7919, 6.0259, 6.1808, 6.3358,
397  8 6.4907, 6.6172, 6.7418, 6.8665, 6.9911, 7.1169, 7.2429,
398  9 7.3688, 7.4947, 7.6327, 7.7711, 7.9096, 8.0582, 8.2260/
399  data (ed5(i),i= 64, 101)/
400  1 8.3939, 8.5725, 8.7698, 8.9671, 9.1865, 9.4105, 9.6551,
401  2 9.9136, 10.1913, 10.4785, 10.7452, 11.0136, 11.3657, 11.7081,
402  3 12.0457, 12.3909, 12.7398, 13.0840, 13.4100, 13.7178, 14.0195,
403  4 14.3319, 14.6483, 14.9696, 15.3254, 15.7340, 16.2068, 16.7057,
404  5 17.2538, 17.9755, 18.8161, 19.7417, 20.9022, 22.3770, 24.3230,
405  6 26.8755, 31.5055, 76.9999/
406 ! 50-100
407  data (ed6(i),i= 1, 63)/
408  1 0.0000, 0.0280, 0.0559, 0.0839, 0.1119, 0.1399, 0.1678,
409  2 0.1958, 0.2238, 0.2518, 0.2797, 0.3077, 0.3357, 0.3637,
410  3 0.3916, 0.4196, 0.4476, 0.4756, 0.5086, 0.5766, 0.6447,
411  4 0.7127, 0.7808, 0.8488, 0.9169, 0.9849, 1.0782, 1.1786,
412  5 1.2790, 1.3793, 1.4797, 1.5941, 1.7121, 1.8301, 1.9481,
413  6 2.0798, 2.2223, 2.3648, 2.5084, 2.6727, 2.8370, 3.0016,
414  7 3.2022, 3.4028, 3.6240, 3.8644, 4.0983, 4.3237, 4.5501,
415  8 4.7800, 5.0105, 5.2548, 5.4991, 5.7347, 5.9703, 6.1402,
416  9 6.3007, 6.4612, 6.6091, 6.7529, 6.8968, 7.0400, 7.1819/
417  data (ed6(i),i= 64, 101)/
418  1 7.3237, 7.4656, 7.6283, 7.7977, 7.9672, 8.1480, 8.3316,
419  2 8.5178, 8.7324, 8.9470, 9.1901, 9.4425, 9.7179, 9.9999,
420  3 10.3142, 10.6370, 10.9721, 11.3142, 11.6756, 12.0633, 12.4738,
421  4 12.8581, 13.2501, 13.6383, 14.0108, 14.3973, 14.7706, 15.1738,
422  5 15.6636, 16.2263, 16.8703, 17.5766, 18.4598, 19.7243, 21.2656,
423  6 23.5299, 27.6254, 69.0000/
424 ! 100-150
425  data (ed7(i),i= 1, 63)/
426  1 0.0000, 0.0247, 0.0494, 0.0741, 0.0988, 0.1234, 0.1481,
427  2 0.1728, 0.1975, 0.2222, 0.2469, 0.2716, 0.2963, 0.3210,
428  3 0.3456, 0.3703, 0.3950, 0.4197, 0.4444, 0.4691, 0.4938,
429  4 0.5454, 0.6061, 0.6668, 0.7275, 0.7882, 0.8489, 0.9096,
430  5 0.9703, 1.0438, 1.1294, 1.2150, 1.3007, 1.3863, 1.4719,
431  6 1.5669, 1.6665, 1.7660, 1.8656, 1.9652, 2.0787, 2.1998,
432  7 2.3209, 2.4420, 2.5786, 2.7295, 2.8804, 3.0367, 3.2135,
433  8 3.3903, 3.5677, 3.7458, 3.9240, 4.1135, 4.3115, 4.5104,
434  9 4.7278, 4.9451, 5.1748, 5.4086, 5.6296, 5.8424, 6.0465/
435  data (ed7(i),i= 64, 101)/
436  1 6.2255, 6.4046, 6.5849, 6.7667, 6.9485, 7.1201, 7.2878,
437  2 7.4554, 7.6321, 7.8120, 7.9920, 8.1924, 8.3938, 8.6216,
438  3 8.8792, 9.1509, 9.4353, 9.7451, 10.0706, 10.4296, 10.8055,
439  4 11.1929, 11.5957, 12.0308, 12.5277, 12.9692, 13.4656, 13.9243,
440  5 14.3728, 14.8507, 15.3955, 16.1013, 16.8869, 17.7893, 19.0609,
441  6 20.8426, 24.2707, 57.0000/
442 ! 100-177.8
443  data (ed8(i),i= 1, 63)/
444  1 0.0000, 0.0241, 0.0482, 0.0723, 0.0964, 0.1206, 0.1447,
445  2 0.1688, 0.1929, 0.2170, 0.2411, 0.2652, 0.2893, 0.3134,
446  3 0.3375, 0.3617, 0.3858, 0.4099, 0.4340, 0.4581, 0.4822,
447  4 0.5158, 0.5761, 0.6363, 0.6966, 0.7568, 0.8171, 0.8773,
448  5 0.9376, 0.9978, 1.0805, 1.1640, 1.2475, 1.3310, 1.4145,
449  6 1.4980, 1.5930, 1.6883, 1.7835, 1.8788, 1.9741, 2.0871,
450  7 2.2066, 2.3262, 2.4457, 2.5803, 2.7273, 2.8743, 3.0244,
451  8 3.1922, 3.3601, 3.5299, 3.7096, 3.8892, 4.0742, 4.2678,
452  9 4.4614, 4.6642, 4.8692, 5.0871, 5.3277, 5.5623, 5.7817/
453  data (ed8(i),i= 64, 101)/
454  1 6.0009, 6.1843, 6.3676, 6.5498, 6.7288, 6.9078, 7.0853,
455  2 7.2614, 7.4375, 7.6198, 7.8057, 7.9915, 8.2016, 8.4129,
456  3 8.6536, 8.9148, 9.2028, 9.5038, 9.8153, 10.1482, 10.5138,
457  4 10.9256, 11.3404, 11.7745, 12.2596, 12.7559, 13.2443, 13.7279,
458  5 14.1833, 14.6483, 15.1787, 15.8347, 16.6511, 17.4975, 18.7856,
459  6 20.6377, 24.0126, 57.0000/
460 ! 177.8-316.2 m
461  data (ed9(i),i= 1, 63)/
462  1 0.0000, 0.0212, 0.0424, 0.0636, 0.0848, 0.1060, 0.1271,
463  2 0.1483, 0.1695, 0.1907, 0.2119, 0.2331, 0.2543, 0.2755,
464  3 0.2967, 0.3179, 0.3390, 0.3602, 0.3814, 0.4026, 0.4238,
465  4 0.4450, 0.4662, 0.4874, 0.5218, 0.5755, 0.6293, 0.6830,
466  5 0.7368, 0.7906, 0.8443, 0.8981, 0.9519, 1.0077, 1.0818,
467  6 1.1558, 1.2298, 1.3038, 1.3779, 1.4519, 1.5313, 1.6205,
468  7 1.7097, 1.7989, 1.8882, 1.9774, 2.0736, 2.1723, 2.2709,
469  8 2.3695, 2.4682, 2.5826, 2.7047, 2.8267, 2.9487, 3.0809,
470  9 3.2204, 3.3598, 3.4993, 3.6759, 3.8527, 4.0308, 4.2148/
471  data (ed9(i),i= 64, 101)/
472  1 4.3989, 4.5992, 4.8193, 5.0429, 5.2817, 5.5188, 5.7368,
473  2 5.9548, 6.1599, 6.3616, 6.5613, 6.7565, 6.9518, 7.1533,
474  3 7.3568, 7.5691, 7.8022, 8.0380, 8.2894, 8.5525, 8.8764,
475  4 9.2125, 9.5612, 9.9355, 10.3767, 10.8585, 11.4101, 12.0542,
476  5 12.6278, 13.1989, 13.8526, 14.5298, 15.2546, 16.0804, 17.1816,
477  6 18.8716, 22.0776, 49.5000/
478 ! 316.2-562. m
479  data (ed10(i),i= 1, 63)/
480  1 0.0000, 0.0193, 0.0386, 0.0579, 0.0773, 0.0966, 0.1159,
481  2 0.1352, 0.1545, 0.1738, 0.1931, 0.2124, 0.2318, 0.2511,
482  3 0.2704, 0.2897, 0.3090, 0.3283, 0.3476, 0.3669, 0.3863,
483  4 0.4056, 0.4249, 0.4442, 0.4635, 0.4828, 0.5054, 0.5541,
484  5 0.6029, 0.6516, 0.7004, 0.7491, 0.7978, 0.8466, 0.8953,
485  6 0.9440, 0.9928, 1.0574, 1.1249, 1.1923, 1.2597, 1.3271,
486  7 1.3945, 1.4620, 1.5328, 1.6079, 1.6831, 1.7582, 1.8333,
487  8 1.9085, 1.9836, 2.0620, 2.1414, 2.2207, 2.3000, 2.3794,
488  9 2.4587, 2.5531, 2.6639, 2.7747, 2.8855, 2.9963, 3.1443/
489  data (ed10(i),i= 64, 101)/
490  1 3.2935, 3.4427, 3.5998, 3.7619, 3.9240, 4.1097, 4.3163,
491  2 4.5214, 4.7136, 4.9058, 5.1172, 5.3468, 5.5760, 5.8043,
492  3 6.0287, 6.2293, 6.4299, 6.6416, 6.8591, 7.0832, 7.3194,
493  4 7.5652, 7.8426, 8.1453, 8.4814, 8.8394, 9.2513, 9.7428,
494  5 10.3262, 11.0277, 11.6899, 12.5096, 13.3907, 14.3696, 15.4002,
495  6 17.0735, 19.7820, 42.5000/
496 ! 562.-1000. m
497  data (ed11(i),i= 1, 63)/
498  1 0.0000, 0.0166, 0.0332, 0.0498, 0.0663, 0.0829, 0.0995,
499  2 0.1161, 0.1327, 0.1493, 0.1659, 0.1825, 0.1990, 0.2156,
500  3 0.2322, 0.2488, 0.2654, 0.2820, 0.2986, 0.3152, 0.3317,
501  4 0.3483, 0.3649, 0.3815, 0.3981, 0.4147, 0.4313, 0.4479,
502  5 0.4644, 0.4810, 0.4976, 0.5398, 0.5862, 0.6326, 0.6791,
503  6 0.7255, 0.7719, 0.8184, 0.8648, 0.9112, 0.9577, 1.0060,
504  7 1.0740, 1.1420, 1.2099, 1.2779, 1.3459, 1.4138, 1.4818,
505  8 1.5550, 1.6300, 1.7050, 1.7801, 1.8551, 1.9302, 2.0066,
506  9 2.1013, 2.1961, 2.2908, 2.3856, 2.4803, 2.5844, 2.6910/
507  data (ed11(i),i= 64, 101)/
508  1 2.7976, 2.9042, 3.0130, 3.1415, 3.2700, 3.3985, 3.5313,
509  2 3.6801, 3.8290, 3.9779, 4.1536, 4.3340, 4.5220, 4.7979,
510  3 5.0620, 5.2936, 5.5265, 5.7701, 6.0116, 6.2178, 6.4239,
511  4 6.6600, 6.9135, 7.1716, 7.4322, 7.7393, 8.0743, 8.4571,
512  5 8.8544, 9.3725, 9.9317, 10.8959, 11.5916, 12.4715, 13.4359,
513  6 14.7928, 17.1376, 46.5000/
514 ! 1000-1778 m
515  data (ed12(i),i= 1, 63)/
516  1 0.0000, 0.0157, 0.0313, 0.0470, 0.0626, 0.0783, 0.0939,
517  2 0.1096, 0.1252, 0.1409, 0.1565, 0.1722, 0.1878, 0.2035,
518  3 0.2191, 0.2348, 0.2504, 0.2661, 0.2817, 0.2974, 0.3130,
519  4 0.3287, 0.3443, 0.3600, 0.3757, 0.3913, 0.4070, 0.4226,
520  5 0.4383, 0.4539, 0.4696, 0.4852, 0.5025, 0.5479, 0.5932,
521  6 0.6386, 0.6839, 0.7293, 0.7746, 0.8200, 0.8654, 0.9107,
522  7 0.9561, 1.0020, 1.0646, 1.1272, 1.1898, 1.2524, 1.3150,
523  8 1.3776, 1.4402, 1.5032, 1.5734, 1.6437, 1.7139, 1.7841,
524  9 1.8544, 1.9246, 1.9949, 2.0937, 2.1947, 2.2958, 2.3968/
525  data (ed12(i),i= 64, 101)/
526  1 2.4979, 2.6282, 2.7591, 2.8900, 3.0224, 3.1629, 3.3034,
527  2 3.4439, 3.5824, 3.7195, 3.8567, 3.9938, 4.2500, 4.5067,
528  3 4.6543, 4.8020, 4.9497, 5.1583, 5.3983, 5.8018, 6.1491,
529  4 6.3891, 6.6348, 6.8852, 7.1356, 7.3861, 7.7616, 8.3222,
530  5 9.0942, 9.6622, 9.9822, 11.0628, 12.1999, 12.9949, 14.2398,
531  6 16.6918, 19.1597, 45.5000/
532 ! 1778-3162 m
533  data (ed13(i),i= 1, 63)/
534  1 0.0000, 0.0136, 0.0272, 0.0408, 0.0544, 0.0680, 0.0815,
535  2 0.0951, 0.1087, 0.1223, 0.1359, 0.1495, 0.1631, 0.1767,
536  3 0.1903, 0.2039, 0.2175, 0.2311, 0.2446, 0.2582, 0.2718,
537  4 0.2854, 0.2990, 0.3126, 0.3262, 0.3398, 0.3534, 0.3670,
538  5 0.3806, 0.3942, 0.4077, 0.4213, 0.4349, 0.4485, 0.4621,
539  6 0.4757, 0.4893, 0.5102, 0.5585, 0.6067, 0.6550, 0.7032,
540  7 0.7515, 0.7997, 0.8480, 0.8962, 0.9445, 0.9927, 1.1025,
541  8 1.2231, 1.3437, 1.4644, 1.5971, 1.7350, 1.8729, 2.0068,
542  9 2.0945, 2.1823, 2.2700, 2.3577, 2.4454, 2.5365, 2.6330/
543  data (ed13(i),i= 64, 101)/
544  1 2.7295, 2.8260, 2.9225, 3.0380, 3.2310, 3.4240, 3.6170,
545  2 3.8100, 4.0025, 4.1633, 4.3242, 4.4850, 4.6458, 4.8067,
546  3 4.9675, 5.1925, 5.4337, 5.5875, 5.7081, 5.8287, 5.9494,
547  4 6.1866, 6.5062, 6.7475, 6.9887, 7.4600, 7.7212, 7.9625,
548  5 8.4075, 8.7600, 9.2449, 10.1050, 10.5875, 11.2099, 12.6574,
549  6 14.3496, 18.6397, 22.5000/
550 ! 3162-5600 m (same as above)
551  data (ed14(i),i= 1, 63)/
552  1 0.0000, 0.0136, 0.0272, 0.0408, 0.0544, 0.0680, 0.0815,
553  2 0.0951, 0.1087, 0.1223, 0.1359, 0.1495, 0.1631, 0.1767,
554  3 0.1903, 0.2039, 0.2175, 0.2311, 0.2446, 0.2582, 0.2718,
555  4 0.2854, 0.2990, 0.3126, 0.3262, 0.3398, 0.3534, 0.3670,
556  5 0.3806, 0.3942, 0.4077, 0.4213, 0.4349, 0.4485, 0.4621,
557  6 0.4757, 0.4893, 0.5102, 0.5585, 0.6067, 0.6550, 0.7032,
558  7 0.7515, 0.7997, 0.8480, 0.8962, 0.9445, 0.9927, 1.1025,
559  8 1.2231, 1.3437, 1.4644, 1.5971, 1.7350, 1.8729, 2.0068,
560  9 2.0945, 2.1823, 2.2700, 2.3577, 2.4454, 2.5365, 2.6330/
561  data (ed14(i),i= 64, 101)/
562  1 2.7295, 2.8260, 2.9225, 3.0380, 3.2310, 3.4240, 3.6170,
563  2 3.8100, 4.0025, 4.1633, 4.3242, 4.4850, 4.6458, 4.8067,
564  3 4.9675, 5.1925, 5.4337, 5.5875, 5.7081, 5.8287, 5.9494,
565  4 6.1866, 6.5062, 6.7475, 6.9887, 7.4600, 7.7212, 7.9625,
566  5 8.4075, 8.7600, 9.2449, 10.1050, 10.5875, 11.2099, 12.6574,
567  6 14.3496, 18.6397, 22.5000/
568 !
569  end
570  block data degb2b
571 ! block data which gives de (energy loss in scinti for
572 ! a standard gamma 1ry shower. scinti is assumed under
573 ! 0.5cmpb+0.1cm fe. scinti is 3.5 cm thick).
574 !
575 ! cos=0.8
576 !
577 ! from e100v at 600 g/cm**2: pb.5fe.1sci3.5 hscint=t
578 ! for u=0 to 1 step .01 de=in mev
579  include "Zdegb2"
580  data (ed1(i),i= 1, 63)/
581  1 0.0000, 0.0623, 0.1246, 0.1870, 0.2493, 0.3116, 0.3739,
582  2 0.4362, 0.4986, 0.6407, 0.7847, 0.9287, 1.1027, 1.3061,
583  3 1.5102, 1.7299, 1.9496, 2.2148, 2.4935, 2.8868, 3.3258,
584  4 3.7513, 4.1625, 4.5753, 4.9662, 5.3571, 5.8081, 6.2333,
585  5 6.5853, 6.8615, 7.1293, 7.3888, 7.6237, 7.8403, 8.0482,
586  6 8.2317, 8.4152, 8.6110, 8.8171, 9.0270, 9.2659, 9.5053,
587  7 9.7717, 10.0394, 10.3156, 10.5934, 10.8748, 11.1590, 11.4457,
588  8 11.7870, 12.1463, 12.5180, 13.0108, 13.4738, 13.8890, 14.3437,
589  9 14.7610, 15.1603, 15.5595, 15.8977, 16.1944, 16.4731, 16.7666/
590  data (ed1(i),i= 64, 101)/
591  1 17.0611, 17.3534, 17.6744, 18.0259, 18.3975, 18.7626, 19.1485,
592  2 19.5948, 20.1499, 20.7491, 21.3122, 21.9543, 22.4912, 23.1627,
593  3 23.7428, 24.3711, 25.1317, 25.8658, 26.5928, 27.5444, 28.5733,
594  4 29.4191, 30.3874, 31.5761, 33.1691, 34.6272, 35.9777, 37.3999,
595  5 39.6568, 42.2798, 44.7998, 47.3141, 50.3844, 54.8496, 61.6744,
596  6 71.8987, 86.9658,213.5000/
597  data (ed2(i),i= 1, 63)/
598  1 0.0000, 0.0494, 0.0987, 0.1481, 0.1975, 0.2468, 0.2962,
599  2 0.3456, 0.3949, 0.4443, 0.4937, 0.5990, 0.7126, 0.8262,
600  3 0.9398, 1.0752, 1.2354, 1.3956, 1.5668, 1.7588, 1.9508,
601  4 2.1679, 2.3936, 2.6570, 2.9540, 3.2554, 3.5737, 3.9598,
602  5 4.2831, 4.6038, 4.9348, 5.3171, 5.6924, 6.0496, 6.4007,
603  6 6.6917, 6.9591, 7.1863, 7.4063, 7.5886, 7.7431, 7.8976,
604  7 8.0591, 8.2347, 8.4102, 8.5987, 8.8007, 9.0029, 9.2149,
605  8 9.4268, 9.6613, 9.9078, 10.1565, 10.4066, 10.6728, 10.9486,
606  9 11.2668, 11.6180, 12.0241, 12.3899, 12.7613, 13.1427, 13.5338/
607  data (ed2(i),i= 64, 101)/
608  1 13.8884, 14.2707, 14.6735, 15.0872, 15.5010, 15.9147, 16.2486,
609  2 16.5590, 16.8586, 17.1782, 17.5177, 17.8996, 18.2641, 18.6277,
610  3 19.0018, 19.4779, 20.0115, 20.6233, 21.1899, 21.8467, 22.4400,
611  4 23.2153, 23.9776, 24.8694, 25.8085, 26.9288, 28.0060, 29.2910,
612  5 31.0060, 32.3089, 33.9869, 35.6129, 38.6611, 41.8829, 46.7165,
613  6 52.7974, 61.4355,180.5000/
614  data (ed3(i),i= 1, 63)/
615  1 0.0000, 0.0424, 0.0848, 0.1272, 0.1696, 0.2121, 0.2545,
616  2 0.2969, 0.3393, 0.3817, 0.4241, 0.4665, 0.5206, 0.6184,
617  3 0.7162, 0.8140, 0.9118, 1.0144, 1.1615, 1.3086, 1.4558,
618  4 1.6102, 1.7678, 1.9254, 2.1144, 2.3317, 2.5528, 2.7870,
619  5 3.0357, 3.4315, 3.7254, 3.9979, 4.3437, 4.6547, 4.9364,
620  6 5.3065, 5.6735, 6.0102, 6.2828, 6.5519, 6.8077, 7.0503,
621  7 7.2530, 7.4558, 7.6429, 7.8255, 8.0093, 8.2158, 8.4224,
622  8 8.6153, 8.8000, 8.9847, 9.1826, 9.3817, 9.5763, 9.7641,
623  9 9.9520, 10.2029, 10.4754, 10.7257, 10.9739, 11.2917, 11.6154/
624  data (ed3(i),i= 64, 101)/
625  1 11.9351, 12.3785, 12.7946, 13.1927, 13.5760, 13.9019, 14.3577,
626  2 14.8287, 15.2730, 15.6702, 16.0239, 16.3776, 16.7338, 17.0833,
627  3 17.4093, 17.8077, 18.2466, 18.6812, 19.1076, 19.5769, 20.0974,
628  4 20.6938, 21.3578, 22.0636, 22.7151, 23.5142, 24.3778, 25.3593,
629  5 26.5095, 28.0681, 29.6021, 31.2665, 33.6247, 35.6108, 38.8747,
630  6 43.9986, 53.5618, 98.0000/
631  data (ed4(i),i= 1, 63)/
632  1 0.0000, 0.0370, 0.0739, 0.1109, 0.1478, 0.1848, 0.2217,
633  2 0.2587, 0.2956, 0.3326, 0.3695, 0.4065, 0.4434, 0.4804,
634  3 0.5388, 0.6215, 0.7042, 0.7869, 0.8695, 0.9522, 1.0508,
635  4 1.1709, 1.2911, 1.4112, 1.5383, 1.6852, 1.8320, 1.9788,
636  5 2.1571, 2.3408, 2.5291, 2.7478, 2.9666, 3.2184, 3.4762,
637  6 3.7610, 4.0408, 4.2827, 4.5344, 4.8734, 5.1880, 5.4880,
638  7 5.8176, 6.1610, 6.5130, 6.7476, 6.9823, 7.2072, 7.4313,
639  8 7.6158, 7.7827, 7.9496, 8.1312, 8.3193, 8.5075, 8.6995,
640  9 8.8915, 9.0922, 9.3042, 9.5197, 9.7775, 10.0368, 10.3060/
641  data (ed4(i),i= 64, 101)/
642  1 10.5811, 10.8716, 11.1731, 11.4834, 11.8397, 12.2025, 12.5895,
643  2 13.0562, 13.4570, 13.8404, 14.2172, 14.6003, 15.0140, 15.4533,
644  3 15.8804, 16.2741, 16.6634, 17.0661, 17.4790, 17.9343, 18.3458,
645  4 18.8057, 19.3302, 19.8974, 20.5018, 21.1031, 21.7815, 22.6499,
646  5 23.6730, 24.7725, 26.0478, 27.5668, 29.4837, 31.6472, 34.4412,
647  6 38.1554, 44.7317, 76.0000/
648  data (ed5(i),i= 1, 63)/
649  1 0.0000, 0.0316, 0.0633, 0.0949, 0.1265, 0.1581, 0.1898,
650  2 0.2214, 0.2530, 0.2847, 0.3163, 0.3479, 0.3796, 0.4112,
651  3 0.4428, 0.4744, 0.5146, 0.5909, 0.6672, 0.7435, 0.8198,
652  4 0.8961, 0.9724, 1.0686, 1.1761, 1.2836, 1.3912, 1.4987,
653  5 1.6266, 1.7548, 1.8830, 2.0132, 2.1637, 2.3143, 2.4649,
654  6 2.6453, 2.8348, 3.0288, 3.2531, 3.4773, 3.7119, 3.9477,
655  7 4.2259, 4.5162, 4.8083, 5.0932, 5.3648, 5.6348, 5.9033,
656  8 6.1694, 6.4342, 6.6839, 6.9286, 7.1330, 7.3207, 7.5078,
657  9 7.6836, 7.8593, 8.0408, 8.2451, 8.4495, 8.6610, 8.8748/
658  data (ed5(i),i= 64, 101)/
659  1 9.0926, 9.3158, 9.5448, 9.8012, 10.0554, 10.3020, 10.5656,
660  2 10.8989, 11.2331, 11.5717, 11.9271, 12.3086, 12.7168, 13.1609,
661  3 13.6231, 14.0568, 14.5375, 15.0417, 15.4998, 15.9879, 16.3994,
662  4 16.8456, 17.2874, 17.7414, 18.2299, 18.7748, 19.3710, 19.9628,
663  5 20.7542, 21.6316, 22.7377, 23.9290, 25.3144, 27.3054, 29.9146,
664  6 33.5090, 39.4486, 94.0000/
665  data (ed6(i),i= 1, 63)/
666  1 0.0000, 0.0286, 0.0572, 0.0859, 0.1145, 0.1431, 0.1717,
667  2 0.2003, 0.2290, 0.2576, 0.2862, 0.3148, 0.3434, 0.3721,
668  3 0.4007, 0.4293, 0.4579, 0.4866, 0.5334, 0.5965, 0.6595,
669  4 0.7226, 0.7856, 0.8486, 0.9117, 0.9747, 1.0555, 1.1480,
670  5 1.2405, 1.3331, 1.4256, 1.5213, 1.6299, 1.7384, 1.8470,
671  6 1.9556, 2.0745, 2.2006, 2.3266, 2.4527, 2.5989, 2.7572,
672  7 2.9155, 3.0876, 3.2755, 3.4634, 3.6750, 3.8923, 4.1159,
673  8 4.3455, 4.5812, 4.8292, 5.0870, 5.3666, 5.6259, 5.8665,
674  9 6.1082, 6.3511, 6.5871, 6.8124, 7.0349, 7.2441, 7.4532/
675  data (ed6(i),i= 64, 101)/
676  1 7.6553, 7.8553, 8.0588, 8.2713, 8.4838, 8.7037, 8.9242,
677  2 9.1671, 9.4217, 9.6844, 9.9506, 10.2502, 10.5649, 10.9117,
678  3 11.2645, 11.6339, 12.0341, 12.4626, 12.9647, 13.4005, 13.8492,
679  4 14.3707, 14.9255, 15.4186, 15.9713, 16.4590, 16.9897, 17.5735,
680  5 18.2673, 18.9747, 19.7913, 20.8251, 21.9812, 23.5992, 25.7454,
681  6 28.3082, 33.5062, 90.5000/
682  data (ed7(i),i= 1, 63)/
683  1 0.0000, 0.0258, 0.0517, 0.0775, 0.1033, 0.1291, 0.1550,
684  2 0.1808, 0.2066, 0.2325, 0.2583, 0.2841, 0.3099, 0.3358,
685  3 0.3616, 0.3874, 0.4133, 0.4391, 0.4649, 0.4907, 0.5356,
686  4 0.5912, 0.6468, 0.7024, 0.7580, 0.8136, 0.8691, 0.9247,
687  5 0.9803, 1.0513, 1.1308, 1.2103, 1.2898, 1.3693, 1.4488,
688  6 1.5334, 1.6270, 1.7205, 1.8141, 1.9077, 2.0017, 2.1200,
689  7 2.2383, 2.3567, 2.4750, 2.6223, 2.7773, 2.9324, 3.0889,
690  8 3.2466, 3.4042, 3.5790, 3.7804, 3.9817, 4.2111, 4.4433,
691  9 4.6653, 4.8839, 5.1233, 5.3860, 5.6409, 5.8896, 6.1342/
692  data (ed7(i),i= 64, 101)/
693  1 6.3755, 6.6188, 6.8642, 7.0977, 7.3164, 7.5329, 7.7387,
694  2 7.9445, 8.1542, 8.3654, 8.5887, 8.8331, 9.0919, 9.3819,
695  3 9.6896, 10.0099, 10.3430, 10.6885, 11.0527, 11.4704, 11.8940,
696  4 12.3413, 12.8645, 13.4610, 14.1055, 14.7172, 15.3203, 15.8827,
697  5 16.5156, 17.2146, 17.9747, 18.8423, 19.9060, 21.3488, 22.9891,
698  6 25.5396, 30.8156, 85.0000/
699  data (ed8(i),i= 1, 63)/
700  1 0.0000, 0.0254, 0.0508, 0.0762, 0.1016, 0.1270, 0.1524,
701  2 0.1778, 0.2032, 0.2286, 0.2540, 0.2793, 0.3047, 0.3301,
702  3 0.3555, 0.3809, 0.4063, 0.4317, 0.4571, 0.4825, 0.5175,
703  4 0.5737, 0.6300, 0.6862, 0.7424, 0.7986, 0.8548, 0.9111,
704  5 0.9673, 1.0332, 1.1126, 1.1919, 1.2713, 1.3507, 1.4300,
705  6 1.5110, 1.6038, 1.6966, 1.7894, 1.8822, 1.9750, 2.0799,
706  7 2.1894, 2.2989, 2.4084, 2.5247, 2.6764, 2.8281, 2.9798,
707  8 3.1371, 3.2954, 3.4536, 3.6405, 3.8393, 4.0429, 4.2667,
708  9 4.4904, 4.7105, 4.9304, 5.1790, 5.4409, 5.6988, 5.9555/
709  data (ed8(i),i= 64, 101)/
710  1 6.1964, 6.4340, 6.6664, 6.8969, 7.1168, 7.3283, 7.5405,
711  2 7.7560, 7.9716, 8.1888, 8.4062, 8.6421, 8.8921, 9.1598,
712  3 9.4409, 9.7568, 10.0876, 10.4348, 10.8012, 11.2157, 11.6666,
713  4 12.1041, 12.5895, 13.1835, 13.8376, 14.4879, 15.0823, 15.7052,
714  5 16.3034, 16.9784, 17.7171, 18.5960, 19.5946, 20.9554, 22.7447,
715  6 25.3057, 30.4748, 85.0000/
716  data (ed9(i),i= 1, 63)/
717  1 0.0000, 0.0215, 0.0430, 0.0646, 0.0861, 0.1076, 0.1291,
718  2 0.1507, 0.1722, 0.1937, 0.2152, 0.2368, 0.2583, 0.2798,
719  3 0.3013, 0.3229, 0.3444, 0.3659, 0.3874, 0.4090, 0.4305,
720  4 0.4520, 0.4735, 0.4951, 0.5390, 0.5895, 0.6401, 0.6907,
721  5 0.7413, 0.7919, 0.8424, 0.8930, 0.9436, 0.9942, 1.0620,
722  6 1.1321, 1.2023, 1.2724, 1.3425, 1.4126, 1.4827, 1.5619,
723  7 1.6441, 1.7262, 1.8084, 1.8905, 1.9727, 2.0700, 2.1749,
724  8 2.2797, 2.3846, 2.4894, 2.6021, 2.7157, 2.8292, 2.9428,
725  9 3.0704, 3.2121, 3.3538, 3.4956, 3.6754, 3.8564, 4.0393/
726  data (ed9(i),i= 64, 101)/
727  1 4.2297, 4.4201, 4.6365, 4.8718, 5.1034, 5.3305, 5.5622,
728  2 5.8073, 6.0526, 6.2987, 6.5460, 6.7985, 7.0457, 7.2719,
729  3 7.4982, 7.7306, 7.9631, 8.2097, 8.4590, 8.7841, 9.1173,
730  4 9.4388, 9.8133, 10.2379, 10.6872, 11.1693, 11.8145, 12.4971,
731  5 13.2897, 14.2101, 15.1767, 16.0614, 17.0730, 18.2063, 19.7089,
732  6 22.0560, 26.0170, 75.0000/
733  data (ed10(i),i= 1, 63)/
734  1 0.0000, 0.0194, 0.0388, 0.0582, 0.0776, 0.0970, 0.1164,
735  2 0.1357, 0.1551, 0.1745, 0.1939, 0.2133, 0.2327, 0.2521,
736  3 0.2715, 0.2909, 0.3103, 0.3297, 0.3491, 0.3685, 0.3878,
737  4 0.4072, 0.4266, 0.4460, 0.4654, 0.4848, 0.5101, 0.5565,
738  5 0.6030, 0.6495, 0.6959, 0.7424, 0.7889, 0.8353, 0.8818,
739  6 0.9283, 0.9747, 1.0311, 1.0993, 1.1675, 1.2357, 1.3039,
740  7 1.3721, 1.4403, 1.5094, 1.5847, 1.6600, 1.7354, 1.8107,
741  8 1.8860, 1.9613, 2.0448, 2.1368, 2.2289, 2.3209, 2.4130,
742  9 2.5062, 2.6198, 2.7333, 2.8468, 2.9603, 3.0963, 3.2444/
743  data (ed10(i),i= 64, 101)/
744  1 3.3925, 3.5437, 3.7033, 3.8629, 4.0241, 4.1957, 4.3672,
745  2 4.5473, 4.7567, 4.9660, 5.2026, 5.4445, 5.6974, 5.9535,
746  3 6.2229, 6.4952, 6.7813, 7.0613, 7.3209, 7.5833, 7.8518,
747  4 8.1518, 8.4904, 8.7956, 9.1389, 9.5596, 9.9652, 10.4810,
748  5 11.0506, 11.7495, 12.5639, 13.7462, 14.9085, 16.0059, 17.2288,
749  6 19.4078, 22.1510, 49.0000/
750  data (ed11(i),i= 1, 63)/
751  1 0.0000, 0.0173, 0.0346, 0.0519, 0.0692, 0.0864, 0.1037,
752  2 0.1210, 0.1383, 0.1556, 0.1729, 0.1902, 0.2075, 0.2248,
753  3 0.2421, 0.2593, 0.2766, 0.2939, 0.3112, 0.3285, 0.3458,
754  4 0.3631, 0.3804, 0.3977, 0.4149, 0.4322, 0.4495, 0.4668,
755  5 0.4841, 0.5036, 0.5482, 0.5927, 0.6373, 0.6819, 0.7265,
756  6 0.7710, 0.8156, 0.8602, 0.9048, 0.9493, 0.9939, 1.0506,
757  7 1.1091, 1.1677, 1.2263, 1.2849, 1.3434, 1.4020, 1.4606,
758  8 1.5208, 1.5845, 1.6482, 1.7118, 1.7755, 1.8392, 1.9029,
759  9 1.9665, 2.0353, 2.1095, 2.1838, 2.2581, 2.3324, 2.4067/
760  data (ed11(i),i= 64, 101)/
761  1 2.4810, 2.5743, 2.6742, 2.7740, 2.8739, 2.9738, 3.1036,
762  2 3.2442, 3.3848, 3.5280, 3.6828, 3.8377, 3.9926, 4.1977,
763  3 4.4054, 4.6275, 4.8618, 5.1071, 5.3682, 5.6587, 5.9794,
764  4 6.2342, 6.4846, 6.8298, 7.1625, 7.4776, 7.8031, 8.1812,
765  5 8.6315, 9.1166, 9.8025, 10.7026, 11.8660, 13.1460, 14.6956,
766  6 16.3948, 20.4078, 41.0000/
767  data (ed12(i),i= 1, 63)/
768  1 0.0000, 0.0151, 0.0302, 0.0454, 0.0605, 0.0756, 0.0907,
769  2 0.1058, 0.1210, 0.1361, 0.1512, 0.1663, 0.1815, 0.1966,
770  3 0.2117, 0.2268, 0.2419, 0.2571, 0.2722, 0.2873, 0.3024,
771  4 0.3175, 0.3327, 0.3478, 0.3629, 0.3780, 0.3931, 0.4083,
772  5 0.4234, 0.4385, 0.4536, 0.4687, 0.4839, 0.4990, 0.5410,
773  6 0.5850, 0.6289, 0.6729, 0.7168, 0.7607, 0.8047, 0.8486,
774  7 0.8926, 0.9365, 0.9805, 1.0386, 1.1080, 1.1775, 1.2469,
775  8 1.3164, 1.3858, 1.4552, 1.5250, 1.5953, 1.6656, 1.7359,
776  9 1.8062, 1.8766, 1.9469, 2.0188, 2.0959, 2.1729, 2.2500/
777  data (ed12(i),i= 64, 101)/
778  1 2.3271, 2.4041, 2.4812, 2.5708, 2.6646, 2.7583, 2.8521,
779  2 2.9458, 3.0579, 3.1951, 3.3323, 3.4695, 3.6562, 3.8571,
780  3 4.0406, 4.1812, 4.3219, 4.4625, 4.6586, 4.8750, 5.0989,
781  4 5.3333, 5.5677, 5.8021, 6.0625, 6.4643, 7.0078, 7.3593,
782  5 7.7250, 8.0937, 8.4453, 9.2916, 10.2915, 11.1665, 12.6561,
783  6 14.4165, 17.3745, 30.5000/
784  data (ed13(i),i= 1, 63)/
785  1 0.0000, 0.0129, 0.0259, 0.0388, 0.0518, 0.0647, 0.0776,
786  2 0.0906, 0.1035, 0.1165, 0.1294, 0.1424, 0.1553, 0.1682,
787  3 0.1812, 0.1941, 0.2071, 0.2200, 0.2329, 0.2459, 0.2588,
788  4 0.2718, 0.2847, 0.2976, 0.3106, 0.3235, 0.3365, 0.3494,
789  5 0.3624, 0.3753, 0.3882, 0.4012, 0.4141, 0.4271, 0.4400,
790  6 0.4529, 0.4659, 0.4788, 0.4918, 0.5213, 0.5800, 0.6387,
791  7 0.6973, 0.7560, 0.8147, 0.8733, 0.9320, 0.9907, 1.0740,
792  8 1.1620, 1.2500, 1.3380, 1.4260, 1.5100, 1.5729, 1.6357,
793  9 1.6986, 1.7614, 1.8243, 1.8871, 1.9500, 2.0112, 2.0662/
794  data (ed13(i),i= 64, 101)/
795  1 2.1212, 2.1762, 2.2312, 2.2862, 2.3412, 2.3962, 2.4512,
796  2 2.5100, 2.5980, 2.6860, 2.7740, 2.8620, 2.9500, 3.0345,
797  3 3.1145, 3.1945, 3.2745, 3.3545, 3.4345, 3.5200, 3.6300,
798  4 3.7400, 3.8500, 3.9600, 4.1120, 4.2880, 4.4640, 4.6750,
799  5 4.8950, 5.2300, 6.1799, 7.9399, 8.7000, 8.9933, 10.3599,
800  6 13.9194, 18.1199, 22.5000/
801  data (ed14(i),i= 1, 63)/
802  1 0.0000, 0.0130, 0.0260, 0.0390, 0.0520, 0.0650, 0.0780,
803  2 0.0910, 0.1040, 0.1170, 0.1300, 0.1430, 0.1560, 0.1690,
804  3 0.1820, 0.1950, 0.2080, 0.2210, 0.2340, 0.2470, 0.2600,
805  4 0.2730, 0.2860, 0.2990, 0.3120, 0.3250, 0.3380, 0.3510,
806  5 0.3640, 0.3770, 0.3900, 0.4030, 0.4160, 0.4290, 0.4420,
807  6 0.4550, 0.4680, 0.4810, 0.4940, 0.5350, 0.6000, 0.6650,
808  7 0.7300, 0.7950, 0.8600, 0.9250, 0.9900, 1.1650, 1.3600,
809  8 1.5550, 1.7500, 1.9450, 2.1400, 2.3350, 2.5100, 2.5750,
810  9 2.6400, 2.7050, 2.7700, 2.8350, 2.9000, 2.9650, 3.0300/
811  data (ed14(i),i= 64, 101)/
812  1 3.0950, 3.1600, 3.2250, 3.2900, 3.3550, 3.4200, 3.4850,
813  2 3.5250, 3.5575, 3.5900, 3.6225, 3.6550, 3.6875, 3.7200,
814  3 3.7525, 3.7850, 3.8175, 3.8500, 3.8825, 3.9150, 3.9475,
815  4 3.9800, 4.0250, 4.0900, 4.1550, 4.2200, 4.2850, 4.3500,
816  5 4.4150, 4.4800, 4.5900, 4.7200, 4.8500, 4.9800, 5.1100,
817  6 5.2400, 5.3700, 5.5000/
818 !
819  end
820  block data degb3b
821 ! block data which gives de (energy loss in scinti for
822 ! a standard gamma 1ry shower. scinti is assumed under
823 ! 0.5cmpb+0.1cm fe. scinti is 3.5 cm thick).
824 !
825 ! cos=0.7
826 !
827 ! from e100i2 at 400 g/cm**2: pb.5fe.1sci3.5 hscint=t
828 ! for u=0 to 1 step .01 de=in mev
829  include "Zdegb3"
830  data (ed1(i),i= 1, 63)/
831  1 0.0000, 0.0741, 0.1481, 0.2222, 0.2963, 0.3703, 0.4444,
832  2 0.5408, 0.7047, 0.8685, 1.0449, 1.2722, 1.4995, 1.7542,
833  3 2.0097, 2.2860, 2.5767, 2.9173, 3.3075, 3.7391, 4.2355,
834  4 4.7416, 5.2041, 5.6556, 6.1026, 6.5942, 7.0562, 7.4785,
835  5 7.9009, 8.3030, 8.6802, 9.0331, 9.3397, 9.6501, 9.9647,
836  6 10.2637, 10.5726, 10.9285, 11.2899, 11.6638, 12.0544, 12.4520,
837  7 12.9017, 13.3421, 13.8293, 14.2803, 14.7280, 15.2111, 15.6945,
838  8 16.1720, 16.6472, 17.1264, 17.6064, 18.0145, 18.4294, 18.8232,
839  9 19.2266, 19.6403, 20.0571, 20.5105, 20.9149, 21.3624, 21.8199/
840  data (ed1(i),i= 64, 101)/
841  1 22.3198, 22.8987, 23.5516, 24.1283, 24.7512, 25.4772, 26.1443,
842  2 26.8504, 27.6388, 28.5490, 29.3766, 30.2004, 31.1803, 32.2186,
843  3 33.2331, 34.3442, 35.4232, 36.8652, 38.3315, 39.5876, 40.9409,
844  4 42.6783, 44.4056, 46.2191, 48.0895, 50.4347, 53.1562, 55.8877,
845  5 58.9560, 62.0479, 66.1565, 70.8894, 76.4905, 83.2994, 92.6823,
846  6106.2884,130.9890,385.4998/
847  data (ed2(i),i= 1, 63)/
848  1 0.0000, 0.0535, 0.1071, 0.1606, 0.2142, 0.2677, 0.3212,
849  2 0.3748, 0.4283, 0.4819, 0.5772, 0.6940, 0.8107, 0.9274,
850  3 1.0609, 1.2217, 1.3825, 1.5514, 1.7420, 1.9327, 2.1452,
851  4 2.3697, 2.6128, 2.8815, 3.1821, 3.5086, 3.8607, 4.2078,
852  5 4.5574, 4.9405, 5.2950, 5.6548, 6.0292, 6.3992, 6.7492,
853  6 7.0995, 7.4711, 7.8145, 8.1428, 8.4558, 8.7650, 9.0625,
854  7 9.3248, 9.5920, 9.8692, 10.1419, 10.4106, 10.7104, 11.0266,
855  8 11.3536, 11.6930, 12.0476, 12.4410, 12.8119, 13.1818, 13.5650,
856  9 14.0061, 14.4493, 14.8887, 15.3148, 15.7207, 16.1285, 16.5737/
857  data (ed2(i),i= 64, 101)/
858  1 17.0316, 17.5364, 18.0330, 18.4372, 18.8783, 19.2904, 19.7251,
859  2 20.1986, 20.6555, 21.1152, 21.6935, 22.2598, 22.8291, 23.4059,
860  3 24.0120, 24.7325, 25.5015, 26.2727, 27.0328, 28.0015, 28.9589,
861  4 30.0406, 31.0464, 32.2792, 33.8102, 35.4209, 36.9449, 38.5744,
862  5 40.4788, 42.4971, 44.9924, 48.1566, 51.8411, 56.0407, 61.5012,
863  6 71.3553, 86.6334,192.5000/
864  data (ed3(i),i= 1, 63)/
865  1 0.0000, 0.0461, 0.0922, 0.1384, 0.1845, 0.2306, 0.2767,
866  2 0.3228, 0.3690, 0.4151, 0.4612, 0.5152, 0.6110, 0.7067,
867  3 0.8024, 0.8982, 0.9939, 1.1315, 1.2719, 1.4124, 1.5592,
868  4 1.7165, 1.8739, 2.0379, 2.2282, 2.4184, 2.6458, 2.9011,
869  5 3.1664, 3.4381, 3.7185, 4.0016, 4.3001, 4.6054, 4.9242,
870  6 5.2389, 5.5566, 5.8954, 6.2184, 6.5382, 6.8880, 7.2096,
871  7 7.5195, 7.8553, 8.1699, 8.4685, 8.7579, 9.0469, 9.3398,
872  8 9.6296, 9.9157, 10.1794, 10.4338, 10.7149, 11.0069, 11.3701,
873  9 11.7355, 12.1032, 12.4736, 12.8813, 13.3068, 13.7244, 14.1191/
874  data (ed3(i),i= 64, 101)/
875  1 14.4894, 14.9342, 15.3559, 15.8151, 16.2962, 16.7317, 17.1685,
876  2 17.6538, 18.1005, 18.5543, 18.9987, 19.4538, 19.9268, 20.4124,
877  3 20.9394, 21.5400, 22.1492, 22.7981, 23.4875, 24.3477, 25.2058,
878  4 25.9810, 27.0518, 28.0879, 29.2442, 30.5416, 31.9237, 33.4805,
879  5 35.4439, 37.2008, 39.0993, 41.6290, 44.1362, 47.6653, 52.6859,
880  6 60.2074, 73.4935,183.0000/
881  data (ed4(i),i= 1, 63)/
882  1 0.0000, 0.0394, 0.0788, 0.1181, 0.1575, 0.1969, 0.2363,
883  2 0.2756, 0.3150, 0.3544, 0.3938, 0.4331, 0.4725, 0.5263,
884  3 0.6134, 0.7005, 0.7875, 0.8746, 0.9617, 1.0653, 1.1818,
885  4 1.2984, 1.4149, 1.5434, 1.7043, 1.8651, 2.0277, 2.1997,
886  5 2.3716, 2.5504, 2.7493, 2.9481, 3.1813, 3.4266, 3.6806,
887  6 3.9384, 4.2123, 4.4912, 4.8075, 5.1286, 5.4555, 5.7877,
888  7 6.1076, 6.4042, 6.7058, 7.0102, 7.3269, 7.6325, 7.9249,
889  8 8.2036, 8.4775, 8.7621, 9.0433, 9.3033, 9.5664, 9.8398,
890  9 10.1094, 10.3739, 10.6606, 10.9677, 11.3090, 11.6453, 11.9704/
891  data (ed4(i),i= 64, 101)/
892  1 12.3420, 12.7274, 13.1183, 13.5071, 13.9260, 14.3485, 14.7567,
893  2 15.1673, 15.6148, 16.1120, 16.5619, 17.0790, 17.5650, 18.0543,
894  3 18.5606, 19.0836, 19.5906, 20.0976, 20.6866, 21.3199, 21.9606,
895  4 22.6276, 23.3600, 24.2345, 25.2986, 26.4143, 27.6010, 28.9135,
896  5 30.5287, 31.9845, 33.8675, 36.0436, 38.5204, 42.0090, 46.0380,
897  6 52.0335, 62.8465,167.5000/
898  data (ed5(i),i= 1, 63)/
899  1 0.0000, 0.0333, 0.0666, 0.0998, 0.1331, 0.1664, 0.1997,
900  2 0.2329, 0.2662, 0.2995, 0.3328, 0.3660, 0.3993, 0.4326,
901  3 0.4659, 0.4991, 0.5737, 0.6494, 0.7250, 0.8007, 0.8763,
902  4 0.9520, 1.0403, 1.1504, 1.2605, 1.3706, 1.4807, 1.6040,
903  5 1.7301, 1.8562, 1.9824, 2.1224, 2.2647, 2.4070, 2.5666,
904  6 2.7586, 2.9506, 3.1580, 3.3707, 3.5919, 3.8260, 4.0657,
905  7 4.3212, 4.5844, 4.8658, 5.1462, 5.4256, 5.7125, 6.0022,
906  8 6.3106, 6.6086, 6.8900, 7.1564, 7.4132, 7.6763, 7.9427,
907  9 8.2218, 8.5040, 8.7578, 9.0120, 9.2735, 9.5362, 9.8070/
908  data (ed5(i),i= 64, 101)/
909  1 10.0835, 10.3743, 10.6839, 11.0078, 11.3333, 11.6809, 12.0511,
910  2 12.4172, 12.7892, 13.1770, 13.5890, 14.0252, 14.5042, 14.9287,
911  3 15.4203, 15.9617, 16.5414, 17.0878, 17.6256, 18.1937, 18.8189,
912  4 19.4224, 19.9906, 20.5760, 21.3463, 22.1372, 22.9944, 23.9409,
913  5 24.9725, 26.2488, 27.7451, 29.3941, 31.4538, 34.1653, 37.4372,
914  6 42.6952, 51.8619,160.5000/
915  data (ed6(i),i= 1, 63)/
916  1 0.0000, 0.0276, 0.0553, 0.0829, 0.1106, 0.1382, 0.1659,
917  2 0.1935, 0.2212, 0.2488, 0.2765, 0.3041, 0.3317, 0.3594,
918  3 0.3870, 0.4147, 0.4423, 0.4700, 0.4976, 0.5582, 0.6219,
919  4 0.6856, 0.7493, 0.8130, 0.8767, 0.9405, 1.0059, 1.0971,
920  5 1.1882, 1.2794, 1.3705, 1.4617, 1.5644, 1.6757, 1.7869,
921  6 1.8982, 2.0107, 2.1377, 2.2647, 2.3917, 2.5230, 2.6794,
922  7 2.8358, 2.9923, 3.1772, 3.3636, 3.5558, 3.7636, 3.9714,
923  8 4.1946, 4.4204, 4.6573, 4.9004, 5.1559, 5.4201, 5.6769,
924  9 5.9304, 6.1974, 6.4697, 6.7269, 6.9823, 7.2557, 7.5289/
925  data (ed6(i),i= 64, 101)/
926  1 7.7891, 8.0493, 8.3099, 8.5734, 8.8449, 9.1247, 9.4158,
927  2 9.7215, 10.0343, 10.3568, 10.6967, 11.0529, 11.4227, 11.8219,
928  3 12.2340, 12.6639, 13.1267, 13.6142, 14.1129, 14.6468, 15.2020,
929  4 15.7864, 16.3651, 17.0393, 17.7199, 18.4014, 19.1176, 19.9402,
930  5 20.8146, 21.7633, 22.8669, 24.1888, 25.6719, 27.7691, 30.4833,
931  6 34.5744, 41.7298,129.0000/
932  data (ed7(i),i= 1, 63)/
933  1 0.0000, 0.0250, 0.0500, 0.0750, 0.1000, 0.1251, 0.1501,
934  2 0.1751, 0.2001, 0.2251, 0.2501, 0.2751, 0.3001, 0.3251,
935  3 0.3501, 0.3752, 0.4002, 0.4252, 0.4502, 0.4752, 0.5005,
936  4 0.5567, 0.6130, 0.6692, 0.7254, 0.7817, 0.8379, 0.8942,
937  5 0.9504, 1.0093, 1.0878, 1.1662, 1.2447, 1.3231, 1.4016,
938  6 1.4800, 1.5697, 1.6632, 1.7567, 1.8502, 1.9437, 2.0444,
939  7 2.1557, 2.2671, 2.3785, 2.4898, 2.6295, 2.7719, 2.9144,
940  8 3.0685, 3.2403, 3.4121, 3.5939, 3.7862, 3.9784, 4.1994,
941  9 4.4240, 4.6594, 4.9002, 5.1521, 5.4117, 5.6668, 5.9196/
942  data (ed7(i),i= 64, 101)/
943  1 6.1741, 6.4294, 6.6774, 6.9227, 7.1836, 7.4516, 7.7138,
944  2 7.9747, 8.2784, 8.5788, 8.8589, 9.1664, 9.5019, 9.8262,
945  3 10.1678, 10.5312, 10.9136, 11.3177, 11.7556, 12.2074, 12.6683,
946  4 13.1814, 13.7490, 14.3375, 14.9205, 15.5867, 16.2489, 16.9897,
947  5 17.7267, 18.5309, 19.4170, 20.4699, 21.6706, 23.1266, 25.3316,
948  6 28.4387, 33.9453, 85.5000/
949  data (ed8(i),i= 1, 63)/
950  1 0.0000, 0.0245, 0.0490, 0.0734, 0.0979, 0.1224, 0.1469,
951  2 0.1714, 0.1958, 0.2203, 0.2448, 0.2693, 0.2937, 0.3182,
952  3 0.3427, 0.3672, 0.3917, 0.4161, 0.4406, 0.4651, 0.4896,
953  4 0.5320, 0.5877, 0.6434, 0.6991, 0.7548, 0.8105, 0.8662,
954  5 0.9220, 0.9777, 1.0470, 1.1254, 1.2038, 1.2822, 1.3607,
955  6 1.4391, 1.5207, 1.6135, 1.7063, 1.7992, 1.8920, 1.9848,
956  7 2.0899, 2.1975, 2.3050, 2.4126, 2.5263, 2.6670, 2.8077,
957  8 2.9484, 3.1085, 3.2798, 3.4512, 3.6379, 3.8308, 4.0260,
958  9 4.2383, 4.4506, 4.6817, 4.9185, 5.1638, 5.4136, 5.6671/
959  data (ed8(i),i= 64, 101)/
960  1 5.9226, 6.1771, 6.4313, 6.6835, 6.9350, 7.2000, 7.4697,
961  2 7.7244, 7.9772, 8.2772, 8.5785, 8.8710, 9.1910, 9.5330,
962  3 9.8765, 10.2366, 10.6102, 10.9934, 11.4148, 11.8555, 12.2843,
963  4 12.7448, 13.2672, 13.8330, 14.4171, 15.0541, 15.7699, 16.5012,
964  5 17.2841, 18.0981, 18.9852, 19.9876, 21.2239, 22.6045, 24.8076,
965  6 28.0326, 33.6201, 96.0000/
966  data (ed9(i),i= 1, 63)/
967  1 0.0000, 0.0214, 0.0429, 0.0643, 0.0858, 0.1072, 0.1286,
968  2 0.1501, 0.1715, 0.1930, 0.2144, 0.2358, 0.2573, 0.2787,
969  3 0.3002, 0.3216, 0.3430, 0.3645, 0.3859, 0.4074, 0.4288,
970  4 0.4502, 0.4717, 0.4931, 0.5350, 0.5864, 0.6378, 0.6893,
971  5 0.7407, 0.7922, 0.8436, 0.8950, 0.9465, 0.9979, 1.0674,
972  6 1.1377, 1.2080, 1.2783, 1.3486, 1.4189, 1.4891, 1.5696,
973  7 1.6519, 1.7342, 1.8164, 1.8987, 1.9810, 2.0753, 2.1731,
974  8 2.2709, 2.3687, 2.4666, 2.5784, 2.6975, 2.8165, 2.9356,
975  9 3.0674, 3.2142, 3.3609, 3.5095, 3.6922, 3.8749, 4.0669/
976  data (ed9(i),i= 64, 101)/
977  1 4.2787, 4.4906, 4.7120, 4.9338, 5.1591, 5.3858, 5.6278,
978  2 5.8856, 6.1447, 6.4050, 6.6783, 6.9591, 7.2379, 7.5163,
979  3 7.7941, 8.0807, 8.3927, 8.7158, 9.0498, 9.4159, 9.8117,
980  4 10.2564, 10.7350, 11.2293, 11.7703, 12.3987, 13.0630, 13.7348,
981  5 14.4578, 15.4096, 16.4211, 17.4890, 18.7904, 20.1395, 21.9085,
982  6 24.3727, 28.6159, 79.0000/
983  data (ed10(i),i= 1, 63)/
984  1 0.0000, 0.0186, 0.0372, 0.0558, 0.0744, 0.0930, 0.1116,
985  2 0.1302, 0.1488, 0.1674, 0.1860, 0.2046, 0.2232, 0.2418,
986  3 0.2604, 0.2790, 0.2976, 0.3162, 0.3348, 0.3534, 0.3720,
987  4 0.3906, 0.4092, 0.4278, 0.4464, 0.4650, 0.4836, 0.5055,
988  5 0.5535, 0.6014, 0.6494, 0.6974, 0.7453, 0.7933, 0.8412,
989  6 0.8892, 0.9371, 0.9851, 1.0474, 1.1163, 1.1853, 1.2542,
990  7 1.3231, 1.3920, 1.4609, 1.5308, 1.6021, 1.6734, 1.7447,
991  8 1.8160, 1.8872, 1.9585, 2.0329, 2.1115, 2.1902, 2.2688,
992  9 2.3475, 2.4261, 2.5067, 2.6183, 2.7298, 2.8413, 2.9528/
993  data (ed10(i),i= 64, 101)/
994  1 3.0783, 3.2139, 3.3495, 3.4851, 3.6421, 3.8018, 3.9614,
995  2 4.1348, 4.3127, 4.4905, 4.7228, 4.9581, 5.2088, 5.4628,
996  3 5.7078, 5.9512, 6.2403, 6.5451, 6.8767, 7.1982, 7.5146,
997  4 7.8551, 8.2163, 8.6136, 9.0644, 9.4645, 10.0810, 10.6699,
998  5 11.3417, 12.1957, 13.1398, 14.2668, 15.5740, 16.9307, 18.6483,
999  6 20.9586, 25.3980, 55.0000/
1000  data (ed11(i),i= 1, 63)/
1001  1 0.0000, 0.0165, 0.0329, 0.0494, 0.0658, 0.0823, 0.0988,
1002  2 0.1152, 0.1317, 0.1481, 0.1646, 0.1811, 0.1975, 0.2140,
1003  3 0.2304, 0.2469, 0.2633, 0.2798, 0.2963, 0.3127, 0.3292,
1004  4 0.3456, 0.3621, 0.3786, 0.3950, 0.4115, 0.4279, 0.4444,
1005  5 0.4609, 0.4773, 0.4938, 0.5275, 0.5718, 0.6160, 0.6602,
1006  6 0.7044, 0.7487, 0.7929, 0.8371, 0.8814, 0.9256, 0.9698,
1007  7 1.0202, 1.0838, 1.1473, 1.2109, 1.2744, 1.3379, 1.4015,
1008  8 1.4650, 1.5305, 1.5983, 1.6660, 1.7338, 1.8016, 1.8693,
1009  9 1.9371, 2.0056, 2.0832, 2.1607, 2.2383, 2.3159, 2.3935/
1010  data (ed11(i),i= 64, 101)/
1011  1 2.4710, 2.5630, 2.6636, 2.7641, 2.8646, 2.9652, 3.0873,
1012  2 3.2207, 3.3542, 3.4877, 3.6309, 3.7750, 3.9192, 4.0800,
1013  3 4.2619, 4.4439, 4.6651, 4.9039, 5.1602, 5.4283, 5.7133,
1014  4 6.0046, 6.3134, 6.6612, 7.0599, 7.4153, 7.8234, 8.2704,
1015  5 8.7371, 9.2930, 10.0109, 10.6651, 11.6719, 12.6895, 14.2377,
1016  6 16.2048, 20.0432, 39.0000/
1017  data (ed12(i),i= 1, 63)/
1018  1 0.0000, 0.0149, 0.0299, 0.0448, 0.0598, 0.0747, 0.0897,
1019  2 0.1046, 0.1196, 0.1345, 0.1495, 0.1644, 0.1793, 0.1943,
1020  3 0.2092, 0.2242, 0.2391, 0.2541, 0.2690, 0.2840, 0.2989,
1021  4 0.3139, 0.3288, 0.3437, 0.3587, 0.3736, 0.3886, 0.4035,
1022  5 0.4185, 0.4334, 0.4484, 0.4633, 0.4783, 0.4932, 0.5245,
1023  6 0.5695, 0.6145, 0.6594, 0.7044, 0.7494, 0.7944, 0.8393,
1024  7 0.8843, 0.9293, 0.9743, 1.0273, 1.0912, 1.1551, 1.2189,
1025  8 1.2828, 1.3467, 1.4105, 1.4744, 1.5380, 1.6015, 1.6649,
1026  9 1.7283, 1.7918, 1.8552, 1.9187, 1.9821, 2.0513, 2.1228/
1027  data (ed12(i),i= 64, 101)/
1028  1 2.1943, 2.2658, 2.3373, 2.4088, 2.4803, 2.5723, 2.6721,
1029  2 2.7719, 2.8717, 2.9715, 3.1006, 3.2415, 3.3823, 3.5282,
1030  3 3.6993, 3.8703, 4.0368, 4.1889, 4.3409, 4.4930, 4.7769,
1031  4 5.0528, 5.2809, 5.5165, 5.9330, 6.2436, 6.5361, 6.8451,
1032  5 7.1991, 7.6573, 8.1776, 8.6266, 9.3399, 10.4358, 12.2513,
1033  6 14.0848, 16.7096, 30.5000/
1034  data (ed13(i),i= 1, 63)/
1035  1 0.0000, 0.0138, 0.0277, 0.0415, 0.0553, 0.0691, 0.0830,
1036  2 0.0968, 0.1106, 0.1244, 0.1383, 0.1521, 0.1659, 0.1797,
1037  3 0.1936, 0.2074, 0.2212, 0.2350, 0.2489, 0.2627, 0.2765,
1038  4 0.2903, 0.3042, 0.3180, 0.3318, 0.3457, 0.3595, 0.3733,
1039  5 0.3871, 0.4010, 0.4148, 0.4286, 0.4424, 0.4563, 0.4701,
1040  6 0.4839, 0.4977, 0.5475, 0.6043, 0.6611, 0.7179, 0.7746,
1041  7 0.8314, 0.8882, 0.9450, 1.0017, 1.0547, 1.1077, 1.1607,
1042  8 1.2137, 1.2667, 1.3197, 1.3727, 1.4257, 1.4787, 1.5317,
1043  9 1.5847, 1.6377, 1.6907, 1.7437, 1.7967, 1.8497, 1.9027/
1044  data (ed13(i),i= 64, 101)/
1045  1 1.9557, 2.0173, 2.1233, 2.2293, 2.3353, 2.4413, 2.5592,
1046  2 2.6917, 2.8242, 2.9567, 3.0892, 3.2217, 3.3542, 3.4867,
1047  3 3.6100, 3.7323, 3.8546, 3.9769, 4.1290, 4.2880, 4.4470,
1048  4 4.6325, 4.8312, 5.0300, 5.2287, 5.4275, 5.6443, 5.8714,
1049  5 6.2300, 6.6950, 7.0925, 7.4900, 8.2749, 8.8800, 10.4597,
1050  6 11.9099, 13.4099, 21.0000/
1051  data (ed14(i),i= 1, 63)/
1052  1 0.0000, 0.0087, 0.0175, 0.0263, 0.0350, 0.0438, 0.0525,
1053  2 0.0613, 0.0700, 0.0787, 0.0875, 0.0962, 0.1050, 0.1137,
1054  3 0.1225, 0.1312, 0.1400, 0.1487, 0.1575, 0.1662, 0.1750,
1055  4 0.1837, 0.1925, 0.2012, 0.2100, 0.2187, 0.2275, 0.2362,
1056  5 0.2450, 0.2537, 0.2625, 0.2712, 0.2800, 0.2887, 0.2975,
1057  6 0.3062, 0.3150, 0.3237, 0.3325, 0.3412, 0.3500, 0.3587,
1058  7 0.3675, 0.3762, 0.3850, 0.3937, 0.4025, 0.4112, 0.4200,
1059  8 0.4287, 0.4375, 0.4462, 0.4550, 0.4637, 0.4725, 0.4812,
1060  9 0.4900, 0.4987, 0.5450, 0.5975, 0.6500, 0.7025, 0.7550/
1061  data (ed14(i),i= 64, 101)/
1062  1 0.8075, 0.8600, 0.9125, 0.9650, 1.0350, 1.1400, 1.2450,
1063  2 1.3500, 1.4550, 1.6200, 1.8300, 2.0400, 2.2500, 2.4600,
1064  3 2.6700, 2.8800, 3.0900, 3.3000, 3.5100, 3.7200, 3.9300,
1065  4 4.1400, 4.3500, 4.5300, 4.6350, 4.7400, 4.8450, 4.9500,
1066  5 5.2750, 5.8000, 6.3250, 6.8500, 7.3750, 7.9000, 8.4250,
1067  6 8.9500, 9.4750, 10.0000/
1068  end
1069  block data deg2b
1070 ! block data which gives de (energy loss in scinti for
1071 ! a standard gamma 1ry shower. scinti is assumed under
1072 ! 0.1cm fe. scinti is 3.5 cm thick).
1073 !
1074 ! cos=0.8
1075 !
1076 ! from e100v at 600 g/cm**2: fe.1sci3.5 hscint=t
1077 ! for u=0 to 1 step .01 de=in mev
1078  include "Zdeg2"
1079  data (ed1(i),i= 1, 63)/
1080  1 0.0000, 0.2573, 0.5151, 0.7838, 1.0424, 1.2598, 1.4773,
1081  2 1.7124, 1.9496, 2.1998, 2.4535, 2.7486, 3.0578, 3.3899,
1082  3 3.7304, 4.0994, 4.5700, 5.1024, 5.5167, 5.9138, 6.2383,
1083  4 6.5237, 6.6929, 6.8620, 7.0106, 7.0684, 7.1262, 7.1840,
1084  5 7.2418, 7.2996, 7.3574, 7.4152, 7.4730, 7.5239, 7.5688,
1085  6 7.6137, 7.6586, 7.7035, 7.7483, 7.7932, 7.8381, 7.8830,
1086  7 7.9278, 7.9727, 8.0179, 8.0634, 8.1090, 8.1545, 8.2000,
1087  8 8.2456, 8.2911, 8.3367, 8.3822, 8.4278, 8.4733, 8.5276,
1088  9 8.5943, 8.6610, 8.7276, 8.7943, 8.8609, 8.9276, 8.9943/
1089  data (ed1(i),i= 64, 101)/
1090  1 9.0693, 9.1451, 9.2208, 9.2966, 9.3724, 9.4482, 9.5351,
1091  2 9.6458, 9.7564, 9.8671, 9.9778, 10.1141, 10.2568, 10.3995,
1092  3 10.5520, 10.7276, 10.9032, 11.0965, 11.3113, 11.5318, 11.7928,
1093  4 12.0671, 12.3933, 12.7926, 13.2450, 13.6808, 14.0969, 14.5905,
1094  5 15.0798, 15.5482, 16.0257, 16.6885, 17.2325, 18.0426, 18.8906,
1095  6 20.1514, 23.0778, 35.0000/
1096  data (ed2(i),i= 1, 63)/
1097  1 0.0000, 0.1879, 0.3759, 0.5812, 0.8204, 1.0641, 1.3215,
1098  2 1.5672, 1.7865, 2.0053, 2.2095, 2.4136, 2.6469, 2.9015,
1099  3 3.2045, 3.5346, 3.8382, 4.1495, 4.4695, 4.7677, 5.0637,
1100  4 5.3597, 5.6888, 6.0311, 6.2655, 6.5000, 6.6273, 6.7546,
1101  5 6.8819, 7.0046, 7.0676, 7.1305, 7.1935, 7.2565, 7.3195,
1102  6 7.3824, 7.4454, 7.5064, 7.5544, 7.6025, 7.6505, 7.6985,
1103  7 7.7466, 7.7946, 7.8426, 7.8907, 7.9387, 7.9867, 8.0398,
1104  8 8.0947, 8.1496, 8.2046, 8.2595, 8.3145, 8.3694, 8.4244,
1105  9 8.4793, 8.5394, 8.6025, 8.6656, 8.7288, 8.7919, 8.8551/
1106  data (ed2(i),i= 64, 101)/
1107  1 8.9182, 8.9814, 9.0609, 9.1474, 9.2338, 9.3202, 9.4066,
1108  2 9.4931, 9.6037, 9.7165, 9.8292, 9.9420, 10.0608, 10.1861,
1109  3 10.3114, 10.4367, 10.5945, 10.7855, 10.9764, 11.2140, 11.4581,
1110  4 11.7204, 11.9865, 12.2584, 12.5566, 13.0546, 13.5096, 13.9481,
1111  5 14.5494, 15.1490, 15.7574, 16.4302, 16.9795, 17.6647, 18.5663,
1112  6 19.8670, 22.9147, 41.0000/
1113  data (ed3(i),i= 1, 63)/
1114  1 0.0000, 0.1900, 0.3800, 0.5861, 0.8198, 1.0500, 1.2684,
1115  2 1.4868, 1.6961, 1.9047, 2.1095, 2.3109, 2.5147, 2.7532,
1116  3 2.9916, 3.2562, 3.5206, 3.7719, 4.0354, 4.4185, 4.7520,
1117  4 5.0787, 5.4275, 5.8137, 6.0975, 6.2815, 6.4655, 6.5935,
1118  5 6.7087, 6.8238, 6.9389, 7.0323, 7.1010, 7.1697, 7.2385,
1119  6 7.3072, 7.3759, 7.4447, 7.5095, 7.5582, 7.6069, 7.6556,
1120  7 7.7042, 7.7529, 7.8016, 7.8503, 7.8990, 7.9477, 7.9964,
1121  8 8.0514, 8.1069, 8.1624, 8.2179, 8.2734, 8.3289, 8.3844,
1122  9 8.4399, 8.4955, 8.5631, 8.6318, 8.7006, 8.7693, 8.8381/
1123  data (ed3(i),i= 64, 101)/
1124  1 8.9068, 8.9755, 9.0568, 9.1450, 9.2332, 9.3214, 9.4095,
1125  2 9.4977, 9.6069, 9.7166, 9.8263, 9.9360, 10.0560, 10.1903,
1126  3 10.3246, 10.4590, 10.6449, 10.8536, 11.0704, 11.3064, 11.5448,
1127  4 11.7934, 12.0617, 12.4268, 12.7832, 13.1415, 13.5076, 13.9250,
1128  5 14.4078, 14.9882, 15.4322, 16.0444, 16.6430, 17.3287, 18.4305,
1129  6 19.8031, 22.3857, 40.5000/
1130  data (ed4(i),i= 1, 63)/
1131  1 0.0000, 0.1641, 0.3282, 0.4923, 0.6861, 0.8814, 1.0778,
1132  2 1.2761, 1.4743, 1.6472, 1.8162, 1.9853, 2.1740, 2.3645,
1133  3 2.5584, 2.7607, 2.9631, 3.2008, 3.4465, 3.6807, 3.9118,
1134  4 4.1666, 4.4359, 4.7238, 5.0184, 5.3284, 5.6330, 5.9312,
1135  5 6.1347, 6.3098, 6.4850, 6.5995, 6.7082, 6.8170, 6.9258,
1136  6 7.0224, 7.0928, 7.1631, 7.2335, 7.3039, 7.3742, 7.4446,
1137  7 7.5121, 7.5689, 7.6258, 7.6826, 7.7395, 7.7963, 7.8532,
1138  8 7.9100, 7.9669, 8.0252, 8.0854, 8.1457, 8.2060, 8.2662,
1139  9 8.3265, 8.3868, 8.4470, 8.5089, 8.5822, 8.6554, 8.7287/
1140  data (ed4(i),i= 64, 101)/
1141  1 8.8020, 8.8753, 8.9485, 9.0260, 9.1134, 9.2008, 9.2881,
1142  2 9.3755, 9.4629, 9.5651, 9.6783, 9.7915, 9.9047, 10.0246,
1143  3 10.1802, 10.3358, 10.4914, 10.6902, 10.8915, 11.1012, 11.3206,
1144  4 11.5527, 11.8420, 12.1190, 12.3811, 12.7032, 13.0962, 13.5743,
1145  5 14.0676, 14.5980, 15.1532, 15.8299, 16.4800, 17.2968, 18.4784,
1146  6 19.9943, 22.5401, 38.0000/
1147  data (ed5(i),i= 1, 63)/
1148  1 0.0000, 0.1469, 0.2939, 0.4408, 0.5924, 0.7471, 0.9019,
1149  2 1.0608, 1.2269, 1.3930, 1.5524, 1.6997, 1.8469, 1.9941,
1150  3 2.1357, 2.2770, 2.4183, 2.5726, 2.7449, 2.9171, 3.1113,
1151  4 3.3259, 3.5375, 3.7368, 3.9361, 4.1439, 4.3559, 4.5769,
1152  5 4.8172, 5.0574, 5.2969, 5.5331, 5.7510, 5.9689, 6.1414,
1153  6 6.3064, 6.4713, 6.5837, 6.6851, 6.7865, 6.8878, 6.9892,
1154  7 7.0701, 7.1486, 7.2271, 7.3056, 7.3841, 7.4626, 7.5347,
1155  8 7.6009, 7.6671, 7.7334, 7.7996, 7.8658, 7.9321, 7.9983,
1156  9 8.0678, 8.1374, 8.2070, 8.2766, 8.3462, 8.4158, 8.4853/
1157  data (ed5(i),i= 64, 101)/
1158  1 8.5643, 8.6457, 8.7271, 8.8085, 8.8900, 8.9714, 9.0625,
1159  2 9.1588, 9.2551, 9.3515, 9.4478, 9.5622, 9.6980, 9.8339,
1160  3 9.9697, 10.1243, 10.2843, 10.4444, 10.6366, 10.8460, 11.0704,
1161  4 11.3363, 11.6063, 11.8827, 12.2034, 12.5566, 12.9099, 13.3236,
1162  5 13.7715, 14.2890, 14.8150, 15.3595, 16.1091, 16.9421, 17.8909,
1163  6 19.2940, 21.6796, 36.5000/
1164  data (ed6(i),i= 1, 63)/
1165  1 0.0000, 0.1112, 0.2224, 0.3337, 0.4449, 0.5585, 0.6746,
1166  2 0.7906, 0.9066, 1.0244, 1.1497, 1.2751, 1.4004, 1.5215,
1167  3 1.6267, 1.7319, 1.8370, 1.9422, 2.0487, 2.1571, 2.2654,
1168  4 2.3738, 2.4821, 2.6137, 2.7499, 2.8861, 3.0255, 3.1811,
1169  5 3.3368, 3.4925, 3.6601, 3.8283, 3.9965, 4.1813, 4.3665,
1170  6 4.5619, 4.7836, 5.0052, 5.2170, 5.4288, 5.6394, 5.8494,
1171  7 6.0397, 6.1799, 6.3202, 6.4605, 6.5756, 6.6809, 6.7862,
1172  8 6.8915, 6.9968, 7.0836, 7.1699, 7.2561, 7.3423, 7.4285,
1173  9 7.5145, 7.5990, 7.6836, 7.7682, 7.8528, 7.9373, 8.0226/
1174  data (ed6(i),i= 64, 101)/
1175  1 8.1101, 8.1975, 8.2849, 8.3723, 8.4598, 8.5548, 8.6564,
1176  2 8.7580, 8.8596, 8.9612, 9.0710, 9.1858, 9.3006, 9.4154,
1177  3 9.5411, 9.6978, 9.8544, 10.0129, 10.1958, 10.3787, 10.5837,
1178  4 10.8318, 11.0904, 11.3709, 11.6870, 12.0357, 12.4042, 12.8235,
1179  5 13.2989, 13.8359, 14.4124, 15.0972, 15.7295, 16.4098, 17.3542,
1180  6 18.8141, 20.9159, 38.5000/
1181  data (ed7(i),i= 1, 63)/
1182  1 0.0000, 0.0805, 0.1611, 0.2416, 0.3222, 0.4027, 0.4833,
1183  2 0.5767, 0.6734, 0.7701, 0.8669, 0.9636, 1.0605, 1.1575,
1184  3 1.2545, 1.3514, 1.4484, 1.5366, 1.6149, 1.6932, 1.7715,
1185  4 1.8498, 1.9281, 2.0070, 2.0941, 2.1811, 2.2681, 2.3551,
1186  5 2.4421, 2.5375, 2.6496, 2.7616, 2.8736, 2.9856, 3.1009,
1187  6 3.2165, 3.3322, 3.4479, 3.5885, 3.7496, 3.9107, 4.0740,
1188  7 4.2399, 4.4058, 4.5739, 4.7448, 4.9158, 5.0970, 5.2881,
1189  8 5.4792, 5.6639, 5.8478, 6.0271, 6.1843, 6.3415, 6.4987,
1190  9 6.6164, 6.7339, 6.8513, 6.9687, 7.0797, 7.1883, 7.2968/
1191  data (ed7(i),i= 64, 101)/
1192  1 7.4054, 7.5124, 7.6087, 7.7050, 7.8012, 7.8975, 7.9937,
1193  2 8.1111, 8.2300, 8.3488, 8.4677, 8.5855, 8.7029, 8.8204,
1194  3 8.9378, 9.0754, 9.2359, 9.3963, 9.5666, 9.7549, 9.9432,
1195  4 10.1612, 10.3918, 10.6286, 10.8708, 11.1398, 11.4397, 11.8146,
1196  5 12.2547, 12.7941, 13.4267, 14.0980, 14.8348, 15.6297, 16.5820,
1197  6 17.9386, 19.9419, 41.5000/
1198  data (ed8(i),i= 1, 63)/
1199  1 0.0000, 0.0783, 0.1567, 0.2350, 0.3134, 0.3917, 0.4700,
1200  2 0.5568, 0.6488, 0.7408, 0.8328, 0.9247, 1.0174, 1.1132,
1201  3 1.2090, 1.3048, 1.4005, 1.4963, 1.5734, 1.6497, 1.7260,
1202  4 1.8024, 1.8787, 1.9550, 2.0350, 2.1204, 2.2058, 2.2911,
1203  5 2.3765, 2.4618, 2.5597, 2.6677, 2.7757, 2.8837, 2.9917,
1204  6 3.1066, 3.2221, 3.3376, 3.4530, 3.5869, 3.7335, 3.8801,
1205  7 4.0294, 4.1911, 4.3527, 4.5157, 4.6917, 4.8678, 5.0477,
1206  8 5.2389, 5.4301, 5.6226, 5.8159, 6.0073, 6.1606, 6.3139,
1207  9 6.4672, 6.5938, 6.7132, 6.8325, 6.9519, 7.0643, 7.1721/
1208  data (ed8(i),i= 64, 101)/
1209  1 7.2799, 7.3877, 7.4954, 7.5950, 7.6941, 7.7933, 7.8925,
1210  2 7.9916, 8.1093, 8.2286, 8.3480, 8.4673, 8.5893, 8.7122,
1211  3 8.8351, 8.9581, 9.1085, 9.2731, 9.4378, 9.6243, 9.8241,
1212  4 10.0283, 10.2644, 10.5005, 10.7607, 11.0264, 11.3537, 11.7201,
1213  5 12.1481, 12.6744, 13.2796, 13.9712, 14.7417, 15.5301, 16.4904,
1214  6 17.7968, 19.6727, 41.5000/
1215  data (ed9(i),i= 1, 63)/
1216  1 0.0000, 0.0693, 0.1387, 0.2080, 0.2773, 0.3467, 0.4160,
1217  2 0.4853, 0.5575, 0.6304, 0.7034, 0.7763, 0.8493, 0.9222,
1218  3 0.9952, 1.0655, 1.1356, 1.2058, 1.2759, 1.3461, 1.4162,
1219  4 1.4863, 1.5483, 1.6083, 1.6684, 1.7284, 1.7884, 1.8484,
1220  5 1.9085, 1.9685, 2.0338, 2.1050, 2.1762, 2.2474, 2.3187,
1221  6 2.3899, 2.4611, 2.5422, 2.6354, 2.7286, 2.8217, 2.9149,
1222  7 3.0084, 3.1052, 3.2020, 3.2988, 3.3956, 3.4924, 3.6122,
1223  8 3.7340, 3.8558, 3.9776, 4.1158, 4.2577, 4.3997, 4.5455,
1224  9 4.7005, 4.8555, 5.0130, 5.2031, 5.3932, 5.5734, 5.7407/
1225  data (ed9(i),i= 64, 101)/
1226  1 5.9081, 6.0743, 6.2391, 6.4039, 6.5614, 6.7088, 6.8563,
1227  2 7.0035, 7.1426, 7.2817, 7.4208, 7.5598, 7.6984, 7.8371,
1228  3 7.9757, 8.1381, 8.3055, 8.4729, 8.6498, 8.8286, 9.0089,
1229  4 9.2232, 9.4376, 9.6973, 9.9755, 10.3247, 10.6808, 11.0402,
1230  5 11.4293, 11.9142, 12.5240, 13.2442, 14.0495, 14.9062, 16.0288,
1231  6 17.5638, 20.1651, 38.5000/
1232  data (ed10(i),i= 1, 63)/
1233  1 0.0000, 0.0606, 0.1212, 0.1819, 0.2425, 0.3031, 0.3637,
1234  2 0.4243, 0.4849, 0.5442, 0.6029, 0.6616, 0.7204, 0.7791,
1235  3 0.8379, 0.8966, 0.9553, 1.0162, 1.0837, 1.1512, 1.2188,
1236  4 1.2863, 1.3538, 1.4214, 1.4889, 1.5469, 1.6031, 1.6593,
1237  5 1.7155, 1.7717, 1.8279, 1.8840, 1.9402, 1.9964, 2.0537,
1238  6 2.1110, 2.1683, 2.2256, 2.2829, 2.3403, 2.3976, 2.4549,
1239  7 2.5162, 2.5925, 2.6687, 2.7449, 2.8211, 2.8973, 2.9736,
1240  8 3.0551, 3.1395, 3.2238, 3.3082, 3.3925, 3.4769, 3.5868,
1241  9 3.7062, 3.8257, 3.9451, 4.0607, 4.1731, 4.2855, 4.3979/
1242  data (ed10(i),i= 64, 101)/
1243  1 4.5127, 4.6528, 4.7928, 4.9329, 5.0903, 5.2636, 5.4370,
1244  2 5.6392, 5.8579, 6.0634, 6.2445, 6.4256, 6.6060, 6.7859,
1245  3 6.9659, 7.1363, 7.3045, 7.4728, 7.6518, 7.8329, 8.0145,
1246  4 8.2028, 8.3910, 8.5998, 8.8367, 9.1040, 9.4384, 9.7209,
1247  5 9.9917, 10.4306, 10.9442, 11.5663, 12.2526, 13.0426, 14.1380,
1248  6 15.9148, 17.9567, 32.5000/
1249 ! data (ed11 (i),i= 1, 63)/
1250 ! 1 0.0000, 0.0517, 0.1034, 0.1551, 0.2069, 0.2586, 0.3103,
1251 ! 2 0.3620, 0.4137, 0.4654, 0.5202, 0.5812, 0.6421, 0.7031,
1252 ! 3 0.7640, 0.8250, 0.8860, 0.9469, 1.0069, 1.0604, 1.1138,
1253 ! 4 1.1673, 1.2207, 1.2742, 1.3276, 1.3811, 1.4345, 1.4880,
1254 ! 5 1.5372, 1.5853, 1.6334, 1.6815, 1.7295, 1.7776, 1.8257,
1255 ! 6 1.8737, 1.9218, 1.9699, 2.0210, 2.0772, 2.1333, 2.1895,
1256 ! 7 2.2457, 2.3019, 2.3580, 2.4142, 2.4704, 2.5296, 2.5921,
1257 ! 8 2.6547, 2.7172, 2.7798, 2.8424, 2.9049, 2.9675, 3.0393,
1258 ! 9 3.1211, 3.2030, 3.2849, 3.3667, 3.4486, 3.5391, 3.6445/
1259 ! data (ed11 (i),i= 64, 101)/
1260 ! 1 3.7498, 3.8551, 3.9605, 4.0734, 4.1908, 4.3082, 4.4256,
1261 ! 2 4.5618, 4.7303, 4.8988, 5.0970, 5.3398, 5.5542, 5.7133,
1262 ! 3 5.8725, 6.0347, 6.2094, 6.3841, 6.5709, 6.7816, 6.9923,
1263 ! 4 7.2339, 7.4767, 7.7123, 7.9471, 8.1947, 8.4460, 8.7250,
1264 ! 5 9.0151, 9.3921, 9.8525, 10.4785, 11.2767, 12.0922, 13.5060,
1265 ! 6 15.2191, 18.2934, 32.0000/
1266 ! above one seems too much fluctuated. replaced by ed12
1267  data (ed11(i),i= 1, 63)/
1268  1 0.0000, 0.0587, 0.1174, 0.1762, 0.2349, 0.2936, 0.3523,
1269  2 0.4110, 0.4697, 0.5317, 0.5971, 0.6626, 0.7280, 0.7934,
1270  3 0.8589, 0.9243, 0.9897, 1.0501, 1.1096, 1.1691, 1.2286,
1271  4 1.2881, 1.3475, 1.4070, 1.4665, 1.5213, 1.5700, 1.6187,
1272  5 1.6674, 1.7162, 1.7649, 1.8136, 1.8623, 1.9111, 1.9598,
1273  6 2.0085, 2.0572, 2.1060, 2.1547, 2.2034, 2.2521, 2.3008,
1274  7 2.3496, 2.3983, 2.4470, 2.4957, 2.5536, 2.6123, 2.6710,
1275  8 2.7297, 2.7885, 2.8472, 2.9059, 2.9646, 3.0371, 3.1306,
1276  9 3.2241, 3.3175, 3.4110, 3.5046, 3.6000, 3.6954, 3.7908/
1277  data (ed11(i),i= 64, 101)/
1278  1 3.8862, 3.9817, 4.0949, 4.2123, 4.3297, 4.4472, 4.5787,
1279  2 4.7219, 4.8650, 5.0074, 5.1383, 5.2691, 5.4000, 5.5469,
1280  3 5.7461, 5.9452, 6.1328, 6.3160, 6.4992, 6.6824, 6.8656,
1281  4 7.0393, 7.1871, 7.3348, 7.4826, 7.7126, 7.9537, 8.2466,
1282  5 8.5709, 8.9872, 9.5400, 9.9563, 10.9333, 11.6966, 12.6132,
1283  6 13.9599, 15.8549, 24.0000/
1284  data (ed12(i),i= 1, 63)/
1285  1 0.0000, 0.0587, 0.1174, 0.1762, 0.2349, 0.2936, 0.3523,
1286  2 0.4110, 0.4697, 0.5317, 0.5971, 0.6626, 0.7280, 0.7934,
1287  3 0.8589, 0.9243, 0.9897, 1.0501, 1.1096, 1.1691, 1.2286,
1288  4 1.2881, 1.3475, 1.4070, 1.4665, 1.5213, 1.5700, 1.6187,
1289  5 1.6674, 1.7162, 1.7649, 1.8136, 1.8623, 1.9111, 1.9598,
1290  6 2.0085, 2.0572, 2.1060, 2.1547, 2.2034, 2.2521, 2.3008,
1291  7 2.3496, 2.3983, 2.4470, 2.4957, 2.5536, 2.6123, 2.6710,
1292  8 2.7297, 2.7885, 2.8472, 2.9059, 2.9646, 3.0371, 3.1306,
1293  9 3.2241, 3.3175, 3.4110, 3.5046, 3.6000, 3.6954, 3.7908/
1294  data (ed12(i),i= 64, 101)/
1295  1 3.8862, 3.9817, 4.0949, 4.2123, 4.3297, 4.4472, 4.5787,
1296  2 4.7219, 4.8650, 5.0074, 5.1383, 5.2691, 5.4000, 5.5469,
1297  3 5.7461, 5.9452, 6.1328, 6.3160, 6.4992, 6.6824, 6.8656,
1298  4 7.0393, 7.1871, 7.3348, 7.4826, 7.7126, 7.9537, 8.2466,
1299  5 8.5709, 8.9872, 9.5400, 9.9563, 10.9333, 11.6966, 12.6132,
1300  6 13.9599, 15.8549, 24.0000/
1301  data (ed13(i),i= 1, 63)/
1302  1 0.0000, 0.0514, 0.1029, 0.1543, 0.2057, 0.2571, 0.3086,
1303  2 0.3600, 0.4114, 0.4629, 0.5118, 0.5541, 0.5965, 0.6388,
1304  3 0.6812, 0.7235, 0.7659, 0.8082, 0.8506, 0.8929, 0.9353,
1305  4 0.9776, 1.0309, 1.0964, 1.1618, 1.2273, 1.2927, 1.3582,
1306  5 1.4236, 1.4891, 1.5600, 1.6320, 1.7040, 1.7760, 1.8480,
1307  6 1.9200, 1.9920, 2.0427, 2.0907, 2.1387, 2.1867, 2.2347,
1308  7 2.2827, 2.3307, 2.3787, 2.4267, 2.4747, 2.5378, 2.6178,
1309  8 2.6978, 2.7778, 2.8578, 2.9378, 3.0100, 3.0550, 3.1000,
1310  9 3.1450, 3.1900, 3.2350, 3.2800, 3.3250, 3.3700, 3.4150/
1311  data (ed13(i),i= 64, 101)/
1312  1 3.4600, 3.5100, 3.6000, 3.6900, 3.7800, 3.8700, 3.9600,
1313  2 4.0308, 4.0861, 4.1415, 4.1969, 4.2523, 4.3077, 4.3631,
1314  3 4.4185, 4.4738, 4.6266, 4.8666, 5.1066, 5.3466, 5.5866,
1315  4 5.8266, 6.0400, 6.1840, 6.3280, 6.4720, 7.0200, 7.2000,
1316  5 7.3800, 7.7399, 8.2300, 8.6799, 9.3999, 10.1199, 10.8399,
1317  6 11.7997, 14.8398, 22.0000/
1318  data (ed14(i),i= 1, 63)/
1319  1 0.0000, 0.1050, 0.2100, 0.3150, 0.4200, 0.5250, 0.6300,
1320  2 0.7350, 0.8400, 0.9450, 1.0500, 1.1550, 1.2600, 1.3650,
1321  3 1.4700, 1.5125, 1.5300, 1.5475, 1.5650, 1.5825, 1.6000,
1322  4 1.6175, 1.6350, 1.6525, 1.6700, 1.6875, 1.7050, 1.7225,
1323  5 1.7400, 1.7575, 1.7750, 1.7925, 1.8100, 1.8275, 1.8450,
1324  6 1.8625, 1.8800, 1.8975, 1.9150, 1.9325, 1.9500, 1.9675,
1325  7 1.9850, 2.0100, 2.0800, 2.1500, 2.2200, 2.2900, 2.3600,
1326  8 2.4300, 2.5000, 2.5700, 2.6400, 2.7100, 2.7800, 2.8500,
1327  9 2.9200, 2.9900, 3.0900, 3.1950, 3.3000, 3.4050, 3.5100/
1328  data (ed14(i),i= 64, 101)/
1329  1 3.6150, 3.7200, 3.8250, 3.9300, 4.0350, 4.1400, 4.2450,
1330  2 4.3500, 4.4550, 4.5400, 4.6100, 4.6800, 4.7500, 4.8200,
1331  3 4.8900, 4.9600, 5.0300, 5.1000, 5.1700, 5.2400, 5.3100,
1332  4 5.3800, 5.4500, 5.5100, 5.5450, 5.5800, 5.6150, 5.6500,
1333  5 5.6850, 5.7200, 5.7550, 5.7900, 5.8250, 5.8600, 5.8950,
1334  6 5.9300, 5.9650, 6.0000/
1335 !
1336  end
1337  block data deg3b
1338 ! block data which gives de (energy loss in scinti for
1339 ! a standard gamma 1ry shower. scinti is assumed under
1340 ! 0.1cm fe. scinti is 3.5 cm thick).
1341 !
1342 ! cos=0.7
1343 !
1344 ! from e100i2 at 500 g/cm**2: fe.1sci3.5 hscint=t
1345 ! for u=0 to 1 step .01 de=in mev
1346  include "Zdeg3"
1347  data (ed1(i),i= 1, 63)/
1348  1 0.0000, 0.2138, 0.4276, 0.6993, 1.0007, 1.3232, 1.5934,
1349  2 1.7999, 2.0082, 2.2671, 2.5253, 2.7772, 3.0400, 3.3869,
1350  3 3.7065, 4.0129, 4.3193, 4.6677, 5.0746, 5.4742, 5.9914,
1351  4 6.4521, 6.7994, 7.1051, 7.3677, 7.5773, 7.7331, 7.8889,
1352  5 8.0256, 8.1149, 8.2041, 8.2934, 8.3826, 8.4719, 8.5415,
1353  6 8.6022, 8.6629, 8.7236, 8.7843, 8.8449, 8.9056, 8.9663,
1354  7 9.0234, 9.0761, 9.1288, 9.1814, 9.2341, 9.2868, 9.3395,
1355  8 9.3922, 9.4448, 9.4975, 9.5651, 9.6335, 9.7018, 9.7702,
1356  9 9.8385, 9.9069, 9.9752, 10.0542, 10.1393, 10.2245, 10.3096/
1357  data (ed1(i),i= 64, 101)/
1358  1 10.3947, 10.4798, 10.5734, 10.6697, 10.7659, 10.8622, 10.9584,
1359  2 11.0810, 11.2235, 11.3660, 11.5105, 11.6856, 11.8607, 12.0437,
1360  3 12.2575, 12.4713, 12.7150, 12.9635, 13.2306, 13.5014, 13.8766,
1361  4 14.2285, 14.6128, 15.1516, 15.6962, 16.3087, 16.8716, 17.3369,
1362  5 18.0010, 18.5733, 19.1076, 19.6222, 20.3731, 21.3866, 22.2370,
1363  6 24.0326, 27.1591, 50.0000/
1364  data (ed2(i),i= 1, 63)/
1365  1 0.0000, 0.2181, 0.4363, 0.6557, 0.8756, 1.0830, 1.2741,
1366  2 1.4651, 1.6529, 1.8398, 2.0291, 2.2320, 2.4349, 2.6677,
1367  3 2.9146, 3.1571, 3.3972, 3.6762, 3.9841, 4.3761, 4.7535,
1368  4 5.1335, 5.5297, 5.8611, 6.2269, 6.5640, 6.7768, 6.9896,
1369  5 7.2024, 7.4152, 7.5921, 7.7452, 7.8982, 8.0266, 8.1059,
1370  6 8.1852, 8.2645, 8.3439, 8.4232, 8.5020, 8.5665, 8.6310,
1371  7 8.6954, 8.7599, 8.8244, 8.8889, 8.9533, 9.0175, 9.0809,
1372  8 9.1442, 9.2076, 9.2710, 9.3344, 9.3978, 9.4611, 9.5306,
1373  9 9.6097, 9.6887, 9.7678, 9.8469, 9.9260, 10.0057, 10.0950/
1374  data (ed2(i),i= 64, 101)/
1375  1 10.1844, 10.2737, 10.3630, 10.4524, 10.5529, 10.6662, 10.7795,
1376  2 10.8928, 11.0077, 11.1492, 11.2907, 11.4322, 11.6002, 11.7926,
1377  3 11.9851, 12.1509, 12.3145, 12.4781, 12.7290, 12.9934, 13.3003,
1378  4 13.5968, 13.8723, 14.1898, 14.5537, 14.9900, 15.5627, 16.1532,
1379  5 16.7528, 17.2413, 17.7854, 18.3961, 19.0771, 19.9538, 21.3733,
1380  6 22.9053, 25.4747, 40.5000/
1381  data (ed3(i),i= 1, 63)/
1382  1 0.0000, 0.1982, 0.3965, 0.6125, 0.8479, 1.0764, 1.2925,
1383  2 1.5088, 1.7285, 1.9482, 2.1599, 2.3692, 2.5790, 2.7900,
1384  3 3.0010, 3.2343, 3.4676, 3.7610, 4.0599, 4.3434, 4.6494,
1385  4 4.9831, 5.3382, 5.6734, 5.9911, 6.2417, 6.4905, 6.7167,
1386  5 6.9420, 7.1332, 7.3126, 7.4919, 7.6346, 7.7756, 7.9166,
1387  6 8.0382, 8.1317, 8.2252, 8.3187, 8.4122, 8.5044, 8.5762,
1388  7 8.6480, 8.7199, 8.7917, 8.8636, 8.9354, 9.0068, 9.0738,
1389  8 9.1409, 9.2080, 9.2751, 9.3422, 9.4093, 9.4764, 9.5525,
1390  9 9.6337, 9.7148, 9.7959, 9.8770, 9.9581, 10.0440, 10.1349/
1391  data (ed3(i),i= 64, 101)/
1392  1 10.2258, 10.3168, 10.4077, 10.4986, 10.6042, 10.7101, 10.8160,
1393  2 10.9219, 11.0351, 11.1689, 11.3028, 11.4366, 11.6035, 11.8003,
1394  3 11.9970, 12.2546, 12.5129, 12.7689, 13.0264, 13.2982, 13.5772,
1395  4 13.8768, 14.2126, 14.6036, 15.1224, 15.6461, 16.1167, 16.6637,
1396  5 17.2094, 17.8017, 18.3964, 19.0826, 19.8689, 20.7824, 21.9573,
1397  6 23.7723, 26.7721, 52.0000/
1398  data (ed4(i),i= 1, 63)/
1399  1 0.0000, 0.1819, 0.3638, 0.5489, 0.7439, 0.9389, 1.1268,
1400  2 1.3114, 1.4961, 1.6674, 1.8384, 2.0095, 2.1818, 2.3540,
1401  3 2.5330, 2.7497, 2.9663, 3.2133, 3.4659, 3.7342, 4.0044,
1402  4 4.2410, 4.4776, 4.7659, 5.0602, 5.3575, 5.6484, 5.9334,
1403  5 6.1762, 6.4061, 6.6163, 6.8129, 7.0072, 7.1567, 7.3062,
1404  6 7.4557, 7.5903, 7.7186, 7.8469, 7.9751, 8.0772, 8.1730,
1405  7 8.2687, 8.3645, 8.4603, 8.5444, 8.6204, 8.6963, 8.7722,
1406  8 8.8481, 8.9241, 9.0000, 9.0753, 9.1507, 9.2260, 9.3013,
1407  9 9.3767, 9.4520, 9.5289, 9.6086, 9.6882, 9.7679, 9.8475/
1408  data (ed4(i),i= 64, 101)/
1409  1 9.9272, 10.0079, 10.1000, 10.1922, 10.2843, 10.3765, 10.4686,
1410  2 10.5792, 10.6992, 10.8193, 10.9394, 11.0783, 11.2366, 11.3949,
1411  3 11.5593, 11.7359, 11.9125, 12.1123, 12.3349, 12.5669, 12.8262,
1412  4 13.1132, 13.4565, 13.8019, 14.1875, 14.6255, 15.0791, 15.6364,
1413  5 16.1986, 16.7837, 17.3853, 18.1380, 18.8602, 19.7829, 20.8779,
1414  6 22.7039, 25.3393, 46.5000/
1415  data (ed5(i),i= 1, 63)/
1416  1 0.0000, 0.1371, 0.2741, 0.4112, 0.5563, 0.7162, 0.8762,
1417  2 1.0394, 1.2136, 1.3879, 1.5514, 1.6958, 1.8401, 1.9844,
1418  3 2.1370, 2.2907, 2.4444, 2.6176, 2.8018, 2.9861, 3.1706,
1419  4 3.3552, 3.5472, 3.7660, 3.9847, 4.2172, 4.4507, 4.6917,
1420  5 4.9347, 5.2061, 5.4879, 5.7600, 6.0253, 6.2424, 6.4596,
1421  6 6.6402, 6.8124, 6.9846, 7.1363, 7.2858, 7.4354, 7.5651,
1422  7 7.6796, 7.7942, 7.9087, 8.0202, 8.1196, 8.2191, 8.3185,
1423  8 8.4180, 8.5158, 8.6059, 8.6959, 8.7860, 8.8761, 8.9662,
1424  9 9.0560, 9.1456, 9.2353, 9.3249, 9.4146, 9.5046, 9.6031/
1425  data (ed5(i),i= 64, 101)/
1426  1 9.7015, 9.8000, 9.8985, 9.9970, 10.1054, 10.2141, 10.3228,
1427  2 10.4315, 10.5518, 10.6918, 10.8319, 10.9719, 11.1263, 11.2843,
1428  3 11.4423, 11.6209, 11.8114, 12.0021, 12.2152, 12.4282, 12.6892,
1429  4 12.9746, 13.2536, 13.5390, 13.8782, 14.2517, 14.6612, 15.1059,
1430  5 15.5824, 16.1326, 16.7768, 17.4461, 18.2663, 19.2516, 20.4516,
1431  6 22.1127, 25.0544, 48.5000/
1432  data (ed6(i),i= 1, 63)/
1433  1 0.0000, 0.1169, 0.2338, 0.3507, 0.4676, 0.5923, 0.7200,
1434  2 0.8477, 0.9754, 1.0992, 1.2221, 1.3449, 1.4678, 1.5811,
1435  3 1.6909, 1.8008, 1.9106, 2.0221, 2.1406, 2.2591, 2.3776,
1436  4 2.4961, 2.6315, 2.7673, 2.9032, 3.0453, 3.2026, 3.3599,
1437  5 3.5180, 3.6833, 3.8486, 4.0158, 4.2032, 4.3906, 4.5825,
1438  6 4.7806, 4.9787, 5.2249, 5.4769, 5.6993, 5.9188, 6.1241,
1439  7 6.3211, 6.5149, 6.6766, 6.8383, 7.0000, 7.1442, 7.2884,
1440  8 7.4325, 7.5650, 7.6871, 7.8093, 7.9314, 8.0520, 8.1707,
1441  9 8.2893, 8.4079, 8.5239, 8.6305, 8.7371, 8.8436, 8.9502/
1442  data (ed6(i),i= 64, 101)/
1443  1 9.0591, 9.1700, 9.2809, 9.3919, 9.5031, 9.6265, 9.7500,
1444  2 9.8734, 9.9969, 10.1390, 10.2816, 10.4242, 10.5769, 10.7412,
1445  3 10.9055, 11.0773, 11.2594, 11.4416, 11.6520, 11.8757, 12.1240,
1446  4 12.4031, 12.7207, 13.0591, 13.3984, 13.7723, 14.2079, 14.7054,
1447  5 15.2408, 15.8756, 16.5659, 17.2674, 18.0927, 19.0785, 20.4732,
1448  6 22.2080, 25.1992, 50.0000/
1449  data (ed7(i),i= 1, 63)/
1450  1 0.0000, 0.0913, 0.1826, 0.2739, 0.3652, 0.4565, 0.5517,
1451  2 0.6504, 0.7492, 0.8480, 0.9467, 1.0454, 1.1440, 1.2426,
1452  3 1.3411, 1.4397, 1.5330, 1.6180, 1.7031, 1.7881, 1.8731,
1453  4 1.9581, 2.0476, 2.1416, 2.2355, 2.3294, 2.4233, 2.5202,
1454  5 2.6303, 2.7404, 2.8505, 2.9606, 3.0904, 3.2311, 3.3719,
1455  6 3.5138, 3.6674, 3.8210, 3.9746, 4.1393, 4.3063, 4.4733,
1456  7 4.6361, 4.7982, 4.9603, 5.1239, 5.2879, 5.4519, 5.6535,
1457  8 5.8707, 6.0735, 6.2552, 6.4369, 6.6020, 6.7581, 6.9143,
1458  9 7.0673, 7.2163, 7.3654, 7.5124, 7.6405, 7.7687, 7.8968/
1459  data (ed7(i),i= 64, 101)/
1460  1 8.0284, 8.1747, 8.3210, 8.4674, 8.6158, 8.7649, 8.9139,
1461  2 9.0609, 9.2049, 9.3490, 9.4930, 9.6437, 9.7948, 9.9459,
1462  3 10.1105, 10.2826, 10.4548, 10.6608, 10.8788, 11.1069, 11.3476,
1463  4 11.6057, 11.8938, 12.2040, 12.5305, 12.8915, 13.3442, 13.8653,
1464  5 14.4078, 15.0480, 15.7632, 16.4791, 17.2583, 18.2819, 19.4121,
1465  6 21.0717, 23.4942, 48.0000/
1466  data (ed8(i),i= 1, 63)/
1467  1 0.0000, 0.0875, 0.1750, 0.2626, 0.3501, 0.4376, 0.5281,
1468  2 0.6259, 0.7238, 0.8216, 0.9195, 1.0163, 1.1084, 1.2005,
1469  3 1.2926, 1.3848, 1.4769, 1.5618, 1.6444, 1.7270, 1.8095,
1470  4 1.8921, 1.9746, 2.0616, 2.1506, 2.2395, 2.3284, 2.4174,
1471  5 2.5075, 2.6142, 2.7208, 2.8274, 2.9340, 3.0514, 3.1861,
1472  6 3.3208, 3.4555, 3.6008, 3.7513, 3.9018, 4.0599, 4.2326,
1473  7 4.4053, 4.5749, 4.7405, 4.9062, 5.0744, 5.2459, 5.4175,
1474  8 5.6030, 5.8014, 5.9999, 6.1714, 6.3430, 6.5129, 6.6658,
1475  9 6.8186, 6.9715, 7.1277, 7.2846, 7.4415, 7.5827, 7.7147/
1476  data (ed8(i),i= 64, 101)/
1477  1 7.8466, 7.9786, 8.1241, 8.2723, 8.4205, 8.5730, 8.7305,
1478  2 8.8881, 9.0429, 9.1910, 9.3392, 9.4874, 9.6465, 9.8067,
1479  3 9.9668, 10.1414, 10.3196, 10.4979, 10.7040, 10.9104, 11.1446,
1480  4 11.4002, 11.6846, 11.9873, 12.3287, 12.6972, 13.1182, 13.6330,
1481  5 14.1761, 14.7994, 15.4876, 16.2600, 17.0124, 18.0036, 19.2485,
1482  6 20.9601, 23.4214, 48.0000/
1483  data (ed9(i),i= 1, 63)/
1484  1 0.0000, 0.0774, 0.1548, 0.2323, 0.3097, 0.3871, 0.4645,
1485  2 0.5430, 0.6222, 0.7015, 0.7808, 0.8600, 0.9393, 1.0186,
1486  3 1.0983, 1.1780, 1.2577, 1.3374, 1.4171, 1.4968, 1.5608,
1487  4 1.6243, 1.6877, 1.7511, 1.8145, 1.8779, 1.9413, 2.0051,
1488  5 2.0730, 2.1410, 2.2089, 2.2768, 2.3448, 2.4127, 2.4807,
1489  6 2.5625, 2.6499, 2.7372, 2.8246, 2.9119, 2.9993, 3.0973,
1490  7 3.1953, 3.2934, 3.3915, 3.4896, 3.6062, 3.7251, 3.8440,
1491  8 3.9629, 4.0959, 4.2353, 4.3746, 4.5171, 4.6873, 4.8576,
1492  9 5.0311, 5.2213, 5.4116, 5.6031, 5.7958, 5.9885, 6.1718/
1493  data (ed9(i),i= 64, 101)/
1494  1 6.3545, 6.5365, 6.7159, 6.8953, 7.0671, 7.2282, 7.3893,
1495  2 7.5527, 7.7210, 7.8893, 8.0586, 8.2298, 8.4011, 8.5846,
1496  3 8.7850, 8.9854, 9.1865, 9.3876, 9.6008, 9.8296, 10.0599,
1497  4 10.2949, 10.5397, 10.8518, 11.1639, 11.4760, 11.8394, 12.2537,
1498  5 12.7690, 13.3734, 14.0339, 14.7598, 15.7133, 16.7018, 18.0847,
1499  6 19.8387, 23.0823, 46.5000/
1500  data (ed10(i),i= 1, 63)/
1501  1 0.0000, 0.0639, 0.1279, 0.1918, 0.2558, 0.3197, 0.3837,
1502  2 0.4476, 0.5127, 0.5830, 0.6532, 0.7235, 0.7938, 0.8641,
1503  3 0.9344, 1.0044, 1.0705, 1.1367, 1.2029, 1.2691, 1.3353,
1504  4 1.4015, 1.4677, 1.5270, 1.5798, 1.6326, 1.6854, 1.7382,
1505  5 1.7910, 1.8438, 1.8966, 1.9494, 2.0024, 2.0612, 2.1199,
1506  6 2.1786, 2.2374, 2.2961, 2.3548, 2.4136, 2.4723, 2.5415,
1507  7 2.6201, 2.6987, 2.7772, 2.8558, 2.9344, 3.0157, 3.1111,
1508  8 3.2064, 3.3018, 3.3971, 3.4925, 3.5994, 3.7074, 3.8153,
1509  9 3.9233, 4.0361, 4.1609, 4.2856, 4.4104, 4.5406, 4.6849/
1510  data (ed10(i),i= 64, 101)/
1511  1 4.8292, 4.9735, 5.1403, 5.3121, 5.4838, 5.6932, 5.9064,
1512  2 6.0960, 6.2671, 6.4382, 6.6213, 6.8112, 7.0011, 7.1861,
1513  3 7.3711, 7.5640, 7.7752, 7.9863, 8.2165, 8.4480, 8.6721,
1514  4 8.8941, 9.1769, 9.5132, 9.8077, 10.1295, 10.5029, 10.9113,
1515  5 11.4034, 11.8866, 12.6546, 13.5064, 14.5825, 15.6848, 16.9036,
1516  6 18.4066, 21.4206, 40.5000/
1517  data (ed11(i),i= 1, 63)/
1518  1 0.0000, 0.0566, 0.1133, 0.1699, 0.2265, 0.2831, 0.3398,
1519  2 0.3964, 0.4530, 0.5102, 0.5701, 0.6301, 0.6900, 0.7499,
1520  3 0.8098, 0.8697, 0.9297, 0.9896, 1.0496, 1.1097, 1.1698,
1521  4 1.2299, 1.2899, 1.3500, 1.4101, 1.4702, 1.5227, 1.5678,
1522  5 1.6129, 1.6580, 1.7030, 1.7481, 1.7932, 1.8383, 1.8834,
1523  6 1.9285, 1.9736, 2.0228, 2.0778, 2.1329, 2.1879, 2.2430,
1524  7 2.2980, 2.3530, 2.4081, 2.4631, 2.5223, 2.5900, 2.6576,
1525  8 2.7252, 2.7929, 2.8605, 2.9281, 2.9957, 3.0824, 3.1704,
1526  9 3.2584, 3.3464, 3.4344, 3.5236, 3.6165, 3.7093, 3.8021/
1527  data (ed11(i),i= 64, 101)/
1528  1 3.8949, 3.9878, 4.1017, 4.2189, 4.3361, 4.4533, 4.5818,
1529  2 4.7178, 4.8538, 4.9899, 5.1565, 5.3256, 5.4946, 5.6848,
1530  3 5.8757, 6.0765, 6.2956, 6.5125, 6.6974, 6.8823, 7.0897,
1531  4 7.3362, 7.5819, 7.8260, 8.0882, 8.3956, 8.7171, 9.0569,
1532  5 9.4650, 9.8934, 10.4566, 11.0706, 12.0981, 13.0628, 14.5325,
1533  6 16.2045, 19.9656, 48.5000/
1534  data (ed12(i),i= 1, 63)/
1535  1 0.0000, 0.0572, 0.1143, 0.1715, 0.2287, 0.2858, 0.3430,
1536  2 0.4001, 0.4573, 0.5165, 0.5815, 0.6465, 0.7115, 0.7765,
1537  3 0.8415, 0.9065, 0.9715, 1.0356, 1.0991, 1.1625, 1.2260,
1538  4 1.2894, 1.3529, 1.4164, 1.4798, 1.5276, 1.5681, 1.6086,
1539  5 1.6491, 1.6896, 1.7301, 1.7707, 1.8112, 1.8517, 1.8922,
1540  6 1.9327, 1.9732, 2.0171, 2.0678, 2.1185, 2.1692, 2.2199,
1541  7 2.2706, 2.3213, 2.3719, 2.4226, 2.4733, 2.5313, 2.5974,
1542  8 2.6634, 2.7295, 2.7956, 2.8616, 2.9277, 2.9938, 3.0640,
1543  9 3.1347, 3.2054, 3.2761, 3.3468, 3.4175, 3.4882, 3.5896/
1544  data (ed12(i),i= 64, 101)/
1545  1 3.6971, 3.8045, 3.9120, 4.0185, 4.1205, 4.2225, 4.3245,
1546  2 4.4266, 4.5309, 4.6414, 4.7518, 4.8622, 4.9726, 5.1102,
1547  3 5.2567, 5.4033, 5.5472, 5.6862, 5.8252, 5.9641, 6.2392,
1548  4 6.5466, 6.7909, 7.0429, 7.3415, 7.6512, 7.9736, 8.2740,
1549  5 8.5784, 8.9008, 9.3985, 10.0426, 10.6499, 11.8418, 12.9548,
1550  6 14.4828, 17.1464, 40.0000/
1551  data (ed13(i),i= 1, 63)/
1552  1 0.0000, 0.0725, 0.1450, 0.2175, 0.2900, 0.3625, 0.4350,
1553  2 0.5056, 0.5593, 0.6130, 0.6667, 0.7204, 0.7741, 0.8278,
1554  3 0.8815, 0.9352, 0.9889, 1.0548, 1.1238, 1.1929, 1.2619,
1555  4 1.3310, 1.4000, 1.4690, 1.5276, 1.5776, 1.6276, 1.6776,
1556  5 1.7276, 1.7776, 1.8276, 1.8776, 1.9276, 1.9776, 2.0286,
1557  6 2.0804, 2.1321, 2.1839, 2.2357, 2.2875, 2.3393, 2.3911,
1558  7 2.4429, 2.4946, 2.5722, 2.6528, 2.7333, 2.8139, 2.8944,
1559  8 2.9750, 3.0625, 3.1531, 3.2437, 3.3344, 3.4250, 3.5139,
1560  9 3.5944, 3.6750, 3.7556, 3.8361, 3.9167, 3.9972, 4.1400/
1561  data (ed13(i),i= 64, 101)/
1562  1 4.2850, 4.4300, 4.5500, 4.6467, 4.7433, 4.8400, 4.9367,
1563  2 5.0333, 5.1300, 5.2267, 5.3233, 5.4200, 5.5312, 5.7125,
1564  3 5.8937, 6.0750, 6.2562, 6.4375, 6.6357, 6.8428, 7.0700,
1565  4 7.3600, 7.5682, 7.7000, 7.8318, 7.9636, 8.3500, 9.1666,
1566  5 9.5750, 9.8166, 10.3499, 11.1000, 11.7499, 13.5996, 16.1499,
1567  6 17.0999, 18.3990, 24.0000/
1568  data (ed14(i),i= 1, 63)/
1569  1 0.0000, 0.1600, 0.3200, 0.4800, 0.6400, 0.8000, 0.9600,
1570  2 1.0150, 1.0350, 1.0550, 1.0750, 1.0950, 1.1150, 1.1350,
1571  3 1.1550, 1.1750, 1.1950, 1.2150, 1.2350, 1.2550, 1.2750,
1572  4 1.2950, 1.3150, 1.3350, 1.3550, 1.3750, 1.3950, 1.4150,
1573  5 1.4350, 1.4550, 1.4750, 1.4950, 1.5400, 1.5933, 1.6467,
1574  6 1.7000, 1.7533, 1.8067, 1.8600, 1.9133, 1.9667, 2.0200,
1575  7 2.0733, 2.1267, 2.1800, 2.2333, 2.2867, 2.3400, 2.3933,
1576  8 2.4467, 2.5000, 2.5400, 2.5800, 2.6200, 2.6600, 2.7000,
1577  9 2.7400, 2.7800, 2.8200, 2.8600, 2.9000, 2.9400, 2.9800/
1578  data (ed14(i),i= 64, 101)/
1579  1 3.0200, 3.0600, 3.1000, 3.1400, 3.1800, 3.2200, 3.2600,
1580  2 3.3000, 3.3400, 3.3800, 3.4200, 3.4600, 3.5000, 3.5800,
1581  3 3.6600, 3.7400, 3.8200, 3.9000, 3.9800, 4.0600, 4.1400,
1582  4 4.2200, 4.3000, 4.3800, 4.4600, 4.5400, 4.6200, 4.7000,
1583  5 4.7800, 4.8600, 4.9400, 5.0200, 5.1000, 5.1800, 5.2600,
1584  6 5.3400, 5.4200, 5.5000/
1585  end
1586 ! kdigb0: rho* for pb.5fe.1sc3.5 for gamma shower
1587 ! kdig0: rho* for fe.1sc3.5 for gamma shower
1588 ! kdipb0: rho* for pb.5fe.1sc3.5 for proton shower
1589 ! kdip0: rho* for fe.1sc3.5 for gamma shower
1590 !
1591 ! **********************************************************
1592 ! *
1593 ! * kdigb0: normalized lateral distribution of particles
1594 ! * which give de>0 in scintillator of 3.5 cm thick
1595 ! * uhder .5cmpb and .1cmfe.
1596 ! * this is for gamma shower
1597 ! **********************************************************
1598 !
1599 ! call kdigb0(e0, cosz, s, r, rho)
1600 !
1601 ! e0: input. 1ry energy in tev
1602 ! cosz: input. cos of the zenith angle
1603 ! s: input. age of the shower
1604 ! r: input. distance from the shower axis in moliere unit.
1605 ! moliere unit should be the one obtained by
1606 ! kmolu.
1607 ! rho: output. density of particles which give de>0 in scinti.
1608 ! (in unit of (m.u)**-2)
1609 ! if this is multiplied by ne * enfancement factor
1610 ! (which is obtained by keffgb), actual density is
1611 ! obtained.
1612 ! normalization is not so accurate.
1613 !
1614  subroutine kdigb0(e0, cosz, s, r, rho)
1615 !
1616  call klee(s, r, rhone)
1617  call kcfgb(e0, cosz, s, r, cf)
1618  rho=rhone*cf
1619  end
1620 ! the next is for fe.1sc3.5; gamma shower
1621  subroutine kdig0(e0, cosz, s, r, rho)
1622 !
1623  call klee(s, r, rhone)
1624  call kcfg(e0, cosz, s, r, cf)
1625  rho=rhone*cf
1626  end
1627 ! the next is for pb.5fe.1sc3.5 ; proton shower
1628  subroutine kdipb0(e0, cosz, s, r, rho)
1629 !
1630  call klee(s, r, rhone)
1631  call kcfpb(e0, cosz, s, r, cf)
1632  rho=rhone*cf
1633  end
1634 ! the next is for fe.1sc3.5 for proton shower
1635  subroutine kdip0(e0, cosz, s, r, rho)
1636 !
1637  call klee(s, r, rhone)
1638  call kcfp(e0, cosz, s, r, cf)
1639  rho=rhone*cf
1640  end
1641 ! kudig: rho(*,>de) for fe.1sc3.5 for gamma shower
1642 ! kudip: // for fe.1sc3.5 for proton shower
1643 !
1644 ! **********************************************************
1645 ! *
1646 ! * kudig: unnormalized lateral distribution of particles
1647 ! * which give >de in scintillator of 3.5 cm thick
1648 ! * under .1cmfe.
1649 ! * this is for gamma shower
1650 ! **********************************************************
1651 !
1652 ! call kudig(e0, zob, cosz, s, de, j1, r, rho)
1653 !
1654 ! e0: input. 1ry energy in tev
1655 ! zob: input. observation depth
1656 ! cosz: input. cos of the zenith angle
1657 ! s: input. age of the shower
1658 ! de: input. minimum energy deposit in scintilattor (mev)
1659 ! j1: input. if all of the above parameters are the same, give 1
1660 ! else 0.
1661 ! r: input. distance from the shower axis in moliere unit.
1662 ! moliere unit should be the one obtained by
1663 ! kmolu.
1664 ! rho: output. density of particles which give de>0 in scinti.
1665 ! (in unit of (m.u)**-2)
1666 ! rho is not normalized to 1 but the actual density
1667 ! of particles is obtained by multipling by
1668 ! n(de>0)= ne*enfancement factor
1669 ! where enfancement factor can be obtained by calling
1670 ! kefg
1671 ! if you fit this rho to data and get const c as
1672 ! c*rho(r,s), then ne can be obtained by ne=c/enf.
1673 !
1674  subroutine kudig(e0, zob, cosz, s, de, j1, r, rho)
1675 !
1676 ! get density at r for electron
1677  call klee(s, r, rhone)
1678 ! get correction factor due to obseravtion conditions
1679 ! (cascade in detectors).
1680  call kcfg(e0, cosz, s, r, cf)
1681 ! get prob. of energy loss > de
1682  call kide(e0, zob, s, cosz, j1, r, de, fr)
1683  rho=rhone*cf*fr
1684  end
1685 ! the next is for fe.1sc3.5 for proton shower
1686  subroutine kudip(e0, zob, cosz, s, de, j1, r, rho)
1687  call klee(s, r, rhone)
1688  call kcfp(e0, cosz, s, r, cf)
1689  call kide(e0, zob, s, cosz, j1, r, de, fr)
1690  rho=rhone*cf*fr
1691  end
1692 ! to test kudigb or kudipb
1693 !
1694 
1695 ! kudigb: rho*(>de) for pb.5fe.1sc3.5 for gamma shower
1696 ! kudipb: // for pb.5fe.1sc3.5 for proton shower
1697 !
1698 ! **********************************************************
1699 ! *
1700 ! * kudigb: unnormalized lateral distribution of particles
1701 ! * which give >de in scintillator of 3.5 cm thick
1702 ! * under .5cmpb and .1cmfe.
1703 ! * this is for gamma shower
1704 ! **********************************************************
1705 !
1706 ! call kudigb(e0, zob, cosz, s, de, j1, r, rho)
1707 !
1708 ! e0: input. 1ry energy in tev
1709 ! zob: input. observation depth
1710 ! cosz: input. cos of the zenith angle
1711 ! s: input. age of the shower
1712 ! de: input. minimum energy deposit in scintilattor (mev)
1713 ! j1: input. if all of the above parameters are the same, give 1
1714 ! else 0.
1715 ! r: input. distance from the shower axis in moliere unit.
1716 ! moliere unit should be the one obtained by
1717 ! kmolu.
1718 ! rho: output. density of particles which give de>0 in scinti.
1719 ! (in unit of (m.u)**-2)
1720 ! **** see note in kudig. ******
1721 !
1722  subroutine kudigb(e0, zob, cosz, s, de, j1, r, rho)
1723 !
1724  call klee(s, r, rhone)
1725  call kcfgb(e0, cosz, s, r, cf)
1726  call kideb(e0, zob, s, cosz, j1, r, de, fr)
1727  rho=rhone*cf*fr
1728  end
1729 ! the next is for pb.5fe.1sc3.5 ; proton shower
1730  subroutine kudipb(e0, zob, cosz, s, de, j1, r, rho)
1731  call klee(s, r, rhone)
1732  call kcfpb(e0, cosz, s, r, cf)
1733  call kideb(e0, zob, s, cosz, j1, r, de, fr)
1734  rho=rhone*cf*fr
1735  end
1736 
1737 ! to text kcfg:
1738 ! character*70 txt
1739 ! character*16 capx, capy
1740 ! open(13,file='c2s5001.#gd.data')
1741 ! cosz=1.
1742 ! e0=100.
1743 ! do 100 s=.4, 1.8, .1
1744 ! write(txt,'(''s='',f4.2)') s
1745 ! capx='r(m.u)'
1746 ! capy='(fe.1sc3.5)/rho'
1747 ! write(13) txt
1748 ! write(13) capx, capy
1749 ! r=1.e-4
1750 ! do 20 i=1, 58
1751 ! call kcfg(e0, cosz, s, r, cf)
1752 ! write(13) r, cf
1753 ! r=r*10.**.1
1754 ! 20 continue
1755 ! write(13) 1.e50, 1.e50
1756 ! 100 continue
1757 ! end
1758 ! *************************************************************
1759 ! *
1760 ! * kcfg: correction factor for lateral distribtuion when
1761 ! * gamma showers are observed with fe.1sc3.5
1762 ! *
1763 ! *************************************************************
1764  subroutine kcfg(e0, cosz, s, r, cf)
1765 ! e0: input. 1ry energy in tev.
1766 ! at present not used.
1767 ! cosz: input. cos of zenith
1768 ! s: input. age of the gamma shower
1769 ! for s<.4 or >1.6 not accurate.
1770 ! r: input. distance measured in moliere unit.
1771 ! moliere unit should be at 2r.l above the observation
1772 ! depth (along 1ry direction).
1773 ! cf: output. correction factor.
1774 ! cf*rho(s,r) gives normalized lateral distribution
1775 ! for particles giving de>0 in scinti.
1776 ! rho is the output from klee.
1777  dimension rat(35, 11)
1778  dimension dty1(35), dty2(35), dty3(35), dty4(35), dty5(35)
1779  dimension dty6(35), dty7(35), dty8(35), dty9(35), dty10(35)
1780  dimension dty11(35)
1781  equivalence(rat(1,1), dty1(1))
1782  equivalence(rat(1,2), dty2(1))
1783  equivalence(rat(1,3), dty3(1))
1784  equivalence(rat(1,4), dty4(1))
1785  equivalence(rat(1,5), dty5(1))
1786  equivalence(rat(1,6), dty6(1))
1787  equivalence(rat(1,7), dty7(1))
1788  equivalence(rat(1,8), dty8(1))
1789  equivalence(rat(1,9), dty9(1))
1790  equivalence(rat(1,10), dty10(1))
1791  equivalence(rat(1,11), dty11(1))
1792 ! gamma fe.1sc3.5/lee s=.5
1793 ! rho*/rho=cf: log10(cf) for log10(r)=-3.815 to 1.6 step .160
1794 ! s=0.5
1795  data (dty1(i),i= 1, 35)/
1796  1 -0.114, -0.052, -0.003, 0.015, 0.040, 0.053, 0.060, 0.061,
1797  2 0.056, 0.056, 0.045, 0.028, -0.001, -0.043, -0.066, -0.077,
1798  3 -0.076, -0.076, -0.081, -0.074, -0.055, -0.024, 0.031, 0.092,
1799  4 0.183, 0.304, 0.461, 0.667, 0.818, 0.928, 0.995, 1.050,
1800  5 1.081, 1.088, 1.082/
1801 ! s=0.6
1802  data (dty2(i),i= 1, 35)/
1803  1 -0.138, -0.095, -0.070, -0.045, -0.014, -0.007, 0.000, -0.012,
1804  2 -0.011, -0.010, -0.015, -0.008, -0.026, -0.043, -0.066, -0.077,
1805  3 -0.083, -0.082, -0.087, -0.080, -0.067, -0.048, -0.018, 0.037,
1806  4 0.110, 0.178, 0.275, 0.420, 0.566, 0.729, 0.862, 0.923,
1807  5 0.942, 0.943, 0.908/
1808 ! s=0.7
1809  data (dty3(i),i= 1, 35)/
1810  1 -0.240, -0.179, -0.136, -0.105, -0.080, -0.055, -0.048, -0.048,
1811  2 -0.041, -0.040, -0.039, -0.038, -0.050, -0.055, -0.060, -0.071,
1812  3 -0.089, -0.100, -0.093, -0.086, -0.067, -0.055, -0.011, 0.049,
1813  4 0.123, 0.196, 0.299, 0.414, 0.559, 0.675, 0.742, 0.767,
1814  5 0.737, 0.672, 0.588/
1815 ! s=0.8
1816  data (dty4(i),i= 1, 35)/
1817  1 -0.336, -0.257, -0.202, -0.159, -0.122, -0.091, -0.079, -0.066,
1818  2 -0.047, -0.046, -0.039, -0.044, -0.050, -0.061, -0.060, -0.071,
1819  3 -0.089, -0.076, -0.093, -0.092, -0.073, -0.048, -0.023, 0.037,
1820  4 0.105, 0.184, 0.287, 0.402, 0.517, 0.608, 0.658, 0.628,
1821  5 0.563, 0.449, 0.347/
1822 ! s=0.9
1823  data (dty5(i),i= 1, 35)/
1824  1 -0.421, -0.330, -0.269, -0.214, -0.158, -0.121, -0.097, -0.072,
1825  2 -0.065, -0.058, -0.051, -0.056, -0.062, -0.079, -0.084, -0.089,
1826  3 -0.101, -0.082, -0.087, -0.086, -0.079, -0.054, -0.024, 0.019,
1827  4 0.074, 0.153, 0.245, 0.348, 0.469, 0.524, 0.489, 0.393,
1828  5 0.298, 0.208, 0.125/
1829 ! sw=1.0
1830  data (dty6(i),i= 1, 34)/
1831  1 -0.487, -0.402, -0.323, -0.262, -0.201, -0.164, -0.127, -0.108,
1832  2 -0.089, -0.070, -0.069, -0.063, -0.068, -0.067, -0.078, -0.089,
1833  3 -0.107, -0.105, -0.104, -0.085, -0.061, -0.036, 0.001, 0.056,
1834  4 0.117, 0.203, 0.312, 0.397, 0.464, 0.435, 0.351, 0.268,
1835  5 0.184, 0.125/
1836 ! s=1.1
1837  data (dty7(i),i= 1, 35)/
1838  1 -0.638, -0.540, -0.449, -0.364, -0.297, -0.236, -0.181, -0.138,
1839  2 -0.113, -0.094, -0.069, -0.069, -0.062, -0.055, -0.066, -0.095,
1840  3 -0.101, -0.100, -0.093, -0.080, -0.079, -0.061, -0.030, 0.001,
1841  4 0.050, 0.123, 0.184, 0.282, 0.367, 0.428, 0.392, 0.297,
1842  5 0.219, 0.154, 0.106/
1843 ! s=1.2
1844  data (dty8(i),i= 1, 35)/
1845  1 -0.740, -0.631, -0.516, -0.424, -0.339, -0.266, -0.211, -0.162,
1846  2 -0.125, -0.094, -0.075, -0.062, -0.068, -0.073, -0.078, -0.089,
1847  3 -0.101, -0.112, -0.111, -0.098, -0.085, -0.061, -0.030, 0.007,
1848  4 0.050, 0.117, 0.178, 0.240, 0.337, 0.380, 0.362, 0.297,
1849  5 0.219, 0.154, 0.076/
1850 ! s=1.3
1851  data (dty9(i),i= 1, 35)/
1852  1 -0.836, -0.685, -0.564, -0.460, -0.369, -0.302, -0.253, -0.192,
1853  2 -0.155, -0.118, -0.093, -0.069, -0.074, -0.067, -0.078, -0.095,
1854  3 -0.113, -0.118, -0.117, -0.122, -0.110, -0.091, -0.066, -0.035,
1855  4 0.002, 0.069, 0.142, 0.209, 0.294, 0.350, 0.326, 0.285,
1856  5 0.219, 0.148, 0.088/
1857 ! s=1.4
1858  data (dty10(i),i= 1, 35)/
1859  1 -0.897, -0.763, -0.624, -0.466, -0.339, -0.260, -0.205, -0.144,
1860  2 -0.107, -0.064, -0.057, -0.044, -0.062, -0.061, -0.072, -0.095,
1861  3 -0.113, -0.142, -0.153, -0.146, -0.134, -0.109, -0.084, -0.047,
1862  4 -0.004, 0.051, 0.130, 0.209, 0.252, 0.313, 0.320, 0.267,
1863  5 0.189, 0.100, 0.052/
1864 ! s=1.5
1865  data (dty11(i),i= 1, 35)/
1866  1 -0.993, -0.878, -0.732, -0.581, -0.442, -0.314, -0.211, -0.138,
1867  2 -0.083, -0.058, -0.063, -0.062, -0.062, -0.073, -0.084, -0.107,
1868  3 -0.125, -0.148, -0.165, -0.171, -0.164, -0.163, -0.138, -0.101,
1869  4 -0.052, 0.009, 0.094, 0.185, 0.258, 0.301, 0.290, 0.243,
1870  5 0.165, 0.088, 0.046/
1871 !
1872 ! effective s
1873 !cc rs=1. - 1./(1. + exp(r-8.))
1874 !cc si=s*( -0.0285 *log10(e0/100.)*rs + 1.)
1875  si = s ! not use above
1876 
1877  if(si .lt. .4) then
1878  si=.4
1879  elseif(si .gt. 1.6) then
1880  si=1.6
1881  endif
1882  if(r .lt. 1.e-4) then
1883  ri=1.e-4
1884  elseif(r .gt. 70.) then
1885  ri=70.
1886  else
1887  ri=r
1888  endif
1889 !c if(ri .gt. 8.) then
1890 !c c = -3.5*(cosz-1.) + 1.
1891 !c ri=(ri-8.)*c + 8.
1892 !c endif
1893  ri=log10(ri)
1894 !
1895  call
1896  * k4ptdis(rat, 35, 11, 35, -3.82, 0.5, .16, .1, ri, si, ans)
1897  cf=10.**(ans)
1898  end
1899 ! to text kcfgb:
1900 ! character*70 txt
1901 ! character*16 capx, capy
1902 ! open(13,file='c2s5001.#gd.data')
1903 ! cosz=1.
1904 ! e0=100.
1905 ! do 100 s=.5, 1.8, .1
1906 ! write(txt,'(''s='',f4.2)') s
1907 ! capx='r(m.u)'
1908 ! capy='(fe.1sc3.5)/rho'
1909 ! write(13) txt
1910 ! write(13) capx, capy
1911 ! r=1.e-4
1912 ! do 20 i=1, 58
1913 ! call kcfgb(e0, cosz, s, r, cf)
1914 ! write(13) r, cf
1915 ! r=r*10.**.1
1916 ! 20 continue
1917 ! write(13) 1.e50, 1.e50
1918 ! 100 continue
1919 ! end
1920 ! *************************************************************
1921 ! *
1922 ! * kcfgb: correction factor for lateral distribtuion when
1923 ! * gamma showers are observed with pb.5fe.1sc3.5
1924 ! *
1925 ! *************************************************************
1926  subroutine kcfgb(e0, cosz, s, r, cf)
1927 ! e0: input. 1ry energy in tev.
1928 ! at present not used.
1929 ! cosz: input. cos of zenith
1930 ! s: input. age of the gamma shower
1931 ! for s<.4 or >1.7 not accurate.
1932 ! r: input. distance measured in moliere unit.
1933 ! moliere unit should be at 2r.l above the observation
1934 ! depth (along 1ry direction).
1935 ! cf: output. correction factor.
1936 ! cf*rho(s,r) gives normalized lateral distribution
1937 ! for particles giving de>0 in scinti.
1938 ! rho is the output from klee.
1939  dimension rat(35, 14)
1940  dimension dty1(35), dty2(35), dty3(35), dty4(35), dty5(35)
1941  dimension dty6(35), dty7(35), dty8(35), dty9(35), dty10(35)
1942  dimension dty11(35), dty12(35), dty13(35), dty14(35)
1943  equivalence(rat(1,1), dty1(1))
1944  equivalence(rat(1,2), dty2(1))
1945  equivalence(rat(1,3), dty3(1))
1946  equivalence(rat(1,4), dty4(1))
1947  equivalence(rat(1,5), dty5(1))
1948  equivalence(rat(1,6), dty6(1))
1949  equivalence(rat(1,7), dty7(1))
1950  equivalence(rat(1,8), dty8(1))
1951  equivalence(rat(1,9), dty9(1))
1952  equivalence(rat(1,10), dty10(1))
1953  equivalence(rat(1,11), dty11(1))
1954  equivalence(rat(1,12), dty12(1))
1955  equivalence(rat(1,13), dty13(1))
1956  equivalence(rat(1,14), dty14(1))
1957 ! rho(pb.5fe.1sc3.5)/lee for 10**14 e-; s=0.4
1958  data (dty1(i),i= 1, 35)/
1959  1 0.148, 0.155, 0.162, 0.151, 0.146, 0.129, 0.106, 0.089,
1960  2 0.060, 0.013, -0.028, -0.087, -0.140, -0.176, -0.199, -0.210,
1961  3 -0.209, -0.202, -0.195, -0.188, -0.169, -0.156, -0.125, -0.082,
1962  4 -0.033, 0.010, 0.047, 0.072, 0.097, 0.110, 0.087, 0.052,
1963  5 -0.013, -0.126, -0.264/
1964 ! s=.5
1965  data (dty2(i),i= 1, 35)/
1966  1 0.115, 0.128, 0.141, 0.154, 0.149, 0.144, 0.150, 0.121,
1967  2 0.110, 0.068, 0.033, -0.020, -0.068, -0.115, -0.144, -0.162,
1968  3 -0.173, -0.184, -0.195, -0.177, -0.170, -0.115, -0.078, -0.041,
1969  4 0.002, 0.051, 0.094, 0.143, 0.174, 0.199, 0.206, 0.140,
1970  5 0.057, -0.027, -0.267/
1971 ! s=0.6
1972  data (dty3(i),i= 1, 35)/
1973  1 0.063, 0.079, 0.103, 0.112, 0.113, 0.114, 0.100, 0.101,
1974  2 0.071, 0.034, 0.004, -0.026, -0.056, -0.085, -0.107, -0.122,
1975  3 -0.167, -0.181, -0.203, -0.195, -0.178, -0.146, -0.099, -0.006,
1976  4 0.087, 0.196, 0.305, 0.406, 0.491, 0.546, 0.547, 0.479,
1977  5 0.326, 0.020, -0.279/
1978 ! s=0.7
1979  data (dty4(i),i= 1, 35)/
1980  1 -0.002, 0.017, 0.036, 0.043, 0.043, 0.044, 0.033, 0.022,
1981  2 0.016, 0.005, -0.012, -0.035, -0.065, -0.088, -0.124, -0.153,
1982  3 -0.170, -0.176, -0.175, -0.168, -0.161, -0.100, -0.033, 0.041,
1983  4 0.144, 0.229, 0.339, 0.467, 0.564, 0.650, 0.693, 0.651,
1984  5 0.531, 0.145, -0.265/
1985 ! s=0.8
1986  data (dty5(i),i= 1, 35)/
1987  1 -0.047, -0.035, -0.022, -0.009, -0.009, -0.008, -0.013, -0.007,
1988 ! 2 -0.018, -0.017, -0.029, -0.034, -0.058, -0.075, -0.081, -0.086,
1989  2 -0.018, -0.017, -0.029, -0.046, -0.070, -0.086, -0.113, -0.130,
1990 ! 3 -0.097, -0.091, -0.090, -0.083, -0.071, -0.022, 0.045, 0.124,
1991  3 -0.155, -0.155, -0.149, -0.142, -0.108, -0.070, -0.005, 0.084,
1992  4 0.203, 0.306, 0.415, 0.554, 0.633, 0.700, 0.731, 0.719,
1993  5 0.636, 0.395, -0.158/
1994 ! s=0.9
1995  data (dty6(i),i= 1, 35)/
1996  1 -0.037, -0.021, 0.003, 0.012, 0.013, 0.022, 0.030, 0.031,
1997  2 0.033, -0.028, -0.019, -0.026, -0.033, -0.039, -0.069, -0.091,
1998  3 -0.113, -0.135, -0.150, -0.141, -0.155, -0.139, -0.084, -0.014,
1999  4 0.064, 0.158, 0.259, 0.367, 0.468, 0.523, 0.532, 0.448,
2000  5 0.296, 0.027, -0.325/
2001 ! s=1.0
2002  data (dty7(i),i= 1, 35)/
2003  1 -0.023, -0.004, 0.015, 0.021, 0.034, 0.035, 0.036, 0.042,
2004  2 0.043, 0.044, 0.039, 0.028, 0.016, -0.007, -0.042, -0.077,
2005  3 -0.100, -0.123, -0.128, -0.134, -0.115, -0.102, -0.071, 0.001,
2006  4 0.074, 0.171, 0.255, 0.352, 0.436, 0.467, 0.486, 0.421,
2007  5 0.308, 0.015, -0.295/
2008 ! s=1.1
2009  data (dty8(i),i= 1, 35)/
2010  1 0.017, 0.027, 0.036, 0.045, 0.047, 0.057, 0.058, 0.067,
2011  2 0.069, 0.063, 0.065, 0.051, 0.037, 0.008, -0.029, -0.058,
2012  3 -0.087, -0.093, -0.099, -0.105, -0.119, -0.102, -0.085, -0.037,
2013  4 0.034, 0.120, 0.229, 0.323, 0.409, 0.457, 0.466, 0.422,
2014  5 0.324, 0.094, -0.296/
2015 ! s=1.2
2016  data (dty9(i),i= 1, 35)/
2017  1 0.110, 0.135, 0.144, 0.145, 0.147, 0.149, 0.143, 0.136,
2018  2 0.123, 0.101, 0.088, 0.066, 0.045, 0.008, -0.021, -0.050,
2019  3 -0.087, -0.101, -0.115, -0.121, -0.119, -0.117, -0.093, -0.037,
2020  4 0.026, 0.112, 0.214, 0.308, 0.386, 0.419, 0.405, 0.368,
2021  5 0.254, 0.064, -0.312/
2022 ! s=1.3
2023  data (dty10(i),i= 1, 35)/
2024  1 0.240, 0.250, 0.244, 0.245, 0.232, 0.233, 0.235, 0.221,
2025  2 0.200, 0.178, 0.157, 0.120, 0.091, 0.046, 0.002, -0.035,
2026  3 -0.072, -0.093, -0.115, -0.121, -0.127, -0.118, -0.101, -0.053,
2027  4 0.018, 0.081, 0.175, 0.262, 0.340, 0.388, 0.397, 0.353,
2028  5 0.239, 0.041, -0.258/
2029 ! s=1.4
2030  data (dty11(i),i= 1, 35)/
2031  1 0.140, 0.181, 0.190, 0.215, 0.224, 0.218, 0.220, 0.213,
2032  2 0.200, 0.171, 0.134, 0.097, 0.045, 0.008, -0.029, -0.066,
2033  3 -0.087, -0.109, -0.115, -0.128, -0.127, -0.117, -0.093, -0.045,
2034  4 -0.036, 0.051, 0.129, 0.215, 0.302, 0.334, 0.343, 0.291,
2035  5 0.216, -0.013, -0.319/
2036 ! s=1.5
2037  data (dty12(i),i= 1, 35)/
2038  1 0.171, 0.196, 0.198, 0.215, 0.216, 0.210, 0.204, 0.198,
2039  2 0.169, 0.148, 0.118, 0.082, 0.045, 0.008, -0.021, -0.050,
2040  3 -0.095, -0.108, -0.130, -0.144, -0.150, -0.133, -0.124, -0.091,
2041  4 -0.043, 0.035, 0.083, 0.169, 0.248, 0.288, 0.289, 0.245,
2042  5 0.170, 0.018, -0.311/
2043 ! s=1.6
2044  data (dty13(i),i= 1, 35)/
2045  1 0.117, 0.150, 0.159, 0.161, 0.170, 0.164, 0.158, 0.152,
2046  2 0.131, 0.101, 0.072, 0.058, 0.037, 0.008, -0.029, -0.058,
2047  3 -0.095, -0.124, -0.145, -0.175, -0.173, -0.163, -0.139, -0.099,
2048  4 -0.059, -0.011, 0.060, 0.138, 0.194, 0.234, 0.236, 0.176,
2049  5 0.085, -0.075, -0.304/
2050 ! s=1.7
2051  data (dty14(i),i= 1, 35)/
2052  1 0.056, 0.073, 0.082, 0.076, 0.086, 0.079, 0.081, 0.075,
2053  2 0.069, 0.063, 0.041, 0.012, 0.006, -0.030, -0.037, -0.073,
2054  3 -0.110, -0.124, -0.137, -0.152, -0.150, -0.141, -0.116, -0.068,
2055  4 -0.028, -0.011, 0.037, 0.077, 0.125, 0.157, 0.166, 0.130,
2056  5 0.039, -0.090, -0.304/
2057 ! effective s
2058 ! rs=1. - 1./(1. + exp(r-8.))
2059 ! si=s*( -0.0285 *log10(e0/100.)*rs + 1.)
2060  si = s
2061  if(si .lt. .3) then
2062  si=.4
2063  elseif(si .gt. 1.8) then
2064  si=1.7
2065  endif
2066  if(r .lt. 1.e-4) then
2067  ri=1.e-4
2068  elseif(r .gt. 70.) then
2069  ri=70.
2070  else
2071  ri=r
2072  endif
2073 !c if(ri .gt. 8.) then
2074 !c c=-3.5*(cosz-1.) + 1.
2075 !c ri=(ri-8.)*c + 8.
2076 !c endif
2077  ri=log10(ri)
2078 !
2079  call
2080  * k4ptdis(rat, 35, 14, 35, -3.80, 0.4, .158, .1, ri, si, ans)
2081  cf=10.**(ans)
2082  end
2083 ! to text kcfp:
2084 ! character*70 txt
2085 ! character*16 capx, capy
2086 ! open(13,file='c2s5001.#gd.data')
2087 ! cosz=1.
2088 ! e0=100.
2089 ! do 100 s=.4, 1.8, .1
2090 ! write(txt,'(''s='',f4.2)') s
2091 ! capx='r(m.u)'
2092 ! capy='(fe.1sc3.5)/rho'
2093 ! write(13) txt
2094 ! write(13) capx, capy
2095 ! r=1.e-4
2096 ! do 20 i=1, 58
2097 ! call kcfp(e0, cosz, s, r, cf)
2098 ! write(13) r, cf
2099 ! r=r*10.**.1
2100 ! 20 continue
2101 ! write(13) 1.e50, 1.e50
2102 ! 100 continue
2103 ! end
2104 ! *************************************************************
2105 ! *
2106 ! * kcfp: correction factor for lateral distribtuion when
2107 ! * proton showers are observed with fe.1sc3.5
2108 ! *
2109 ! *************************************************************
2110  subroutine kcfp(e0, cosz, s, r, cf)
2111 ! e0: input. 1ry energy in tev.
2112 ! cosz: input. cos of zenith
2113 ! s: input. age of the proton shower
2114 ! for s<.5 or >1.6 not accurate.
2115 ! r: input. distance measured in moliere unit.
2116 ! moliere unit should be at 2r.l above the observation
2117 ! depth (along 1ry direction).
2118 ! cf: output. correction factor.
2119 ! cf*rho(s,r) gives normalized lateral distribution
2120 ! for particles giving de>0 in scinti.
2121 ! rho is the output from klee.
2122  dimension rat(35, 12)
2123  dimension dty1(35), dty2(35), dty3(35), dty4(35), dty5(35)
2124  dimension dty6(35), dty7(35), dty8(35), dty9(35), dty10(35)
2125  dimension dty11(35), dty12(35)
2126  equivalence(rat(1,1), dty1(1))
2127  equivalence(rat(1,2), dty2(1))
2128  equivalence(rat(1,3), dty3(1))
2129  equivalence(rat(1,4), dty4(1))
2130  equivalence(rat(1,5), dty5(1))
2131  equivalence(rat(1,6), dty6(1))
2132  equivalence(rat(1,7), dty7(1))
2133  equivalence(rat(1,8), dty8(1))
2134  equivalence(rat(1,9), dty9(1))
2135  equivalence(rat(1,10), dty10(1))
2136  equivalence(rat(1,11), dty11(1))
2137  equivalence(rat(1,12), dty12(1))
2138 ! proton fe.1sc3.5/lee s=.5
2139 ! rho*/rho=cf: log10(cf) for log10(r)=-3.84 to 1.6 step .16
2140 !
2141  data (dty1(i),i= 1, 35)/
2142 ! 1-1.3165,-1.2388,-1.1379,-1.0447,-0.8819,-0.6881,-0.5408,-0.3935,
2143  1-1.3565,-1.2388,-1.0579,-0.9047,-0.7819,-0.6481,-0.5108,-0.3935,
2144  2-0.3003,-0.2303,-0.1758,-0.1213,-0.0899,-0.0508,-0.0117, 0.0118,
2145 ! 3 0.0509, 0.0978, 0.1523, 0.2145, 0.2923, 0.4241, 0.5559, 0.7419,
2146  3 0.0509, 0.0978, 0.1523, 0.2145, 0.2923, 0.4241, 0.5559, 0.7119,
2147 ! 4 0.9279, 1.1680, 1.3772, 1.6096, 1.8574, 2.1130, 2.2139, 2.2530,
2148  4 0.9079, 1.0680, 1.2772, 1.5096, 1.7574, 2.0130, 2.1139, 2.1530,
2149 ! 5 2.2612, 2.2539, 2.2620/
2150  5 2.2012, 2.2239, 2.2320/
2151 ! s=.6
2152  data (dty2(i),i= 1, 35)/
2153  1 -1.10, -0.98, -0.82, -0.70, -0.60, -0.49, -0.39, -0.32,
2154  2 -0.24, -0.20, -0.15, -0.11, -0.08, -0.06, -0.05, -0.04,
2155  3 -0.02, 0.00, 0.03, 0.09, 0.17, 0.28, 0.36, 0.46,
2156  4 0.58, 0.72, 0.87, 1.03, 1.25, 1.48, 1.66, 1.90,
2157  5 2.08, 2.12, 2.12/
2158 ! s=.7
2159  data (dty3(i),i= 1, 35)/
2160  1 -1.05, -0.90, -0.78, -0.67, -0.55, -0.46, -0.38, -0.30,
2161  2 -0.25, -0.21, -0.19, -0.16, -0.14, -0.12, -0.10, -0.10,
2162  3 -0.07, -0.04, 0.01, 0.07, 0.12, 0.21, 0.29, 0.39,
2163  4 0.48, 0.60, 0.71, 0.84, 1.01, 1.18, 1.32, 1.48,
2164  5 1.58, 1.62, 1.64/
2165 ! s=0.8
2166  data (dty4(i),i= 1, 35)/
2167  1 -1.28, -1.20, -1.10, -0.94, -0.78, -0.61, -0.46, -0.36,
2168  2 -0.28, -0.24, -0.20, -0.17, -0.14, -0.14, -0.12, -0.12,
2169  3 -0.13, -0.09, -0.05, 0.00, 0.05, 0.12, 0.21, 0.29,
2170  4 0.38, 0.47, 0.57, 0.69, 0.81, 0.95, 1.06, 1.19,
2171  5 1.29, 1.37, 1.39/
2172 ! s=0.9
2173  data (dty5(i),i= 1, 35)/
2174  1 -1.28, -1.14, -1.08, -0.95, -0.80, -0.63, -0.50, -0.40,
2175  2 -0.32, -0.26, -0.24, -0.21, -0.20, -0.20, -0.19, -0.18,
2176  3 -0.16, -0.14, -0.10, -0.05, 0.00, 0.06, 0.11, 0.18,
2177  4 0.26, 0.35, 0.45, 0.55, 0.67, 0.82, 0.90, 0.98,
2178  5 1.03, 1.07, 1.07/
2179 ! s=1.0
2180  data (dty6(i),i= 1, 35)/
2181  1 -1.392, -1.260, -1.105, -0.926, -0.771, -0.616, -0.491, -0.398,
2182  2 -0.320, -0.272, -0.248, -0.216, -0.207, -0.191, -0.182, -0.181,
2183  3 -0.165, -0.156, -0.140, -0.108, -0.068, 0.002, 0.057, 0.120,
2184  4 0.198, 0.292, 0.377, 0.479, 0.596, 0.689, 0.752, 0.791,
2185  5 0.815, 0.793, 0.740/
2186 ! s=1.1
2187  data (dty7(i),i= 1, 35)/
2188  1 -1.26, -1.21, -1.11, -0.94, -0.80, -0.62, -0.51, -0.41,
2189  2 -0.30, -0.24, -0.20, -0.17, -0.15, -0.13, -0.11, -0.11,
2190  3 -0.10, -0.11, -0.10, -0.11, -0.09, -0.04, 0.01, 0.07,
2191  4 0.14, 0.23, 0.33, 0.42, 0.53, 0.60, 0.64, 0.62,
2192  5 0.59, 0.54, 0.45/
2193 ! s=1.2
2194  data (dty8(i),i= 1, 35)/
2195  1 -1.476, -1.391, -1.282, -1.073, -1.010, -0.816, -0.653, -0.506,
2196  2 -0.412, -0.326, -0.271, -0.216, -0.192, -0.176, -0.159, -0.151,
2197  3 -0.126, -0.125, -0.117, -0.100, -0.084, -0.060, -0.020, 0.043,
2198  4 0.105, 0.199, 0.277, 0.371, 0.441, 0.512, 0.544, 0.537,
2199  5 0.476, 0.369, 0.262/
2200 ! s=1.3
2201  data (dty9(i),i= 1, 35)/
2202  1 -1.507, -1.414, -1.351, -1.296, -1.126, -1.001, -0.877, -0.691,
2203  2 -0.536, -0.396, -0.310, -0.239, -0.177, -0.137, -0.098, -0.096,
2204  3 -0.103, -0.118, -0.124, -0.131, -0.099, -0.075, -0.035, 0.012,
2205  4 0.075, 0.160, 0.254, 0.332, 0.380, 0.442, 0.459, 0.413,
2206  5 0.322, 0.207, 0.116/
2207 ! s=1.4
2208  data (dty10(i),i= 1, 35)/
2209  1 -1.46, -1.38, -1.33, -1.30, -1.27, -1.17, -0.96, -0.83,
2210  2 -0.66, -0.52, -0.41, -0.31, -0.24, -0.20, -0.15, -0.15,
2211  3 -0.13, -0.13, -0.14, -0.13, -0.15, -0.12, -0.09, -0.04,
2212  4 0.02, 0.08, 0.17, 0.23, 0.29, 0.33, 0.32, 0.28,
2213  5 0.19, 0.07, -0.02/
2214 ! s=1.5
2215  data (dty11(i),i= 1, 35)/
2216  1 -1.63, -1.49, -1.44, -1.40, -1.38, -1.30,
2217  2 -1.21, -0.99, -0.83, -0.69, -0.53, -0.40, -0.29, -0.23,
2218  3 -0.17, -0.14, -0.14, -0.13, -0.16, -0.19, -0.19, -0.18,
2219  4 -0.15, -0.11, -0.06, -0.01, 0.05, 0.12, 0.18, 0.23,
2220  5 0.21, 0.16, 0.06, -0.05, -0.13/
2221 ! s=1.6
2222  data (dty12(i),i= 1, 35)/
2223  1 -1.46, -1.45, -1.43, -1.43, -1.40, -1.34, -1.27, -1.19,
2224  2 -1.02, -0.85, -0.68, -0.54, -0.40, -0.29, -0.23, -0.18,
2225  3 -0.16, -0.16, -0.17, -0.19, -0.20, -0.18, -0.16, -0.14,
2226  4 -0.11, -0.06, 0.02, 0.07, 0.11, 0.12, 0.10, 0.03,
2227  5 -0.07, -0.14, -0.20/
2228 !
2229 ! effective s
2230 !c rs=1. - 1./(1. + exp(r-8.))
2231 !c si=s*( -0.0285 *log10(e0/100.)*rs + 1.)
2232  si = s
2233  if(si .lt. .4) then
2234  si=.4
2235  elseif(si .gt. 1.7) then
2236  si=1.7
2237  endif
2238  if(r .lt. 1.e-4) then
2239  ri=1.e-4
2240  elseif(r .gt. 70.) then
2241  ri=70.
2242  else
2243  ri=r
2244  endif
2245 !c if(ri .gt. 8.) then
2246 !c c=-3.5*(cosz-1.) + 1.
2247 !c ri=(ri-8.)*c + 8.
2248 !c endif
2249  ri=log10(ri)
2250 !
2251  call
2252  * k4ptdis(rat, 35, 12, 35, -3.84, 0.5, .16, .1, ri, si, ans)
2253  cf=10.**(ans)
2254  end
2255 ! to test kcfpb:
2256 
2257 ! e0=100.
2258 ! do 100 s=.4, 1.8, .1
2259 ! write(txt,'(''s='',f4.2)') s
2260 ! capx='r(m.u)'
2261 ! capy='(fe.1sc3.5)/rho'
2262 ! write(13) txt
2263 ! write(13) capx, capy
2264 ! r=1.e-4
2265 ! do 20 i=1, 58
2266 ! call kcfpb(e0, cosz, s, r, cf)
2267 ! write(13) r, cf
2268 ! r=r*10.**.1
2269 ! 20 continue
2270 ! write(13) 1.e50, 1.e50
2271 ! 100 continue
2272 ! end
2273 ! *************************************************************
2274 ! *
2275 ! * kcfpb: correction factor for lateral distribtuion when
2276 ! * proton showers are observed with pb.5fe.1sc3.5
2277 ! *
2278 ! *************************************************************
2279  subroutine kcfpb(e0, cosz, s, r, cf)
2280 ! e0: input. 1ry energy in tev.
2281 ! at present not used.
2282 ! cosz: input. cos of zenith
2283 ! s: input. age of the proton shower
2284 ! for s<.4 or >1.7 not accurate.
2285 ! r: input. distance measured in moliere unit.
2286 ! moliere unit should be at 2r.l above the observation
2287 ! depth (along 1ry direction).
2288 ! cf: output. correction factor.
2289 ! cf*rho(s,r) gives normalized lateral distribution
2290 ! for particles giving de>0 in scinti.
2291 ! rho is the output from klee.
2292  dimension rat(35, 13)
2293  dimension dty1(35), dty2(35), dty3(35), dty4(35), dty5(35)
2294  dimension dty6(35), dty7(35), dty8(35), dty9(35), dty10(35)
2295  dimension dty11(35), dty12(35), dty13(35)
2296  equivalence(rat(1,1), dty1(1))
2297  equivalence(rat(1,2), dty2(1))
2298  equivalence(rat(1,3), dty3(1))
2299  equivalence(rat(1,4), dty4(1))
2300  equivalence(rat(1,5), dty5(1))
2301  equivalence(rat(1,6), dty6(1))
2302  equivalence(rat(1,7), dty7(1))
2303  equivalence(rat(1,8), dty8(1))
2304  equivalence(rat(1,9), dty9(1))
2305  equivalence(rat(1,10), dty10(1))
2306  equivalence(rat(1,11), dty11(1))
2307  equivalence(rat(1,12), dty12(1))
2308  equivalence(rat(1,13), dty13(1))
2309 ! rho*/rho=cf: log10(cf) for log10(r)=-3.84 to 1.6 step .16
2310 ! proton 10**14 ev rho(pb.5fe.1sc3.5)/lee s=0.4
2311  data (dty1(i),i= 1, 35)/
2312  1 -1.398, -1.320, -1.176, -1.020, -0.905, -0.761, -0.641, -0.545,
2313  2 -0.461, -0.383, -0.335, -0.275, -0.221, -0.173, -0.107, -0.065,
2314  3 -0.023, 0.014, 0.074, 0.224, 0.368, 0.542, 0.734, 0.884,
2315  4 1.071, 1.245, 1.401, 1.635, 1.809, 1.947, 2.068, 2.116,
2316  5 2.152, 2.152, 2.158/
2317 ! s=0.5
2318  data (dty2(i),i= 1, 35)/
2319  1 -1.002, -0.857, -0.725, -0.647, -0.575, -0.515, -0.461, -0.407,
2320  2 -0.359, -0.317, -0.263, -0.215, -0.149, -0.095, -0.047, -0.017,
2321  3 -0.011, -0.005, 0.026, 0.116, 0.212, 0.368, 0.512, 0.668,
2322  4 0.818, 0.992, 1.155, 1.323, 1.491, 1.611, 1.725, 1.809,
2323  5 1.839, 1.857, 1.863/
2324 ! s=0.6
2325  data (dty3(i),i= 1, 35)/
2326  1 -0.899, -0.779, -0.677, -0.575, -0.473, -0.395, -0.329, -0.287,
2327  2 -0.227, -0.185, -0.131, -0.107, -0.077, -0.047, -0.029, -0.023,
2328  3 -0.017, -0.011, 0.008, 0.044, 0.074, 0.128, 0.230, 0.350,
2329  4 0.500, 0.686, 0.872, 1.047, 1.209, 1.341, 1.449, 1.551,
2330  5 1.629, 1.659, 1.665/
2331 ! s=0.7
2332  data (dty4(i),i= 1, 35)/
2333  1 -0.917, -0.743, -0.617, -0.503, -0.389, -0.293, -0.209, -0.149,
2334  2 -0.089, -0.053, -0.035, -0.023, -0.035, -0.041, -0.047, -0.065,
2335  3 -0.065, -0.053, -0.041, -0.017, 0.020, 0.080, 0.164, 0.296,
2336  4 0.422, 0.578, 0.728, 0.878, 1.059, 1.197, 1.323, 1.425,
2337  5 1.509, 1.551, 1.551/
2338 ! s=0.8
2339  data (dty5(i),i= 1, 35)/
2340  1 -0.881, -0.749, -0.623, -0.503, -0.395, -0.311, -0.233, -0.167,
2341  2 -0.119, -0.089, -0.065, -0.059, -0.059, -0.065, -0.065, -0.077,
2342  3 -0.083, -0.107, -0.107, -0.089, -0.041, 0.038, 0.092, 0.176,
2343  4 0.266, 0.386, 0.518, 0.644, 0.806, 0.998, 1.137, 1.263,
2344  5 1.341, 1.353, 1.365/
2345 ! s=.9
2346  data (dty6(i),i= 1, 35)/
2347  1 -1.194, -1.008, -0.833, -0.647, -0.497, -0.365, -0.269, -0.191,
2348  2 -0.125, -0.083, -0.053, -0.053, -0.047, -0.059, -0.077, -0.083,
2349  3 -0.077, -0.077, -0.089, -0.107, -0.095, -0.053, 0.008, 0.098,
2350  4 0.182, 0.284, 0.386, 0.500, 0.602, 0.716, 0.830, 0.920,
2351  5 1.005, 1.059, 1.065/
2352 ! s=1.0
2353  data (dty7(i),i= 1, 35)/
2354  1 -1.386, -1.218, -1.014, -0.827, -0.641, -0.485, -0.359, -0.251,
2355  2 -0.173, -0.107, -0.071, -0.041, -0.047, -0.047, -0.065, -0.071,
2356  3 -0.077, -0.089, -0.101, -0.113, -0.107, -0.083, -0.035, 0.026,
2357  4 0.116, 0.212, 0.338, 0.458, 0.542, 0.608, 0.656, 0.698,
2358  5 0.728, 0.752, 0.758/
2359 ! s=1.1
2360  data (dty8(i),i= 1, 35)/
2361  1 -1.386, -1.188, -1.020, -0.821, -0.635, -0.491, -0.371, -0.269,
2362  2 -0.197, -0.137, -0.095, -0.065, -0.047, -0.053, -0.065, -0.077,
2363  3 -0.095, -0.107, -0.113, -0.125, -0.113, -0.089, -0.053, 0.002,
2364  4 0.074, 0.176, 0.272, 0.362, 0.458, 0.518, 0.554, 0.566,
2365  5 0.554, 0.500, 0.410/
2366 ! s=1.2
2367  data (dty9(i),i= 1, 35)/
2368  1 -1.404, -1.284, -1.152, -0.977, -0.797, -0.635, -0.473, -0.365,
2369  2 -0.263, -0.185, -0.125, -0.095, -0.071, -0.065, -0.077, -0.089,
2370  3 -0.095, -0.101, -0.107, -0.119, -0.119, -0.107, -0.083, -0.029,
2371  4 0.038, 0.098, 0.188, 0.284, 0.362, 0.434, 0.458, 0.446,
2372  5 0.416, 0.326, 0.194/
2373 ! s=1.3
2374  data (dty10(i),i= 1, 35)/
2375  1 -1.398, -1.344, -1.295, -1.163, -0.953, -0.744, -0.581, -0.425,
2376  2 -0.317, -0.233, -0.173, -0.143, -0.125, -0.112, -0.118, -0.118,
2377  3 -0.117, -0.123, -0.135, -0.140, -0.140, -0.128, -0.115, -0.067,
2378  4 -0.007, 0.065, 0.143, 0.216, 0.294, 0.348, 0.360, 0.325,
2379  5 0.253, 0.158, 0.026/
2380 ! s=1.4
2381  data (dty11(i),i= 1, 35)/
2382  1 -1.470, -1.391, -1.307, -1.205, -1.031, -0.863, -0.713, -0.557,
2383  2 -0.413, -0.305, -0.215, -0.161, -0.125, -0.106, -0.094, -0.100,
2384  3 -0.105, -0.111, -0.117, -0.140, -0.128, -0.110, -0.097, -0.079,
2385  4 -0.013, 0.035, 0.107, 0.192, 0.270, 0.294, 0.288, 0.253,
2386  5 0.181, 0.050, -0.082/
2387 ! s=1.5
2388  data (dty12(i),i= 1, 35)/
2389  1 -1.446, -1.355, -1.295, -1.247, -1.163, -1.073, -0.875, -0.659,
2390  2 -0.485, -0.347, -0.257, -0.191, -0.142, -0.112, -0.112, -0.106,
2391  3 -0.111, -0.117, -0.135, -0.140, -0.134, -0.128, -0.103, -0.067,
2392  4 -0.019, 0.017, 0.066, 0.168, 0.216, 0.246, 0.234, 0.181,
2393  5 0.091, -0.058, -0.201/
2394 ! s=1.6
2395  data (dty13(i),i= 1, 35)/
2396  1 -1.559, -1.499, -1.445, -1.403, -1.307, -1.217, -1.084, -0.749,
2397  2 -0.533, -0.395, -0.305, -0.227, -0.184, -0.154, -0.142, -0.160,
2398  3 -0.153, -0.165, -0.165, -0.158, -0.158, -0.152, -0.127, -0.097,
2399  4 -0.055, -0.001, 0.060, 0.108, 0.162, 0.210, 0.205, 0.151,
2400  5 0.050, -0.106, -0.297/
2401 ! effective s
2402 !c rs=1. - 1./(1. + exp(r-8.))
2403 !c si=s*( -0.0285 *log10(e0/100.)*rs + 1.)
2404  si = s
2405  if(si .lt. .3) then
2406  si=.3
2407  elseif(si .gt. 1.7) then
2408  si=1.7
2409  endif
2410  if(r .lt. 1.e-4) then
2411  ri=1.e-4
2412  elseif(r .gt. 70.) then
2413  ri=70.
2414  else
2415  ri=r
2416  endif
2417 !c if(ri .gt. 8.) then
2418 !c c=-3.5*(cosz-1.) + 1.
2419 !c ri=(ri-8.)*c + 8.
2420 !c endif
2421  ri=log10(ri)
2422 !
2423  call
2424  * k4ptdis(rat, 35, 13, 35, -3.80, 0.4, .158, .1, ri, si, ans)
2425  cf=10.**(ans)
2426  end
2427 ! kdig: rho(*,>de) for fe.1sc3.5 for gamma shower
2428 ! kdip: // for fe.1sc3.5 for proton shower
2429 !
2430 ! **********************************************************
2431 ! *
2432 ! * kdig: normalized lateral distribution of particles
2433 ! * which give >de in scintillator of 3.5 cm thick
2434 ! * under .1cmfe.
2435 ! * this is for gamma shower
2436 ! **********************************************************
2437 !
2438 ! call kdig(e0, zob, cosz, s, de, j1, r, rho)
2439 !
2440 ! e0: input. 1ry energy in tev
2441 ! zob: input. observation depth
2442 ! cosz: input. cos of the zenith angle
2443 ! s: input. age of the shower
2444 ! de: input. minimum energy deposit in scintilattor (mev)
2445 ! j1: input. if all of the above parameters are the same as the
2446 ! previous call, give 1
2447 ! else 0.
2448 ! r: input. distance from the shower axis in moliere unit.
2449 ! moliere unit should be the one obtained by
2450 ! kmolu.
2451 ! rho: output. density of particles which give de>0 in scinti.
2452 ! (in unit of (m.u)**-2)
2453 ! rho is normalized so that int(rho*2pi r dr)=1.
2454 ! the actual density is obtained by multipling by
2455 ! n(>de)= ne*enfancement factor*m
2456 ! where m is obtained by integrating rho*cf*p(>de)
2457 ! *2pirdr.
2458 !
2459  subroutine kdig(e0, zob, cosz, s, de, j1, r, rho)
2460 !
2461  external kcfg, kide
2462  if(j1 .eq. 0) then
2463  call knrml(e0, zob, cosz, s, de, kcfg, kide, sum)
2464  endif
2465  call klee(s, r, rhone)
2466  call kcfg(e0, cosz, s, r, cf)
2467  call kide(e0, zob, s, cosz, j1, r, de, fr)
2468  rho=rhone*cf*fr/sum
2469  end
2470 ! the next is for fe.1sc3.5 for proton shower
2471  subroutine kdip(e0, zob, cosz, s, de, j1, r, rho)
2472  external kcfp, kide
2473  if(j1 .eq. 0) then
2474  call knrml(e0, zob, cosz, s, de, kcfp, kide, sum)
2475  endif
2476  call klee(s, r, rhone)
2477  call kcfp(e0, cosz, s, r, cf)
2478  call kide(e0, zob, s, cosz, j1, r, de, fr)
2479  rho=rhone*cf*fr/sum
2480  end
2481 ! to test kdigb or kdipb
2482 !
2483 ! kdigb: rho*(>de) for pb.5fe.1sc3.5 for gamma shower
2484 ! kdipb: // for pb.5fe.1sc3.5 for proton shower
2485 !
2486 ! **********************************************************
2487 ! *
2488 ! * kdigb: normalized lateral distribution of particles
2489 ! * which give >de in scintillator of 3.5 cm thick
2490 ! * under .5cmpb and .1cmfe.
2491 ! * this is for gamma shower
2492 ! **********************************************************
2493 !
2494 ! call kdigb(e0, zob, cosz, s, de, j1, r, rho)
2495 !
2496 ! e0: input. 1ry energy in tev
2497 ! zob: input. observation depth
2498 ! cosz: input. cos of the zenith angle
2499 ! s: input. age of the shower
2500 ! de: input. minimum energy deposit in scintilattor (mev)
2501 ! j1: input. if all of the above parameters are the same as the
2502 ! previous call give 1, else 0
2503 ! r: input. distance from the shower axis in moliere unit.
2504 ! moliere unit should be the one obtained by
2505 ! kmolu.
2506 ! rho: output. density of particles which give de>0 in scinti.
2507 ! (in unit of (m.u)**-2)
2508 !
2509  subroutine kdigb(e0, zob, cosz, s, de, j1, r, rho)
2510 !
2511  external kcfgb, kideb
2512  if(j1 .eq. 0) then
2513  call knrml(e0, zob, cosz, s, de, kcfgb, kideb, sum)
2514  endif
2515  call klee(s, r, rhone)
2516  call kcfgb(e0, cosz, s, r, cf)
2517  call kideb(e0, zob, s, cosz, j1, r, de, fr)
2518  rho=rhone*cf*fr/sum
2519  end
2520 ! the next is for pb.5fe.1sc3.5 ; proton shower
2521  subroutine kdipb(e0, zob, cosz, s, de, j1, r, rho)
2522  external kcfpb, kideb
2523  if(j1 .eq. 0) then
2524  call knrml(e0, zob, cosz, s, de, kcfpb, kideb, sum)
2525  endif
2526  call klee(s, r, rhone)
2527  call kcfpb(e0, cosz, s, r, cf)
2528  call kideb(e0, zob, s, cosz, j1, r, de, fr)
2529  rho=rhone*cf*fr/sum
2530  end
2531 ! ***********************************************************
2532 ! *
2533 ! * kefg: enfancement factor for gamma showers
2534 ! * ne'/ne for fe.1sc3.5 case. ne=# of electrons
2535 ! * with > 1mev.
2536 ! * ne' is the # of particles giving de>0 in
2537 ! * the scinti.
2538 ! * kefp: the same as above for proton shower
2539 ! *
2540 ! * note that this is obtained by emin(g)=2mev. since
2541 ! * single ptcl de=7 mev, we need lower emin(g) if the
2542 ! * threshold should be less than .2 ptcl level.
2543 ! * to have emin(g)=1 mev case, we need to increase the
2544 ! * ef by factor .125(s-1.)+1.15
2545 ! * (lateral is affected also slightly)
2546 ! * kideg must be modified also.
2547 ! *
2548 ! ***********************************************************
2549 !
2550 ! call kefg(cosz, s, ef)
2551 ! cosz:input. cos of zenith angle
2552 ! s:input. age of the shower
2553 ! ef:output. enfancement factor.
2554 !
2555  subroutine kefg(cosz, s, ef)
2556 ! for cosz=1.
2557  r= 1.012 + .4645*s
2558 ! cosz correction (verified upto cos=.7)
2559 ! for s< 1. should be examined.)
2560  ef=1. + (r-1.)/cosz
2561  end
2562  subroutine kefp(cosz,s, ef)
2563 ! use same as kefg
2564 ! for cosz=1.
2565  r= 1.012 + .4645*s
2566 ! cosz correction
2567 ! for s< 1. should be examined.)
2568  ef=1. + (r-1.)/cosz
2569  end
2570 ! ***********************************************************
2571 ! *
2572 ! * kefgb: enfancement factor for gamma showers
2573 ! * ne'/ne for pb.5fe.1sc3.5 case. ne=# of electrons
2574 ! * with > 1mev.
2575 ! * ne' is the # of particles giving de>0 in
2576 ! * the scinti.
2577 ! * kefpb: the same as above for proton shower
2578 ! *
2579 ! * note that this is obtained by emin(g)=2mev. since
2580 ! * single ptcl de=7 mev, we need lower emin(g) if the
2581 ! * threshold should be less than .2 ptcl level.
2582 ! * to have emin(g)=1 mev case, we need to increase the
2583 ! * ef by factor 1.1
2584 ! * (lateral is affected also slightly)
2585 ! * kidegb must be modified also.
2586 ! ***********************************************************
2587 !
2588 ! call kefgb(cosz, s, ef)
2589 ! cosz:input. cos of zenith angle
2590 ! s:input. age of the shower
2591 ! ef:output. enfancement factor.
2592 !
2593  subroutine kefgb(cosz, s, ef)
2594 ! for cosz=1.
2595  r=( .383*s -0.1389)*s + 1.79
2596 ! cosz correction ( verified uptp cos=0.7)
2597  ef=1. - (1.-cosz)* 0.575 + (r-1.)/cosz
2598  end
2599  subroutine kefpb(cosz,s, ef)
2600 ! use same as kefgb
2601 ! for cosz=1.
2602  r=( .383*s -0.1389)*s + 1.79
2603 ! cosz correction
2604  ef=1. - (1.-cosz)* 0.575 + (r-1.)/cosz
2605  end
2606 ! **********************************************************
2607 ! *
2608 ! * kfrac: get fraction of a.s particles with
2609 ! * scintillator output > pmin( equivalent ptcl #)
2610 ! *
2611 ! **********************************************************
2612 ! call kfrac(jsc, k, e0, zob, cosz, s, pmin, frac)
2613 ! jsc: input. 1---> fe.1sc3.5
2614 ! 2---> pb.5fe.1sc3.5
2615 ! k: input. 0---> gamma 1ry
2616 ! 1---> proton 1ry
2617 ! e0: input. 1ry energy in tev
2618 ! zob: input. observation depth (vertical) (in g/cm**2)
2619 ! cosz: input. cos of 1ry zenith angle
2620 ! s: input. age of the shower
2621 ! pmin: input. minimum of scintillator output in equivalent ptcl #.
2622 !
2623 ! frac: output. fraction of a.s ptcls with scintillator output >
2624 ! pmin
2625 ! frac= integral of ( 2pi r rho' p(>de) dr )
2626 !
2627  subroutine kfrac(jsc, k, e0, zob, cosz, s, pmin, frac)
2628  include "Zascns"
2629  external kcfp, kide
2630  external kcfg, kcfpb
2631  external kcfgb, kideb
2632  if(pmin .eq. 0.) then
2633  frac=1.
2634  else
2635  if(jsc .eq. 1) then
2636 ! fe.1sc3.5
2637  demin=pmin*eqvo1
2638  if(k .eq. 0) then
2639  call knrml(e0, zob, cosz, s, demin, kcfg,
2640  * kide, frac )
2641  elseif(k .eq. 1) then
2642  call knrml(e0, zob, cosz, s, demin, kcfp,
2643  * kide, frac )
2644  endif
2645  elseif(jsc .eq. 2) then
2646  demin=pmin*eqvo2
2647  if(k .eq. 0) then
2648  call knrml(e0, zob, cosz, s, demin, kcfgb,
2649  * kideb, frac )
2650  elseif(k .eq. 1) then
2651  call knrml(e0, zob, cosz, s, demin, kcfpb,
2652  * kideb, frac )
2653  endif
2654  endif
2655  endif
2656  end
2657 ! *********************************************************
2658 ! *
2659 ! * kide: get fraction of particles which gives energy
2660 ! * deposit in scintillater >= given value.
2661 ! ***************************************************
2662 ! scinti : 3.5 cm thick under .1 cm fe.
2663 !
2664  subroutine kide(e0, zob, s, cosz, j1, rr, de, fr)
2665 ! e0: input. 1ry energy of gamma in tev
2666 ! zob: input. observation depth (g/cm**2) (vetical)
2667 ! s: input. age of the shower
2668 ! cosz: input. cos of the zenith angle of the shower
2669 ! j1: input. 0--> some of the above parameters are not equal to
2670 ! those in previous call.
2671 ! ^=0-->all above parameters are equal to those
2672 ! in the previous call.
2673 ! de: input. energy deposit in scintillater. in mev
2674 ! rr: input. distance from the core in m
2675 ! fr: output. fraction of particles > de at r.
2676 !
2677  include "Zascns"
2678  data ssave/5./
2679  save ssave, rcnv, um1, um2
2680 !
2681  if(j1 .eq. 0) then
2682 ! new parameters
2683  if(abs(s/ssave-1.) .gt. smarg) then
2684  ssave=s
2685 ! um1=m.u (2 r.l above the observation depht,
2686 ! along the 1ry direction) (in m)
2687  call kmolu(zob, cosz, um1)
2688 ! um2=m.u (same as above) for the depth where
2689 ! the standard shower takes the same age (=s) as the
2690 ! currently considered shower.
2691  call stzss(s, z)
2692  call kmolu(z, cosz, um2)
2693 ! ssmu is in Zascns (standard shower m.u)
2694  rcnv= sqrt( ssmu * um2)/um1
2695  endif
2696  endif
2697  if(de .gt. 0.) then
2698 ! effective r
2699  r=rr* rcnv
2700  if(e0 .lt. .1) then
2701  r=r+10.
2702  endif
2703  if(cosz .gt. .9) then
2704 ! use vertical one
2705  deo=de*cosz
2706  call kide1(deo, r, fr)
2707  elseif(cosz .gt. .75) then
2708 ! use cos=0.8
2709  deo=de*cosz/0.8
2710  call kide2(deo, r, fr)
2711  else
2712 ! use cos=.7
2713  deo=de*cosz/0.7
2714  call kide3(deo, r, fr)
2715  endif
2716  else
2717  fr=1.
2718  endif
2719  end
2720 ! *********************************************************
2721 ! *
2722 ! * kideb: get fraction of particles which gives energy
2723 ! * deposit in scintillator >= given value.
2724 ! ***************************************************
2725 ! scinti : 3.5 cm thick under 0.5cmpb and .1 cm fe.
2726 !
2727  subroutine kideb(e0, zob, s, cosz, j1, rr, de, fr)
2728 ! e0: input. 1ry energy of gamma in tev
2729 ! zob: input. observation depth (g/cm**2) (vetical)
2730 ! s: input. age of the shower
2731 ! cosz: input. cos of the zenith angle of the shower
2732 ! j1: input. 0--> all above parameters are not equal to
2733 ! those in previous call.
2734 ! ^=0-->all above parameters are equal to those
2735 ! in the previous call.
2736 ! de: input. energy deposit in scintillater. in mev
2737 ! rr: input. distance from the core in m
2738 ! fr: output. fraction of particles > de at r.
2739 !
2740  include "Zascns"
2741 !
2742  data ssave/5./
2743  save ssave, um1, um2, rcnv
2744  if(j1 .eq. 0) then
2745 ! new parameters
2746  if(abs(s/ssave-1.) .gt. smarg) then
2747  ssave=s
2748 ! um1=m.u (2 r.l above the observation depht,
2749 ! along the 1ry direction) (in m)
2750  call kmolu(zob, cosz, um1)
2751 ! um2=m.u (same as above) for the dpeth where
2752 ! the standard shower takes the same age (=s) as the
2753 ! currently considered shower.
2754  call stzss(s, z)
2755  call kmolu(z, cosz, um2)
2756  rcnv= sqrt( ssmu * um2)/um1
2757  endif
2758  endif
2759  if(de .gt. 0.) then
2760 ! effective r; ssmu is in Zascns (standard shower m.u)
2761  r=rr* rcnv
2762  if(e0 .lt. .1) then
2763  r=r+10.
2764  endif
2765  if(cosz .gt. .9) then
2766 ! use vertical one
2767  deo=de*cosz
2768  call kideb1(deo, r, fr)
2769  elseif(cosz .gt. .75) then
2770 ! use cos=0.8
2771  deo=de*cosz/0.8
2772  call kideb2(deo, r, fr)
2773  else
2774 ! use cos=0.7
2775  deo=de*cosz/0.7
2776  call kideb3(deo, r, fr)
2777  endif
2778  else
2779  fr=1.
2780  endif
2781  end
2782  subroutine kideb1(de, r, fr)
2783 ! de: input. energy deposit in scintillater. in mev
2784 ! r: input. distance from the core in m
2785 ! fr: output. fraction of particles > de at r.
2786 !
2787  include "Zdegb"
2788 !
2789  if(r .gt. 1780.) then
2790  rr=1333.
2791  else
2792  rr=r
2793  endif
2794  if(rr .lt. 15.) then
2795  j=rr/5. + 1
2796  elseif(rr .lt. 25.) then
2797  j=4
2798  elseif(rr .lt. 50.) then
2799  j=5
2800  elseif(rr .lt. 150.) then
2801  j=(rr-50.)/50.+6
2802  endif
2803  if(rr .ge. 150.) then
2804  rl=log10(rr)
2805  j=(rl-2.)*4. +1
2806  call kfrges(e2(1, j), 1, 101, de, l, icon)
2807  if(icon .ne. 0) then
2808  fr=0.
2809  else
2810  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j)) + (l-1)*0.01
2811  fr=1.-tmp
2812  if(j .eq. 1) then
2813  call kfrges(e1(1,7), 1, 101, de, l, icon)
2814  tmp=0.01/(e1(l+1,7)-e1(l,7)) * (de-e1(l,7)) +
2815  * (l-1)*0.01
2816  fr2=1.-tmp
2817  fr=-(fr2-fr)/13.9* (rr-139.)+ fr
2818  else
2819  call kfrges(e2(1, j-1), 1, 101, de, l, icon)
2820  tmp=0.01/(e2(l+1,j-1)-e2(l,j-1)) * (de-e2(l,j-1))
2821  * + (l-1)*0.01
2822  fr2=1.-tmp
2823  fr= (fr-fr2)/.25 * (rl- (j-1)*.25-2.125) + fr
2824  endif
2825  endif
2826  else
2827  call kfrges(e1(1, j), 1, 101, de, l, icon)
2828  if(icon .ne. 0) then
2829  fr=0.
2830  else
2831  tmp=0.01/(e1(l+1,j)-e1(l,j)) * (de-e1(l,j)) + (l-1)*0.01
2832  fr=1.-tmp
2833  if(j .eq. 2 )then
2834  call kfrges(e1(1,1), 1, 101, de, l, icon)
2835  tmp=0.01/(e1(l+1,1)-e1(l,1)) * (de-e1(l,1)) +
2836  * (l-1)*0.01
2837  fr2=1.-tmp
2838  fr=-(fr2-fr)/5. * (rr-7.5) + fr
2839  elseif(j .eq. 1 )then
2840  call kfrges(e1(1,2), 1, 101, de, l, icon)
2841  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
2842  * (l-1)*0.01
2843  fr2=1.-tmp
2844  fr= (fr2-fr)/5. * (rr-2.5) + fr
2845  elseif(j .eq. 3) then
2846  call kfrges(e1(1,2), 1, 101, de, l, icon)
2847  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
2848  * (l-1)*0.01
2849  fr2=1.-tmp
2850  fr=-(fr2-fr)/5. * (rr-12.5)+ fr
2851  elseif(j .eq. 4) then
2852  call kfrges(e1(1,3), 1, 101, de, l, icon)
2853  tmp=0.01/(e1(l+1,3)-e1(l,3)) * (de-e1(l,3)) +
2854  * (l-1)*0.01
2855  fr2=1.-tmp
2856  fr=-(fr2-fr)/7.5 * (rr-20.)+ fr
2857  elseif(j .eq. 5) then
2858  call kfrges(e1(1,4), 1, 101, de, l, icon)
2859  tmp=0.01/(e1(l+1,4)-e1(l,4)) * (de-e1(l,4)) +
2860  * (l-1)*0.01
2861  fr2=1.-tmp
2862  fr=-(fr2-fr)/17.5* (rr-37.5)+ fr
2863  elseif(j .eq. 6) then
2864  call kfrges(e1(1,5), 1, 101, de, l, icon)
2865  tmp=0.01/(e1(l+1,5)-e1(l,5)) * (de-e1(l,5)) +
2866  * (l-1)*0.01
2867  fr2=1.-tmp
2868  fr=-(fr2-fr)/37.5* (rr-75.)+ fr
2869  elseif(j .eq. 7) then
2870  call kfrges(e1(1,6), 1, 101, de, l, icon)
2871  tmp=0.01/(e1(l+1,6)-e1(l,6)) * (de-e1(l,6)) +
2872  * (l-1)*0.01
2873  fr2=1.-tmp
2874  fr=-(fr2-fr)/50.* (rr-125.)+ fr
2875  endif
2876  endif
2877  endif
2878  end
2879  subroutine kideb2(de, r, fr)
2880 ! de: input. energy deposit in scintillater. in mev
2881 ! r: input. distance from the core in m
2882 ! fr: output. fraction of particles > de at r.
2883 !
2884  include "Zdegb2"
2885 !
2886  if(r .gt. 3162.) then
2887  rr=2371.
2888  else
2889  rr=r
2890  endif
2891  if(rr .lt. 15.) then
2892  j=rr/5. + 1
2893  elseif(rr .lt. 25.) then
2894  j=4
2895  elseif(rr .lt. 50.) then
2896  j=5
2897  elseif(rr .lt. 150.) then
2898  j=(rr-50.)/50.+6
2899  endif
2900  if(rr .ge. 150.) then
2901  rl=log10(rr)
2902  j=(rl-2.)*4. +1
2903  call kfrges(e2(1, j), 1, 101, de, l, icon)
2904  if(icon .ne. 0) then
2905  fr=0.
2906  else
2907  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j)) + (l-1)*0.01
2908  fr=1.-tmp
2909  if(j .eq. 1) then
2910  call kfrges(e1(1,7), 1, 101, de, l, icon)
2911  tmp=0.01/(e1(l+1,7)-e1(l,7)) * (de-e1(l,7)) +
2912  * (l-1)*0.01
2913  fr2=1.-tmp
2914  fr=-(fr2-fr)/13.9* (rr-139.)+ fr
2915  else
2916  call kfrges(e2(1, j-1), 1, 101, de, l, icon)
2917  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j))
2918  * + (l-1)*0.01
2919  fr2=1.-tmp
2920  fr= (fr-fr2)/.25 * (rl- (j-1)*.25-2.125) + fr
2921  endif
2922  endif
2923  else
2924  call kfrges(e1(1, j), 1, 101, de, l, icon)
2925  if(icon .ne. 0) then
2926  fr=0.
2927  else
2928  tmp=0.01/(e1(l+1,j)-e1(l,j)) * (de-e1(l,j)) + (l-1)*0.01
2929  fr=1.-tmp
2930  if(j .eq. 2 )then
2931  call kfrges(e1(1,1), 1, 101, de, l, icon)
2932  tmp=0.01/(e1(l+1,1)-e1(l,1)) * (de-e1(l,1)) +
2933  * (l-1)*0.01
2934  fr2=1.-tmp
2935  fr=-(fr2-fr)/5. * (rr-7.5) + fr
2936  elseif(j .eq. 1 )then
2937  call kfrges(e1(1,2), 1, 101, de, l, icon)
2938  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
2939  * (l-1)*0.01
2940  fr2=1.-tmp
2941  fr= (fr2-fr)/5. * (rr-2.5) + fr
2942  elseif(j .eq. 3) then
2943  call kfrges(e1(1,2), 1, 101, de, l, icon)
2944  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
2945  * (l-1)*0.01
2946  fr2=1.-tmp
2947  fr=-(fr2-fr)/5. * (rr-12.5)+ fr
2948  elseif(j .eq. 4) then
2949  call kfrges(e1(1,3), 1, 101, de, l, icon)
2950  tmp=0.01/(e1(l+1,3)-e1(l,3)) * (de-e1(l,3)) +
2951  * (l-1)*0.01
2952  fr2=1.-tmp
2953  fr=-(fr2-fr)/7.5 * (rr-20.)+ fr
2954  elseif(j .eq. 5) then
2955  call kfrges(e1(1,4), 1, 101, de, l, icon)
2956  tmp=0.01/(e1(l+1,4)-e1(l,4)) * (de-e1(l,4)) +
2957  * (l-1)*0.01
2958  fr2=1.-tmp
2959  fr=-(fr2-fr)/17.5* (rr-37.5)+ fr
2960  elseif(j .eq. 6) then
2961  call kfrges(e1(1,5), 1, 101, de, l, icon)
2962  tmp=0.01/(e1(l+1,5)-e1(l,5)) * (de-e1(l,5)) +
2963  * (l-1)*0.01
2964  fr2=1.-tmp
2965  fr=-(fr2-fr)/37.5* (rr-75.)+ fr
2966  elseif(j .eq. 7) then
2967  call kfrges(e1(1,6), 1, 101, de, l, icon)
2968  tmp=0.01/(e1(l+1,6)-e1(l,6)) * (de-e1(l,6)) +
2969  * (l-1)*0.01
2970  fr2=1.-tmp
2971  fr=-(fr2-fr)/50.* (rr-125.)+ fr
2972  endif
2973  endif
2974  endif
2975  end
2976  subroutine kideb3(de, r, fr)
2977 ! de: input. energy deposit in scintillater. in mev
2978 ! r: input. distance from the core in m
2979 ! fr: output. fraction of particles > de at r.
2980 !
2981  include "Zdegb3"
2982 !
2983  if(r .gt. 3162.) then
2984  rr=2371.
2985  else
2986  rr=r
2987  endif
2988  if(rr .lt. 15.) then
2989  j=rr/5. + 1
2990  elseif(rr .lt. 25.) then
2991  j=4
2992  elseif(rr .lt. 50.) then
2993  j=5
2994  elseif(rr .lt. 150.) then
2995  j=(rr-50.)/50.+6
2996  endif
2997  if(rr .ge. 150.) then
2998  rl=log10(rr)
2999  j=(rl-2.)*4. +1
3000  call kfrges(e2(1, j), 1, 101, de, l, icon)
3001  if(icon .ne. 0) then
3002  fr=0.
3003  else
3004  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j)) + (l-1)*0.01
3005  fr=1.-tmp
3006  if(j .eq. 1) then
3007  call kfrges(e1(1,7), 1, 101, de, l, icon)
3008  tmp=0.01/(e1(l+1,7)-e1(l,7)) * (de-e1(l,7)) +
3009  * (l-1)*0.01
3010  fr2=1.-tmp
3011  fr=-(fr2-fr)/13.9* (rr-139.)+ fr
3012  else
3013  call kfrges(e2(1, j-1), 1, 101, de, l, icon)
3014  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j))
3015  * + (l-1)*0.01
3016  fr2=1.-tmp
3017  fr= (fr-fr2)/.25 * (rl- (j-1)*.25-2.125) + fr
3018  endif
3019  endif
3020  else
3021  call kfrges(e1(1, j), 1, 101, de, l, icon)
3022  if(icon .ne. 0) then
3023  fr=0.
3024  else
3025  tmp=0.01/(e1(l+1,j)-e1(l,j)) * (de-e1(l,j)) + (l-1)*0.01
3026  fr=1.-tmp
3027  if(j .eq. 2 )then
3028  call kfrges(e1(1,1), 1, 101, de, l, icon)
3029  tmp=0.01/(e1(l+1,1)-e1(l,1)) * (de-e1(l,1)) +
3030  * (l-1)*0.01
3031  fr2=1.-tmp
3032  fr=-(fr2-fr)/5. * (rr-7.5) + fr
3033  elseif(j .eq. 1 )then
3034  call kfrges(e1(1,2), 1, 101, de, l, icon)
3035  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3036  * (l-1)*0.01
3037  fr2=1.-tmp
3038  fr= (fr2-fr)/5. * (rr-2.5) + fr
3039  elseif(j .eq. 3) then
3040  call kfrges(e1(1,2), 1, 101, de, l, icon)
3041  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3042  * (l-1)*0.01
3043  fr2=1.-tmp
3044  fr=-(fr2-fr)/5. * (rr-12.5)+ fr
3045  elseif(j .eq. 4) then
3046  call kfrges(e1(1,3), 1, 101, de, l, icon)
3047  tmp=0.01/(e1(l+1,3)-e1(l,3)) * (de-e1(l,3)) +
3048  * (l-1)*0.01
3049  fr2=1.-tmp
3050  fr=-(fr2-fr)/7.5 * (rr-20.)+ fr
3051  elseif(j .eq. 5) then
3052  call kfrges(e1(1,4), 1, 101, de, l, icon)
3053  tmp=0.01/(e1(l+1,4)-e1(l,4)) * (de-e1(l,4)) +
3054  * (l-1)*0.01
3055  fr2=1.-tmp
3056  fr=-(fr2-fr)/17.5* (rr-37.5)+ fr
3057  elseif(j .eq. 6) then
3058  call kfrges(e1(1,5), 1, 101, de, l, icon)
3059  tmp=0.01/(e1(l+1,5)-e1(l,5)) * (de-e1(l,5)) +
3060  * (l-1)*0.01
3061  fr2=1.-tmp
3062  fr=-(fr2-fr)/37.5* (rr-75.)+ fr
3063  elseif(j .eq. 7) then
3064  call kfrges(e1(1,6), 1, 101, de, l, icon)
3065  tmp=0.01/(e1(l+1,6)-e1(l,6)) * (de-e1(l,6)) +
3066  * (l-1)*0.01
3067  fr2=1.-tmp
3068  fr=-(fr2-fr)/50.* (rr-125.)+ fr
3069  endif
3070  endif
3071  endif
3072  end
3073  subroutine kide1(de, r, fr)
3074 ! de: input. energy deposit in scintillater. in mev
3075 ! r: input. distance from the core in m
3076 ! fr: output. fraction of particles > de at r.
3077 !
3078  include "Zdeg"
3079 !
3080 !
3081  if(r .gt. 1780.) then
3082 ! better not to use r>1780
3083  rr=1333.
3084  else
3085  rr=r
3086  endif
3087  if(rr .lt. 15.) then
3088  j=rr/5. + 1
3089  elseif(rr .lt. 25.) then
3090  j=4
3091  elseif(rr .lt. 50.) then
3092  j=5
3093  elseif(rr .lt. 150.) then
3094  j=(rr-50.)/50.+6
3095  endif
3096  if(rr .ge. 150.) then
3097  rl=log10(rr)
3098  j=(rl-2.)*4. +1
3099  call kfrges(e2(1, j), 1, 101, de, l, icon)
3100  if(icon .ne. 0) then
3101  fr=0.
3102  else
3103  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j)) + (l-1)*0.01
3104  fr=1.-tmp
3105  if(j .eq. 1) then
3106  call kfrges(e1(1,7), 1, 101, de, l, icon)
3107  tmp=0.01/(e1(l+1,7)-e1(l,7)) * (de-e1(l,7)) +
3108  * (l-1)*0.01
3109  fr2=1.-tmp
3110  fr=-(fr2-fr)/13.9* (rr-139.)+ fr
3111  else
3112  call kfrges(e2(1, j-1), 1, 101, de, l, icon)
3113  tmp=0.01/(e2(l+1,j-1)-e2(l,j-1)) * (de-e2(l,j-1))
3114  * + (l-1)*0.01
3115  fr2=1.-tmp
3116  fr= (fr-fr2)/.25 * (rl- (j-1)*.25-2.125) + fr
3117  endif
3118  endif
3119  else
3120  call kfrges(e1(1, j), 1, 101, de, l, icon)
3121  if(icon .ne. 0) then
3122  fr=0.
3123  else
3124  tmp=0.01/(e1(l+1,j)-e1(l,j)) * (de-e1(l,j)) + (l-1)*0.01
3125  fr=1.-tmp
3126  if(j .eq. 2 )then
3127  call kfrges(e1(1,1), 1, 101, de, l, icon)
3128  tmp=0.01/(e1(l+1,1)-e1(l,1)) * (de-e1(l,1)) +
3129  * (l-1)*0.01
3130  fr2=1.-tmp
3131  fr=-(fr2-fr)/5. * (rr-7.5) + fr
3132  elseif(j .eq. 1 )then
3133  call kfrges(e1(1,2), 1, 101, de, l, icon)
3134  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3135  * (l-1)*0.01
3136  fr2=1.-tmp
3137  fr= (fr2-fr)/5. * (rr-2.5) + fr
3138  elseif(j .eq. 3) then
3139  call kfrges(e1(1,2), 1, 101, de, l, icon)
3140  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3141  * (l-1)*0.01
3142  fr2=1.-tmp
3143  fr=-(fr2-fr)/5. * (rr-12.5)+ fr
3144  elseif(j .eq. 4) then
3145  call kfrges(e1(1,3), 1, 101, de, l, icon)
3146  tmp=0.01/(e1(l+1,3)-e1(l,3)) * (de-e1(l,3)) +
3147  * (l-1)*0.01
3148  fr2=1.-tmp
3149  fr=-(fr2-fr)/7.5 * (rr-20.)+ fr
3150  elseif(j .eq. 5) then
3151  call kfrges(e1(1,4), 1, 101, de, l, icon)
3152  tmp=0.01/(e1(l+1,4)-e1(l,4)) * (de-e1(l,4)) +
3153  * (l-1)*0.01
3154  fr2=1.-tmp
3155  fr=-(fr2-fr)/17.5* (rr-37.5)+ fr
3156  elseif(j .eq. 6) then
3157  call kfrges(e1(1,5), 1, 101, de, l, icon)
3158  tmp=0.01/(e1(l+1,5)-e1(l,5)) * (de-e1(l,5)) +
3159  * (l-1)*0.01
3160  fr2=1.-tmp
3161  fr=-(fr2-fr)/37.5* (rr-75.)+ fr
3162  elseif(j .eq. 7) then
3163  call kfrges(e1(1,6), 1, 101, de, l, icon)
3164  tmp=0.01/(e1(l+1,6)-e1(l,6)) * (de-e1(l,6)) +
3165  * (l-1)*0.01
3166  fr2=1.-tmp
3167  fr=-(fr2-fr)/50.* (rr-125.)+ fr
3168  endif
3169  endif
3170  endif
3171  end
3172  subroutine kide2(de, r, fr)
3173 ! de: input. energy deposit in scintillater. in mev
3174 ! r: input. distance from the core in m
3175 ! fr: output. fraction of particles > de at r.
3176 !
3177  include "Zdeg2"
3178 !
3179 !
3180  if(r .gt. 1780.) then
3181  rr=1333.
3182  else
3183  rr=r
3184  endif
3185  if(rr .lt. 15.) then
3186  j=rr/5. + 1
3187  elseif(rr .lt. 25.) then
3188  j=4
3189  elseif(rr .lt. 50.) then
3190  j=5
3191  elseif(rr .lt. 150.) then
3192  j=(rr-50.)/50.+6
3193  endif
3194  if(rr .ge. 150.) then
3195  rl=log10(rr)
3196  j=(rl-2.)*4. +1
3197  call kfrges(e2(1, j), 1, 101, de, l, icon)
3198  if(icon .ne. 0) then
3199  fr=0.
3200  else
3201  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j)) + (l-1)*0.01
3202  fr=1.-tmp
3203  if(j .eq. 1) then
3204  call kfrges(e1(1,7), 1, 101, de, l, icon)
3205  tmp=0.01/(e1(l+1,7)-e1(l,7)) * (de-e1(l,7)) +
3206  * (l-1)*0.01
3207  fr2=1.-tmp
3208  fr=-(fr2-fr)/13.9* (rr-139.)+ fr
3209  else
3210  call kfrges(e2(1, j-1), 1, 101, de, l, icon)
3211  tmp=0.01/(e2(l+1,j-1)-e2(l,j-1)) * (de-e2(l,j-1))
3212  * + (l-1)*0.01
3213  fr2=1.-tmp
3214  fr= (fr-fr2)/.25 * (rl- (j-1)*.25-2.125) + fr
3215  endif
3216  endif
3217  else
3218  call kfrges(e1(1, j), 1, 101, de, l, icon)
3219  if(icon .ne. 0) then
3220  fr=0.
3221  else
3222  tmp=0.01/(e1(l+1,j)-e1(l,j)) * (de-e1(l,j)) + (l-1)*0.01
3223  fr=1.-tmp
3224  if(j .eq. 2 )then
3225  call kfrges(e1(1,1), 1, 101, de, l, icon)
3226  tmp=0.01/(e1(l+1,1)-e1(l,1)) * (de-e1(l,1)) +
3227  * (l-1)*0.01
3228  fr2=1.-tmp
3229  fr=-(fr2-fr)/5. * (rr-7.5) + fr
3230  elseif(j .eq. 1 )then
3231  call kfrges(e1(1,2), 1, 101, de, l, icon)
3232  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3233  * (l-1)*0.01
3234  fr2=1.-tmp
3235  fr= (fr2-fr)/5. * (rr-2.5) + fr
3236  elseif(j .eq. 3) then
3237  call kfrges(e1(1,2), 1, 101, de, l, icon)
3238  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3239  * (l-1)*0.01
3240  fr2=1.-tmp
3241  fr=-(fr2-fr)/5. * (rr-12.5)+ fr
3242  elseif(j .eq. 4) then
3243  call kfrges(e1(1,3), 1, 101, de, l, icon)
3244  tmp=0.01/(e1(l+1,3)-e1(l,3)) * (de-e1(l,3)) +
3245  * (l-1)*0.01
3246  fr2=1.-tmp
3247  fr=-(fr2-fr)/7.5 * (rr-20.)+ fr
3248  elseif(j .eq. 5) then
3249  call kfrges(e1(1,4), 1, 101, de, l, icon)
3250  tmp=0.01/(e1(l+1,4)-e1(l,4)) * (de-e1(l,4)) +
3251  * (l-1)*0.01
3252  fr2=1.-tmp
3253  fr=-(fr2-fr)/17.5* (rr-37.5)+ fr
3254  elseif(j .eq. 6) then
3255  call kfrges(e1(1,5), 1, 101, de, l, icon)
3256  tmp=0.01/(e1(l+1,5)-e1(l,5)) * (de-e1(l,5)) +
3257  * (l-1)*0.01
3258  fr2=1.-tmp
3259  fr=-(fr2-fr)/37.5* (rr-75.)+ fr
3260  elseif(j .eq. 7) then
3261  call kfrges(e1(1,6), 1, 101, de, l, icon)
3262  tmp=0.01/(e1(l+1,6)-e1(l,6)) * (de-e1(l,6)) +
3263  * (l-1)*0.01
3264  fr2=1.-tmp
3265  fr=-(fr2-fr)/50.* (rr-125.)+ fr
3266  endif
3267  endif
3268  endif
3269  end
3270  subroutine kide3(de, r, fr)
3271 ! de: input. energy deposit in scintillater. in mev
3272 ! r: input. distance from the core in m
3273 ! fr: output. fraction of particles > de at r.
3274 !
3275 ! cos=.7
3276  include "Zdeg3"
3277 !
3278 !
3279  if(r .gt. 1780.) then
3280  rr=1333.
3281  else
3282  rr=r
3283  endif
3284  if(rr .lt. 15.) then
3285  j=rr/5. + 1
3286  elseif(rr .lt. 25.) then
3287  j=4
3288  elseif(rr .lt. 50.) then
3289  j=5
3290  elseif(rr .lt. 150.) then
3291  j=(rr-50.)/50.+6
3292  endif
3293  if(rr .ge. 150.) then
3294  rl=log10(rr)
3295  j=(rl-2.)*4. +1
3296  call kfrges(e2(1, j), 1, 101, de, l, icon)
3297  if(icon .ne. 0) then
3298  fr=0.
3299  else
3300  tmp=0.01/(e2(l+1,j)-e2(l,j)) * (de-e2(l,j)) + (l-1)*0.01
3301  fr=1.-tmp
3302  if(j .eq. 1) then
3303  call kfrges(e1(1,7), 1, 101, de, l, icon)
3304  tmp=0.01/(e1(l+1,7)-e1(l,7)) * (de-e1(l,7)) +
3305  * (l-1)*0.01
3306  fr2=1.-tmp
3307  fr=-(fr2-fr)/13.9* (rr-139.)+ fr
3308  else
3309  call kfrges(e2(1, j-1), 1, 101, de, l, icon)
3310  tmp=0.01/(e2(l+1,j-1)-e2(l,j-1)) * (de-e2(l,j-1))
3311  * + (l-1)*0.01
3312  fr2=1.-tmp
3313  fr= (fr-fr2)/.25 * (rl- (j-1)*.25-2.125) + fr
3314  endif
3315  endif
3316  else
3317  call kfrges(e1(1, j), 1, 101, de, l, icon)
3318  if(icon .ne. 0) then
3319  fr=0.
3320  else
3321  tmp=0.01/(e1(l+1,j)-e1(l,j)) * (de-e1(l,j))
3322  * + (l-1)*0.01
3323  fr=1.-tmp
3324  if(j .eq. 2 )then
3325  call kfrges(e1(1,1), 1, 101, de, l, icon)
3326  tmp=0.01/(e1(l+1,1)-e1(l,1)) * (de-e1(l,1)) +
3327  * (l-1)*0.01
3328  fr2=1.-tmp
3329  fr=-(fr2-fr)/5. * (rr-7.5) + fr
3330  elseif(j .eq. 1 )then
3331  call kfrges(e1(1,2), 1, 101, de, l, icon)
3332  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3333  * (l-1)*0.01
3334  fr2=1.-tmp
3335  fr= (fr2-fr)/5. * (rr-2.5) + fr
3336  elseif(j .eq. 3) then
3337  call kfrges(e1(1,2), 1, 101, de, l, icon)
3338  tmp=0.01/(e1(l+1,2)-e1(l,2)) * (de-e1(l,2)) +
3339  * (l-1)*0.01
3340  fr2=1.-tmp
3341  fr=-(fr2-fr)/5. * (rr-12.5)+ fr
3342  elseif(j .eq. 4) then
3343  call kfrges(e1(1,3), 1, 101, de, l, icon)
3344  tmp=0.01/(e1(l+1,3)-e1(l,3)) * (de-e1(l,3)) +
3345  * (l-1)*0.01
3346  fr2=1.-tmp
3347  fr=-(fr2-fr)/7.5 * (rr-20.)+ fr
3348  elseif(j .eq. 5) then
3349  call kfrges(e1(1,4), 1, 101, de, l, icon)
3350  tmp=0.01/(e1(l+1,4)-e1(l,4)) * (de-e1(l,4)) +
3351  * (l-1)*0.01
3352  fr2=1.-tmp
3353  fr=-(fr2-fr)/17.5* (rr-37.5)+ fr
3354  elseif(j .eq. 6) then
3355  call kfrges(e1(1,5), 1, 101, de, l, icon)
3356  tmp=0.01/(e1(l+1,5)-e1(l,5)) * (de-e1(l,5)) +
3357  * (l-1)*0.01
3358  fr2=1.-tmp
3359  fr=-(fr2-fr)/37.5* (rr-75.)+ fr
3360  elseif(j .eq. 7) then
3361  call kfrges(e1(1,6), 1, 101, de, l, icon)
3362  tmp=0.01/(e1(l+1,6)-e1(l,6)) * (de-e1(l,6)) +
3363  * (l-1)*0.01
3364  fr2=1.-tmp
3365  fr=-(fr2-fr)/50.* (rr-125.)+ fr
3366  endif
3367  endif
3368  endif
3369  end
3370 
3371 ! ****************************************************************
3372 ! * *
3373 ! * kintp3s: lagrange's 3-point interpolation *
3374 ! * *
3375 ! ************************ tested 87.03.07 ***************k.k ****
3376 !
3377 ! /usage/ call kintp3s(f, intv, n, x1,h,x, ans)
3378 !
3379 ! f: table of some function values to be interpolated
3380 ! intv: f is used with step intv
3381 ! n: # of available f
3382 ! x1: f containes the function values at x1, x1+h,...x1+(n-1)*h
3383 ! h: interval of argument
3384 ! x: argument at which the value of the function is to be obtained
3385 !
3386 ! ans: interpolated value
3387 !
3388  subroutine kintp3s(f, intv, n, x1, h, x, ans)
3389 !
3390 ! dimension f(intv, n)
3391 ! ( , *) is to avoid possible warning at debug time
3392  dimension f(intv, *)
3393 !
3394  if(n .lt. 3) then
3395  ans=0.
3396  else
3397  i=(x-x1)/h
3398  if(i .lt. 0) then
3399  i=0
3400  elseif(i .gt. 0) then
3401  if(i+3 .gt. n) then
3402  i=n-3
3403  endif
3404  endif
3405  p=(x-x1-h*float(i+1))/h
3406  ta=p-1.
3407  tb=p+1.
3408  ans=0.5*p*(ta*f(1, i+1)+tb*f(1, i+3)) - ta*tb*f(1, i+2)
3409  endif
3410  end
3411 ! ****************************************************************
3412 ! * *
3413 ! * kfrges: find real data (position) .ge. given value *
3414 ! * *
3415 ! *********************** tested 87.06.07 **********************
3416 !
3417 ! /usage/
3418 ! call kfrges(x, intvx, n, c, l, icon)
3419 !
3420 ! x: data array
3421 ! intvx: interval of data in x
3422 ! n: !n! is no. of data in x
3423 ! c: given value. x .ge. c is sought for.
3424 ! l: position of xf in x. xf=x(1,m)
3425 ! icon: 0 if found else 1
3426 !
3427 ! *** note ***
3428 ! if n>0 search is made for from 1st, else from last
3429 ! if icon=1 resluts, m will be n+1 or 0 dependingon n>0 or
3430 ! n<0.
3431 !
3432 !
3433  subroutine kfrges(x, intvx, n, c, m, icon)
3434 !
3435 ! dimension x(intvx, n)
3436 ! ( , *) is to avoid possible warning at debug time
3437  dimension x(intvx, *)
3438 !
3439  if( n .gt. 0 ) then
3440  do 10 i=1, n
3441  if(x(1,i) .ge. c) then
3442  m=i
3443  icon=0
3444  goto 100
3445  endif
3446  10 continue
3447  icon=1
3448  m=n+1
3449  elseif(n .lt. 0) then
3450  do 20 i=-n, 1, -1
3451  if(x(1,i) .ge. c) then
3452  m=i
3453  icon=0
3454  goto 100
3455  endif
3456  20 continue
3457  m=0
3458  icon=1
3459  else
3460  icon=1
3461  endif
3462  100 continue
3463  end
3464 ! ****************************************************************
3465 ! * *
3466 ! * kgausss: generates 2 independent gaussian random variables *
3467 ! * *
3468 ! ****************************************************************
3469 !
3470 ! /usage/
3471 ! call kgausss(av, s, x1, x2)
3472 !
3473 ! av: average of gaussian distribution
3474 ! s: standard deviation //
3475 ! x1,x2: obtained 2 independent gaussian random variables
3476 !
3477 !
3478 ! method:
3479 ! generate following two:
3480 ! sqrt(-log(u)) * cos(p) and sqrt(-log(u)) * sin(p)
3481 ! then, they are independent gaussian radom variables
3482 ! with mean 0 and variance 1. here, u is uniform random
3483 ! number in (0,1), and p in (0,2pi)
3484 ! *** note *** establish condition for rndc usage, if want to
3485 ! select one of rnd or rnd2.
3486 !
3487 !
3488  subroutine kgausss(av,s,x1,x2)
3489 !
3490 !
3491 ! ..... do until ....
3492  20 continue
3493  call rndcsng(u1)
3494  call rndcsng(u2)
3495 ! generate cos(p) and sin(p)
3496  u1=u1+u1-1.
3497  u1s=u1*u1
3498  u2s=u2*u2
3499  tmp=u1s+u2s
3500  if(.not.
3501  * (tmp .lt. 1.)
3502  * ) goto 20
3503 ! ... end until ...
3504  call rndcsng(u3)
3505  al=alog(u3)
3506  al=sqrt(-al-al)
3507  cs=(u1s-u2s)/tmp
3508  sn=u1*u2/tmp
3509  sn=sn+sn
3510  x1=al*cs*s+av
3511  x2=al*sn*s+av
3512  end
3513 ! ****************************************************************
3514 ! * *
3515 ! * k4ptdis: 4-point two dimensional interpolation *
3516 ! * *
3517 ! ****************************************************************
3518 !
3519 ! /usage/
3520 !
3521 ! call
3522 ! k4ptdis(f, im, jm, iadj, x0, y0, hx, hy, x, y, ans)
3523 !
3524 ! f is a 2-dimensional table of some function with 2 arguments.
3525 ! f containes the function values at (x0,y0), (x0+hx, y0+hy),...
3526 ! (x0+(im-1)*hx, y0+(jm-1)*hy).
3527 ! iadj is the adjustable dimension.
3528 ! ans gets the value of the funtion at (x,y)
3529 !
3530 !
3531 !
3532  subroutine k4ptdis(f, im, jm, iadj, x0, y0, hx, hy, x, y, ans)
3533  dimension f(iadj,jm)
3534 !
3535  a=(x-x0)/hx
3536  b=(y-y0)/hy
3537  i=a
3538  j=b
3539  i=min0(max0(i,0)+1,im-1)
3540  j=min0(max0(j,0)+1,jm-1)
3541  p=a+1.-i
3542  q=b+1.-j
3543  p1=1.-p
3544  q1=1.-q
3545  ans=( f(i,j)*p1 + f(i+1,j)*p ) * q1 +
3546  * ( f(i,j+1)*p1 + f(i+1,j+1)*p ) * q
3547  return
3548  end
3549 
3550 ! ----- klee test (lateral of electrons by e primary 1.e14-15ev) ---
3551  subroutine klee(s, r, rho)
3552 ! normalized electron lateral distribution for electron
3553 ! primary in the atmsopere.
3554 ! normalization is within 3 % accuracy.
3555 ! s: input. age as determined by 1 dimensional cascade
3556 ! .2 < s < 1.9
3557 ! r: input. distance from the core in moliere unit (
3558 ! m.u should be 2 r.l above
3559 ! the depth ).
3560 ! r>5.e-5
3561 ! rho: output. electron density. integral of 2pi*r* rho(r) dr from
3562 ! 5.e-5 to inf = 1.
3563 !
3564  parameter(p2=.15, p3=.6, pi=3.1415, tpi=2*pi)
3565 !
3566  p1=10.**( (((-0.75222*s+4.4412)*s-10.447)*s +11.531)*s
3567  * -3.8637 )
3568  p4= (.49803*s-2.4992)*s+1.8372
3569  p5=2.4235 - 0.37908*s
3570  if(r .gt. 0.) then
3571  rho= p1 * r**(-p4) * (1.+ r/p2)**(-p3*log10(r)-p5)
3572  * /tpi/r
3573  else
3574  rho=0.
3575  endif
3576  end
3577 ! get moliere unit (in m) at 2 r.l above dep along cosz
3578 ! direction.
3579 ! dep: input. g/cm**2
3580 ! cosz: input. cos of zenith angle.
3581 ! rmu: output. obtained moliere unit in m
3582  subroutine kmolu(dep, cosz, rmu)
3583  real*8 ddep ! in kg/m2
3584  real*8 dcosz
3585  real*8 dmu
3586  ddep = dep * 10.
3587  dcosz = cosz
3588  call cgetmoliereu(ddep, dcosz, dmu)
3589  rmu = dmu
3590  end
3591 ! ***************************************************
3592 ! *
3593 ! * knrml: to get integral of lateral for kdig, kdigb, kdip
3594 ! * kdipb
3595 ! * lateral for gamma or proton shower as generated
3596 ! * by pb.5fe.1sc3.5 (kdigb, kdipb) or
3597 ! * by fe.1sc3.5 (kdig, kdip)
3598 ! *
3599 ! *
3600 ! ***************************************************
3601 !
3602  subroutine knrml(e0, zob, cosz, s, de, kcfx, kidx, sum)
3603 !
3604 ! kcfx: subroutine name.
3605 ! kcfg for kdig (lateral for gamma with fe.1sc3.5)
3606 ! kcfp for kdip (// proton //)
3607 ! kcfgb for kdigb (// for gamma with pb.5fe.1sc3.5)
3608 ! kcfpb for kdipb (// for proton with pb.5fe.1sc3.5)
3609 ! kidx: subroutine name
3610 ! kide for kdig, kdip
3611 ! kideb for kdigb, kdipb
3612 
3613  external kcfx, kidx
3614 
3615  sum=0.
3616  sumuni=0.
3617  call kmolu(zob, cosz, rmu)
3618  if(s .gt. .65) then
3619  r2=1.e-4
3620  dr=.1
3621  imx= 57
3622  jmodx=2
3623  else
3624  r2=3.e-5
3625  dr=.05
3626  imx=100
3627  jmodx=4
3628  endif
3629  dr10=10.**dr
3630  do 100 i=1, imx
3631  r1=r2
3632  r2=r1*dr10
3633  rr=(r1+r2)/2
3634 ! get ne density
3635  call klee(s,rr, rhone)
3636 ! get correction factor rho'/rho
3637  call kcfx(e0, cosz, s, rr, cf)
3638 ! get fraction of particles at rr with >de.
3639 ! r should be in m
3640  if(de .eq. 0.) then
3641  fr=1.
3642  else
3643 ! fr changes slowly with r.
3644  if(mod(i-1,jmodx) .eq. 0) then
3645  call kidx(e0, zob, s, cosz, 0, rr*rmu, de, fr)
3646  endif
3647  endif
3648  tmp=rhone*cf
3649  sumuni=sumuni+ tmp*(r2-r1)*(r1+r2)
3650  rhou=tmp*fr
3651  sum=sum + rhou*(r2-r1)*(r1+r2)
3652  100 continue
3653 ! sumuni=sumuni*3.1415
3654 ! sumuni should be 1. but not, so renormalize
3655 ! sum=sum*3.1415/sumuni
3656  sum=sum/sumuni
3657  end
3658 !
3659  subroutine knrml2(e0, zob, cosz, s, discle, kcfx, kidx, sum)
3660 !
3661 ! rho(r)*<de> 2pir dr is integrated to give sum,
3662 ! where rho(r) is the density of ptcls which give rise
3663 ! to energy deposit in scinti
3664 ! kcfx: subroutine name.
3665 ! kade for lateral with fe.1sc3.5 (gamma, proton)
3666 ! kadeb for lateral with pb.5fe.1sc3.5(// )
3667 ! kidx: subroutine name
3668 ! kdig for lateral by gamma with fe.1sc3.5
3669 ! kdigb for // pb.5fe.1sc3.5
3670 ! kdip for lateral by proton with fe.1sc3.5
3671 ! kdipb // pb.5fe.1sc3.5
3672 
3673  external kcfx, kidx
3674 
3675  sum=0.
3676  call kmolu(zob, cosz, rmu)
3677  if(s .gt. .65) then
3678  r2=1.e-4
3679  dr=.1
3680  imx= 57
3681  jmodx=2
3682  else
3683  r2=3.e-5
3684  dr=.05
3685  imx=100
3686  jmodx=4
3687  endif
3688  dr10=10.**dr
3689  do 100 i=1, imx
3690  r1=r2
3691  r2=r1*dr10
3692  rr=(r1+r2)/2
3693 ! get ptcl density
3694  call kidx(e0, zob, cosz, s, discle, 1, rr, rho)
3695 ! get average <de>
3696  call kcfx(e0, zob, s, cosz, rr*rmu, avde)
3697  rhou=rho*avde
3698  sum=sum + rhou*(r2-r1)*(r1+r2)
3699  100 continue
3700  sum=sum*3.1415
3701  end
3702 ! **********************************************************
3703 ! *
3704 ! * STZSS: S(AGE) TO Z(DEPTH) OF THE STANDARD SHOWER
3705 ! * ZTSSS: Z(DEPTH) TO S(AGE) //
3706 ! *
3707 ! **********************************************************
3708 !
3709 ! ** DEPTH (G/CM**2) SHOULD BE TAKEN AS A SLANT ONE IF INCIDENT
3710 ! IS INCLINED.
3711 !
3712  SUBROUTINE stzss(S, Z)
3713 !
3714 ! LOG10(150 (TEV))
3715  DATA elgs/2.175/
3716 !
3717 ! GET COG NORMALIZED DETPH (STANDARD IS ELECTRON OF 100 TEV)
3718 ! WITH Z0=50 G/CM**2.(S=1.075) WE MAY USE GAMMA ROUTINE
3719 ! WITH 150 TEV. (S=1.075===>Z=600)
3720  CALL stndg(elgs, s, z)
3721 ! GET <COG> DEPTH (EXCLUDE 1ST POINT)
3722  CALL cogg0(elgs, cog)
3723 ! ADD 50 G/CM**2
3724  z=z + cog + 50.
3725  IF(z .LE. 0.) THEN
3726  z=5.
3727  ENDIF
3728  END
3729  SUBROUTINE stndg(ELG, S, Z)
3730 ! S(AGE) TO NORMALIZED DEPTH (COG NORMALZIED)
3731 ! ELG: INPUT. LOG10(EG/TEV)
3732 ! S: INPUT. AGE (.4 TO 1.7)
3733 ! Z: OUTPUT. NORMALZIED DEPTH (COG SUBTRACTED ; G/CM**2)
3734 !
3735  IF(s .LT. 0.9) THEN
3736  a1=-81.
3737  b1=72.
3738  c1=0.
3739  a2=-618.
3740  b2=588.5
3741  c2=0.
3742  ELSE
3743 ! A2=-355.46
3744 ! B2=94.706
3745 ! C2=216.07
3746 ! CORRECTED BY SMALL AIR SHOWER BY DIRECT SIM.
3747  a2=-214.5
3748  b2=-191.1
3749  c2=355.6
3750 ! IF(S .LT. 1.1) THEN
3751 ! CORRECTED BY SMALL AIR SHOWER BY DIRECT SIM.
3752  IF(s .LT. 1.3) THEN
3753 ! A1=-150.3
3754 ! B1=150.3
3755  a1=-156.5
3756  b1=156.5
3757  c1=0.
3758  ELSE
3759 ! A1=70.52
3760 ! B1=-229.3
3761 ! C1=162.5
3762 ! CORRECTED BY SMALL AIR SHOWER BY DIRECT SIM.
3763  a1=-219.5
3764  b1=205.0
3765  c1=0.
3766  ENDIF
3767  ENDIF
3768  z=(( c1*s + b1)*s + a1 )*elg + (c2*s+b2)*s+ a2
3769  END
3770  SUBROUTINE cogg0(EL, COG)
3771  cog=85.4*el + 347.5
3772  END
3773 
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
kfrac
subroutine kfrac(jsc, k, e0, zob, cosz, s, pmin, frac)
Definition: genas.f:2628
z
nodes z
Definition: cstdatmos0.fNew2.h:93
x1
block data include Zlatfit h c fitting region data x1(1)/0.03/
kdigb
subroutine kdigb(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:2510
kdipb
subroutine kdipb(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:2522
kudip
subroutine kudip(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:1687
kideb2
subroutine kideb2(de, r, fr)
Definition: genas.f:2880
kide
subroutine kide(e0, zob, s, cosz, j1, rr, de, fr)
Definition: genas.f:2665
e
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
ans
atmos%rho(atmos%nodes) **exp(-(z-atmos%z(atmos%nodes))/Hinf) elseif(z .lt. atmos%z(1)) then ans=atmos%rho(1) **exp((atmos%z(1) -z)/atmos%H(1)) else call kdwhereis(z, atmos%nodes, atmos%z, 1, i) a=atmos%a(i) if(a .ne. 0.d0) then ans=atmos%rho(i) **(1+a *(z-atmos%z(i))/atmos%H(i)) **(-1.0d0-1.d0/a) else ans=*atmos%rho(i) *exp(-(z-atmos%z(i))/atmos%H(i)) endif endif ! zsave=z ! endif cvh2den=ans end ! ---------------------------------- real *8 function cvh2temp(z) implicit none ! vettical height to temperatur(Kelvin) real *8 z ! input. vertical height in m ! output is temperature of the atmospher in Kelvin real *8 ans integer i if(z .gt. atmos%z(atmos%nodes)) then ans=atmos%T(atmos%nodes) elseif(z .lt. atmos%z(1)) then ans=atmos%T(1)+atmos%b(1) *(z - atmos%z(1)) else call kdwhereis(z, atmos%nodes, atmos%z, 1, i) ans=atmos%T(i)+atmos%b(i) *(z-atmos%z(i)) endif cvh2temp=ans end !--------------------------------------------- real *8 function cthick2h(t) implicit none real *8 t ! input. air thickness in kg/m^2 real *8 logt, ans integer i real *8 dod0, fd, a logt=log(t) if(t .ge. atmos%cumd(1)) then ans=atmos%z(1) - *(logt - atmos%logcumd(1)) *atmos%H(1) elseif(t .le. atmos%cumd(atmos%nodes)) then ans=atmos%z(atmos%nodes) - *Hinf *log(t/atmos%cumd(atmos%nodes)) else call kdwhereis(t, atmos%nodes, atmos%cumd, 1, i) ! i is such that X(i) > x >=x(i+1) ans
Definition: cstdatmos0.fNew2.h:82
r
*Zfirst p fm *Zfirst p Zfirst p Zfirst p *Zfirst p *Zfirst pos xyz r
Definition: ZavoidUnionMap.h:1
stndg
subroutine stndg(ELG, S, Z)
Definition: genas.f:3730
i
nodes i
Definition: cstdatmos0.fNew2.h:93
kmolu
subroutine kmolu(dep, cosz, rmu)
Definition: genas.f:3583
kideb1
subroutine kideb1(de, r, fr)
Definition: genas.f:2783
cgetmoliereu
subroutine cgetmoliereu(dep, cosz, rmu)
Definition: cgetMoliereU.f:11
kideb3
subroutine kideb3(de, r, fr)
Definition: genas.f:2977
kdig0
subroutine kdig0(e0, cosz, s, r, rho)
Definition: genas.f:1622
kefg
subroutine kefg(cosz, s, ef)
Definition: genas.f:2556
kudig
subroutine kudig(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:1675
rndcsng
subroutine rndcsng(u)
Definition: genas.f:33
k4ptdis
subroutine k4ptdis(f, im, jm, iadj, x0, y0, hx, hy, x, y, ans)
Definition: genas.f:3533
kgausss
subroutine kgausss(av, s, x1, x2)
Definition: genas.f:3489
kdip0
subroutine kdip0(e0, cosz, s, r, rho)
Definition: genas.f:1636
rndc
subroutine rndc(u)
Definition: rnd.f:91
p
********************block data cblkHeavy ********************integer j data *HeavyG2symbol p
Definition: cblkHeavy.h:7
kdig
subroutine kdig(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:2460
j
********************block data cblkHeavy ********************integer j data *HeavyG2symbol *data *HeavyG2code kiron data j
Definition: cblkHeavy.h:36
klee
subroutine klee(s, r, rho)
kklibg >>>>>>>>>>>>>>>>>>>>>>>>>>>>
Definition: genas.f:3552
kintp3s
subroutine kintp3s(f, intv, n, x1, h, x, ans)
Definition: genas.f:3389
kfrges
subroutine kfrges(x, intvx, n, c, m, icon)
Definition: genas.f:3434
kideb
subroutine kideb(e0, zob, s, cosz, j1, rr, de, fr)
Definition: genas.f:2728
kdigb0
subroutine kdigb0(e0, cosz, s, r, rho)
Definition: genas.f:1615
kide3
subroutine kide3(de, r, fr)
Definition: genas.f:3271
pi
! constants thru Cosmos real * pi
Definition: Zglobalc.h:2
y
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25
knrml
subroutine knrml(e0, zob, cosz, s, de, kcfx, kidx, sum)
Definition: genas.f:3603
cogg0
subroutine cogg0(EL, COG)
Definition: genas.f:3771
kudipb
subroutine kudipb(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:1731
a
nodes a
Definition: cstdatmos0.fNew2.h:93
kefp
subroutine kefp(cosz, s, ef)
Definition: genas.f:2563
kcfg
subroutine kcfg(e0, cosz, s, r, cf)
Definition: genas.f:1765
b
dE dx *! Nuc Int sampling table b
Definition: cblkMuInt.h:130
knrml2
subroutine knrml2(e0, zob, cosz, s, discle, kcfx, kidx, sum)
Definition: genas.f:3660
kide2
subroutine kide2(de, r, fr)
Definition: genas.f:3173
m
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data m
Definition: ZlatfitBD.h:35
kcfpb
subroutine kcfpb(e0, cosz, s, r, cf)
Definition: genas.f:2280
kudigb
subroutine kudigb(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:1723
kefpb
subroutine kefpb(cosz, s, ef)
Definition: genas.f:2600
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130
stzss
subroutine stzss(S, Z)
Definition: genas.f:3713
x2
block data include Zlatfit h c fitting region data x2(1)/0.5/data x1(2)/0.3/
kide1
subroutine kide1(de, r, fr)
Definition: genas.f:3074
n
integer n
Definition: Zcinippxc.h:1
kefgb
subroutine kefgb(cosz, s, ef)
Definition: genas.f:2594
kdipb0
subroutine kdipb0(e0, cosz, s, r, rho)
Definition: genas.f:1629
kcfgb
subroutine kcfgb(e0, cosz, s, r, cf)
Definition: genas.f:1927
kcfp
subroutine kcfp(e0, cosz, s, r, cf)
Definition: genas.f:2111
x
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x
Definition: Zptcl.h:21
f
dE dx *! Nuc Int sampling table f
Definition: cblkMuInt.h:130
kdip
subroutine kdip(e0, zob, cosz, s, de, j1, r, rho)
Definition: genas.f:2472
c
dE dx *! Nuc Int sampling table c
Definition: cblkMuInt.h:130