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.