13 sigv=[0.1499999966472e-1, 0.2499999850988e-1, 0.7499999552965e-1,
14 0.1949999928474, 0.2249999940395, 0.2549999952316,
15 0.2750000059605, 0.3050000071526, 0.3149999976158,
16 0.3249999880791, 0.3349999785423, 0.000000000000,
17 1.000000000000, 0.1299999952316, 0.1700000017881,
18 0.3799999952316, 0.5199999809265]
19 sigdel=[0.1999999955297e-1, 0.1999999955297e-1, 0.1999999955297e-1,
20 0.1999999955297e-1, 0.1999999955297e-1, 0.1999999955297e-1,
21 0.1999999955297e-1, 0.1999999955297e-1, 0.1999999955297e-1,
22 0.1999999955297e-1, 0.1999999955297e-1, 0.1999999994950e-5,
23 0.1999999994950e-5, 0.3999999910593e-1, 0.3999999910593e-1,
24 0.7999999821186e-1, 0.1599999964237]
25 siga=[-1476.889556520, 764.5997024809, 20.39032204037,
26 13.93251046364, -17.19068470999, -10.30051418087,
27 -23.91052791023, -87.05159048677, 164.6286518027,
28 -286.9730931994, 204.9446308145, 689.8503539772,
29 3.411995820446, 2.781409973380, 11.14755985026,
30 26.68922609713, -7.732407966270]
35 vv = (v - sigvmi[i])/sigvt[i]
36 hqdj = hqdj + (vv - sigv[j])*(vv - sigv[j])
37 hqdj = hqdj + sigdel[j] * sigdel[j]
38 hqdj = math.sqrt(hqdj)
39 photon = photon + siga[j] * hqdj
41 photon = vconst*math.exp(photon)
42 photon = photon /365664.