diff --git a/modules/sophia/eventgen.f b/modules/sophia/eventgen.f
index 037a7c33249d5bd5acbd048672ba58e2d621cabe..1d361eace4d8339d2a9025228891d4bf5efd4cef 100644
--- a/modules/sophia/eventgen.f
+++ b/modules/sophia/eventgen.f
@@ -572,7 +572,7 @@ c***************************************************************************
IMPLICIT INTEGER (N)
SAVE
-
+
wth = w+th
if (x.le.th) then
Ef = 0.
@@ -1473,20 +1473,22 @@ C************************** settings of versions 1.4 - 2.0 *********
+ 0.8880,0.9730,1.,0.4950,0.8390,0.9870,1.,0.5160,5*1.,0.6410,1.,
+ 1.,0.67,1.,0.33,1.,1.,0.88,0.94,1.,0.88,0.94,1.,0.88,0.94,1.,
+ 0.33,1.,0.67,1.,0.678,0.914,1./
- DATA AM / 0.,2*0.511E-3, 2*0.10566, 0.13497, 2*0.13957,
- + 2*0.49365, 2*0.49767, 0.93827, 0.93957, 4*0.,0.93827,
- + 0.93957, 2*0.49767, 0.54880,0.95750,2*0.76830,0.76860,
- + 2*0.89183,2*0.89610,0.78195,1.01941,1.18937,1.19255,
- + 1.19743,1.31490,1.32132,1.11563,1.23100,1.23500,
- + 1.23400,1.23300,1.38280,1.38370,1.38720,
- + 1.53180,1.53500,1.67243 /
- DATA AM2 /0.,2*2.61121E-07,2*0.011164,0.018217,0.019480,
- + 0.019480,0.243690,0.243690,0.247675,0.247675,0.880351,0.882792,
- + 0.000000,0.000000,0.000000,0.000000,0.880351,0.882792,0.247675,
- + 0.247675,0.301181,0.916806,0.590285,0.590285,0.590746,0.795361,
- + 0.795361,0.802995,0.802995,0.611446,1.039197,1.414601,1.422176,
- + 1.433839,1.728962,1.745887,1.244630,1.515361,1.525225,1.522765,
- + 1.520289,1.912136,1.914626,1.924324,2.346411,2.356225,2.797022/
+ DATA AM / 0.D0,2*0.511D-3, 2*0.10566D0, 0.13497D0, 2*0.13957D0,
+ + 2*0.49365D0,2*0.49767D0,0.93827D0, 0.93957D0, 4*0.,0.93827D0,
+ + 0.93957D0,2*0.49767D0,0.54880D0,0.95750D0,2*0.76830D0,
+ + 0.76860D0,2*0.89183D0,2*0.89610D0,0.78195D0,1.01941D0,
+ + 1.18937D0,1.19255D0,
+ + 1.19743D0,1.31490D0,1.32132D0,1.11563D0,1.23100D0,1.23500D0,
+ + 1.23400D0,1.23300D0,1.38280D0,1.38370D0,1.38720D0,
+ + 1.53180D0,1.53500D0,1.67243D0 /
+ DATA AM2 /0.,2*2.61121D-07,2*0.011164D0,0.018217D0,0.019480D0,
+ +0.019480D0,0.243690D0,0.243690D0,0.247675D0,0.247675D0,0.880351D0,
+ +0.882792D0,0.000000D0,0.000000D0,0.000000D0,0.000000D0,0.880351D0,
+ +0.882792D0,0.247675D0,0.247675D0,0.301181D0,0.916806D0,0.590285D0,
+ +0.590285D0,0.590746D0,0.795361D0,0.795361D0,0.802995D0,0.802995D0,
+ +0.611446D0,1.039197D0,1.414601D0,1.422176D0,1.433839D0,1.728962D0,
+ +1.745887D0,1.244630D0,1.515361D0,1.525225D0,1.522765D0,1.520289D0,
+ +1.912136D0,1.914626D0,1.924324D0,2.346411D0,2.356225D0,2.797022D0/
DATA IDB /
+ 0,0,0,1,2,3,5,6,7,13,19,25,8*0,30,32,34,40,46,47,48,49,60,62,
+ 64,66,69,73,75,76,77,78,79,81,82,84,86,87,90,93,96,98,100/