module module_ra_goddard
private
public :: goddardrad
integer,parameter :: fp_kind = selected_real_kind(15)
logical,parameter :: cldwater = .true.
logical,parameter :: overcast = .true.
logical,parameter :: fast_overcast = .true.
logical,parameter :: high = .false.
logical,parameter :: trace = .true.
real(Kind=fp_kind), parameter :: co2 = 336.77e-6
real(Kind=fp_kind), parameter :: n2o = 0.32e-6
real(Kind=fp_kind), parameter :: ch4 = 1.79e-6
real(Kind=fp_kind), parameter :: cfc11 = 268.0e-12
real(Kind=fp_kind), parameter :: cfc12 = 503.0e-12
real(Kind=fp_kind), parameter :: cfc22 = 105.0e-12
real(Kind=fp_kind), parameter :: re = 10.
integer, parameter :: ib_sw = 11
integer, parameter :: ib_lw = 10
real(Kind=fp_kind), parameter :: cosz_min = 0.0001
real(Kind=fp_kind), parameter :: fcld_min = 0.01
real(Kind=fp_kind), parameter :: taux_min = 0.0001
real(Kind=fp_kind), parameter :: opt_min = 1.e-6
integer :: jloop
contains
subroutine goddardrad( rthraten, gsf, xlat,xlong &
,dz8w,t8w,rho_phy,sw_or_lw &
,alb,emiss,t3d,qv3d,qc3d,qr3d &
,qi3d,qs3d,qg3d &
,p3d,p8w3d,pi3d,cldfra3d &
,gmt,cp,g,julday,xtime,declin,solcon &
,center_lat &
,radfrq,degrad,taucldi,taucldc,warm_rain &
,f_qv,f_qc,f_qr,f_qi,f_qs,f_qg &
,ids,ide, jds,jde, kds,kde &
,ims,ime, jms,jme, kms,kme &
,its,ite, jts,jte, kts,kte &
,ERBE_out &
)
implicit none
character(len=2), intent(in) :: &
sw_or_lw
integer, intent(in) :: &
ids, &
ide, &
jds, &
jde, &
kds, &
kde, &
ims, &
ime, &
jms, &
jme, &
kms, &
kme, &
its, &
ite, &
jts, &
jte, &
kts, &
kte, &
julday
logical, intent(in) :: &
warm_rain
real, intent(in) :: &
radfrq, &
degrad, &
xtime, &
declin, &
solcon, &
gmt, &
cp, &
g
real, dimension( ims:ime, kms:kme, jms:jme ), intent(in) :: &
p3d, &
p8w3d, &
pi3d, &
t3d, &
t8w, &
dz8w, &
rho_phy, &
cldfra3d
real, dimension( ims:ime, jms:jme ), intent(in) :: &
xlat, &
xlong, &
alb, &
emiss
real, dimension( ims:ime, kms:kme, jms:jme ),optional,intent(in) :: &
qv3d, &
qc3d, &
qr3d, &
qi3d, &
qs3d, &
qg3d
logical, optional, intent(in ) :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg
real, dimension( ims:ime, kms:kme, jms:jme ), intent(inout) :: &
rthraten, &
taucldi, &
taucldc
real, dimension( ims:ime, jms:jme ), intent(inout) :: &
gsf
real, optional,dimension(ims:ime, jms:jme, 1:8),intent(out) :: ERBE_out
integer :: i,j,k,nk,ib,is
integer :: mix, mkx
real(Kind=fp_kind), dimension( its:ite ) :: &
cosz, &
rsuvbm, &
rsuvdf, &
rsirbm, &
rsirdf, &
tsfc, &
tskin, &
p400, &
p700
real(Kind=fp_kind), dimension( its:ite, ib_lw ) :: emis2d
integer, dimension( its:ite ) :: &
ict, &
icb
real(Kind=fp_kind), dimension( its:ite, kts-1:kte+1 ) :: &
flx, &
flxd, &
flxu
real(Kind=fp_kind), dimension( its:ite, kts-1:kte ) :: o3
real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_sw ) :: &
taual_sw, &
ssaal_sw, &
asyal_sw
real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_lw ) :: &
taual_lw, &
ssaal_lw, &
asyal_lw
real(Kind=fp_kind), dimension( its:ite, kts-1:kte, 3 ) :: &
reff, &
cwc
real(Kind=fp_kind), dimension( its: ite, kts-1:kte+1 ) :: &
p8w2d, &
t8w2d
real(Kind=fp_kind), dimension( its: ite, kts-1:kte ) :: &
tten2d, &
sh2d, &
p2d, &
t2d, &
dz2d, &
fcld2d
real(Kind=fp_kind), dimension( its:ite , kts:kte+1 ) :: phyd
real(Kind=fp_kind), dimension( its:ite , kts:kte ) :: phydmid
integer, parameter :: np = 75
real(Kind=fp_kind), dimension( np, 5 ) :: pres, ozone
real(Kind=fp_kind), dimension( np ) :: p
integer :: iprof
integer,parameter :: is_summer = 80
integer,parameter :: ie_summer = 265
real(Kind=fp_kind) :: fac,x
real(Kind=fp_kind) :: xt24,tloctm,hrang,xxlat
real, intent(in) :: center_lat
data (pres(i,1),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
1013.0000/
data (ozone(i,1),i=1,np)/ &
0.1793e-06, 0.2228e-06, 0.2665e-06, 0.3104e-06, 0.3545e-06, &
0.3989e-06, 0.4435e-06, 0.4883e-06, 0.5333e-06, 0.5786e-06, &
0.6241e-06, 0.6698e-06, 0.7157e-06, 0.7622e-06, 0.8557e-06, &
0.1150e-05, 0.1462e-05, 0.1793e-05, 0.2143e-05, 0.2512e-05, &
0.2902e-05, 0.3313e-05, 0.4016e-05, 0.5193e-05, 0.6698e-05, &
0.8483e-05, 0.9378e-05, 0.9792e-05, 0.1002e-04, 0.1014e-04, &
0.9312e-05, 0.7834e-05, 0.6448e-05, 0.5159e-05, 0.3390e-05, &
0.1937e-05, 0.1205e-05, 0.8778e-06, 0.6935e-06, 0.5112e-06, &
0.3877e-06, 0.3262e-06, 0.2770e-06, 0.2266e-06, 0.2020e-06, &
0.1845e-06, 0.1679e-06, 0.1519e-06, 0.1415e-06, 0.1317e-06, &
0.1225e-06, 0.1137e-06, 0.1055e-06, 0.1001e-06, 0.9487e-07, &
0.9016e-07, 0.8641e-07, 0.8276e-07, 0.7930e-07, 0.7635e-07, &
0.7347e-07, 0.7065e-07, 0.6821e-07, 0.6593e-07, 0.6368e-07, &
0.6148e-07, 0.5998e-07, 0.5859e-07, 0.5720e-07, 0.5582e-07, &
0.5457e-07, 0.5339e-07, 0.5224e-07, 0.5110e-07, 0.4999e-07/
data (pres(i,2),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.9000, 109.8000, 133.7000, &
157.6000, 181.5000, 205.4000, 229.3000, 253.2000, 277.1000, &
301.0000, 324.9000, 348.8000, 372.7000, 396.6000, 420.5000, &
444.4000, 468.3000, 492.2000, 516.1000, 540.0000, 563.9000, &
587.8000, 611.7000, 635.6000, 659.5000, 683.4000, 707.3000, &
731.2000, 755.1000, 779.0000, 802.9000, 826.8000, 850.7000, &
874.6000, 898.5000, 922.4000, 946.3000, 970.2000, 994.1000, &
1018.0000/
data (ozone(i,2),i=1,np)/ &
0.2353e-06, 0.3054e-06, 0.3771e-06, 0.4498e-06, 0.5236e-06, &
0.5984e-06, 0.6742e-06, 0.7511e-06, 0.8290e-06, 0.9080e-06, &
0.9881e-06, 0.1069e-05, 0.1152e-05, 0.1319e-05, 0.1725e-05, &
0.2145e-05, 0.2581e-05, 0.3031e-05, 0.3497e-05, 0.3980e-05, &
0.4478e-05, 0.5300e-05, 0.6725e-05, 0.8415e-05, 0.1035e-04, &
0.1141e-04, 0.1155e-04, 0.1143e-04, 0.1093e-04, 0.1060e-04, &
0.9720e-05, 0.8849e-05, 0.7424e-05, 0.6023e-05, 0.4310e-05, &
0.2820e-05, 0.1990e-05, 0.1518e-05, 0.1206e-05, 0.9370e-06, &
0.7177e-06, 0.5450e-06, 0.4131e-06, 0.3277e-06, 0.2563e-06, &
0.2120e-06, 0.1711e-06, 0.1524e-06, 0.1344e-06, 0.1199e-06, &
0.1066e-06, 0.9516e-07, 0.8858e-07, 0.8219e-07, 0.7598e-07, &
0.6992e-07, 0.6403e-07, 0.5887e-07, 0.5712e-07, 0.5540e-07, &
0.5370e-07, 0.5214e-07, 0.5069e-07, 0.4926e-07, 0.4785e-07, &
0.4713e-07, 0.4694e-07, 0.4676e-07, 0.4658e-07, 0.4641e-07, &
0.4634e-07, 0.4627e-07, 0.4619e-07, 0.4612e-07, 0.4605e-07/
data (pres(i,3),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7000, 109.4000, 133.1000, &
156.8000, 180.5000, 204.2000, 227.9000, 251.6000, 275.3000, &
299.0000, 322.7000, 346.4000, 370.1000, 393.8000, 417.5000, &
441.2000, 464.9000, 488.6000, 512.3000, 536.0000, 559.7000, &
583.4000, 607.1000, 630.8000, 654.5000, 678.2000, 701.9000, &
725.6000, 749.3000, 773.0000, 796.7000, 820.4000, 844.1000, &
867.8000, 891.5000, 915.2000, 938.9000, 962.6000, 986.3000, &
1010.0000/
data (ozone(i,3),i=1,np)/ &
0.1728e-06, 0.2131e-06, 0.2537e-06, 0.2944e-06, 0.3353e-06, &
0.3764e-06, 0.4176e-06, 0.4590e-06, 0.5006e-06, 0.5423e-06, &
0.5842e-06, 0.6263e-06, 0.6685e-06, 0.7112e-06, 0.7631e-06, &
0.1040e-05, 0.1340e-05, 0.1660e-05, 0.2001e-05, 0.2362e-05, &
0.2746e-05, 0.3153e-05, 0.3762e-05, 0.4988e-05, 0.6518e-05, &
0.8352e-05, 0.9328e-05, 0.9731e-05, 0.8985e-05, 0.7632e-05, &
0.6814e-05, 0.6384e-05, 0.5718e-05, 0.4728e-05, 0.4136e-05, &
0.3033e-05, 0.2000e-05, 0.1486e-05, 0.1121e-05, 0.8680e-06, &
0.6474e-06, 0.5164e-06, 0.3921e-06, 0.2996e-06, 0.2562e-06, &
0.2139e-06, 0.1723e-06, 0.1460e-06, 0.1360e-06, 0.1267e-06, &
0.1189e-06, 0.1114e-06, 0.1040e-06, 0.9678e-07, 0.8969e-07, &
0.8468e-07, 0.8025e-07, 0.7590e-07, 0.7250e-07, 0.6969e-07, &
0.6694e-07, 0.6429e-07, 0.6208e-07, 0.5991e-07, 0.5778e-07, &
0.5575e-07, 0.5403e-07, 0.5233e-07, 0.5067e-07, 0.4904e-07, &
0.4721e-07, 0.4535e-07, 0.4353e-07, 0.4173e-07, 0.3997e-07/
data (pres(i,4),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
1013.0000/
data (ozone(i,4),i=1,np)/ &
0.2683e-06, 0.3562e-06, 0.4464e-06, 0.5387e-06, 0.6333e-06, &
0.7301e-06, 0.8291e-06, 0.9306e-06, 0.1034e-05, 0.1140e-05, &
0.1249e-05, 0.1360e-05, 0.1474e-05, 0.1855e-05, 0.2357e-05, &
0.2866e-05, 0.3383e-05, 0.3906e-05, 0.4437e-05, 0.4975e-05, &
0.5513e-05, 0.6815e-05, 0.8157e-05, 0.1008e-04, 0.1200e-04, &
0.1242e-04, 0.1250e-04, 0.1157e-04, 0.1010e-04, 0.9063e-05, &
0.8836e-05, 0.8632e-05, 0.8391e-05, 0.7224e-05, 0.6054e-05, &
0.4503e-05, 0.3204e-05, 0.2278e-05, 0.1833e-05, 0.1433e-05, &
0.9996e-06, 0.7440e-06, 0.5471e-06, 0.3944e-06, 0.2852e-06, &
0.1977e-06, 0.1559e-06, 0.1333e-06, 0.1126e-06, 0.9441e-07, &
0.7678e-07, 0.7054e-07, 0.6684e-07, 0.6323e-07, 0.6028e-07, &
0.5746e-07, 0.5468e-07, 0.5227e-07, 0.5006e-07, 0.4789e-07, &
0.4576e-07, 0.4402e-07, 0.4230e-07, 0.4062e-07, 0.3897e-07, &
0.3793e-07, 0.3697e-07, 0.3602e-07, 0.3506e-07, 0.3413e-07, &
0.3326e-07, 0.3239e-07, 0.3153e-07, 0.3069e-07, 0.2987e-07/
data (pres(i,5),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
1013.0000/
data (ozone(i,5),i=1,np)/ &
0.1993e-06, 0.2521e-06, 0.3051e-06, 0.3585e-06, 0.4121e-06, &
0.4661e-06, 0.5203e-06, 0.5748e-06, 0.6296e-06, 0.6847e-06, &
0.7402e-06, 0.7959e-06, 0.8519e-06, 0.9096e-06, 0.1125e-05, &
0.1450e-05, 0.1794e-05, 0.2156e-05, 0.2538e-05, 0.2939e-05, &
0.3362e-05, 0.3785e-05, 0.4753e-05, 0.6005e-05, 0.7804e-05, &
0.9635e-05, 0.1023e-04, 0.1067e-04, 0.1177e-04, 0.1290e-04, &
0.1134e-04, 0.9223e-05, 0.6667e-05, 0.3644e-05, 0.1545e-05, &
0.5355e-06, 0.2523e-06, 0.2062e-06, 0.1734e-06, 0.1548e-06, &
0.1360e-06, 0.1204e-06, 0.1074e-06, 0.9707e-07, 0.8960e-07, &
0.8419e-07, 0.7962e-07, 0.7542e-07, 0.7290e-07, 0.7109e-07, &
0.6940e-07, 0.6786e-07, 0.6635e-07, 0.6500e-07, 0.6370e-07, &
0.6244e-07, 0.6132e-07, 0.6022e-07, 0.5914e-07, 0.5884e-07, &
0.5855e-07, 0.5823e-07, 0.5772e-07, 0.5703e-07, 0.5635e-07, &
0.5570e-07, 0.5492e-07, 0.5412e-07, 0.5335e-07, 0.5260e-07, &
0.5167e-07, 0.5063e-07, 0.4961e-07, 0.4860e-07, 0.4761e-07/
mix = ite-its+1
mkx = kte-kts+1
if (abs(center_lat) .le. 30. ) then
iprof = 5
else
if (center_lat .gt. 0.) then
if (center_lat .gt. 60. ) then
if (julday .gt. is_summer .and. julday .lt. ie_summer ) then
iprof = 3
else
iprof = 4
endif
else
if (julday .gt. is_summer .and. julday .lt. ie_summer ) then
iprof = 1
else
iprof = 2
endif
endif
else
if (center_lat .lt. -60. ) then
if (julday .lt. is_summer .or. julday .gt. ie_summer ) then
iprof = 3
else
iprof = 4
endif
else
if (julday .lt. is_summer .or. julday .gt. ie_summer ) then
iprof = 1
else
iprof = 2
endif
endif
endif
endif
j_loop: do j=jts,jte
jloop=j
do k=1,np
p(k)=pres(k,iprof)
enddo
do k = kts,kte+1
do i = its,ite
if(k.eq.kts)then
phyd(i,k)=p8w3d(i,kts,j)
else
phyd(i,k)=phyd(i,k-1)*exp( -9.8/287.04*dz8w(i,k-1,j)/t3d(i,k-1,j) )
phydmid(i,k-1)=0.5*(phyd(i,k-1)+phyd(i,k))
endif
enddo
enddo
do k=kts,kte+1
do i=its,ite
nk=kme-k+kms
p8w2d(i,k)=phyd(i,nk)*0.01
t8w2d(i,k) = t8w(i,nk,j)
enddo
enddo
do i=its,ite
p8w2d(i,0)=.0
enddo
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
tten2d(i,k)=0.
t2d(i,k)=t3d(i,nk,j)
sh2d(i,k)=qv3d(i,nk,j)/(1.+qv3d(i,nk,j))
sh2d(i,k)=max(0._fp_kind,sh2d(i,k))
p2d(i,k)=phydmid(i,nk)*0.01
fcld2d(i,k)=cldfra3d(i,nk,j)
dz2d(i,k) = dz8w(i,nk,j)
enddo
enddo
do i=its,ite
tten2d(i,0)=0.
t2d(i,0)=t2d(i,1)
sh2d(i,0)=0.5*sh2d(i,1)
dz2d(i,0)=dz2d(i,1)
cwc(i,0,3)=0.
cwc(i,0,2)=0.
cwc(i,0,1)=0.
p2d(i,0)=0.5*(p8w2d(i,0)+p8w2d(i,1))
fcld2d(i,0)=0.
enddo
call o3_profile (np, p, ozone(1,iprof), its, ite, kts-1, kte, p2d, o3)
if ( present( f_qc ) .and. present( qc3d) ) then
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qc) ) then
cwc(i,k,2)=max(0.,qc3d(i,nk,j))
reff(i,k,2) = re
x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
taucldc(i,nk,j) = x * cwc(i,k,2) * ( 3.33e-4 + 2.52/reff(i,k,2) )
else
cwc(i,k,2) = 0.
reff(i,k,2) =0.
taucldc(i,nk,j) = 0.
endif
enddo
enddo
endif
if ( present( f_qi ) .and. present( qi3d) ) then
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qi) ) then
cwc(i,k,1)=max(0.,qi3d(i,nk,j))
reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5.
x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) )
else
cwc(i,k,1)= 0.
reff(i,k,1) = 0.
taucldi(i,nk,j) = 0.
endif
enddo
enddo
endif
if ( present( f_qs ) .and. present( qs3d ) ) then
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qs) ) then
if ( cwc(i,k,1) > 0. ) then
cwc(i,k,1)=cwc(i,k,1) + max(0.,qs3d(i,nk,j))
reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5.
else
cwc(i,k,1)= max(0.,qs3d(i,nk,j))
reff(i,k,1) = 125.
endif
x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) )
else
cwc(i,k,1)=cwc(i,k,1)
endif
enddo
enddo
endif
if ( present( f_qr ) .and. present( qr3d) ) then
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qr) ) then
cwc(i,k,3) = max(0.,qr3d(i,nk,j))
else
cwc(i,k,3) = 0.
endif
enddo
enddo
endif
if ( present( f_qg ) .and. present( qg3d) ) then
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qg) ) then
if( cwc(i,k,3) > 0.) then
cwc(i,k,3)=cwc(i,k,3) + max(0.,qg3d(i,nk,j))
else
cwc(i,k,3)= max(0.,qg3d(i,nk,j))
endif
else
cwc(i,k,3)=cwc(i,k,3)
endif
enddo
enddo
endif
do k = kts-1, kte
do i = its, ite
reff(i,k,1) = max( min(reff(i,k,1),125._fp_kind) , 25._fp_kind)
reff(i,k,2) = max( min(reff(i,k,2), 20._fp_kind) , 4._fp_kind)
reff(i,k,3) = max( min(reff(i,k,3), 60._fp_kind) , 1800._fp_kind)
end do
end do
do i = its, ite
p400(i) = 1.e5
p700(i) = 1.e5
enddo
do k = kts-1,kte+1
do i = its, ite
if (abs(p8w2d(i,k) - 400.) .lt. p400(i)) then
p400(i) = abs(p8w2d(i,k) - 400.)
ict(i) = k
endif
if (abs(p8w2d(i,k) - 700.) .lt. p700(i)) then
p700(i) = abs(p8w2d(i,k) - 700.)
icb(i) = k
endif
end do
end do
rad_select: select case(sw_or_lw)
case('is')
case ('sw')
do i = its,ite
xt24 = mod(xtime + radfrq * 0.5, 1440.)
tloctm = gmt + xt24 / 60. + xlong(i,j) / 15.
hrang = 15. * (tloctm - 12.) * degrad
xxlat = xlat(i,j) * degrad
cosz(i) = sin(xxlat) * sin(declin) + &
cos(xxlat) * cos(declin) * cos(hrang)
rsuvbm(i) = alb(i,j)
rsuvdf(i) = alb(i,j)
rsirbm(i) = alb(i,j)
rsirdf(i) = alb(i,j)
end do
do ib = 1, ib_sw
do k = kts-1,kte
do i = its,ite
taual_sw(i,k,ib) = 0.
ssaal_sw(i,k,ib) = 0.
asyal_sw(i,k,ib) = 0.
end do
end do
end do
do i = its,ite
if (cosz(i) .gt. cosz_min) then
call swrad ( m=1, np=mkx+1, pl=p8w2d(i,:), ta=t2d(i,:), wa=sh2d(i,:), oa=o3(i,:), &
cwc=cwc(i,:,:), reff=reff(i,:,:), fcld=fcld2d(i,:), ict=ict(i), icb=icb(i), &
taual=taual_sw(i,:,:), ssaal=ssaal_sw(i,:,:), asyal=asyal_sw(i,:,:), &
cosz=cosz(i), rsuvbm=rsuvbm(i), rsuvdf=rsuvdf(i), rsirbm=rsirbm(i), rsirdf=rsirdf(i), &
flx=flx(i,:), flxd=flxd(i,:),flxu=flxu(i,:) )
endif
enddo
do k = kts, kte+1
do i = its, ite
if (cosz(i) .le. cosz_min) then
flx(i,k) = 0.
else
flx(i,k) = flx(i,k) * solcon * cosz(i)
endif
end do
end do
fac = .01 * g / cp
do k = kts, kte
do i = its, ite
tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/ (p8w2d(i,k)-p8w2d(i,k+1))
end do
end do
do k=kts,kte
nk=kme-1-k+kms
do i=its,ite
rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j)
enddo
enddo
do i = its, ite
if (cosz(i) .le. cosz_min) then
gsf(i,j) = 0.
if(present(ERBE_out)) then
ERBE_out(i,j,5) = 0.
ERBE_out(i,j,6) = 0.
ERBE_out(i,j,7) = 0.
ERBE_out(i,j,8) = 0.
endif
else
gsf(i,j) = (1. - rsuvbm(i)) * flxd(i,kte+1) * solcon * cosz(i)
if(present(ERBE_out)) then
ERBE_out(i,j,5) = flxd(i,1) * solcon * cosz(i)
ERBE_out(i,j,6) = flxu(i,1) * solcon * cosz(i)
ERBE_out(i,j,7) = flxd(i,kte+1) * solcon * cosz(i)
ERBE_out(i,j,8) = flxu(i,kte+1) * solcon * cosz(i)
endif
endif
enddo
case ('lw')
do ib = 1, ib_lw
do k = kts-1,kte
do i = its,ite
taual_lw(i,k,ib) = 0.
ssaal_lw(i,k,ib) = 0.
asyal_lw(i,k,ib) = 0.
end do
end do
end do
do i = its,ite
emis2d(i,1:ib_lw) = emiss(i,j)
tsfc(i)=0.5*t8w2d(i,kme) + 0.5*t2d(i,kte)
tskin(i)=t8w2d(i,kme)
end do
call lwrad (m=mix, np=mkx+1, pl=p8w2d, ta=t2d, wa=sh2d, oa=o3, tb=tsfc, ts=tskin, &
cwc=cwc, emiss=emis2d, reff=reff, fcld=fcld2d, ict=ict, icb=icb, &
taual=taual_lw, ssaal=ssaal_lw, asyal=asyal_lw, &
flx=flx, acflxd=flxd , acflxu=flxu )
fac = .01 * g / cp
do k = kts, kte
do i = its, ite
tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/(p8w2d(i,k)-p8w2d(i,k+1))
end do
end do
do k=kts,kte
nk=kme-1-k+kms
do i=its,ite
rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j)
enddo
enddo
do i = its, ite
gsf(i,j) = flxd(i,kte+1)
if(present(ERBE_out)) then
ERBE_out(i,j,1) = flxd(i,1)
ERBE_out(i,j,2) = flxu(i,1)
ERBE_out(i,j,3) = flxd(i,kte+1)
ERBE_out(i,j,4) = flxu(i,kte+1)
endif
end do
case default
stop 'the option does not exist: sw_or_lw '
end select rad_select
enddo j_loop
end subroutine goddardrad
subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, &
taual,ssaal,asyal, cosz,rsuvbm,rsuvdf,rsirbm,rsirdf, &
flx,flxd,flxu)
implicit none
integer,intent(in) :: m,np,ict(m),icb(m)
real(Kind=fp_kind),intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np)
real(Kind=fp_kind),intent(in) :: cwc(m,np,3),reff(m,np,3),fcld(m,np)
real(Kind=fp_kind),intent(in) :: taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
real(Kind=fp_kind),intent(in) :: cosz(m),rsuvbm(m),rsuvdf(m),rsirbm(m),rsirdf(m)
real(Kind=fp_kind),intent(inout) :: flx(m,np+1)
real(Kind=fp_kind),intent(inout) :: flxd(m,np+1)
real(Kind=fp_kind),intent(inout) :: flxu(m,np+1)
real(Kind=fp_kind) flc(m,np+1)
real(Kind=fp_kind) fdiruv (m),fdifuv (m)
real(Kind=fp_kind) fdirpar(m),fdifpar(m)
real(Kind=fp_kind) fdirir (m),fdifir (m)
integer i,j,k,ntop
integer :: nctop(m)
real(Kind=fp_kind) x
real(Kind=fp_kind) :: taucld(m,np,3)
real(Kind=fp_kind) :: taux(m,np)
real(Kind=fp_kind) :: cwp(m,np,3)
real(Kind=fp_kind) :: dp(m,np)
real(Kind=fp_kind) :: wh(m,np)
real(Kind=fp_kind) :: oh(m,np)
real(Kind=fp_kind) :: scal(m,np)
real(Kind=fp_kind) :: swu(m,np+1)
real(Kind=fp_kind) :: swh(m,np+1)
real(Kind=fp_kind) :: so2(m,np+1)
real(Kind=fp_kind) :: df(m,np+1)
real(Kind=fp_kind) :: df_sub(m,np+1)
real(Kind=fp_kind) :: df_cld(m,np+1)
real(Kind=fp_kind) :: df_clr(m,np+1)
real(Kind=fp_kind) :: snt(m)
real(Kind=fp_kind) :: cnt(m)
real(Kind=fp_kind) :: ratio, cld_alb
integer :: i_cos, i_tau
real(Kind=fp_kind) :: ratio_lut(10,10)
data ((ratio_lut(i,j),i=1,10),j=1,10)/ &
0.796, 0.559, 0.523, 0.474, 0.439, 0.377, 0.298, 0.239, 0.154, 0.086, &
0.845, 0.628, 0.566, 0.508, 0.457, 0.392, 0.315, 0.242, 0.156, 0.087, &
0.894, 0.697, 0.609, 0.542, 0.475, 0.407, 0.332, 0.245, 0.158, 0.088, &
0.924, 0.759, 0.662, 0.581, 0.511, 0.432, 0.350, 0.269, 0.173, 0.092, &
0.944, 0.809, 0.713, 0.634, 0.552, 0.471, 0.381, 0.288, 0.183, 0.097, &
0.961, 0.848, 0.760, 0.689, 0.602, 0.516, 0.425, 0.323, 0.208, 0.116, &
0.971, 0.882, 0.808, 0.730, 0.650, 0.556, 0.456, 0.355, 0.233, 0.134, &
0.978, 0.910, 0.844, 0.776, 0.695, 0.601, 0.499, 0.387, 0.256, 0.141, &
0.984, 0.934, 0.876, 0.810, 0.731, 0.637, 0.533, 0.405, 0.275, 0.151, &
0.988, 0.944, 0.897, 0.844, 0.773, 0.683, 0.561, 0.421, 0.277, 0.156/
integer nu,nw,nx2,ny2
parameter (nu=43,nw=37,nx2=62,ny2=101)
real(Kind=fp_kind) w1,dw,u1,du,coa(nx2,ny2),cah(nu,nw)
data ((cah(i,j),i=1,43),j= 1, 1)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, &
0.0009131, 0.0011470, 0.0014327, 0.0017806, 0.0022021, &
0.0027093, 0.0033141, 0.0040280, 0.0048609, 0.0058217, &
0.0069177, 0.0081559, 0.0095430/
data ((cah(i,j),i=1,43),j= 2, 2)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, &
0.0009130, 0.0011470, 0.0014326, 0.0017805, 0.0022020, &
0.0027091, 0.0033139, 0.0040276, 0.0048605, 0.0058211, &
0.0069170, 0.0081551, 0.0095420/
data ((cah(i,j),i=1,43),j= 3, 3)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007218, &
0.0009129, 0.0011468, 0.0014325, 0.0017803, 0.0022017, &
0.0027088, 0.0033135, 0.0040271, 0.0048599, 0.0058204, &
0.0069161, 0.0081539, 0.0095406/
data ((cah(i,j),i=1,43),j= 4, 4)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007217, &
0.0009128, 0.0011467, 0.0014323, 0.0017800, 0.0022014, &
0.0027084, 0.0033130, 0.0040265, 0.0048591, 0.0058194, &
0.0069148, 0.0081524, 0.0095387/
data ((cah(i,j),i=1,43),j= 5, 5)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, &
0.0002574, 0.0003383, 0.0004398, 0.0005660, 0.0007216, &
0.0009127, 0.0011465, 0.0014320, 0.0017797, 0.0022010, &
0.0027078, 0.0033123, 0.0040256, 0.0048580, 0.0058180, &
0.0069132, 0.0081503, 0.0095361/
data ((cah(i,j),i=1,43),j= 6, 6)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, &
0.0002573, 0.0003383, 0.0004398, 0.0005659, 0.0007215, &
0.0009125, 0.0011462, 0.0014317, 0.0017792, 0.0022004, &
0.0027071, 0.0033113, 0.0040244, 0.0048565, 0.0058162, &
0.0069109, 0.0081476, 0.0095328/
data ((cah(i,j),i=1,43),j= 7, 7)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001058, 0.0001438, 0.0001935, &
0.0002573, 0.0003382, 0.0004396, 0.0005657, 0.0007213, &
0.0009122, 0.0011459, 0.0014312, 0.0017786, 0.0021996, &
0.0027061, 0.0033100, 0.0040228, 0.0048545, 0.0058137, &
0.0069079, 0.0081439, 0.0095283/
data ((cah(i,j),i=1,43),j= 8, 8)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, &
0.0000558, 0.0000772, 0.0001058, 0.0001438, 0.0001934, &
0.0002572, 0.0003381, 0.0004395, 0.0005655, 0.0007210, &
0.0009119, 0.0011454, 0.0014306, 0.0017778, 0.0021985, &
0.0027047, 0.0033084, 0.0040207, 0.0048519, 0.0058105, &
0.0069040, 0.0081391, 0.0095225/
data ((cah(i,j),i=1,43),j= 9, 9)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, &
0.0000558, 0.0000771, 0.0001058, 0.0001437, 0.0001933, &
0.0002571, 0.0003379, 0.0004393, 0.0005652, 0.0007206, &
0.0009114, 0.0011447, 0.0014297, 0.0017767, 0.0021971, &
0.0027030, 0.0033061, 0.0040180, 0.0048485, 0.0058064, &
0.0068989, 0.0081329, 0.0095149/
data ((cah(i,j),i=1,43),j= 10, 10)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000288, 0.0000402, &
0.0000558, 0.0000771, 0.0001057, 0.0001437, 0.0001932, &
0.0002569, 0.0003377, 0.0004390, 0.0005649, 0.0007201, &
0.0009107, 0.0011439, 0.0014286, 0.0017753, 0.0021953, &
0.0027006, 0.0033032, 0.0040144, 0.0048441, 0.0058009, &
0.0068922, 0.0081248, 0.0095051/
data ((cah(i,j),i=1,43),j= 11, 11)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, &
0.0000558, 0.0000770, 0.0001056, 0.0001436, 0.0001931, &
0.0002567, 0.0003375, 0.0004387, 0.0005644, 0.0007195, &
0.0009098, 0.0011428, 0.0014271, 0.0017734, 0.0021929, &
0.0026976, 0.0032995, 0.0040097, 0.0048384, 0.0057939, &
0.0068837, 0.0081145, 0.0094926/
data ((cah(i,j),i=1,43),j= 12, 12)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, &
0.0000557, 0.0000770, 0.0001055, 0.0001434, 0.0001929, &
0.0002565, 0.0003371, 0.0004382, 0.0005637, 0.0007186, &
0.0009087, 0.0011413, 0.0014252, 0.0017709, 0.0021898, &
0.0026937, 0.0032946, 0.0040038, 0.0048311, 0.0057850, &
0.0068729, 0.0081013, 0.0094768/
data ((cah(i,j),i=1,43),j= 13, 13)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000400, &
0.0000556, 0.0000769, 0.0001054, 0.0001432, 0.0001926, &
0.0002561, 0.0003366, 0.0004376, 0.0005629, 0.0007175, &
0.0009073, 0.0011394, 0.0014228, 0.0017678, 0.0021859, &
0.0026888, 0.0032885, 0.0039963, 0.0048218, 0.0057738, &
0.0068592, 0.0080849, 0.0094570/
data ((cah(i,j),i=1,43),j= 14, 14)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000286, 0.0000400, &
0.0000556, 0.0000767, 0.0001052, 0.0001430, 0.0001923, &
0.0002557, 0.0003361, 0.0004368, 0.0005619, 0.0007161, &
0.0009054, 0.0011370, 0.0014197, 0.0017639, 0.0021809, &
0.0026826, 0.0032809, 0.0039869, 0.0048103, 0.0057597, &
0.0068422, 0.0080643, 0.0094323/
data ((cah(i,j),i=1,43),j= 15, 15)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000103, 0.0000145, 0.0000204, 0.0000286, 0.0000399, &
0.0000554, 0.0000766, 0.0001050, 0.0001427, 0.0001919, &
0.0002552, 0.0003353, 0.0004358, 0.0005605, 0.0007144, &
0.0009032, 0.0011340, 0.0014159, 0.0017590, 0.0021748, &
0.0026750, 0.0032715, 0.0039752, 0.0047961, 0.0057424, &
0.0068212, 0.0080389, 0.0094019/
data ((cah(i,j),i=1,43),j= 16, 16)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000103, 0.0000145, 0.0000204, 0.0000285, 0.0000398, &
0.0000553, 0.0000764, 0.0001047, 0.0001423, 0.0001914, &
0.0002545, 0.0003344, 0.0004345, 0.0005589, 0.0007122, &
0.0009003, 0.0011304, 0.0014112, 0.0017531, 0.0021673, &
0.0026656, 0.0032598, 0.0039609, 0.0047786, 0.0057211, &
0.0067954, 0.0080078, 0.0093646/
data ((cah(i,j),i=1,43),j= 17, 17)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000103, 0.0000145, 0.0000203, 0.0000284, 0.0000397, &
0.0000551, 0.0000761, 0.0001044, 0.0001419, 0.0001908, &
0.0002536, 0.0003332, 0.0004330, 0.0005568, 0.0007095, &
0.0008968, 0.0011259, 0.0014054, 0.0017458, 0.0021123, &
0.0026542, 0.0032457, 0.0039435, 0.0047573, 0.0056951, &
0.0067640, 0.0079700, 0.0093194/
data ((cah(i,j),i=1,43),j= 18, 18)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000102, 0.0000144, 0.0000202, 0.0000283, 0.0000395, &
0.0000549, 0.0000758, 0.0001040, 0.0001413, 0.0001900, &
0.0002525, 0.0003318, 0.0004311, 0.0005543, 0.0007063, &
0.0008926, 0.0011204, 0.0013985, 0.0017370, 0.0021470, &
0.0026404, 0.0032285, 0.0039224, 0.0047315, 0.0056637, &
0.0067260, 0.0079245, 0.0092651/
data ((cah(i,j),i=1,43),j= 19, 19)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, &
0.0000102, 0.0000143, 0.0000201, 0.0000282, 0.0000393, &
0.0000546, 0.0000754, 0.0001034, 0.0001406, 0.0001890, &
0.0002512, 0.0003300, 0.0004287, 0.0005513, 0.0007023, &
0.0008875, 0.0011139, 0.0013901, 0.0017264, 0.0021337, &
0.0026238, 0.0032080, 0.0038971, 0.0047005, 0.0056261, &
0.0066806, 0.0078701, 0.0092003/
data ((cah(i,j),i=1,43),j= 20, 20)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, &
0.0000101, 0.0000142, 0.0000200, 0.0000280, 0.0000391, &
0.0000543, 0.0000750, 0.0001028, 0.0001397, 0.0001878, &
0.0002496, 0.0003279, 0.0004259, 0.0005476, 0.0006975, &
0.0008813, 0.0011060, 0.0013802, 0.0017138, 0.0021179, &
0.0026040, 0.0031835, 0.0038670, 0.0046637, 0.0055814, &
0.0066267, 0.0078055, 0.0091235/
data ((cah(i,j),i=1,43),j= 21, 21)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000025, 0.0000036, 0.0000051, 0.0000071, &
0.0000100, 0.0000141, 0.0000198, 0.0000278, 0.0000388, &
0.0000539, 0.0000744, 0.0001020, 0.0001386, 0.0001863, &
0.0002477, 0.0003253, 0.0004226, 0.0005432, 0.0006918, &
0.0008740, 0.0010966, 0.0013683, 0.0016988, 0.0020991, &
0.0025806, 0.0031545, 0.0038313, 0.0046201, 0.0055285, &
0.0065630, 0.0077294, 0.0090332/
data ((cah(i,j),i=1,43),j= 22, 22)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000025, 0.0000036, 0.0000050, 0.0000071, &
0.0000100, 0.0000140, 0.0000197, 0.0000275, 0.0000384, &
0.0000534, 0.0000737, 0.0001011, 0.0001373, 0.0001846, &
0.0002453, 0.0003222, 0.0004185, 0.0005265, 0.0006850, &
0.0008652, 0.0010855, 0.0013541, 0.0016809, 0.0020768, &
0.0025528, 0.0031202, 0.0037892, 0.0045688, 0.0054664, &
0.0064883, 0.0076402, 0.0089277/
data ((cah(i,j),i=1,43),j= 23, 23)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000025, 0.0000035, 0.0000050, 0.0000070, &
0.0000098, 0.0000138, 0.0000194, 0.0000272, 0.0000380, &
0.0000528, 0.0000729, 0.0000999, 0.0001357, 0.0001825, &
0.0002425, 0.0003185, 0.0004137, 0.0005316, 0.0006769, &
0.0008548, 0.0010722, 0.0013373, 0.0016599, 0.0020504, &
0.0025201, 0.0030799, 0.0037398, 0.0045087, 0.0053938, &
0.0064013, 0.0075366, 0.0088053/
data ((cah(i,j),i=1,43),j= 24, 24)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, &
0.0000017, 0.0000025, 0.0000035, 0.0000049, 0.0000069, &
0.0000097, 0.0000137, 0.0000192, 0.0000268, 0.0000375, &
0.0000520, 0.0000719, 0.0000986, 0.0001339, 0.0001800, &
0.0002392, 0.0003142, 0.0004079, 0.0005242, 0.0006673, &
0.0008426, 0.0010567, 0.0013177, 0.0016352, 0.0020196, &
0.0024820, 0.0030330, 0.0036825, 0.0044391, 0.0053098, &
0.0063007, 0.0074172, 0.0084815/
data ((cah(i,j),i=1,43),j= 25, 25)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, &
0.0000017, 0.0000024, 0.0000034, 0.0000048, 0.0000068, &
0.0000096, 0.0000134, 0.0000189, 0.0000264, 0.0000369, &
0.0000512, 0.0000708, 0.0000970, 0.0001318, 0.0001772, &
0.0002354, 0.0003091, 0.0004013, 0.0005156, 0.0006562, &
0.0008284, 0.0010386, 0.0012949, 0.0016066, 0.0019840, &
0.0024379, 0.0029788, 0.0036164, 0.0043590, 0.0052135, &
0.0061857, 0.0072808, 0.0085042/
data ((cah(i,j),i=1,43),j= 26, 26)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, &
0.0000017, 0.0000024, 0.0000034, 0.0000047, 0.0000067, &
0.0000094, 0.0000132, 0.0000185, 0.0000259, 0.0000362, &
0.0000503, 0.0000695, 0.0000952, 0.0001294, 0.0001739, &
0.0002310, 0.0003033, 0.0003937, 0.0005057, 0.0006435, &
0.0008121, 0.0010180, 0.0012688, 0.0015739, 0.0019434, &
0.0023877, 0.0029172, 0.0035413, 0.0042681, 0.0051043, &
0.0060554, 0.0071267, 0.0083234/
data ((cah(i,j),i=1,43),j= 27, 27)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, &
0.0000016, 0.0000023, 0.0000033, 0.0000046, 0.0000065, &
0.0000092, 0.0000129, 0.0000181, 0.0000254, 0.0000355, &
0.0000493, 0.0000680, 0.0000933, 0.0001267, 0.0001702, &
0.0002261, 0.0002968, 0.0003852, 0.0004946, 0.0006291, &
0.0007937, 0.0009946, 0.0012394, 0.0015370, 0.0018975, &
0.0023310, 0.0028478, 0.0034568, 0.0041660, 0.0049818, &
0.0059096, 0.0069544, 0.0081215/
data ((cah(i,j),i=1,43),j= 28, 28)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, &
0.0000016, 0.0000023, 0.0000032, 0.0000045, 0.0000064, &
0.0000090, 0.0000126, 0.0000177, 0.0000248, 0.0000346, &
0.0000481, 0.0000664, 0.0000910, 0.0001236, 0.0001661, &
0.0002206, 0.0002895, 0.0003755, 0.0004821, 0.0006130, &
0.0007731, 0.0009685, 0.0012065, 0.0014959, 0.0018463, &
0.0022680, 0.0027705, 0.0033629, 0.0040526, 0.0048459, &
0.0057480, 0.0067639, 0.0078987/
data ((cah(i,j),i=1,43),j= 29, 29)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, &
0.0000016, 0.0000022, 0.0000031, 0.0000044, 0.0000062, &
0.0000087, 0.0000123, 0.0000173, 0.0000242, 0.0000330, &
0.0000468, 0.0000646, 0.0000886, 0.0001203, 0.0001616, &
0.0002145, 0.0002814, 0.0003649, 0.0004682, 0.0005951, &
0.0007503, 0.0009396, 0.0011701, 0.0014505, 0.0017900, &
0.0021986, 0.0026857, 0.0032598, 0.0039283, 0.0046971, &
0.0055713, 0.0065558, 0.0076557/
data ((cah(i,j),i=1,43),j= 30, 30)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000005, 0.0000008, 0.0000011, &
0.0000015, 0.0000021, 0.0000030, 0.0000043, 0.0000060, &
0.0000085, 0.0000119, 0.0000167, 0.0000234, 0.0000327, &
0.0000454, 0.0000627, 0.0000859, 0.0001166, 0.0001566, &
0.0002078, 0.0002724, 0.0003531, 0.0004529, 0.0005755, &
0.0007253, 0.0009079, 0.0011304, 0.0014010, 0.0017287, &
0.0021232, 0.0025935, 0.0031480, 0.0037936, 0.0045361, &
0.0053805, 0.0063314, 0.0073941/
data ((cah(i,j),i=1,43),j= 31, 31)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, &
0.0000015, 0.0000021, 0.0000029, 0.0000041, 0.0000058, &
0.0000082, 0.0000115, 0.0000162, 0.0000226, 0.0000316, &
0.0000438, 0.0000605, 0.0000829, 0.0001125, 0.0001510, &
0.0002004, 0.0002626, 0.0003402, 0.0004362, 0.0005540, &
0.0006980, 0.0008736, 0.0010874, 0.0013476, 0.0016627, &
0.0020421, 0.0024947, 0.0030283, 0.0036497, 0.0043644, &
0.0051772, 0.0060928, 0.0071164/
data ((cah(i,j),i=1,43),j= 32, 32)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, &
0.0000014, 0.0000020, 0.0000028, 0.0000040, 0.0000056, &
0.0000079, 0.0000111, 0.0000155, 0.0000218, 0.0000303, &
0.0000421, 0.0000582, 0.0000797, 0.0001081, 0.0001450, &
0.0001923, 0.0002519, 0.0003262, 0.0004180, 0.0005308, &
0.0006686, 0.0008367, 0.0010414, 0.0012905, 0.0015925, &
0.0019561, 0.0023900, 0.0029017, 0.0034978, 0.0041836, &
0.0049638, 0.0058430, 0.0068264/
data ((cah(i,j),i=1,43),j= 33, 33)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000002, 0.0000003, 0.0000005, 0.0000007, 0.0000010, &
0.0000014, 0.0000019, 0.0000027, 0.0000038, 0.0000053, &
0.0000075, 0.0000106, 0.0000149, 0.0000208, 0.0000290, &
0.0000403, 0.0000556, 0.0000761, 0.0001032, 0.0001384, &
0.0001834, 0.0002402, 0.0003110, 0.0003985, 0.0005059, &
0.0006372, 0.0007974, 0.0009926, 0.0012302, 0.0015185, &
0.0018657, 0.0022803, 0.0027696, 0.0033398, 0.0039960, &
0.0047430, 0.0055851, 0.0065278/
data ((cah(i,j),i=1,43),j= 34, 34)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000002, 0.0000003, 0.0000005, 0.0000006, 0.0000009, &
0.0000013, 0.0000018, 0.0000026, 0.0000036, 0.0000051, &
0.0000071, 0.0000100, 0.0000141, 0.0000197, 0.0000275, &
0.0000382, 0.0000527, 0.0000722, 0.0000979, 0.0001312, &
0.0001739, 0.0002277, 0.0002947, 0.0003775, 0.0004793, &
0.0006038, 0.0007558, 0.0009412, 0.0011671, 0.0014412, &
0.0017717, 0.0021208, 0.0026329, 0.0031768, 0.0038033, &
0.0045168, 0.0053220, 0.0062240/
data ((cah(i,j),i=1,43),j= 35, 35)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000009, &
0.0000012, 0.0000017, 0.0000024, 0.0000034, 0.0000048, &
0.0000067, 0.0000095, 0.0000133, 0.0000186, 0.0000259, &
0.0000360, 0.0000496, 0.0000679, 0.0000921, 0.0001235, &
0.0001637, 0.0002143, 0.0002773, 0.0003554, 0.0004513, &
0.0005688, 0.0007124, 0.0008876, 0.0011014, 0.0013610, &
0.0016745, 0.0020493, 0.0024925, 0.0030099, 0.0036066, &
0.0042868, 0.0050553, 0.0059171/
data ((cah(i,j),i=1,43),j= 36, 36)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000001, &
0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000008, &
0.0000011, 0.0000016, 0.0000022, 0.0000032, 0.0000045, &
0.0000063, 0.0000088, 0.0000124, 0.0000173, 0.0000242, &
0.0000336, 0.0000463, 0.0000634, 0.0000860, 0.0001153, &
0.0001528, 0.0002001, 0.0002591, 0.0003322, 0.0004221, &
0.0005323, 0.0006672, 0.0008322, 0.0010335, 0.0012785, &
0.0015746, 0.0019293, 0.0023491, 0.0028399, 0.0034067, &
0.0040539, 0.0047860, 0.0056083/
data ((cah(i,j),i=1,43),j= 37, 37)/ &
0.0000000, 0.0000000, 0.0000001, 0.0000001, 0.0000001, &
0.0000002, 0.0000003, 0.0000004, 0.0000005, 0.0000007, &
0.0000010, 0.0000015, 0.0000021, 0.0000029, 0.0000041, &
0.0000058, 0.0000082, 0.0000114, 0.0000160, 0.0000223, &
0.0000310, 0.0000428, 0.0000586, 0.0000795, 0.0001067, &
0.0001414, 0.0001853, 0.0002401, 0.0003081, 0.0003918, &
0.0004947, 0.0006208, 0.0007751, 0.0009639, 0.0011940, &
0.0014726, 0.0018069, 0.0022032, 0.0026674, 0.0032043, &
0.0038186, 0.0045147, 0.0052979/
data ((coa(i,j),i=1,62),j= 1, 1)/ &
0.0000080, 0.0000089, 0.0000098, 0.0000106, 0.0000114, &
0.0000121, 0.0000128, 0.0000134, 0.0000140, 0.0000146, &
0.0000152, 0.0000158, 0.0000163, 0.0000168, 0.0000173, &
0.0000178, 0.0000182, 0.0000186, 0.0000191, 0.0000195, &
0.0000199, 0.0000202, 0.0000206, 0.0000210, 0.0000213, &
0.0000217, 0.0000220, 0.0000223, 0.0000226, 0.0000229, &
0.0000232, 0.0000235, 0.0000238, 0.0000241, 0.0000244, &
0.0000246, 0.0000249, 0.0000252, 0.0000254, 0.0000257, &
0.0000259, 0.0000261, 0.0000264, 0.0000266, 0.0000268, &
0.0000271, 0.0000273, 0.0000275, 0.0000277, 0.0000279, &
0.0000281, 0.0000283, 0.0000285, 0.0000287, 0.0000289, &
0.0000291, 0.0000293, 0.0000295, 0.0000297, 0.0000298, &
0.0000300, 0.0000302/
data ((coa(i,j),i=1,62),j= 2, 2)/ &
0.0000085, 0.0000095, 0.0000104, 0.0000113, 0.0000121, &
0.0000128, 0.0000136, 0.0000143, 0.0000149, 0.0000155, &
0.0000161, 0.0000167, 0.0000172, 0.0000178, 0.0000183, &
0.0000187, 0.0000192, 0.0000196, 0.0000201, 0.0000205, &
0.0000209, 0.0000213, 0.0000217, 0.0000220, 0.0000224, &
0.0000227, 0.0000231, 0.0000234, 0.0000237, 0.0000240, &
0.0000243, 0.0000246, 0.0000249, 0.0000252, 0.0000255, &
0.0000258, 0.0000260, 0.0000263, 0.0000266, 0.0000268, &
0.0000271, 0.0000273, 0.0000275, 0.0000278, 0.0000280, &
0.0000282, 0.0000285, 0.0000287, 0.0000289, 0.0000291, &
0.0000293, 0.0000295, 0.0000297, 0.0000299, 0.0000301, &
0.0000303, 0.0000305, 0.0000307, 0.0000309, 0.0000311, &
0.0000313, 0.0000314/
data ((coa(i,j),i=1,62),j= 3, 3)/ &
0.0000095, 0.0000106, 0.0000116, 0.0000125, 0.0000134, &
0.0000143, 0.0000150, 0.0000158, 0.0000165, 0.0000171, &
0.0000178, 0.0000184, 0.0000189, 0.0000195, 0.0000200, &
0.0000205, 0.0000210, 0.0000215, 0.0000219, 0.0000223, &
0.0000228, 0.0000232, 0.0000235, 0.0000239, 0.0000243, &
0.0000247, 0.0000250, 0.0000253, 0.0000257, 0.0000260, &
0.0000263, 0.0000266, 0.0000269, 0.0000272, 0.0000275, &
0.0000278, 0.0000281, 0.0000283, 0.0000286, 0.0000289, &
0.0000291, 0.0000294, 0.0000296, 0.0000299, 0.0000301, &
0.0000303, 0.0000306, 0.0000308, 0.0000310, 0.0000312, &
0.0000315, 0.0000317, 0.0000319, 0.0000321, 0.0000323, &
0.0000325, 0.0000327, 0.0000329, 0.0000331, 0.0000333, &
0.0000335, 0.0000329/
data ((coa(i,j),i=1,62),j= 4, 4)/ &
0.0000100, 0.0000111, 0.0000122, 0.0000131, 0.0000141, &
0.0000149, 0.0000157, 0.0000165, 0.0000172, 0.0000179, &
0.0000185, 0.0000191, 0.0000197, 0.0000203, 0.0000208, &
0.0000213, 0.0000218, 0.0000223, 0.0000227, 0.0000232, &
0.0000236, 0.0000240, 0.0000244, 0.0000248, 0.0000252, &
0.0000255, 0.0000259, 0.0000262, 0.0000266, 0.0000269, &
0.0000272, 0.0000275, 0.0000278, 0.0000281, 0.0000284, &
0.0000287, 0.0000290, 0.0000293, 0.0000295, 0.0000298, &
0.0000300, 0.0000303, 0.0000306, 0.0000308, 0.0000310, &
0.0000313, 0.0000315, 0.0000317, 0.0000320, 0.0000322, &
0.0000324, 0.0000326, 0.0000328, 0.0000331, 0.0000333, &
0.0000335, 0.0000330, 0.0000339, 0.0000341, 0.0000343, &
0.0000345, 0.0000346/
data ((coa(i,j),i=1,62),j= 5, 5)/ &
0.0000109, 0.0000121, 0.0000132, 0.0000143, 0.0000152, &
0.0000161, 0.0000170, 0.0000178, 0.0000185, 0.0000192, &
0.0000199, 0.0000205, 0.0000211, 0.0000217, 0.0000222, &
0.0000228, 0.0000233, 0.0000238, 0.0000242, 0.0000247, &
0.0000251, 0.0000255, 0.0000259, 0.0000263, 0.0000267, &
0.0000271, 0.0000275, 0.0000278, 0.0000282, 0.0000285, &
0.0000288, 0.0000291, 0.0000295, 0.0000298, 0.0000301, &
0.0000304, 0.0000307, 0.0000309, 0.0000312, 0.0000315, &
0.0000318, 0.0000320, 0.0000323, 0.0000325, 0.0000328, &
0.0000330, 0.0000333, 0.0000335, 0.0000330, 0.0000340, &
0.0000342, 0.0000344, 0.0000346, 0.0000348, 0.0000351, &
0.0000353, 0.0000355, 0.0000357, 0.0000359, 0.0000361, &
0.0000363, 0.0000365/
data ((coa(i,j),i=1,62),j= 6, 6)/ &
0.0000117, 0.0000130, 0.0000142, 0.0000153, 0.0000163, &
0.0000173, 0.0000181, 0.0000190, 0.0000197, 0.0000204, &
0.0000211, 0.0000218, 0.0000224, 0.0000230, 0.0000235, &
0.0000241, 0.0000246, 0.0000251, 0.0000256, 0.0000260, &
0.0000265, 0.0000269, 0.0000273, 0.0000277, 0.0000281, &
0.0000285, 0.0000289, 0.0000293, 0.0000296, 0.0000299, &
0.0000303, 0.0000306, 0.0000309, 0.0000313, 0.0000316, &
0.0000319, 0.0000322, 0.0000324, 0.0000327, 0.0000330, &
0.0000333, 0.0000336, 0.0000331, 0.0000341, 0.0000343, &
0.0000346, 0.0000348, 0.0000351, 0.0000353, 0.0000355, &
0.0000358, 0.0000360, 0.0000362, 0.0000365, 0.0000367, &
0.0000369, 0.0000371, 0.0000373, 0.0000375, 0.0000377, &
0.0000379, 0.0000381/
data ((coa(i,j),i=1,62),j= 7, 7)/ &
0.0000125, 0.0000139, 0.0000151, 0.0000163, 0.0000173, &
0.0000183, 0.0000192, 0.0000200, 0.0000208, 0.0000216, &
0.0000223, 0.0000229, 0.0000236, 0.0000242, 0.0000247, &
0.0000253, 0.0000258, 0.0000263, 0.0000268, 0.0000273, &
0.0000277, 0.0000282, 0.0000286, 0.0000290, 0.0000294, &
0.0000298, 0.0000302, 0.0000306, 0.0000309, 0.0000313, &
0.0000316, 0.0000320, 0.0000323, 0.0000326, 0.0000329, &
0.0000332, 0.0000335, 0.0000331, 0.0000341, 0.0000344, &
0.0000347, 0.0000350, 0.0000352, 0.0000355, 0.0000358, &
0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000370, &
0.0000372, 0.0000375, 0.0000377, 0.0000379, 0.0000382, &
0.0000384, 0.0000386, 0.0000388, 0.0000390, 0.0000392, &
0.0000394, 0.0000396/
data ((coa(i,j),i=1,62),j= 8, 8)/ &
0.0000132, 0.0000147, 0.0000160, 0.0000172, 0.0000183, &
0.0000193, 0.0000202, 0.0000210, 0.0000218, 0.0000226, &
0.0000233, 0.0000240, 0.0000246, 0.0000252, 0.0000258, &
0.0000264, 0.0000269, 0.0000274, 0.0000279, 0.0000284, &
0.0000289, 0.0000293, 0.0000298, 0.0000302, 0.0000306, &
0.0000310, 0.0000314, 0.0000318, 0.0000321, 0.0000325, &
0.0000328, 0.0000332, 0.0000335, 0.0000331, 0.0000342, &
0.0000345, 0.0000348, 0.0000351, 0.0000354, 0.0000357, &
0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000371, &
0.0000373, 0.0000376, 0.0000378, 0.0000381, 0.0000383, &
0.0000386, 0.0000388, 0.0000391, 0.0000393, 0.0000395, &
0.0000397, 0.0000400, 0.0000402, 0.0000404, 0.0000406, &
0.0000408, 0.0000411/
data ((coa(i,j),i=1,62),j= 9, 9)/ &
0.0000143, 0.0000158, 0.0000172, 0.0000184, 0.0000195, &
0.0000206, 0.0000215, 0.0000224, 0.0000232, 0.0000240, &
0.0000247, 0.0000254, 0.0000261, 0.0000267, 0.0000273, &
0.0000279, 0.0000284, 0.0000290, 0.0000295, 0.0000300, &
0.0000305, 0.0000309, 0.0000314, 0.0000318, 0.0000322, &
0.0000326, 0.0000330, 0.0000334, 0.0000331, 0.0000342, &
0.0000345, 0.0000349, 0.0000352, 0.0000356, 0.0000359, &
0.0000362, 0.0000365, 0.0000368, 0.0000371, 0.0000374, &
0.0000377, 0.0000380, 0.0000383, 0.0000386, 0.0000389, &
0.0000391, 0.0000394, 0.0000397, 0.0000399, 0.0000402, &
0.0000404, 0.0000407, 0.0000409, 0.0000412, 0.0000414, &
0.0000416, 0.0000419, 0.0000421, 0.0000423, 0.0000426, &
0.0000428, 0.0000430/
data ((coa(i,j),i=1,62),j= 10, 10)/ &
0.0000153, 0.0000169, 0.0000183, 0.0000196, 0.0000207, &
0.0000218, 0.0000227, 0.0000236, 0.0000245, 0.0000253, &
0.0000260, 0.0000267, 0.0000274, 0.0000281, 0.0000287, &
0.0000293, 0.0000298, 0.0000304, 0.0000309, 0.0000314, &
0.0000319, 0.0000324, 0.0000328, 0.0000333, 0.0000330, &
0.0000341, 0.0000345, 0.0000349, 0.0000353, 0.0000357, &
0.0000361, 0.0000364, 0.0000368, 0.0000371, 0.0000375, &
0.0000378, 0.0000381, 0.0000384, 0.0000387, 0.0000391, &
0.0000394, 0.0000397, 0.0000399, 0.0000402, 0.0000405, &
0.0000408, 0.0000411, 0.0000413, 0.0000416, 0.0000419, &
0.0000421, 0.0000424, 0.0000426, 0.0000429, 0.0000431, &
0.0000434, 0.0000436, 0.0000439, 0.0000441, 0.0000443, &
0.0000446, 0.0000448/
data ((coa(i,j),i=1,62),j= 11, 11)/ &
0.0000165, 0.0000182, 0.0000196, 0.0000209, 0.0000221, &
0.0000232, 0.0000242, 0.0000251, 0.0000260, 0.0000268, &
0.0000276, 0.0000283, 0.0000290, 0.0000297, 0.0000303, &
0.0000309, 0.0000315, 0.0000321, 0.0000326, 0.0000331, &
0.0000336, 0.0000341, 0.0000346, 0.0000350, 0.0000355, &
0.0000359, 0.0000363, 0.0000367, 0.0000371, 0.0000375, &
0.0000379, 0.0000383, 0.0000386, 0.0000390, 0.0000394, &
0.0000397, 0.0000400, 0.0000404, 0.0000407, 0.0000410, &
0.0000413, 0.0000416, 0.0000419, 0.0000422, 0.0000425, &
0.0000428, 0.0000431, 0.0000434, 0.0000437, 0.0000439, &
0.0000442, 0.0000445, 0.0000447, 0.0000450, 0.0000453, &
0.0000455, 0.0000458, 0.0000460, 0.0000463, 0.0000465, &
0.0000468, 0.0000470/
data ((coa(i,j),i=1,62),j= 12, 12)/ &
0.0000173, 0.0000190, 0.0000205, 0.0000219, 0.0000231, &
0.0000242, 0.0000252, 0.0000262, 0.0000271, 0.0000279, &
0.0000287, 0.0000294, 0.0000301, 0.0000308, 0.0000314, &
0.0000320, 0.0000326, 0.0000332, 0.0000330, 0.0000343, &
0.0000348, 0.0000353, 0.0000358, 0.0000362, 0.0000367, &
0.0000371, 0.0000376, 0.0000380, 0.0000384, 0.0000388, &
0.0000392, 0.0000396, 0.0000399, 0.0000403, 0.0000407, &
0.0000410, 0.0000414, 0.0000417, 0.0000420, 0.0000424, &
0.0000427, 0.0000430, 0.0000433, 0.0000436, 0.0000439, &
0.0000442, 0.0000445, 0.0000448, 0.0000451, 0.0000454, &
0.0000457, 0.0000459, 0.0000462, 0.0000465, 0.0000468, &
0.0000470, 0.0000473, 0.0000475, 0.0000478, 0.0000481, &
0.0000483, 0.0000486/
data ((coa(i,j),i=1,62),j= 13, 13)/ &
0.0000186, 0.0000204, 0.0000219, 0.0000233, 0.0000246, &
0.0000257, 0.0000268, 0.0000277, 0.0000286, 0.0000295, &
0.0000303, 0.0000311, 0.0000318, 0.0000325, 0.0000331, &
0.0000331, 0.0000344, 0.0000350, 0.0000355, 0.0000361, &
0.0000366, 0.0000371, 0.0000376, 0.0000381, 0.0000386, &
0.0000390, 0.0000395, 0.0000399, 0.0000403, 0.0000407, &
0.0000412, 0.0000416, 0.0000419, 0.0000423, 0.0000427, &
0.0000431, 0.0000434, 0.0000438, 0.0000441, 0.0000445, &
0.0000448, 0.0000451, 0.0000455, 0.0000458, 0.0000461, &
0.0000464, 0.0000467, 0.0000470, 0.0000473, 0.0000476, &
0.0000479, 0.0000482, 0.0000485, 0.0000488, 0.0000491, &
0.0000494, 0.0000497, 0.0000499, 0.0000502, 0.0000505, &
0.0000507, 0.0000510/
data ((coa(i,j),i=1,62),j= 14, 14)/ &
0.0000198, 0.0000216, 0.0000232, 0.0000246, 0.0000259, &
0.0000271, 0.0000281, 0.0000291, 0.0000301, 0.0000310, &
0.0000318, 0.0000326, 0.0000333, 0.0000340, 0.0000347, &
0.0000354, 0.0000360, 0.0000366, 0.0000372, 0.0000377, &
0.0000383, 0.0000388, 0.0000393, 0.0000398, 0.0000403, &
0.0000408, 0.0000412, 0.0000417, 0.0000421, 0.0000425, &
0.0000430, 0.0000434, 0.0000438, 0.0000442, 0.0000446, &
0.0000449, 0.0000453, 0.0000457, 0.0000461, 0.0000464, &
0.0000468, 0.0000471, 0.0000475, 0.0000478, 0.0000481, &
0.0000485, 0.0000488, 0.0000491, 0.0000494, 0.0000498, &
0.0000501, 0.0000504, 0.0000507, 0.0000510, 0.0000513, &
0.0000516, 0.0000519, 0.0000522, 0.0000524, 0.0000527, &
0.0000530, 0.0000533/
data ((coa(i,j),i=1,62),j= 15, 15)/ &
0.0000209, 0.0000228, 0.0000244, 0.0000258, 0.0000271, &
0.0000283, 0.0000294, 0.0000305, 0.0000314, 0.0000323, &
0.0000332, 0.0000340, 0.0000347, 0.0000354, 0.0000361, &
0.0000368, 0.0000375, 0.0000381, 0.0000387, 0.0000392, &
0.0000398, 0.0000404, 0.0000409, 0.0000414, 0.0000419, &
0.0000424, 0.0000429, 0.0000433, 0.0000438, 0.0000442, &
0.0000447, 0.0000451, 0.0000455, 0.0000459, 0.0000463, &
0.0000467, 0.0000471, 0.0000475, 0.0000479, 0.0000483, &
0.0000486, 0.0000490, 0.0000493, 0.0000497, 0.0000501, &
0.0000504, 0.0000507, 0.0000511, 0.0000514, 0.0000518, &
0.0000521, 0.0000524, 0.0000527, 0.0000530, 0.0000534, &
0.0000537, 0.0000540, 0.0000543, 0.0000546, 0.0000549, &
0.0000552, 0.0000555/
data ((coa(i,j),i=1,62),j= 16, 16)/ &
0.0000221, 0.0000240, 0.0000257, 0.0000272, 0.0000285, &
0.0000297, 0.0000308, 0.0000319, 0.0000329, 0.0000331, &
0.0000347, 0.0000355, 0.0000363, 0.0000370, 0.0000377, &
0.0000384, 0.0000391, 0.0000397, 0.0000404, 0.0000409, &
0.0000415, 0.0000421, 0.0000426, 0.0000432, 0.0000437, &
0.0000442, 0.0000447, 0.0000452, 0.0000456, 0.0000461, &
0.0000466, 0.0000470, 0.0000475, 0.0000479, 0.0000483, &
0.0000487, 0.0000491, 0.0000496, 0.0000500, 0.0000503, &
0.0000507, 0.0000511, 0.0000515, 0.0000519, 0.0000523, &
0.0000526, 0.0000530, 0.0000533, 0.0000537, 0.0000540, &
0.0000544, 0.0000547, 0.0000551, 0.0000554, 0.0000558, &
0.0000561, 0.0000564, 0.0000567, 0.0000571, 0.0000574, &
0.0000577, 0.0000580/
data ((coa(i,j),i=1,62),j= 17, 17)/ &
0.0000234, 0.0000254, 0.0000271, 0.0000286, 0.0000300, &
0.0000312, 0.0000324, 0.0000335, 0.0000345, 0.0000354, &
0.0000363, 0.0000372, 0.0000380, 0.0000387, 0.0000395, &
0.0000402, 0.0000409, 0.0000415, 0.0000422, 0.0000428, &
0.0000434, 0.0000440, 0.0000446, 0.0000451, 0.0000457, &
0.0000462, 0.0000467, 0.0000472, 0.0000477, 0.0000482, &
0.0000487, 0.0000492, 0.0000496, 0.0000501, 0.0000505, &
0.0000510, 0.0000514, 0.0000518, 0.0000523, 0.0000527, &
0.0000531, 0.0000535, 0.0000539, 0.0000543, 0.0000547, &
0.0000551, 0.0000555, 0.0000559, 0.0000562, 0.0000566, &
0.0000570, 0.0000573, 0.0000577, 0.0000581, 0.0000584, &
0.0000588, 0.0000591, 0.0000595, 0.0000598, 0.0000602, &
0.0000605, 0.0000608/
data ((coa(i,j),i=1,62),j= 18, 18)/ &
0.0000248, 0.0000268, 0.0000285, 0.0000301, 0.0000315, &
0.0000328, 0.0000340, 0.0000351, 0.0000362, 0.0000371, &
0.0000381, 0.0000389, 0.0000398, 0.0000406, 0.0000413, &
0.0000421, 0.0000428, 0.0000435, 0.0000442, 0.0000448, &
0.0000454, 0.0000460, 0.0000466, 0.0000472, 0.0000478, &
0.0000484, 0.0000489, 0.0000494, 0.0000500, 0.0000505, &
0.0000510, 0.0000515, 0.0000520, 0.0000525, 0.0000530, &
0.0000534, 0.0000539, 0.0000544, 0.0000548, 0.0000553, &
0.0000557, 0.0000561, 0.0000566, 0.0000570, 0.0000574, &
0.0000578, 0.0000582, 0.0000586, 0.0000590, 0.0000594, &
0.0000598, 0.0000602, 0.0000606, 0.0000610, 0.0000614, &
0.0000618, 0.0000621, 0.0000625, 0.0000629, 0.0000633, &
0.0000636, 0.0000640/
data ((coa(i,j),i=1,62),j= 19, 19)/ &
0.0000260, 0.0000281, 0.0000299, 0.0000315, 0.0000330, &
0.0000343, 0.0000355, 0.0000367, 0.0000377, 0.0000388, &
0.0000397, 0.0000406, 0.0000415, 0.0000423, 0.0000431, &
0.0000439, 0.0000446, 0.0000453, 0.0000460, 0.0000467, &
0.0000474, 0.0000480, 0.0000487, 0.0000493, 0.0000499, &
0.0000505, 0.0000510, 0.0000516, 0.0000522, 0.0000527, &
0.0000533, 0.0000538, 0.0000543, 0.0000548, 0.0000553, &
0.0000558, 0.0000563, 0.0000568, 0.0000573, 0.0000578, &
0.0000582, 0.0000587, 0.0000591, 0.0000596, 0.0000601, &
0.0000605, 0.0000609, 0.0000614, 0.0000618, 0.0000622, &
0.0000626, 0.0000631, 0.0000635, 0.0000639, 0.0000643, &
0.0000647, 0.0000651, 0.0000655, 0.0000659, 0.0000663, &
0.0000667, 0.0000670/
data ((coa(i,j),i=1,62),j= 20, 20)/ &
0.0000275, 0.0000296, 0.0000315, 0.0000332, 0.0000347, &
0.0000360, 0.0000373, 0.0000385, 0.0000396, 0.0000407, &
0.0000417, 0.0000426, 0.0000435, 0.0000444, 0.0000452, &
0.0000460, 0.0000468, 0.0000476, 0.0000483, 0.0000490, &
0.0000497, 0.0000504, 0.0000511, 0.0000517, 0.0000524, &
0.0000530, 0.0000536, 0.0000542, 0.0000548, 0.0000554, &
0.0000560, 0.0000566, 0.0000571, 0.0000577, 0.0000582, &
0.0000587, 0.0000593, 0.0000598, 0.0000603, 0.0000608, &
0.0000613, 0.0000618, 0.0000623, 0.0000628, 0.0000633, &
0.0000638, 0.0000642, 0.0000647, 0.0000652, 0.0000656, &
0.0000661, 0.0000665, 0.0000670, 0.0000674, 0.0000678, &
0.0000683, 0.0000687, 0.0000691, 0.0000695, 0.0000700, &
0.0000704, 0.0000708/
data ((coa(i,j),i=1,62),j= 21, 21)/ &
0.0000290, 0.0000312, 0.0000331, 0.0000349, 0.0000364, &
0.0000379, 0.0000392, 0.0000404, 0.0000416, 0.0000427, &
0.0000437, 0.0000447, 0.0000457, 0.0000466, 0.0000475, &
0.0000483, 0.0000492, 0.0000500, 0.0000507, 0.0000515, &
0.0000523, 0.0000530, 0.0000537, 0.0000544, 0.0000551, &
0.0000558, 0.0000564, 0.0000571, 0.0000577, 0.0000583, &
0.0000589, 0.0000596, 0.0000602, 0.0000607, 0.0000613, &
0.0000619, 0.0000625, 0.0000630, 0.0000636, 0.0000641, &
0.0000647, 0.0000652, 0.0000657, 0.0000663, 0.0000668, &
0.0000673, 0.0000678, 0.0000683, 0.0000688, 0.0000693, &
0.0000698, 0.0000702, 0.0000707, 0.0000712, 0.0000716, &
0.0000721, 0.0000726, 0.0000730, 0.0000735, 0.0000739, &
0.0000744, 0.0000748/
data ((coa(i,j),i=1,62),j= 22, 22)/ &
0.0000306, 0.0000329, 0.0000349, 0.0000366, 0.0000383, &
0.0000398, 0.0000411, 0.0000424, 0.0000436, 0.0000448, &
0.0000459, 0.0000469, 0.0000479, 0.0000489, 0.0000499, &
0.0000508, 0.0000516, 0.0000525, 0.0000533, 0.0000542, &
0.0000549, 0.0000557, 0.0000565, 0.0000572, 0.0000580, &
0.0000587, 0.0000594, 0.0000601, 0.0000608, 0.0000615, &
0.0000621, 0.0000628, 0.0000634, 0.0000640, 0.0000647, &
0.0000653, 0.0000659, 0.0000665, 0.0000671, 0.0000677, &
0.0000683, 0.0000688, 0.0000694, 0.0000700, 0.0000705, &
0.0000711, 0.0000716, 0.0000721, 0.0000727, 0.0000732, &
0.0000737, 0.0000742, 0.0000747, 0.0000752, 0.0000757, &
0.0000762, 0.0000767, 0.0000772, 0.0000777, 0.0000782, &
0.0000786, 0.0000791/
data ((coa(i,j),i=1,62),j= 23, 23)/ &
0.0000323, 0.0000347, 0.0000368, 0.0000386, 0.0000403, &
0.0000419, 0.0000433, 0.0000447, 0.0000459, 0.0000472, &
0.0000483, 0.0000494, 0.0000505, 0.0000516, 0.0000526, &
0.0000535, 0.0000545, 0.0000554, 0.0000563, 0.0000572, &
0.0000580, 0.0000589, 0.0000597, 0.0000605, 0.0000613, &
0.0000621, 0.0000628, 0.0000636, 0.0000643, 0.0000650, &
0.0000657, 0.0000664, 0.0000671, 0.0000678, 0.0000685, &
0.0000692, 0.0000698, 0.0000705, 0.0000711, 0.0000717, &
0.0000724, 0.0000730, 0.0000736, 0.0000742, 0.0000748, &
0.0000754, 0.0000760, 0.0000765, 0.0000771, 0.0000777, &
0.0000782, 0.0000788, 0.0000793, 0.0000799, 0.0000804, &
0.0000809, 0.0000815, 0.0000820, 0.0000825, 0.0000830, &
0.0000835, 0.0000840/
data ((coa(i,j),i=1,62),j= 24, 24)/ &
0.0000341, 0.0000365, 0.0000387, 0.0000406, 0.0000424, &
0.0000440, 0.0000456, 0.0000470, 0.0000483, 0.0000496, &
0.0000509, 0.0000521, 0.0000532, 0.0000543, 0.0000554, &
0.0000564, 0.0000574, 0.0000584, 0.0000594, 0.0000603, &
0.0000613, 0.0000622, 0.0000630, 0.0000639, 0.0000648, &
0.0000656, 0.0000664, 0.0000672, 0.0000680, 0.0000688, &
0.0000696, 0.0000703, 0.0000711, 0.0000718, 0.0000725, &
0.0000732, 0.0000739, 0.0000746, 0.0000753, 0.0000760, &
0.0000767, 0.0000773, 0.0000780, 0.0000786, 0.0000793, &
0.0000799, 0.0000805, 0.0000811, 0.0000817, 0.0000823, &
0.0000829, 0.0000835, 0.0000841, 0.0000847, 0.0000853, &
0.0000858, 0.0000864, 0.0000870, 0.0000875, 0.0000881, &
0.0000886, 0.0000892/
data ((coa(i,j),i=1,62),j= 25, 25)/ &
0.0000359, 0.0000385, 0.0000408, 0.0000428, 0.0000447, &
0.0000464, 0.0000480, 0.0000495, 0.0000510, 0.0000524, &
0.0000537, 0.0000550, 0.0000562, 0.0000574, 0.0000585, &
0.0000597, 0.0000608, 0.0000618, 0.0000629, 0.0000639, &
0.0000649, 0.0000658, 0.0000668, 0.0000677, 0.0000686, &
0.0000695, 0.0000704, 0.0000713, 0.0000721, 0.0000730, &
0.0000738, 0.0000746, 0.0000754, 0.0000762, 0.0000770, &
0.0000777, 0.0000785, 0.0000792, 0.0000800, 0.0000807, &
0.0000814, 0.0000821, 0.0000828, 0.0000835, 0.0000842, &
0.0000849, 0.0000856, 0.0000862, 0.0000869, 0.0000875, &
0.0000882, 0.0000888, 0.0000894, 0.0000900, 0.0000907, &
0.0000913, 0.0000919, 0.0000925, 0.0000931, 0.0000936, &
0.0000942, 0.0000948/
data ((coa(i,j),i=1,62),j= 26, 26)/ &
0.0000380, 0.0000407, 0.0000431, 0.0000453, 0.0000473, &
0.0000491, 0.0000508, 0.0000525, 0.0000540, 0.0000555, &
0.0000569, 0.0000583, 0.0000596, 0.0000609, 0.0000622, &
0.0000634, 0.0000646, 0.0000657, 0.0000668, 0.0000679, &
0.0000690, 0.0000700, 0.0000711, 0.0000721, 0.0000731, &
0.0000740, 0.0000750, 0.0000759, 0.0000769, 0.0000778, &
0.0000786, 0.0000795, 0.0000804, 0.0000812, 0.0000821, &
0.0000829, 0.0000837, 0.0000845, 0.0000853, 0.0000861, &
0.0000869, 0.0000876, 0.0000884, 0.0000891, 0.0000899, &
0.0000906, 0.0000913, 0.0000920, 0.0000927, 0.0000934, &
0.0000941, 0.0000948, 0.0000955, 0.0000961, 0.0000968, &
0.0000974, 0.0000981, 0.0000987, 0.0000994, 0.0001000, &
0.0001006, 0.0001012/
data ((coa(i,j),i=1,62),j= 27, 27)/ &
0.0000403, 0.0000431, 0.0000456, 0.0000479, 0.0000500, &
0.0000520, 0.0000538, 0.0000556, 0.0000573, 0.0000589, &
0.0000604, 0.0000619, 0.0000633, 0.0000647, 0.0000661, &
0.0000674, 0.0000686, 0.0000699, 0.0000711, 0.0000723, &
0.0000734, 0.0000746, 0.0000757, 0.0000768, 0.0000778, &
0.0000789, 0.0000799, 0.0000809, 0.0000819, 0.0000829, &
0.0000838, 0.0000848, 0.0000857, 0.0000866, 0.0000875, &
0.0000884, 0.0000893, 0.0000902, 0.0000910, 0.0000919, &
0.0000927, 0.0000935, 0.0000943, 0.0000951, 0.0000959, &
0.0000967, 0.0000974, 0.0000982, 0.0000990, 0.0000997, &
0.0001004, 0.0001012, 0.0001019, 0.0001026, 0.0001033, &
0.0001040, 0.0001047, 0.0001054, 0.0001061, 0.0001067, &
0.0001074, 0.0001080/
data ((coa(i,j),i=1,62),j= 28, 28)/ &
0.0000426, 0.0000456, 0.0000482, 0.0000507, 0.0000529, &
0.0000550, 0.0000570, 0.0000589, 0.0000607, 0.0000624, &
0.0000641, 0.0000657, 0.0000672, 0.0000687, 0.0000702, &
0.0000716, 0.0000730, 0.0000743, 0.0000756, 0.0000769, &
0.0000781, 0.0000794, 0.0000806, 0.0000817, 0.0000829, &
0.0000840, 0.0000851, 0.0000862, 0.0000873, 0.0000883, &
0.0000893, 0.0000904, 0.0000913, 0.0000923, 0.0000933, &
0.0000943, 0.0000952, 0.0000961, 0.0000970, 0.0000979, &
0.0000988, 0.0000997, 0.0001006, 0.0001014, 0.0001023, &
0.0001031, 0.0001039, 0.0001047, 0.0001055, 0.0001063, &
0.0001071, 0.0001079, 0.0001087, 0.0001094, 0.0001102, &
0.0001109, 0.0001116, 0.0001124, 0.0001131, 0.0001138, &
0.0001145, 0.0001152/
data ((coa(i,j),i=1,62),j= 29, 29)/ &
0.0000451, 0.0000482, 0.0000511, 0.0000537, 0.0000561, &
0.0000584, 0.0000605, 0.0000626, 0.0000645, 0.0000664, &
0.0000682, 0.0000699, 0.0000715, 0.0000732, 0.0000747, &
0.0000763, 0.0000777, 0.0000792, 0.0000806, 0.0000820, &
0.0000833, 0.0000846, 0.0000859, 0.0000872, 0.0000884, &
0.0000896, 0.0000908, 0.0000920, 0.0000931, 0.0000942, &
0.0000953, 0.0000964, 0.0000975, 0.0000986, 0.0000996, &
0.0001006, 0.0001016, 0.0001026, 0.0001036, 0.0001046, &
0.0001055, 0.0001064, 0.0001074, 0.0001083, 0.0001092, &
0.0001101, 0.0001110, 0.0001118, 0.0001127, 0.0001135, &
0.0001144, 0.0001152, 0.0001160, 0.0001168, 0.0001176, &
0.0001184, 0.0001192, 0.0001200, 0.0001207, 0.0001215, &
0.0001222, 0.0001230/
data ((coa(i,j),i=1,62),j= 30, 30)/ &
0.0000478, 0.0000512, 0.0000543, 0.0000571, 0.0000597, &
0.0000621, 0.0000644, 0.0000666, 0.0000687, 0.0000708, &
0.0000727, 0.0000746, 0.0000764, 0.0000781, 0.0000798, &
0.0000814, 0.0000830, 0.0000846, 0.0000861, 0.0000876, &
0.0000891, 0.0000905, 0.0000919, 0.0000932, 0.0000945, &
0.0000958, 0.0000971, 0.0000984, 0.0000996, 0.0001008, &
0.0001020, 0.0001032, 0.0001043, 0.0001055, 0.0001066, &
0.0001077, 0.0001088, 0.0001098, 0.0001109, 0.0001119, &
0.0001129, 0.0001139, 0.0001149, 0.0001159, 0.0001168, &
0.0001178, 0.0001187, 0.0001197, 0.0001206, 0.0001215, &
0.0001224, 0.0001233, 0.0001241, 0.0001250, 0.0001258, &
0.0001267, 0.0001275, 0.0001283, 0.0001292, 0.0001300, &
0.0001308, 0.0001316/
data ((coa(i,j),i=1,62),j= 31, 31)/ &
0.0000508, 0.0000544, 0.0000577, 0.0000607, 0.0000635, &
0.0000661, 0.0000686, 0.0000710, 0.0000733, 0.0000754, &
0.0000775, 0.0000795, 0.0000815, 0.0000834, 0.0000852, &
0.0000870, 0.0000887, 0.0000904, 0.0000920, 0.0000936, &
0.0000952, 0.0000967, 0.0000982, 0.0000996, 0.0001011, &
0.0001025, 0.0001038, 0.0001052, 0.0001065, 0.0001078, &
0.0001091, 0.0001103, 0.0001116, 0.0001128, 0.0001140, &
0.0001151, 0.0001163, 0.0001174, 0.0001186, 0.0001197, &
0.0001207, 0.0001218, 0.0001229, 0.0001239, 0.0001249, &
0.0001260, 0.0001270, 0.0001279, 0.0001289, 0.0001299, &
0.0001308, 0.0001318, 0.0001327, 0.0001336, 0.0001317, &
0.0001325, 0.0001363, 0.0001372, 0.0001380, 0.0001389, &
0.0001397, 0.0001406/
data ((coa(i,j),i=1,62),j= 32, 32)/ &
0.0000540, 0.0000579, 0.0000615, 0.0000647, 0.0000677, &
0.0000706, 0.0000733, 0.0000758, 0.0000783, 0.0000806, &
0.0000829, 0.0000851, 0.0000872, 0.0000892, 0.0000912, &
0.0000931, 0.0000950, 0.0000968, 0.0000985, 0.0001003, &
0.0001020, 0.0001036, 0.0001052, 0.0001068, 0.0001083, &
0.0001098, 0.0001113, 0.0001127, 0.0001142, 0.0001156, &
0.0001169, 0.0001183, 0.0001196, 0.0001209, 0.0001222, &
0.0001234, 0.0001246, 0.0001259, 0.0001270, 0.0001282, &
0.0001294, 0.0001305, 0.0001317, 0.0001328, 0.0001339, &
0.0001321, 0.0001360, 0.0001371, 0.0001381, 0.0001391, &
0.0001401, 0.0001411, 0.0001421, 0.0001431, 0.0001440, &
0.0001450, 0.0001459, 0.0001469, 0.0001478, 0.0001487, &
0.0001496, 0.0001505/
data ((coa(i,j),i=1,62),j= 33, 33)/ &
0.0000575, 0.0000617, 0.0000655, 0.0000690, 0.0000723, &
0.0000754, 0.0000783, 0.0000810, 0.0000837, 0.0000862, &
0.0000887, 0.0000910, 0.0000933, 0.0000955, 0.0000976, &
0.0000997, 0.0001017, 0.0001036, 0.0001055, 0.0001074, &
0.0001092, 0.0001110, 0.0001127, 0.0001144, 0.0001160, &
0.0001176, 0.0001192, 0.0001208, 0.0001223, 0.0001238, &
0.0001252, 0.0001267, 0.0001281, 0.0001295, 0.0001308, &
0.0001322, 0.0001335, 0.0001319, 0.0001360, 0.0001373, &
0.0001385, 0.0001397, 0.0001409, 0.0001421, 0.0001433, &
0.0001444, 0.0001456, 0.0001467, 0.0001478, 0.0001489, &
0.0001499, 0.0001510, 0.0001520, 0.0001531, 0.0001541, &
0.0001551, 0.0001561, 0.0001571, 0.0001581, 0.0001590, &
0.0001600, 0.0001609/
data ((coa(i,j),i=1,62),j= 34, 34)/ &
0.0000613, 0.0000659, 0.0000700, 0.0000738, 0.0000773, &
0.0000806, 0.0000838, 0.0000868, 0.0000896, 0.0000924, &
0.0000950, 0.0000976, 0.0001000, 0.0001024, 0.0001047, &
0.0001069, 0.0001091, 0.0001112, 0.0001132, 0.0001152, &
0.0001172, 0.0001191, 0.0001209, 0.0001227, 0.0001245, &
0.0001262, 0.0001279, 0.0001296, 0.0001312, 0.0001328, &
0.0001344, 0.0001359, 0.0001374, 0.0001389, 0.0001403, &
0.0001417, 0.0001432, 0.0001445, 0.0001459, 0.0001472, &
0.0001485, 0.0001498, 0.0001511, 0.0001524, 0.0001536, &
0.0001548, 0.0001560, 0.0001572, 0.0001584, 0.0001595, &
0.0001607, 0.0001618, 0.0001629, 0.0001640, 0.0001651, &
0.0001661, 0.0001672, 0.0001682, 0.0001693, 0.0001703, &
0.0001713, 0.0001723/
data ((coa(i,j),i=1,62),j= 35, 35)/ &
0.0000654, 0.0000703, 0.0000747, 0.0000789, 0.0000827, &
0.0000863, 0.0000897, 0.0000929, 0.0000960, 0.0000990, &
0.0001018, 0.0001046, 0.0001072, 0.0001098, 0.0001123, &
0.0001147, 0.0001170, 0.0001193, 0.0001214, 0.0001236, &
0.0001257, 0.0001277, 0.0001297, 0.0001316, 0.0001335, &
0.0001325, 0.0001372, 0.0001389, 0.0001407, 0.0001424, &
0.0001440, 0.0001457, 0.0001473, 0.0001488, 0.0001504, &
0.0001519, 0.0001534, 0.0001548, 0.0001563, 0.0001577, &
0.0001591, 0.0001605, 0.0001618, 0.0001631, 0.0001645, &
0.0001658, 0.0001670, 0.0001683, 0.0001695, 0.0001707, &
0.0001720, 0.0001732, 0.0001743, 0.0001755, 0.0001767, &
0.0001778, 0.0001789, 0.0001800, 0.0001811, 0.0001822, &
0.0001833, 0.0001844/
data ((coa(i,j),i=1,62),j= 36, 36)/ &
0.0000699, 0.0000752, 0.0000800, 0.0000844, 0.0000886, &
0.0000925, 0.0000962, 0.0000997, 0.0001030, 0.0001062, &
0.0001093, 0.0001123, 0.0001151, 0.0001179, 0.0001205, &
0.0001231, 0.0001256, 0.0001280, 0.0001304, 0.0001327, &
0.0001321, 0.0001371, 0.0001392, 0.0001413, 0.0001433, &
0.0001453, 0.0001472, 0.0001491, 0.0001509, 0.0001527, &
0.0001545, 0.0001562, 0.0001579, 0.0001596, 0.0001612, &
0.0001629, 0.0001644, 0.0001660, 0.0001675, 0.0001690, &
0.0001705, 0.0001720, 0.0001734, 0.0001749, 0.0001762, &
0.0001776, 0.0001790, 0.0001803, 0.0001817, 0.0001830, &
0.0001842, 0.0001855, 0.0001868, 0.0001880, 0.0001892, &
0.0001905, 0.0001917, 0.0001928, 0.0001940, 0.0001952, &
0.0001963, 0.0001975/
data ((coa(i,j),i=1,62),j= 37, 37)/ &
0.0000748, 0.0000805, 0.0000858, 0.0000906, 0.0000951, &
0.0000993, 0.0001033, 0.0001071, 0.0001107, 0.0001142, &
0.0001175, 0.0001207, 0.0001238, 0.0001267, 0.0001296, &
0.0001323, 0.0001322, 0.0001376, 0.0001401, 0.0001426, &
0.0001450, 0.0001473, 0.0001496, 0.0001518, 0.0001539, &
0.0001560, 0.0001581, 0.0001601, 0.0001620, 0.0001640, &
0.0001659, 0.0001677, 0.0001695, 0.0001713, 0.0001731, &
0.0001748, 0.0001765, 0.0001781, 0.0001798, 0.0001814, &
0.0001830, 0.0001845, 0.0001861, 0.0001876, 0.0001891, &
0.0001905, 0.0001920, 0.0001934, 0.0001948, 0.0001962, &
0.0001976, 0.0001990, 0.0002003, 0.0002017, 0.0002030, &
0.0002043, 0.0002056, 0.0002068, 0.0002081, 0.0002093, &
0.0002106, 0.0002118/
data ((coa(i,j),i=1,62),j= 38, 38)/ &
0.0000802, 0.0000863, 0.0000920, 0.0000972, 0.0001021, &
0.0001067, 0.0001110, 0.0001151, 0.0001190, 0.0001227, &
0.0001263, 0.0001297, 0.0001330, 0.0001362, 0.0001393, &
0.0001422, 0.0001451, 0.0001479, 0.0001506, 0.0001532, &
0.0001557, 0.0001582, 0.0001606, 0.0001630, 0.0001653, &
0.0001675, 0.0001697, 0.0001719, 0.0001740, 0.0001760, &
0.0001780, 0.0001800, 0.0001819, 0.0001839, 0.0001857, &
0.0001876, 0.0001894, 0.0001911, 0.0001929, 0.0001946, &
0.0001963, 0.0001980, 0.0001996, 0.0002012, 0.0002028, &
0.0002044, 0.0002060, 0.0002075, 0.0002090, 0.0002105, &
0.0002120, 0.0002135, 0.0002149, 0.0002164, 0.0002178, &
0.0002192, 0.0002205, 0.0002219, 0.0002233, 0.0002246, &
0.0002259, 0.0002273/
data ((coa(i,j),i=1,62),j= 39, 39)/ &
0.0000859, 0.0000926, 0.0000987, 0.0001044, 0.0001097, &
0.0001146, 0.0001193, 0.0001237, 0.0001279, 0.0001319, &
0.0001358, 0.0001395, 0.0001430, 0.0001464, 0.0001497, &
0.0001528, 0.0001559, 0.0001589, 0.0001617, 0.0001645, &
0.0001673, 0.0001699, 0.0001725, 0.0001750, 0.0001774, &
0.0001798, 0.0001822, 0.0001845, 0.0001867, 0.0001889, &
0.0001911, 0.0001932, 0.0001953, 0.0001973, 0.0001993, &
0.0002013, 0.0002032, 0.0002051, 0.0002070, 0.0002088, &
0.0002107, 0.0002124, 0.0002142, 0.0002160, 0.0002177, &
0.0002194, 0.0002211, 0.0002227, 0.0002243, 0.0002260, &
0.0002276, 0.0002291, 0.0002307, 0.0002322, 0.0002338, &
0.0002353, 0.0002368, 0.0002382, 0.0002397, 0.0002412, &
0.0002426, 0.0002440/
data ((coa(i,j),i=1,62),j= 40, 40)/ &
0.0000922, 0.0000995, 0.0001061, 0.0001122, 0.0001179, &
0.0001233, 0.0001283, 0.0001331, 0.0001376, 0.0001419, &
0.0001460, 0.0001500, 0.0001538, 0.0001574, 0.0001609, &
0.0001643, 0.0001676, 0.0001707, 0.0001738, 0.0001768, &
0.0001797, 0.0001825, 0.0001853, 0.0001880, 0.0001906, &
0.0001932, 0.0001957, 0.0001981, 0.0002006, 0.0002029, &
0.0002052, 0.0002075, 0.0002097, 0.0002119, 0.0002141, &
0.0002162, 0.0002183, 0.0002203, 0.0002223, 0.0002243, &
0.0002263, 0.0002282, 0.0002301, 0.0002320, 0.0002339, &
0.0002357, 0.0002375, 0.0002393, 0.0002411, 0.0002428, &
0.0002446, 0.0002463, 0.0002480, 0.0002496, 0.0002513, &
0.0002529, 0.0002546, 0.0002562, 0.0002578, 0.0002593, &
0.0002609, 0.0002625/
data ((coa(i,j),i=1,62),j= 41, 41)/ &
0.0000990, 0.0001069, 0.0001141, 0.0001207, 0.0001268, &
0.0001326, 0.0001380, 0.0001431, 0.0001480, 0.0001526, &
0.0001570, 0.0001612, 0.0001653, 0.0001692, 0.0001729, &
0.0001766, 0.0001801, 0.0001835, 0.0001868, 0.0001900, &
0.0001931, 0.0001961, 0.0001991, 0.0002019, 0.0002048, &
0.0002075, 0.0002102, 0.0002129, 0.0002154, 0.0002180, &
0.0002205, 0.0002229, 0.0002253, 0.0002277, 0.0002300, &
0.0002323, 0.0002346, 0.0002368, 0.0002390, 0.0002411, &
0.0002432, 0.0002453, 0.0002474, 0.0002494, 0.0002515, &
0.0002535, 0.0002554, 0.0002574, 0.0002593, 0.0002612, &
0.0002631, 0.0002649, 0.0002668, 0.0002686, 0.0002704, &
0.0002722, 0.0002740, 0.0002757, 0.0002775, 0.0002792, &
0.0002809, 0.0002826/
data ((coa(i,j),i=1,62),j= 42, 42)/ &
0.0001063, 0.0001148, 0.0001226, 0.0001297, 0.0001363, &
0.0001425, 0.0001483, 0.0001538, 0.0001590, 0.0001639, &
0.0001687, 0.0001732, 0.0001775, 0.0001817, 0.0001857, &
0.0001896, 0.0001933, 0.0001970, 0.0002005, 0.0002039, &
0.0002073, 0.0002105, 0.0002137, 0.0002168, 0.0002198, &
0.0002228, 0.0002257, 0.0002286, 0.0002314, 0.0002341, &
0.0002368, 0.0002394, 0.0002420, 0.0002446, 0.0002471, &
0.0002496, 0.0002520, 0.0002544, 0.0002568, 0.0002591, &
0.0002615, 0.0002637, 0.0002660, 0.0002682, 0.0002704, &
0.0002726, 0.0002747, 0.0002768, 0.0002789, 0.0002810, &
0.0002831, 0.0002851, 0.0002871, 0.0002891, 0.0002911, &
0.0002930, 0.0002950, 0.0002969, 0.0002988, 0.0003007, &
0.0003025, 0.0003044/
data ((coa(i,j),i=1,62),j= 43, 43)/ &
0.0001141, 0.0001233, 0.0001316, 0.0001393, 0.0001464, &
0.0001531, 0.0001593, 0.0001652, 0.0001707, 0.0001760, &
0.0001811, 0.0001859, 0.0001905, 0.0001950, 0.0001993, &
0.0002035, 0.0002075, 0.0002114, 0.0002152, 0.0002189, &
0.0002225, 0.0002260, 0.0002294, 0.0002328, 0.0002360, &
0.0002393, 0.0002424, 0.0002455, 0.0002485, 0.0002515, &
0.0002544, 0.0002573, 0.0002601, 0.0002629, 0.0002656, &
0.0002683, 0.0002709, 0.0002736, 0.0002762, 0.0002787, &
0.0002812, 0.0002837, 0.0002862, 0.0002886, 0.0002910, &
0.0002934, 0.0002957, 0.0002980, 0.0003003, 0.0003026, &
0.0003048, 0.0003071, 0.0003093, 0.0003114, 0.0003136, &
0.0003157, 0.0003179, 0.0003200, 0.0003221, 0.0003241, &
0.0003262, 0.0003282/
data ((coa(i,j),i=1,62),j= 44, 44)/ &
0.0001224, 0.0001323, 0.0001413, 0.0001496, 0.0001572, &
0.0001643, 0.0001709, 0.0001772, 0.0001832, 0.0001888, &
0.0001943, 0.0001994, 0.0002044, 0.0002092, 0.0002138, &
0.0002183, 0.0002226, 0.0002269, 0.0002309, 0.0002349, &
0.0002388, 0.0002426, 0.0002463, 0.0002499, 0.0002535, &
0.0002570, 0.0002604, 0.0002637, 0.0002670, 0.0002702, &
0.0002734, 0.0002765, 0.0002796, 0.0002826, 0.0002856, &
0.0002886, 0.0002915, 0.0002943, 0.0002972, 0.0002999, &
0.0003027, 0.0003054, 0.0003081, 0.0003108, 0.0003134, &
0.0003160, 0.0003185, 0.0003211, 0.0003236, 0.0003261, &
0.0003286, 0.0003310, 0.0003334, 0.0003358, 0.0003382, &
0.0003405, 0.0003428, 0.0003451, 0.0003474, 0.0003497, &
0.0003519, 0.0003542/
data ((coa(i,j),i=1,62),j= 45, 45)/ &
0.0001312, 0.0001419, 0.0001515, 0.0001603, 0.0001685, &
0.0001761, 0.0001832, 0.0001899, 0.0001963, 0.0002024, &
0.0002082, 0.0002138, 0.0002191, 0.0002243, 0.0002292, &
0.0002341, 0.0002387, 0.0002433, 0.0002477, 0.0002520, &
0.0002562, 0.0002603, 0.0002644, 0.0002683, 0.0002722, &
0.0002759, 0.0002796, 0.0002833, 0.0002869, 0.0002904, &
0.0002939, 0.0002973, 0.0003006, 0.0003039, 0.0003072, &
0.0003104, 0.0003136, 0.0003167, 0.0003198, 0.0003228, &
0.0003259, 0.0003288, 0.0003318, 0.0003347, 0.0003376, &
0.0003404, 0.0003432, 0.0003460, 0.0003487, 0.0003515, &
0.0003542, 0.0003568, 0.0003595, 0.0003621, 0.0003647, &
0.0003673, 0.0003698, 0.0003724, 0.0003749, 0.0003773, &
0.0003798, 0.0003822/
data ((coa(i,j),i=1,62),j= 46, 46)/ &
0.0001406, 0.0001520, 0.0001623, 0.0001718, 0.0001805, &
0.0001886, 0.0001963, 0.0002035, 0.0002103, 0.0002168, &
0.0002231, 0.0002291, 0.0002348, 0.0002404, 0.0002458, &
0.0002510, 0.0002561, 0.0002610, 0.0002658, 0.0002705, &
0.0002750, 0.0002795, 0.0002839, 0.0002882, 0.0002924, &
0.0002965, 0.0003005, 0.0003045, 0.0003084, 0.0003123, &
0.0003161, 0.0003198, 0.0003235, 0.0003271, 0.0003307, &
0.0003342, 0.0003376, 0.0003411, 0.0003445, 0.0003478, &
0.0003511, 0.0003544, 0.0003576, 0.0003608, 0.0003639, &
0.0003670, 0.0003701, 0.0003731, 0.0003762, 0.0003791, &
0.0003821, 0.0003850, 0.0003879, 0.0003908, 0.0003936, &
0.0003965, 0.0003992, 0.0004020, 0.0004047, 0.0004075, &
0.0004102, 0.0004128/
data ((coa(i,j),i=1,62),j= 47, 47)/ &
0.0001506, 0.0001628, 0.0001739, 0.0001840, 0.0001934, &
0.0002021, 0.0002103, 0.0002180, 0.0002254, 0.0002324, &
0.0002391, 0.0002456, 0.0002518, 0.0002579, 0.0002637, &
0.0002694, 0.0002749, 0.0002802, 0.0002854, 0.0002905, &
0.0002955, 0.0003004, 0.0003052, 0.0003099, 0.0003145, &
0.0003190, 0.0003234, 0.0003278, 0.0003320, 0.0003362, &
0.0003404, 0.0003445, 0.0003485, 0.0003524, 0.0003564, &
0.0003602, 0.0003640, 0.0003678, 0.0003715, 0.0003751, &
0.0003787, 0.0003823, 0.0003858, 0.0003893, 0.0003928, &
0.0003962, 0.0003995, 0.0004029, 0.0004062, 0.0004094, &
0.0004127, 0.0004159, 0.0004190, 0.0004222, 0.0004253, &
0.0004283, 0.0004314, 0.0004344, 0.0004374, 0.0004404, &
0.0004433, 0.0004462/
data ((coa(i,j),i=1,62),j= 48, 48)/ &
0.0001613, 0.0001744, 0.0001863, 0.0001971, 0.0002072, &
0.0002165, 0.0002254, 0.0002337, 0.0002417, 0.0002493, &
0.0002565, 0.0002636, 0.0002703, 0.0002769, 0.0002832, &
0.0002894, 0.0002954, 0.0003013, 0.0003070, 0.0003125, &
0.0003180, 0.0003233, 0.0003286, 0.0003337, 0.0003387, &
0.0003436, 0.0003485, 0.0003533, 0.0003579, 0.0003625, &
0.0003671, 0.0003716, 0.0003760, 0.0003803, 0.0003846, &
0.0003888, 0.0003929, 0.0003971, 0.0004011, 0.0004051, &
0.0004091, 0.0004130, 0.0004168, 0.0004206, 0.0004244, &
0.0004281, 0.0004318, 0.0004354, 0.0004390, 0.0004426, &
0.0004461, 0.0004496, 0.0004530, 0.0004565, 0.0004598, &
0.0004632, 0.0004665, 0.0004698, 0.0004730, 0.0004763, &
0.0004795, 0.0004826/
data ((coa(i,j),i=1,62),j= 49, 49)/ &
0.0001728, 0.0001868, 0.0001996, 0.0002112, 0.0002220, &
0.0002321, 0.0002417, 0.0002507, 0.0002593, 0.0002676, &
0.0002755, 0.0002831, 0.0002905, 0.0002977, 0.0003046, &
0.0003113, 0.0003179, 0.0003243, 0.0003305, 0.0003366, &
0.0003426, 0.0003484, 0.0003542, 0.0003598, 0.0003653, &
0.0003707, 0.0003760, 0.0003812, 0.0003863, 0.0003914, &
0.0003963, 0.0004012, 0.0004060, 0.0004108, 0.0004154, &
0.0004201, 0.0004246, 0.0004291, 0.0004335, 0.0004379, &
0.0004422, 0.0004464, 0.0004506, 0.0004548, 0.0004589, &
0.0004629, 0.0004669, 0.0004709, 0.0004748, 0.0004787, &
0.0004825, 0.0004863, 0.0004900, 0.0004937, 0.0004974, &
0.0005010, 0.0005046, 0.0005082, 0.0005117, 0.0005152, &
0.0005187, 0.0005221/
data ((coa(i,j),i=1,62),j= 50, 50)/ &
0.0001851, 0.0002003, 0.0002139, 0.0002265, 0.0002382, &
0.0002491, 0.0002595, 0.0002693, 0.0002787, 0.0002877, &
0.0002963, 0.0003047, 0.0003127, 0.0003205, 0.0003281, &
0.0003355, 0.0003427, 0.0003497, 0.0003565, 0.0003632, &
0.0003697, 0.0003761, 0.0003824, 0.0003885, 0.0003945, &
0.0004004, 0.0004062, 0.0004119, 0.0004175, 0.0004230, &
0.0004285, 0.0004338, 0.0004390, 0.0004442, 0.0004493, &
0.0004543, 0.0004593, 0.0004641, 0.0004689, 0.0004737, &
0.0004784, 0.0004830, 0.0004875, 0.0004920, 0.0004965, &
0.0005009, 0.0005052, 0.0005095, 0.0005138, 0.0005179, &
0.0005221, 0.0005262, 0.0005302, 0.0005342, 0.0005268, &
0.0005421, 0.0005460, 0.0005499, 0.0005537, 0.0005574, &
0.0005612, 0.0005649/
data ((coa(i,j),i=1,62),j= 51, 51)/ &
0.0001985, 0.0002149, 0.0002297, 0.0002433, 0.0002559, &
0.0002679, 0.0002791, 0.0002898, 0.0003001, 0.0003099, &
0.0003193, 0.0003285, 0.0003373, 0.0003459, 0.0003542, &
0.0003622, 0.0003701, 0.0003778, 0.0003853, 0.0003926, &
0.0003997, 0.0004067, 0.0004135, 0.0004202, 0.0004268, &
0.0004333, 0.0004396, 0.0004458, 0.0004519, 0.0004579, &
0.0004638, 0.0004696, 0.0004753, 0.0004809, 0.0004864, &
0.0004919, 0.0004972, 0.0005025, 0.0005077, 0.0005129, &
0.0005179, 0.0005229, 0.0005279, 0.0005327, 0.0005375, &
0.0005423, 0.0005470, 0.0005516, 0.0005562, 0.0005607, &
0.0005652, 0.0005696, 0.0005739, 0.0005782, 0.0005825, &
0.0005867, 0.0005909, 0.0005951, 0.0005991, 0.0006032, &
0.0006072, 0.0006112/
data ((coa(i,j),i=1,62),j= 52, 52)/ &
0.0002132, 0.0002309, 0.0002469, 0.0002617, 0.0002755, &
0.0002885, 0.0003008, 0.0003125, 0.0003237, 0.0003345, &
0.0003449, 0.0003549, 0.0003645, 0.0003739, 0.0003830, &
0.0003918, 0.0004004, 0.0004088, 0.0004170, 0.0004250, &
0.0004328, 0.0004404, 0.0004478, 0.0004551, 0.0004623, &
0.0004693, 0.0004762, 0.0004829, 0.0004895, 0.0004960, &
0.0005024, 0.0005087, 0.0005149, 0.0005210, 0.0005269, &
0.0005328, 0.0005272, 0.0005443, 0.0005500, 0.0005555, &
0.0005609, 0.0005663, 0.0005717, 0.0005769, 0.0005821, &
0.0005872, 0.0005922, 0.0005972, 0.0006021, 0.0006070, &
0.0006118, 0.0006165, 0.0006212, 0.0006258, 0.0006304, &
0.0006349, 0.0006394, 0.0006438, 0.0006482, 0.0006525, &
0.0006568, 0.0006611/
data ((coa(i,j),i=1,62),j= 53, 53)/ &
0.0002293, 0.0002485, 0.0002660, 0.0002821, 0.0002972, &
0.0003114, 0.0003249, 0.0003377, 0.0003500, 0.0003618, &
0.0003732, 0.0003841, 0.0003947, 0.0004049, 0.0004149, &
0.0004245, 0.0004339, 0.0004430, 0.0004520, 0.0004606, &
0.0004691, 0.0004774, 0.0004855, 0.0004934, 0.0005012, &
0.0005087, 0.0005162, 0.0005235, 0.0005306, 0.0005377, &
0.0005446, 0.0005513, 0.0005580, 0.0005646, 0.0005710, &
0.0005773, 0.0005836, 0.0005897, 0.0005957, 0.0006017, &
0.0006076, 0.0006134, 0.0006191, 0.0006247, 0.0006302, &
0.0006357, 0.0006411, 0.0006464, 0.0006517, 0.0006569, &
0.0006620, 0.0006671, 0.0006721, 0.0006771, 0.0006820, &
0.0006868, 0.0006916, 0.0006963, 0.0007010, 0.0007056, &
0.0007102, 0.0007147/
data ((coa(i,j),i=1,62),j= 54, 54)/ &
0.0002471, 0.0002680, 0.0002871, 0.0003048, 0.0003214, &
0.0003369, 0.0003517, 0.0003658, 0.0003792, 0.0003921, &
0.0004045, 0.0004165, 0.0004281, 0.0004392, 0.0004501, &
0.0004606, 0.0004708, 0.0004807, 0.0004903, 0.0004998, &
0.0005089, 0.0005179, 0.0005267, 0.0005352, 0.0005436, &
0.0005518, 0.0005598, 0.0005677, 0.0005754, 0.0005829, &
0.0005903, 0.0005976, 0.0006048, 0.0006118, 0.0006187, &
0.0006255, 0.0006322, 0.0006388, 0.0006453, 0.0006516, &
0.0006579, 0.0006641, 0.0006702, 0.0006762, 0.0006822, &
0.0006880, 0.0006938, 0.0006995, 0.0007051, 0.0007106, &
0.0007161, 0.0007215, 0.0007269, 0.0007321, 0.0007374, &
0.0007425, 0.0007476, 0.0007527, 0.0007576, 0.0007626, &
0.0007674, 0.0007723/
data ((coa(i,j),i=1,62),j= 55, 55)/ &
0.0002669, 0.0002898, 0.0003107, 0.0003300, 0.0003482, &
0.0003653, 0.0003815, 0.0003969, 0.0004116, 0.0004257, &
0.0004392, 0.0004522, 0.0004648, 0.0004769, 0.0004887, &
0.0005001, 0.0005111, 0.0005218, 0.0005323, 0.0005425, &
0.0005524, 0.0005620, 0.0005714, 0.0005807, 0.0005897, &
0.0005985, 0.0006071, 0.0006155, 0.0006238, 0.0006319, &
0.0006398, 0.0006476, 0.0006553, 0.0006628, 0.0006702, &
0.0006775, 0.0006846, 0.0006917, 0.0006986, 0.0007054, &
0.0007121, 0.0007187, 0.0007252, 0.0007316, 0.0007379, &
0.0007442, 0.0007503, 0.0007564, 0.0007624, 0.0007683, &
0.0007741, 0.0007798, 0.0007855, 0.0007911, 0.0007967, &
0.0008022, 0.0008076, 0.0008129, 0.0008182, 0.0008235, &
0.0008286, 0.0008337/
data ((coa(i,j),i=1,62),j= 56, 56)/ &
0.0002889, 0.0003140, 0.0003369, 0.0003582, 0.0003780, &
0.0003967, 0.0004144, 0.0004312, 0.0004473, 0.0004626, &
0.0004773, 0.0004914, 0.0005050, 0.0005182, 0.0005309, &
0.0005432, 0.0005551, 0.0005666, 0.0005779, 0.0005888, &
0.0005995, 0.0006098, 0.0006200, 0.0006298, 0.0006395, &
0.0006489, 0.0006581, 0.0006672, 0.0006760, 0.0006847, &
0.0006932, 0.0007015, 0.0007097, 0.0007177, 0.0007256, &
0.0007333, 0.0007409, 0.0007484, 0.0007558, 0.0007630, &
0.0007702, 0.0007772, 0.0007841, 0.0007909, 0.0007976, &
0.0008043, 0.0008108, 0.0008172, 0.0008236, 0.0008298, &
0.0008360, 0.0008421, 0.0008481, 0.0008541, 0.0008600, &
0.0008658, 0.0008715, 0.0008772, 0.0008828, 0.0008883, &
0.0008938, 0.0008992/
data ((coa(i,j),i=1,62),j= 57, 57)/ &
0.0003135, 0.0003410, 0.0003662, 0.0003895, 0.0004112, &
0.0004316, 0.0004509, 0.0004692, 0.0004866, 0.0005032, &
0.0005191, 0.0005344, 0.0005491, 0.0005632, 0.0005769, &
0.0005901, 0.0006029, 0.0006153, 0.0006274, 0.0006391, &
0.0006505, 0.0006616, 0.0006725, 0.0006830, 0.0006933, &
0.0007034, 0.0007132, 0.0007229, 0.0007323, 0.0007415, &
0.0007506, 0.0007595, 0.0007682, 0.0007767, 0.0007851, &
0.0007933, 0.0008014, 0.0008093, 0.0008172, 0.0008249, &
0.0008324, 0.0008399, 0.0008472, 0.0008544, 0.0008615, &
0.0008685, 0.0008755, 0.0008823, 0.0008890, 0.0008956, &
0.0009021, 0.0009086, 0.0009149, 0.0009212, 0.0009274, &
0.0009335, 0.0009396, 0.0009455, 0.0009514, 0.0009573, &
0.0009630, 0.0009687/
data ((coa(i,j),i=1,62),j= 58, 58)/ &
0.0003409, 0.0003711, 0.0003987, 0.0004241, 0.0004478, &
0.0004700, 0.0004909, 0.0005107, 0.0005295, 0.0005474, &
0.0005645, 0.0005810, 0.0005968, 0.0006120, 0.0006267, &
0.0006408, 0.0006545, 0.0006678, 0.0006807, 0.0006932, &
0.0007054, 0.0007173, 0.0007288, 0.0007401, 0.0007510, &
0.0007618, 0.0007722, 0.0007825, 0.0007925, 0.0008023, &
0.0008119, 0.0008213, 0.0008306, 0.0008396, 0.0008485, &
0.0008572, 0.0008658, 0.0008742, 0.0008824, 0.0008906, &
0.0008986, 0.0009064, 0.0009142, 0.0009218, 0.0009293, &
0.0009367, 0.0009439, 0.0009511, 0.0009582, 0.0009652, &
0.0009720, 0.0009788, 0.0009855, 0.0009921, 0.0009986, &
0.0010050, 0.0010113, 0.0010176, 0.0010238, 0.0010299, &
0.0010359, 0.0010419/
data ((coa(i,j),i=1,62),j= 59, 59)/ &
0.0003715, 0.0004046, 0.0004346, 0.0004623, 0.0004880, &
0.0005120, 0.0005346, 0.0005560, 0.0005762, 0.0005955, &
0.0006139, 0.0006315, 0.0006485, 0.0006648, 0.0006804, &
0.0006956, 0.0007102, 0.0007244, 0.0007382, 0.0007515, &
0.0007645, 0.0007771, 0.0007893, 0.0008012, 0.0008129, &
0.0008243, 0.0008354, 0.0008463, 0.0008569, 0.0008673, &
0.0008774, 0.0008874, 0.0008971, 0.0009067, 0.0009160, &
0.0009252, 0.0009342, 0.0009431, 0.0009518, 0.0009604, &
0.0009688, 0.0009770, 0.0009851, 0.0009931, 0.0010010, &
0.0010088, 0.0010164, 0.0010239, 0.0010313, 0.0010386, &
0.0010458, 0.0010529, 0.0010598, 0.0010667, 0.0010735, &
0.0010802, 0.0010869, 0.0010934, 0.0010998, 0.0011062, &
0.0011125, 0.0011187/
data ((coa(i,j),i=1,62),j= 60, 60)/ &
0.0004055, 0.0004415, 0.0004742, 0.0005042, 0.0005320, &
0.0005579, 0.0005822, 0.0006052, 0.0006269, 0.0006476, &
0.0006673, 0.0006862, 0.0007042, 0.0007216, 0.0007383, &
0.0007545, 0.0007701, 0.0007851, 0.0007997, 0.0008139, &
0.0008276, 0.0008410, 0.0008540, 0.0008666, 0.0008789, &
0.0008910, 0.0009027, 0.0009141, 0.0009253, 0.0009362, &
0.0009469, 0.0009574, 0.0009676, 0.0009777, 0.0009875, &
0.0009972, 0.0010066, 0.0010159, 0.0010250, 0.0010339, &
0.0010427, 0.0010514, 0.0010599, 0.0010682, 0.0010764, &
0.0010845, 0.0010925, 0.0011003, 0.0011080, 0.0011156, &
0.0011231, 0.0011304, 0.0011377, 0.0011449, 0.0011519, &
0.0011589, 0.0011658, 0.0011726, 0.0011793, 0.0011859, &
0.0011924, 0.0011989/
data ((coa(i,j),i=1,62),j= 61, 61)/ &
0.0004429, 0.0004821, 0.0005175, 0.0005499, 0.0005798, &
0.0006076, 0.0006337, 0.0006583, 0.0006816, 0.0007037, &
0.0007247, 0.0007448, 0.0007640, 0.0007825, 0.0008003, &
0.0008174, 0.0008339, 0.0008499, 0.0008653, 0.0008803, &
0.0008948, 0.0009089, 0.0009226, 0.0009359, 0.0009488, &
0.0009615, 0.0009738, 0.0009858, 0.0009975, 0.0010089, &
0.0010201, 0.0010311, 0.0010418, 0.0010523, 0.0010625, &
0.0010726, 0.0010825, 0.0010921, 0.0011016, 0.0011109, &
0.0011201, 0.0011291, 0.0011379, 0.0011466, 0.0011551, &
0.0011635, 0.0011718, 0.0011799, 0.0011879, 0.0011958, &
0.0012035, 0.0012112, 0.0012187, 0.0012261, 0.0012335, &
0.0012407, 0.0012478, 0.0012548, 0.0012618, 0.0012686, &
0.0012754, 0.0012821/
data ((coa(i,j),i=1,62),j= 62, 62)/ &
0.0004840, 0.0005264, 0.0005646, 0.0005994, 0.0006316, &
0.0006614, 0.0006893, 0.0007155, 0.0007403, 0.0007638, &
0.0007862, 0.0008075, 0.0008279, 0.0008475, 0.0008663, &
0.0008844, 0.0009018, 0.0009186, 0.0009349, 0.0009506, &
0.0009658, 0.0009806, 0.0009950, 0.0010089, 0.0010225, &
0.0010356, 0.0010485, 0.0010610, 0.0010733, 0.0010852, &
0.0010968, 0.0011082, 0.0011194, 0.0011303, 0.0011409, &
0.0011514, 0.0011616, 0.0011717, 0.0011815, 0.0011912, &
0.0012007, 0.0012100, 0.0012191, 0.0012281, 0.0012370, &
0.0012457, 0.0012542, 0.0012627, 0.0012709, 0.0012791, &
0.0012871, 0.0012951, 0.0013029, 0.0013106, 0.0013181, &
0.0013256, 0.0013330, 0.0013403, 0.0013475, 0.0013546, &
0.0013616, 0.0013685/
data ((coa(i,j),i=1,62),j= 63, 63)/ &
0.0005290, 0.0005747, 0.0006157, 0.0006530, 0.0006874, &
0.0007192, 0.0007490, 0.0007769, 0.0008032, 0.0008281, &
0.0008518, 0.0008743, 0.0008959, 0.0009165, 0.0009362, &
0.0009552, 0.0009735, 0.0009911, 0.0010082, 0.0010246, &
0.0010405, 0.0010559, 0.0010709, 0.0010854, 0.0010995, &
0.0011132, 0.0011266, 0.0011396, 0.0011523, 0.0011647, &
0.0011768, 0.0011886, 0.0012002, 0.0012115, 0.0012225, &
0.0012334, 0.0012440, 0.0012544, 0.0012646, 0.0012746, &
0.0012844, 0.0012941, 0.0013036, 0.0013129, 0.0013220, &
0.0013310, 0.0013399, 0.0013486, 0.0013572, 0.0013657, &
0.0013740, 0.0013823, 0.0013904, 0.0013983, 0.0014062, &
0.0014140, 0.0014217, 0.0014292, 0.0014367, 0.0014441, &
0.0014514, 0.0014586/
data ((coa(i,j),i=1,62),j= 64, 64)/ &
0.0005778, 0.0006269, 0.0006708, 0.0007107, 0.0007473, &
0.0007812, 0.0008127, 0.0008423, 0.0008701, 0.0008964, &
0.0009213, 0.0009450, 0.0009676, 0.0009892, 0.0010099, &
0.0010297, 0.0010488, 0.0010671, 0.0010848, 0.0011020, &
0.0011185, 0.0011345, 0.0011500, 0.0011651, 0.0011798, &
0.0011940, 0.0012078, 0.0012213, 0.0012345, 0.0012473, &
0.0012599, 0.0012721, 0.0012841, 0.0012958, 0.0013073, &
0.0013185, 0.0013295, 0.0013403, 0.0013509, 0.0013612, &
0.0013714, 0.0013815, 0.0013913, 0.0014010, 0.0014105, &
0.0014199, 0.0014291, 0.0014382, 0.0014471, 0.0014559, &
0.0014646, 0.0014732, 0.0014816, 0.0014900, 0.0014982, &
0.0015063, 0.0015143, 0.0015222, 0.0015300, 0.0015377, &
0.0015453, 0.0015528/
data ((coa(i,j),i=1,62),j= 65, 65)/ &
0.0006307, 0.0006832, 0.0007301, 0.0007725, 0.0008114, &
0.0008472, 0.0008805, 0.0009116, 0.0009409, 0.0009684, &
0.0009945, 0.0010193, 0.0010428, 0.0010653, 0.0010868, &
0.0011075, 0.0011273, 0.0011464, 0.0011647, 0.0011825, &
0.0011996, 0.0012162, 0.0012323, 0.0012480, 0.0012631, &
0.0012779, 0.0012922, 0.0013062, 0.0013199, 0.0013332, &
0.0013462, 0.0013589, 0.0013713, 0.0013835, 0.0013954, &
0.0014071, 0.0014186, 0.0014298, 0.0014408, 0.0014516, &
0.0014623, 0.0014727, 0.0014830, 0.0014931, 0.0015030, &
0.0015128, 0.0015225, 0.0015319, 0.0015413, 0.0015505, &
0.0015596, 0.0015686, 0.0015774, 0.0015862, 0.0015948, &
0.0016033, 0.0016117, 0.0016200, 0.0016282, 0.0016363, &
0.0016443, 0.0016522/
data ((coa(i,j),i=1,62),j= 66, 66)/ &
0.0006876, 0.0007436, 0.0007934, 0.0008383, 0.0008793, &
0.0009170, 0.0009520, 0.0009846, 0.0010150, 0.0010439, &
0.0010710, 0.0010968, 0.0011213, 0.0011446, 0.0011669, &
0.0011883, 0.0012089, 0.0012287, 0.0012477, 0.0012661, &
0.0012839, 0.0013011, 0.0013178, 0.0013340, 0.0013498, &
0.0013651, 0.0013800, 0.0013946, 0.0014088, 0.0014227, &
0.0014362, 0.0014495, 0.0014624, 0.0014751, 0.0014876, &
0.0014998, 0.0015117, 0.0015235, 0.0015350, 0.0015464, &
0.0015575, 0.0015685, 0.0015792, 0.0015899, 0.0016003, &
0.0016106, 0.0016207, 0.0016307, 0.0016405, 0.0016502, &
0.0016598, 0.0016693, 0.0016786, 0.0016878, 0.0016969, &
0.0017059, 0.0017147, 0.0017235, 0.0017322, 0.0017407, &
0.0017492, 0.0017575/
data ((coa(i,j),i=1,62),j= 67, 67)/ &
0.0007485, 0.0008080, 0.0008606, 0.0009079, 0.0009509, &
0.0009904, 0.0010269, 0.0010608, 0.0010926, 0.0011225, &
0.0011507, 0.0011774, 0.0012028, 0.0012270, 0.0012501, &
0.0012723, 0.0012936, 0.0013142, 0.0013339, 0.0013531, &
0.0013716, 0.0013895, 0.0014069, 0.0014238, 0.0014402, &
0.0014562, 0.0014718, 0.0014870, 0.0015019, 0.0015164, &
0.0015306, 0.0015445, 0.0015581, 0.0015714, 0.0015845, &
0.0015973, 0.0016099, 0.0016223, 0.0016344, 0.0016464, &
0.0016581, 0.0016697, 0.0016811, 0.0016922, 0.0017033, &
0.0017141, 0.0017249, 0.0017354, 0.0017458, 0.0017561, &
0.0017662, 0.0017762, 0.0017861, 0.0017959, 0.0018055, &
0.0018150, 0.0018244, 0.0018337, 0.0018429, 0.0018520, &
0.0018610, 0.0018698/
data ((coa(i,j),i=1,62),j= 68, 68)/ &
0.0008135, 0.0008762, 0.0009315, 0.0009811, 0.0010259, &
0.0010670, 0.0011050, 0.0011402, 0.0011732, 0.0012042, &
0.0012334, 0.0012611, 0.0012874, 0.0013126, 0.0013366, &
0.0013597, 0.0013819, 0.0014033, 0.0014239, 0.0014439, &
0.0014632, 0.0014820, 0.0015002, 0.0015179, 0.0015351, &
0.0015519, 0.0015683, 0.0015843, 0.0016000, 0.0016153, &
0.0016302, 0.0016449, 0.0016592, 0.0016733, 0.0016871, &
0.0017007, 0.0017140, 0.0017271, 0.0017400, 0.0017526, &
0.0017651, 0.0017773, 0.0017894, 0.0018012, 0.0018129, &
0.0018245, 0.0018358, 0.0018471, 0.0018581, 0.0018690, &
0.0018798, 0.0018904, 0.0019009, 0.0019113, 0.0019215, &
0.0019316, 0.0019416, 0.0019515, 0.0019613, 0.0019709, &
0.0019805, 0.0019899/
data ((coa(i,j),i=1,62),j= 69, 69)/ &
0.0008823, 0.0009481, 0.0010059, 0.0010575, 0.0011042, &
0.0011468, 0.0011862, 0.0012227, 0.0012569, 0.0012891, &
0.0013195, 0.0013483, 0.0013757, 0.0014020, 0.0014271, &
0.0014512, 0.0014744, 0.0014968, 0.0015185, 0.0015395, &
0.0015598, 0.0015795, 0.0015987, 0.0016174, 0.0016356, &
0.0016533, 0.0016707, 0.0016876, 0.0017041, 0.0017203, &
0.0017362, 0.0017517, 0.0017669, 0.0017819, 0.0017965, &
0.0018109, 0.0018251, 0.0018390, 0.0018527, 0.0018661, &
0.0018793, 0.0018924, 0.0019052, 0.0019178, 0.0019303, &
0.0019425, 0.0019546, 0.0019665, 0.0019783, 0.0019899, &
0.0020014, 0.0020127, 0.0020238, 0.0020348, 0.0020457, &
0.0020565, 0.0020671, 0.0020776, 0.0020880, 0.0020983, &
0.0021084, 0.0021185/
data ((coa(i,j),i=1,62),j= 70, 70)/ &
0.0009546, 0.0010233, 0.0010834, 0.0011370, 0.0011854, &
0.0012297, 0.0012705, 0.0013085, 0.0013441, 0.0013776, &
0.0014093, 0.0014395, 0.0014682, 0.0014957, 0.0015221, &
0.0015475, 0.0015720, 0.0015956, 0.0016185, 0.0016406, &
0.0016621, 0.0016830, 0.0017033, 0.0017231, 0.0017424, &
0.0017613, 0.0017797, 0.0017976, 0.0018152, 0.0018324, &
0.0018493, 0.0018658, 0.0018820, 0.0018979, 0.0019135, &
0.0019288, 0.0019439, 0.0019587, 0.0019732, 0.0019875, &
0.0020016, 0.0020155, 0.0020291, 0.0020425, 0.0020558, &
0.0020688, 0.0020817, 0.0020944, 0.0021069, 0.0021192, &
0.0021314, 0.0021434, 0.0021095, 0.0021670, 0.0021786, &
0.0021900, 0.0022013, 0.0022125, 0.0022235, 0.0022344, &
0.0022452, 0.0022558/
data ((coa(i,j),i=1,62),j= 71, 71)/ &
0.0010302, 0.0011016, 0.0011640, 0.0012195, 0.0012698, &
0.0013159, 0.0013584, 0.0013981, 0.0014354, 0.0014705, &
0.0015038, 0.0015355, 0.0015658, 0.0015948, 0.0016227, &
0.0016496, 0.0016755, 0.0017005, 0.0017248, 0.0017483, &
0.0017712, 0.0017934, 0.0018150, 0.0018360, 0.0018566, &
0.0018766, 0.0018962, 0.0019153, 0.0019340, 0.0019524, &
0.0019703, 0.0019879, 0.0020052, 0.0020221, 0.0020387, &
0.0020550, 0.0020710, 0.0020867, 0.0021022, 0.0021174, &
0.0021324, 0.0021471, 0.0021159, 0.0021759, 0.0021900, &
0.0022039, 0.0022175, 0.0022310, 0.0022443, 0.0022574, &
0.0022703, 0.0022830, 0.0022956, 0.0023080, 0.0023203, &
0.0023324, 0.0023443, 0.0023562, 0.0023678, 0.0023794, &
0.0023908, 0.0024020/
data ((coa(i,j),i=1,62),j= 72, 72)/ &
0.0011087, 0.0011828, 0.0012476, 0.0013054, 0.0013579, &
0.0014060, 0.0014506, 0.0014923, 0.0015315, 0.0015685, &
0.0016038, 0.0016373, 0.0016694, 0.0017002, 0.0017298, &
0.0017583, 0.0017859, 0.0018125, 0.0018384, 0.0018634, &
0.0018877, 0.0019114, 0.0019344, 0.0019568, 0.0019787, &
0.0020000, 0.0020209, 0.0020412, 0.0020612, 0.0020807, &
0.0020998, 0.0021185, 0.0021368, 0.0021090, 0.0021725, &
0.0021898, 0.0022068, 0.0022235, 0.0022399, 0.0022561, &
0.0022720, 0.0022876, 0.0023029, 0.0023181, 0.0023330, &
0.0023477, 0.0023621, 0.0023764, 0.0023904, 0.0024042, &
0.0024179, 0.0024314, 0.0024446, 0.0024577, 0.0024707, &
0.0024834, 0.0024960, 0.0025085, 0.0025208, 0.0025329, &
0.0025449, 0.0025568/
data ((coa(i,j),i=1,62),j= 73, 73)/ &
0.0011902, 0.0012672, 0.0013347, 0.0013952, 0.0014502, &
0.0015008, 0.0015478, 0.0015919, 0.0016334, 0.0016727, &
0.0017101, 0.0017457, 0.0017799, 0.0018126, 0.0018442, &
0.0018746, 0.0019039, 0.0019323, 0.0019598, 0.0019865, &
0.0020124, 0.0020376, 0.0020621, 0.0020859, 0.0021092, &
0.0021319, 0.0021083, 0.0021757, 0.0021969, 0.0022176, &
0.0022379, 0.0022577, 0.0022772, 0.0022962, 0.0023149, &
0.0023333, 0.0023513, 0.0023690, 0.0023863, 0.0024034, &
0.0024202, 0.0024366, 0.0024529, 0.0024688, 0.0024845, &
0.0025000, 0.0025152, 0.0025302, 0.0025450, 0.0025595, &
0.0025739, 0.0025880, 0.0026019, 0.0026157, 0.0026293, &
0.0026426, 0.0026557, 0.0026689, 0.0026817, 0.0026944, &
0.0027070, 0.0027194/
data ((coa(i,j),i=1,62),j= 74, 74)/ &
0.0012749, 0.0013552, 0.0014259, 0.0014895, 0.0015475, &
0.0016010, 0.0016509, 0.0016977, 0.0017418, 0.0017836, &
0.0018234, 0.0018614, 0.0018978, 0.0019328, 0.0019664, &
0.0019987, 0.0020300, 0.0020602, 0.0020895, 0.0021179, &
0.0021454, 0.0021722, 0.0021982, 0.0022235, 0.0022482, &
0.0022723, 0.0022958, 0.0023187, 0.0023411, 0.0023630, &
0.0023844, 0.0024054, 0.0024259, 0.0024460, 0.0024658, &
0.0024851, 0.0025040, 0.0025226, 0.0025409, 0.0025588, &
0.0025764, 0.0025937, 0.0026107, 0.0026275, 0.0026439, &
0.0026601, 0.0026760, 0.0026917, 0.0027071, 0.0027223, &
0.0027373, 0.0027520, 0.0027665, 0.0027808, 0.0027950, &
0.0028089, 0.0028226, 0.0028361, 0.0028495, 0.0028627, &
0.0028757, 0.0028885/
data ((coa(i,j),i=1,62),j= 75, 75)/ &
0.0013631, 0.0014474, 0.0015220, 0.0015892, 0.0016507, &
0.0017076, 0.0017607, 0.0018105, 0.0018575, 0.0019021, &
0.0019445, 0.0019850, 0.0020238, 0.0020610, 0.0020967, &
0.0021312, 0.0021186, 0.0021965, 0.0022276, 0.0022577, &
0.0022868, 0.0023152, 0.0023427, 0.0023695, 0.0023956, &
0.0024210, 0.0024457, 0.0024699, 0.0024935, 0.0025165, &
0.0025390, 0.0025610, 0.0025826, 0.0026037, 0.0026243, &
0.0026445, 0.0026643, 0.0026838, 0.0027028, 0.0027215, &
0.0027399, 0.0027579, 0.0027756, 0.0027930, 0.0028101, &
0.0028269, 0.0028434, 0.0028596, 0.0028756, 0.0028913, &
0.0029068, 0.0029220, 0.0029370, 0.0029518, 0.0029664, &
0.0029807, 0.0029949, 0.0030088, 0.0030225, 0.0030361, &
0.0030494, 0.0030626/
data ((coa(i,j),i=1,62),j= 76, 76)/ &
0.0014557, 0.0015446, 0.0016236, 0.0016950, 0.0017605, &
0.0018211, 0.0018777, 0.0019308, 0.0019809, 0.0020284, &
0.0020736, 0.0021167, 0.0021121, 0.0021973, 0.0022353, &
0.0022718, 0.0023069, 0.0023409, 0.0023737, 0.0024055, &
0.0024362, 0.0024661, 0.0024950, 0.0025232, 0.0025506, &
0.0025772, 0.0026031, 0.0026284, 0.0026531, 0.0026771, &
0.0027006, 0.0027235, 0.0027460, 0.0027679, 0.0027893, &
0.0028103, 0.0028309, 0.0028510, 0.0028707, 0.0028900, &
0.0029090, 0.0029276, 0.0029458, 0.0029637, 0.0029813, &
0.0029986, 0.0030156, 0.0030322, 0.0030486, 0.0030647, &
0.0030806, 0.0030962, 0.0031115, 0.0031266, 0.0031414, &
0.0031560, 0.0031704, 0.0031846, 0.0031986, 0.0032123, &
0.0032259, 0.0032392/
data ((coa(i,j),i=1,62),j= 77, 77)/ &
0.0015532, 0.0016476, 0.0017317, 0.0018078, 0.0018775, &
0.0019422, 0.0020024, 0.0020590, 0.0021123, 0.0021169, &
0.0022106, 0.0022563, 0.0022999, 0.0023416, 0.0023817, &
0.0024202, 0.0024572, 0.0024929, 0.0025273, 0.0025607, &
0.0025929, 0.0026241, 0.0026543, 0.0026837, 0.0027122, &
0.0027399, 0.0027668, 0.0027931, 0.0028186, 0.0028435, &
0.0028678, 0.0028915, 0.0029146, 0.0029372, 0.0029592, &
0.0029808, 0.0030019, 0.0030225, 0.0030427, 0.0030625, &
0.0030819, 0.0031009, 0.0031195, 0.0031377, 0.0031556, &
0.0031732, 0.0031904, 0.0032073, 0.0032239, 0.0032402, &
0.0032563, 0.0032720, 0.0032875, 0.0033027, 0.0033177, &
0.0033324, 0.0033468, 0.0033611, 0.0033751, 0.0033889, &
0.0034025, 0.0034159/
data ((coa(i,j),i=1,62),j= 78, 78)/ &
0.0016566, 0.0017571, 0.0018467, 0.0019278, 0.0020021, &
0.0020708, 0.0021349, 0.0021949, 0.0022514, 0.0023047, &
0.0023554, 0.0024035, 0.0024494, 0.0024932, 0.0025352, &
0.0025755, 0.0026142, 0.0026515, 0.0026874, 0.0027220, &
0.0027555, 0.0027878, 0.0028191, 0.0028495, 0.0028789, &
0.0029075, 0.0029352, 0.0029621, 0.0029883, 0.0030138, &
0.0030387, 0.0030629, 0.0030864, 0.0031094, 0.0031319, &
0.0031538, 0.0031752, 0.0031961, 0.0032166, 0.0032365, &
0.0032561, 0.0032752, 0.0032940, 0.0033123, 0.0033303, &
0.0033479, 0.0033652, 0.0033821, 0.0033988, 0.0034151, &
0.0034310, 0.0034467, 0.0034622, 0.0034773, 0.0034922, &
0.0035068, 0.0035211, 0.0035353, 0.0035491, 0.0035628, &
0.0035762, 0.0035894/
data ((coa(i,j),i=1,62),j= 79, 79)/ &
0.0017664, 0.0018736, 0.0019689, 0.0020552, 0.0021342, &
0.0022071, 0.0022749, 0.0023383, 0.0023978, 0.0024539, &
0.0025070, 0.0025574, 0.0026054, 0.0026511, 0.0026948, &
0.0027366, 0.0027767, 0.0028153, 0.0028523, 0.0028880, &
0.0029224, 0.0029556, 0.0029877, 0.0030187, 0.0030487, &
0.0030778, 0.0031060, 0.0031334, 0.0031599, 0.0031857, &
0.0032108, 0.0032352, 0.0032590, 0.0032821, 0.0033047, &
0.0033267, 0.0033481, 0.0033690, 0.0033894, 0.0034094, &
0.0034289, 0.0034479, 0.0034665, 0.0034847, 0.0035025, &
0.0035200, 0.0035371, 0.0035538, 0.0035702, 0.0035862, &
0.0036020, 0.0036174, 0.0036325, 0.0036474, 0.0036620, &
0.0036763, 0.0036903, 0.0037041, 0.0037177, 0.0037310, &
0.0037441, 0.0037569/
data ((coa(i,j),i=1,62),j= 80, 80)/ &
0.0018832, 0.0019973, 0.0020987, 0.0021902, 0.0022737, &
0.0023505, 0.0024220, 0.0024885, 0.0025508, 0.0026093, &
0.0026646, 0.0027169, 0.0027666, 0.0028138, 0.0028589, &
0.0029018, 0.0029430, 0.0029824, 0.0030202, 0.0030565, &
0.0030915, 0.0031252, 0.0031576, 0.0031890, 0.0032192, &
0.0032485, 0.0032768, 0.0033042, 0.0033308, 0.0033566, &
0.0033816, 0.0034059, 0.0034295, 0.0034525, 0.0034748, &
0.0034966, 0.0035177, 0.0035384, 0.0035585, 0.0035781, &
0.0035972, 0.0036159, 0.0036341, 0.0036520, 0.0036694, &
0.0036864, 0.0037031, 0.0037193, 0.0037353, 0.0037509, &
0.0037662, 0.0037811, 0.0037958, 0.0038102, 0.0038243, &
0.0038381, 0.0038517, 0.0038650, 0.0038780, 0.0038908, &
0.0039034, 0.0039158/
data ((coa(i,j),i=1,62),j= 81, 81)/ &
0.0020072, 0.0021282, 0.0022356, 0.0023321, 0.0024200, &
0.0025006, 0.0025751, 0.0026443, 0.0027089, 0.0027695, &
0.0028265, 0.0028803, 0.0029311, 0.0029794, 0.0030252, &
0.0030689, 0.0031106, 0.0031504, 0.0031886, 0.0032251, &
0.0032602, 0.0032939, 0.0033263, 0.0033575, 0.0033876, &
0.0034166, 0.0034447, 0.0034718, 0.0034980, 0.0035234, &
0.0035480, 0.0035719, 0.0035950, 0.0036175, 0.0036393, &
0.0036605, 0.0036811, 0.0037012, 0.0037207, 0.0037398, &
0.0037583, 0.0037764, 0.0037940, 0.0038112, 0.0038280, &
0.0038444, 0.0038604, 0.0038761, 0.0038914, 0.0039063, &
0.0039210, 0.0039353, 0.0039494, 0.0039631, 0.0039766, &
0.0039898, 0.0040027, 0.0040154, 0.0040278, 0.0040400, &
0.0040520, 0.0040638/
data ((coa(i,j),i=1,62),j= 82, 82)/ &
0.0021381, 0.0022661, 0.0023791, 0.0024803, 0.0025719, &
0.0026557, 0.0027328, 0.0028041, 0.0028705, 0.0029325, &
0.0029905, 0.0030451, 0.0030966, 0.0031453, 0.0031914, &
0.0032353, 0.0032769, 0.0033166, 0.0033545, 0.0033908, &
0.0034255, 0.0034588, 0.0034907, 0.0035214, 0.0035509, &
0.0035793, 0.0036067, 0.0036331, 0.0036586, 0.0036833, &
0.0037071, 0.0037302, 0.0037526, 0.0037743, 0.0037953, &
0.0038157, 0.0038356, 0.0038548, 0.0038736, 0.0038916, &
0.0039095, 0.0039268, 0.0039436, 0.0039600, 0.0039761, &
0.0039917, 0.0040069, 0.0040218, 0.0040364, 0.0040506, &
0.0040645, 0.0040781, 0.0040914, 0.0041044, 0.0041172, &
0.0041296, 0.0041419, 0.0041539, 0.0041656, 0.0041772, &
0.0041885, 0.0041996/
data ((coa(i,j),i=1,62),j= 83, 83)/ &
0.0022756, 0.0024100, 0.0025280, 0.0026332, 0.0027280, &
0.0028142, 0.0028931, 0.0029658, 0.0030331, 0.0030957, &
0.0031541, 0.0032089, 0.0032603, 0.0033088, 0.0033545, &
0.0033978, 0.0034389, 0.0034780, 0.0035151, 0.0035506, &
0.0035844, 0.0036168, 0.0036478, 0.0036775, 0.0037061, &
0.0037335, 0.0037599, 0.0037853, 0.0038098, 0.0038335, &
0.0038563, 0.0038784, 0.0038998, 0.0039205, 0.0039405, &
0.0039599, 0.0039788, 0.0039971, 0.0040149, 0.0040322, &
0.0040490, 0.0040653, 0.0040813, 0.0040968, 0.0041119, &
0.0041267, 0.0041411, 0.0041552, 0.0041689, 0.0041823, &
0.0041954, 0.0042082, 0.0042208, 0.0042331, 0.0042451, &
0.0042569, 0.0042684, 0.0042797, 0.0042908, 0.0043017, &
0.0043123, 0.0043228/
data ((coa(i,j),i=1,62),j= 84, 84)/ &
0.0024185, 0.0025586, 0.0026808, 0.0027890, 0.0028859, &
0.0029735, 0.0030533, 0.0031264, 0.0031938, 0.0032562, &
0.0033142, 0.0033683, 0.0034190, 0.0034665, 0.0035113, &
0.0035535, 0.0035934, 0.0036313, 0.0036672, 0.0037014, &
0.0037340, 0.0037651, 0.0037948, 0.0038232, 0.0038505, &
0.0038767, 0.0039018, 0.0039260, 0.0039493, 0.0039717, &
0.0039934, 0.0040143, 0.0040345, 0.0040540, 0.0040730, &
0.0040913, 0.0041091, 0.0041264, 0.0041432, 0.0041595, &
0.0041753, 0.0041907, 0.0042057, 0.0042204, 0.0042346, &
0.0042485, 0.0042621, 0.0042754, 0.0042883, 0.0043009, &
0.0043133, 0.0043254, 0.0043372, 0.0043488, 0.0043601, &
0.0043712, 0.0043821, 0.0043928, 0.0044032, 0.0044135, &
0.0044236, 0.0044335/
data ((coa(i,j),i=1,62),j= 85, 85)/ &
0.0025653, 0.0027099, 0.0028350, 0.0029450, 0.0030428, &
0.0031307, 0.0032102, 0.0032828, 0.0033493, 0.0034106, &
0.0034673, 0.0035200, 0.0035692, 0.0036152, 0.0036583, &
0.0036990, 0.0037373, 0.0037735, 0.0038078, 0.0038404, &
0.0038714, 0.0039009, 0.0039291, 0.0039560, 0.0039818, &
0.0040065, 0.0040303, 0.0040531, 0.0040751, 0.0040962, &
0.0041166, 0.0041363, 0.0041553, 0.0041738, 0.0041916, &
0.0042089, 0.0042256, 0.0042419, 0.0042577, 0.0042730, &
0.0042879, 0.0043025, 0.0043166, 0.0043304, 0.0043439, &
0.0043570, 0.0043698, 0.0043823, 0.0043945, 0.0044064, &
0.0044181, 0.0044296, 0.0044407, 0.0044517, 0.0044624, &
0.0044730, 0.0044833, 0.0044934, 0.0045033, 0.0045130, &
0.0045226, 0.0045320/
data ((coa(i,j),i=1,62),j= 86, 86)/ &
0.0027124, 0.0028597, 0.0029861, 0.0030963, 0.0031936, &
0.0032805, 0.0033586, 0.0034295, 0.0034941, 0.0035534, &
0.0036081, 0.0036587, 0.0037058, 0.0037497, 0.0037908, &
0.0038294, 0.0038657, 0.0039000, 0.0039324, 0.0039631, &
0.0039923, 0.0040201, 0.0040467, 0.0040720, 0.0040963, &
0.0041195, 0.0041418, 0.0041633, 0.0041839, 0.0042038, &
0.0042230, 0.0042415, 0.0042594, 0.0042768, 0.0042935, &
0.0043098, 0.0043256, 0.0043409, 0.0043558, 0.0043703, &
0.0043844, 0.0043982, 0.0044115, 0.0044246, 0.0044373, &
0.0044497, 0.0044619, 0.0044737, 0.0044853, 0.0044966, &
0.0045077, 0.0045186, 0.0045292, 0.0045397, 0.0045499, &
0.0045599, 0.0045697, 0.0045793, 0.0045888, 0.0045981, &
0.0046072, 0.0046162/
data ((coa(i,j),i=1,62),j= 87, 87)/ &
0.0028481, 0.0029956, 0.0031209, 0.0032292, 0.0033241, &
0.0034083, 0.0034836, 0.0035515, 0.0036132, 0.0036696, &
0.0037214, 0.0037692, 0.0038136, 0.0038548, 0.0038934, &
0.0039296, 0.0039636, 0.0039956, 0.0040260, 0.0040547, &
0.0040820, 0.0041080, 0.0041328, 0.0041565, 0.0041792, &
0.0042010, 0.0042219, 0.0042419, 0.0042613, 0.0042800, &
0.0042980, 0.0043154, 0.0043322, 0.0043485, 0.0043643, &
0.0043796, 0.0043945, 0.0044090, 0.0044231, 0.0044367, &
0.0044501, 0.0044631, 0.0044757, 0.0044881, 0.0045001, &
0.0045119, 0.0045234, 0.0045347, 0.0045457, 0.0045564, &
0.0045670, 0.0045773, 0.0045874, 0.0045973, 0.0046070, &
0.0046166, 0.0046259, 0.0046351, 0.0046441, 0.0046530, &
0.0046616, 0.0046702/
data ((coa(i,j),i=1,62),j= 88, 88)/ &
0.0029341, 0.0030768, 0.0031968, 0.0032997, 0.0033892, &
0.0034681, 0.0035383, 0.0036014, 0.0036584, 0.0037104, &
0.0037581, 0.0038020, 0.0038427, 0.0038805, 0.0039159, &
0.0039490, 0.0039801, 0.0040095, 0.0040373, 0.0040637, &
0.0040888, 0.0041127, 0.0041355, 0.0041573, 0.0041782, &
0.0041983, 0.0042175, 0.0042361, 0.0042540, 0.0042713, &
0.0042880, 0.0043041, 0.0043197, 0.0043349, 0.0043495, &
0.0043638, 0.0043777, 0.0043911, 0.0044042, 0.0044170, &
0.0044294, 0.0044416, 0.0044534, 0.0044649, 0.0044762, &
0.0044872, 0.0044980, 0.0045085, 0.0045188, 0.0045289, &
0.0045387, 0.0045484, 0.0045579, 0.0045672, 0.0045763, &
0.0045852, 0.0045940, 0.0046026, 0.0046110, 0.0046193, &
0.0046275, 0.0046355/
data ((coa(i,j),i=1,62),j= 89, 89)/ &
0.0029122, 0.0030427, 0.0031513, 0.0032438, 0.0033237, &
0.0033938, 0.0034559, 0.0035116, 0.0035619, 0.0036076, &
0.0036495, 0.0036882, 0.0037238, 0.0037573, 0.0037884, &
0.0038176, 0.0038451, 0.0038711, 0.0038957, 0.0039191, &
0.0039413, 0.0039626, 0.0039829, 0.0040023, 0.0040209, &
0.0040389, 0.0040561, 0.0040727, 0.0040887, 0.0041042, &
0.0041192, 0.0041337, 0.0041477, 0.0041613, 0.0041745, &
0.0041874, 0.0041998, 0.0042120, 0.0042238, 0.0042353, &
0.0042465, 0.0042574, 0.0042681, 0.0042785, 0.0042887, &
0.0042986, 0.0043084, 0.0043179, 0.0043272, 0.0043363, &
0.0043452, 0.0043539, 0.0043625, 0.0043709, 0.0043791, &
0.0043872, 0.0043951, 0.0044029, 0.0044105, 0.0044180, &
0.0044254, 0.0044326/
data ((coa(i,j),i=1,62),j= 90, 90)/ &
0.0027405, 0.0028512, 0.0029426, 0.0030199, 0.0030864, &
0.0031447, 0.0031962, 0.0032424, 0.0032841, 0.0033221, &
0.0033569, 0.0033891, 0.0034190, 0.0034468, 0.0034729, &
0.0034974, 0.0035206, 0.0035424, 0.0035632, 0.0035830, &
0.0036018, 0.0036198, 0.0036370, 0.0036535, 0.0036694, &
0.0036847, 0.0036993, 0.0037135, 0.0037272, 0.0037404, &
0.0037532, 0.0037656, 0.0037776, 0.0037892, 0.0038005, &
0.0038115, 0.0038222, 0.0038326, 0.0038427, 0.0038526, &
0.0038622, 0.0038716, 0.0038808, 0.0038897, 0.0038984, &
0.0039070, 0.0039153, 0.0039235, 0.0039314, 0.0039393, &
0.0039469, 0.0039544, 0.0039618, 0.0039690, 0.0039761, &
0.0039830, 0.0039898, 0.0039965, 0.0040030, 0.0040095, &
0.0040158, 0.0040220/
data ((coa(i,j),i=1,62),j= 91, 91)/ &
0.0024633, 0.0025514, 0.0026239, 0.0026851, 0.0027377, &
0.0027838, 0.0028247, 0.0028613, 0.0028946, 0.0029249, &
0.0029529, 0.0029787, 0.0030028, 0.0030253, 0.0030464, &
0.0030663, 0.0030851, 0.0031029, 0.0031199, 0.0031360, &
0.0031514, 0.0031661, 0.0031803, 0.0031938, 0.0032068, &
0.0032194, 0.0032314, 0.0032431, 0.0032544, 0.0032652, &
0.0032758, 0.0032860, 0.0032959, 0.0033055, 0.0033148, &
0.0033239, 0.0033327, 0.0033413, 0.0033497, 0.0033578, &
0.0033658, 0.0033735, 0.0033811, 0.0033885, 0.0033957, &
0.0034028, 0.0034097, 0.0034164, 0.0034230, 0.0034295, &
0.0034359, 0.0034421, 0.0034482, 0.0034541, 0.0034600, &
0.0034657, 0.0034714, 0.0034769, 0.0034823, 0.0034877, &
0.0034929, 0.0034981/
data ((coa(i,j),i=1,62),j= 92, 92)/ &
0.0021142, 0.0022278, 0.0022837, 0.0023309, 0.0023717, &
0.0024075, 0.0024394, 0.0024681, 0.0024943, 0.0025182, &
0.0025404, 0.0025609, 0.0025801, 0.0025980, 0.0026149, &
0.0026308, 0.0026459, 0.0026602, 0.0026738, 0.0026868, &
0.0026992, 0.0027111, 0.0027225, 0.0027334, 0.0027439, &
0.0027541, 0.0027638, 0.0027733, 0.0027824, 0.0027912, &
0.0027997, 0.0028080, 0.0028160, 0.0028238, 0.0028314, &
0.0028387, 0.0028459, 0.0028529, 0.0028597, 0.0028663, &
0.0028727, 0.0028791, 0.0028852, 0.0028912, 0.0028971, &
0.0029028, 0.0029084, 0.0029139, 0.0029193, 0.0029246, &
0.0029297, 0.0029348, 0.0029398, 0.0029446, 0.0029494, &
0.0029541, 0.0029587, 0.0029632, 0.0029676, 0.0029720, &
0.0029761, 0.0029805/
data ((coa(i,j),i=1,62),j= 93, 93)/ &
0.0018726, 0.0019238, 0.0019660, 0.0020019, 0.0020331, &
0.0020606, 0.0020852, 0.0021074, 0.0021278, 0.0021464, &
0.0021179, 0.0021798, 0.0021948, 0.0022089, 0.0022221, &
0.0022347, 0.0022466, 0.0022578, 0.0022686, 0.0022789, &
0.0022887, 0.0022981, 0.0023071, 0.0023158, 0.0023241, &
0.0023321, 0.0023399, 0.0023474, 0.0023546, 0.0023616, &
0.0023684, 0.0023750, 0.0023814, 0.0023876, 0.0023936, &
0.0023995, 0.0024052, 0.0024108, 0.0024162, 0.0024215, &
0.0024266, 0.0024317, 0.0024366, 0.0024414, 0.0024461, &
0.0024507, 0.0024552, 0.0024596, 0.0024639, 0.0024681, &
0.0024722, 0.0024763, 0.0024802, 0.0024841, 0.0024880, &
0.0024917, 0.0024954, 0.0024990, 0.0025026, 0.0025060, &
0.0025095, 0.0025129/
data ((coa(i,j),i=1,62),j= 94, 94)/ &
0.0016337, 0.0016718, 0.0017033, 0.0017303, 0.0017537, &
0.0017745, 0.0017931, 0.0018100, 0.0018254, 0.0018397, &
0.0018529, 0.0018651, 0.0018766, 0.0018874, 0.0018976, &
0.0019073, 0.0019164, 0.0019251, 0.0019334, 0.0019413, &
0.0019489, 0.0019562, 0.0019631, 0.0019698, 0.0019763, &
0.0019825, 0.0019885, 0.0019944, 0.0020000, 0.0020054, &
0.0020107, 0.0020158, 0.0020208, 0.0020256, 0.0020303, &
0.0020349, 0.0020394, 0.0020437, 0.0020479, 0.0020521, &
0.0020561, 0.0020600, 0.0020639, 0.0020676, 0.0020713, &
0.0020749, 0.0020784, 0.0020819, 0.0020852, 0.0020886, &
0.0020918, 0.0020950, 0.0020981, 0.0021011, 0.0021041, &
0.0021071, 0.0021100, 0.0021128, 0.0021156, 0.0021183, &
0.0021210, 0.0021236/
data ((coa(i,j),i=1,62),j= 95, 95)/ &
0.0014740, 0.0015024, 0.0015259, 0.0015460, 0.0015636, &
0.0015791, 0.0015931, 0.0016058, 0.0016174, 0.0016282, &
0.0016381, 0.0016474, 0.0016561, 0.0016643, 0.0016720, &
0.0016793, 0.0016863, 0.0016929, 0.0016992, 0.0017052, &
0.0017110, 0.0017165, 0.0017219, 0.0017270, 0.0017319, &
0.0017367, 0.0017413, 0.0017458, 0.0017501, 0.0017543, &
0.0017584, 0.0017623, 0.0017661, 0.0017699, 0.0017735, &
0.0017770, 0.0017804, 0.0017838, 0.0017870, 0.0017902, &
0.0017933, 0.0017964, 0.0017993, 0.0018023, 0.0018051, &
0.0018079, 0.0018106, 0.0018132, 0.0018158, 0.0018184, &
0.0018209, 0.0018233, 0.0018258, 0.0018281, 0.0018304, &
0.0018327, 0.0018349, 0.0018371, 0.0018393, 0.0018414, &
0.0018434, 0.0018455/
data ((coa(i,j),i=1,62),j= 96, 96)/ &
0.0013895, 0.0014110, 0.0014289, 0.0014441, 0.0014574, &
0.0014692, 0.0014798, 0.0014894, 0.0014982, 0.0015064, &
0.0015139, 0.0015210, 0.0015277, 0.0015338, 0.0015398, &
0.0015454, 0.0015508, 0.0015558, 0.0015607, 0.0015653, &
0.0015698, 0.0015740, 0.0015782, 0.0015821, 0.0015859, &
0.0015896, 0.0015932, 0.0015966, 0.0016000, 0.0016032, &
0.0016064, 0.0016094, 0.0016124, 0.0016153, 0.0016181, &
0.0016208, 0.0016235, 0.0016261, 0.0016286, 0.0016311, &
0.0016335, 0.0016358, 0.0016381, 0.0016404, 0.0016426, &
0.0016447, 0.0016468, 0.0016489, 0.0016509, 0.0016529, &
0.0016548, 0.0016567, 0.0016586, 0.0016604, 0.0016622, &
0.0016639, 0.0016657, 0.0016673, 0.0016690, 0.0016706, &
0.0016722, 0.0016738/
data ((coa(i,j),i=1,62),j= 97, 97)/ &
0.0013502, 0.0013669, 0.0013807, 0.0013924, 0.0014027, &
0.0014118, 0.0014200, 0.0014274, 0.0014343, 0.0014406, &
0.0014465, 0.0014520, 0.0014571, 0.0014620, 0.0014666, &
0.0014710, 0.0014751, 0.0014791, 0.0014829, 0.0014865, &
0.0014900, 0.0014933, 0.0014966, 0.0014997, 0.0015027, &
0.0015055, 0.0015083, 0.0015109, 0.0015136, 0.0015162, &
0.0015186, 0.0015210, 0.0015234, 0.0015256, 0.0015278, &
0.0015299, 0.0015320, 0.0015340, 0.0015360, 0.0015380, &
0.0015398, 0.0015417, 0.0015435, 0.0015452, 0.0015469, &
0.0015486, 0.0015503, 0.0015519, 0.0015534, 0.0015550, &
0.0015565, 0.0015580, 0.0015594, 0.0015608, 0.0015622, &
0.0015636, 0.0015649, 0.0015663, 0.0015676, 0.0015688, &
0.0015701, 0.0015713/
data ((coa(i,j),i=1,62),j= 98, 98)/ &
0.0013341, 0.0013476, 0.0013588, 0.0013683, 0.0013766, &
0.0013840, 0.0013907, 0.0013967, 0.0014023, 0.0014074, &
0.0014122, 0.0014167, 0.0014209, 0.0014248, 0.0014286, &
0.0014321, 0.0014355, 0.0014387, 0.0014418, 0.0014447, &
0.0014476, 0.0014503, 0.0014529, 0.0014554, 0.0014578, &
0.0014602, 0.0014624, 0.0014646, 0.0014667, 0.0014688, &
0.0014708, 0.0014727, 0.0014746, 0.0014764, 0.0014782, &
0.0014799, 0.0014816, 0.0014833, 0.0014849, 0.0014864, &
0.0014879, 0.0014894, 0.0014909, 0.0014923, 0.0014937, &
0.0014950, 0.0014964, 0.0014977, 0.0014989, 0.0015002, &
0.0015014, 0.0015026, 0.0015038, 0.0015049, 0.0015060, &
0.0015071, 0.0015082, 0.0015093, 0.0015103, 0.0015114, &
0.0015124, 0.0015134/
data ((coa(i,j),i=1,62),j= 99, 99)/ &
0.0013255, 0.0013373, 0.0013470, 0.0013554, 0.0013626, &
0.0013691, 0.0013749, 0.0013803, 0.0013851, 0.0013896, &
0.0013938, 0.0013977, 0.0014014, 0.0014049, 0.0014082, &
0.0014113, 0.0014142, 0.0014171, 0.0014197, 0.0014223, &
0.0014248, 0.0014272, 0.0014294, 0.0014316, 0.0014337, &
0.0014358, 0.0014378, 0.0014397, 0.0014415, 0.0014433, &
0.0014450, 0.0014467, 0.0014483, 0.0014499, 0.0014515, &
0.0014530, 0.0014544, 0.0014559, 0.0014573, 0.0014586, &
0.0014599, 0.0014612, 0.0014625, 0.0014637, 0.0014649, &
0.0014661, 0.0014672, 0.0014684, 0.0014695, 0.0014705, &
0.0014716, 0.0014726, 0.0014736, 0.0014746, 0.0014756, &
0.0014766, 0.0014775, 0.0014784, 0.0014793, 0.0014802, &
0.0014811, 0.0014820/
data ((coa(i,j),i=1,62),j=100,100)/ &
0.0013126, 0.0013234, 0.0013324, 0.0013401, 0.0013469, &
0.0013529, 0.0013583, 0.0013632, 0.0013677, 0.0013719, &
0.0013758, 0.0013795, 0.0013829, 0.0013861, 0.0013891, &
0.0013920, 0.0013947, 0.0013974, 0.0013998, 0.0014022, &
0.0014045, 0.0014067, 0.0014088, 0.0014108, 0.0014127, &
0.0014146, 0.0014164, 0.0014181, 0.0014198, 0.0014215, &
0.0014230, 0.0014246, 0.0014261, 0.0014275, 0.0014289, &
0.0014303, 0.0014316, 0.0014329, 0.0014341, 0.0014354, &
0.0014366, 0.0014377, 0.0014389, 0.0014400, 0.0014411, &
0.0014421, 0.0014432, 0.0014442, 0.0014452, 0.0014462, &
0.0014471, 0.0014480, 0.0014490, 0.0014499, 0.0014507, &
0.0014516, 0.0014525, 0.0014533, 0.0014541, 0.0014549, &
0.0014557, 0.0014565/
data ((coa(i,j),i=1,62),j=101,101)/ &
0.0012882, 0.0012983, 0.0013066, 0.0013138, 0.0013202, &
0.0013258, 0.0013309, 0.0013355, 0.0013398, 0.0013437, &
0.0013473, 0.0013507, 0.0013539, 0.0013569, 0.0013598, &
0.0013625, 0.0013650, 0.0013674, 0.0013697, 0.0013719, &
0.0013740, 0.0013760, 0.0013780, 0.0013798, 0.0013816, &
0.0013833, 0.0013850, 0.0013865, 0.0013881, 0.0013896, &
0.0013910, 0.0013924, 0.0013938, 0.0013951, 0.0013963, &
0.0013976, 0.0013988, 0.0013999, 0.0014011, 0.0014022, &
0.0014033, 0.0014043, 0.0014054, 0.0014064, 0.0014073, &
0.0014083, 0.0014092, 0.0014101, 0.0014110, 0.0014119, &
0.0014128, 0.0014136, 0.0014145, 0.0014153, 0.0014161, &
0.0014168, 0.0014176, 0.0014183, 0.0014191, 0.0014198, &
0.0014205, 0.0014212/
do i=1,m
swh(i,1)=0.
so2(i,1)=0.
snt(i)=1.0 /cosz(i)
enddo
do k=1,np
do i=1,m
dp(i,k)=pl(i,k+1)-pl(i,k)
scal(i,k)=dp(i,k)*(.5*(pl(i,k)+pl(i,k+1))/300.)**.8
wh(i,k)=1.02*wa(i,k)*scal(i,k) &
*(1.+0.00135*(ta(i,k)-240.)) +1.e-11
swh(i,k+1)=swh(i,k)+wh(i,k)
oh(i,k)=1.02*oa(i,k)*dp(i,k)*466.7 +1.e-11
x=1.02*10000.*dp(i,k)
cwp(i,k,1)=x*cwc(i,k,1)
cwp(i,k,2)=x*cwc(i,k,2)
cwp(i,k,3)=x*cwc(i,k,3)
enddo
enddo
do k=1,np+1
do i=1,m
flx(i,k)=0.
flc(i,k)=0.
flxu(i,k)=0.
flxd(i,k)=0.
df(i,k)=0.
df_sub(i,k)=0.
df_cld(i,k)=0.
df_clr(i,k)=0.
enddo
enddo
call sw_uvpar (m,np,wh,oh,dp, &
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal,taux,rsuvbm,rsuvdf, &
flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar)
call sw_ir (m,np,wh,dp, &
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal,rsirbm,rsirdf, &
flx,flc,flxd,fdirir,fdifir)
do i= 1, m
cnt(i)=165.22*snt(i)
enddo
do k=1,np
do i=1,m
so2(i,k+1)=so2(i,k)+scal(i,k)*cnt(i)
enddo
enddo
do k= 2, np+1
do i= 1, m
x=so2(i,k)
df(i,k)=0.0633*(1.-exp(-0.000145*sqrt(x)))
enddo
enddo
do i= 1, m
cnt(i)=co2*snt(i)
enddo
do k=1,np
do i=1,m
x=789.*cnt(i)
so2(i,k+1)=so2(i,k)+x*scal(i,k)+1.e-11
enddo
enddo
u1=-3.0
du=0.15
w1=-4.0
dw=0.15
do k= 2, np+1
do i= 1, m
swu(i,k)=log10(so2(i,k))
swh(i,k)=log10(swh(i,k)*snt(i))
enddo
enddo
call reduce_flux(m,np,swu,u1,du,nu,swh,w1,dw,nw,cah,df)
u1=0.000250
du=0.000050
w1=-2.0
dw=0.05
do i= 1, m
swu(i,1)=co2*snt(i)
enddo
do k= 2, np+1
do i= 1, m
swu(i,k)=swu(i,1)
enddo
enddo
do k= 2, np+1
do i= 1, m
swh(i,k)=log10(pl(i,k))
enddo
enddo
call reduce_flux(m,np,swu,u1,du,nx2,swh,w1,dw,ny2,coa,df)
do i=1,m
do k = 2, np+1
df_sub(i,k) = max(df(i,k) - df(i,k-1), 0._fp_kind)
enddo
enddo
do i=1,m
do k = 2, np+1
df_clr(i,k) = df_clr(i,k-1)+df_sub(i,k)
enddo
enddo
do k=1,np+1
do i=1,m
flc(i,k)=max(flc(i,k)-df_clr(i,k),0._fp_kind)
enddo
enddo
do i= 1, m
nctop(i)=np+1
enddo
do k=1,np
do i= 1, m
if (fcld(i,k).gt.fcld_min .and. nctop(i).eq.np+1) then
nctop(i)=k
endif
enddo
enddo
do i= 1,m
ntop=nctop(i)
if(overcast .and. fast_overcast) then
cld_alb = sum(taux(i,ntop+1:np))/(6.7+sum(taux(i,ntop+1:np)))
endif
if (ntop.lt.np+1) then
do k= ntop+1,np+1
if(overcast .and. fast_overcast) then
i_cos = int(cosz(i)*10.)+1
i_tau = int(cld_alb*10.)+1
ratio = ratio_lut(i_tau,i_cos)
else
ratio = max(0.01_fp_kind, min(1._fp_kind,(flx(i,k)/flc(i,k))))
endif
df_sub(i,k) = df_sub(i,k)*ratio
enddo
endif
enddo
do i=1,m
do k = 2, np+1
df_cld(i,k) = df_cld(i,k-1)+df_sub(i,k)
enddo
enddo
do i=1,m
do k = 1, np+1
flx(i,k) = max(flx(i,k)-df_cld(i,k) , 0._fp_kind)
flxd(i,k) = max(flxd(i,k)-df_cld(i,k), 0._fp_kind)
flxu(i,k) = flx(i,k)-flxd(i,k)
enddo
enddo
do i= 1,m
fdirir(i)=fdirir(i)-df_cld(i,np+1)
if (fdirir(i) .lt. 0.0) fdirir(i)=0.0
enddo
return
end subroutine swrad
subroutine sw_uvpar (m,np,wh,oh,dp, &
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal,taux,rsuvbm,rsuvdf, &
flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar)
implicit none
integer m,np,ict(m),icb(m)
real(Kind=fp_kind) taucld(m,np,3),reff(m,np,3),fcld(m,np)
real(Kind=fp_kind) cwp(m,np,3),wh(m,np),oh(m,np),dp(m,np)
real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
real(Kind=fp_kind) rsuvbm(m),rsuvdf(m),cosz(m)
real(Kind=fp_kind) flx(m,np+1),flc(m,np+1)
real(Kind=fp_kind) flxd(m,np+1)
real(Kind=fp_kind) fdiruv (m),fdifuv (m)
real(Kind=fp_kind) fdirpar(m),fdifpar(m)
real(Kind=fp_kind) taux(m,np)
integer nband
parameter (nband=8)
real(Kind=fp_kind) hk(nband),wk(nband),zk(nband),ry(nband)
real(Kind=fp_kind) aig(3),awg(3),arg(3)
real(Kind=fp_kind) aib(2),awb(2),arb(2)
integer i,k,ib
integer ih1,ih2,im1,im2,is1,is2
real(Kind=fp_kind) taurs,tauoz,tauwv
real(Kind=fp_kind) :: g1,g2,g3
real(Kind=fp_kind) :: dsm(m)
real(Kind=fp_kind) :: tauclb(m,np)
real(Kind=fp_kind) :: tauclf(m,np)
real(Kind=fp_kind) :: asycl(m,np)
real(Kind=fp_kind) :: tausto(m,np)
real(Kind=fp_kind) :: ssatau(m,np)
real(Kind=fp_kind) :: asysto(m,np)
real(Kind=fp_kind) :: tautob(m,np)
real(Kind=fp_kind) :: ssatob(m,np)
real(Kind=fp_kind) :: asytob(m,np)
real(Kind=fp_kind) :: tautof(m,np)
real(Kind=fp_kind) :: ssatof(m,np)
real(Kind=fp_kind) :: asytof(m,np)
real(Kind=fp_kind) :: rr(m,np+1,2)
real(Kind=fp_kind) :: tt(m,np+1,2)
real(Kind=fp_kind) :: td(m,np+1,2)
real(Kind=fp_kind) :: rs(m,np+1,2)
real(Kind=fp_kind) :: ts(m,np+1,2)
real(Kind=fp_kind) :: fall(m,np+1)
real(Kind=fp_kind) :: falld(m,np+1)
real(Kind=fp_kind) :: fclr(m,np+1)
real(Kind=fp_kind) :: fsdir(m)
real(Kind=fp_kind) :: fsdif(m)
real(Kind=fp_kind) :: asyclt(m)
real(Kind=fp_kind) :: cc(m,3)
real(Kind=fp_kind) :: rrt(m,np)
real(Kind=fp_kind) :: ttt(m,np)
real(Kind=fp_kind) :: tdt(m,np)
real(Kind=fp_kind) :: rst(m,np)
real(Kind=fp_kind) :: tst(m,np)
real(Kind=fp_kind) :: dum1(m,np+1)
real(Kind=fp_kind) :: dum2(m)
real(Kind=fp_kind) :: dum3(m)
real(Kind=fp_kind) :: dum(m,np)
data hk/.00057, .00367, .00083, .00417, &
.00600, .00556, .05913, .39081/
data zk /30.47, 187.2, 301.9, 42.83, &
7.09, 1.25, 0.0345, 0.0572/
data wk /7*0.0, 0.00075/
data ry /.00604, .00170, .00222, .00132, &
.00107, .00091, .00055, .00012/
data aib/ 3.33e-4,2.52/
data awb/-6.59e-3,1.65/
data arb/ 3.07e-3,0.00/
data aig/.74625,.0010541,-.00000264/
data awg/.82562,.0052900,-.00014866/
data arg/.883,0.0,0.0/
do i=1,m
dsm(i)=0.602
fdiruv(i)=0.0
fdifuv(i)=0.0
rr(i,np+1,1)=rsuvbm(i)
rr(i,np+1,2)=rsuvbm(i)
rs(i,np+1,1)=rsuvdf(i)
rs(i,np+1,2)=rsuvdf(i)
td(i,np+1,1)=0.0
td(i,np+1,2)=0.0
tt(i,np+1,1)=0.0
tt(i,np+1,2)=0.0
ts(i,np+1,1)=0.0
ts(i,np+1,2)=0.0
cc(i,1)=0.0
cc(i,2)=0.0
cc(i,3)=0.0
enddo
if (cldwater) then
do k=1,np
do i=1,m
taucld(i,k,1)=cwp(i,k,1)*(aib(1)+aib(2)/reff(i,k,1))
taucld(i,k,2)=cwp(i,k,2)*(awb(1)+awb(2)/reff(i,k,2))
taucld(i,k,3)=cwp(i,k,3)* arb(1)
enddo
enddo
endif
if (overcast) then
do k=1,np
do i=1,m
tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
tauclf(i,k)=tauclb(i,k)
enddo
enddo
do k=1,3
do i=1,m
cc(i,k)=1.0
enddo
enddo
else
call cloud_scale (m,np,cosz,fcld,taucld,ict,icb, &
cc,tauclb,tauclf)
endif
do k=1,np
do i=1,m
asyclt(i)=1.0
taux(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
if (taux(i,k).gt.taux_min .and. fcld(i,k).gt.fcld_min) then
g1=(aig(1)+(aig(2)+aig(3)*reff(i,k,1))*reff(i,k,1))*taucld(i,k,1)
g2=(awg(1)+(awg(2)+awg(3)*reff(i,k,2))*reff(i,k,2))*taucld(i,k,2)
g3= arg(1)*taucld(i,k,3)
asyclt(i)=(g1+g2+g3)/taux(i,k)
endif
enddo
do i=1,m
asycl(i,k)=asyclt(i)
enddo
enddo
do 100 ib=1,nband
do k=1,np
do i=1,m
taurs=ry(ib)*dp(i,k)
tauoz=zk(ib)*oh(i,k)
tauwv=wk(ib)*wh(i,k)
tausto(i,k)=max(taurs+tauoz+tauwv+taual(i,k,ib),opt_min)
ssatau(i,k)=max(ssaal(i,k,ib)*taual(i,k,ib)+taurs,opt_min)
asysto(i,k)=max(asyal(i,k,ib)*ssaal(i,k,ib)*taual(i,k,ib),opt_min)
if (overcast .and. fast_overcast ) then ; else
tautob(i,k)=tausto(i,k)
ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min)
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
rr(i,k,1)=rrt(i,k)
tt(i,k,1)=ttt(i,k)
td(i,k,1)=tdt(i,k)
rs(i,k,1)=rst(i,k)
ts(i,k,1)=tst(i,k)
endif
if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. &
(overcast .and. fast_overcast ) ) then
tautob(i,k)=tausto(i,k) + max(tauclb(i,k),opt_min)
ssatob(i,k)=max((ssatau(i,k)+tauclb(i,k))/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max((asysto(i,k)+asycl(i,k)*tauclb(i,k)) &
/(ssatob(i,k)*tautob(i,k)),opt_min)
tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min)
ssatof(i,k)=max((ssatau(i,k)+tauclf(i,k))/tautof(i,k),opt_min)
ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind)
asytof(i,k)=max((asysto(i,k)+asycl(i,k)*tauclf(i,k)) &
/(ssatof(i,k)*tautof(i,k)),opt_min)
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
endif
rr(i,k,2)=rrt(i,k)
tt(i,k,2)=ttt(i,k)
td(i,k,2)=tdt(i,k)
rs(i,k,2)=rst(i,k)
ts(i,k,2)=tst(i,k)
enddo
enddo
if (overcast) then
if( .not. fast_overcast ) then
ih1=1 ; im1=1 ; is1=1
ih2=1 ; im2=1 ; is2=1
call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3)
endif
ih1=2 ; im1=2 ; is1=2
ih2=2 ; im2=2 ; is2=2
call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif)
else
ih1=1 ; im1=1 ; is1=1
ih2=2 ; im2=2 ; is2=2
call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
endif
do k=1,np+1
do i=1,m
flx(i,k)=flx(i,k)+fall(i,k)*hk(ib)
flxd(i,k)=flxd(i,k)+falld(i,k)*hk(ib)
if(overcast .and. fast_overcast) then ; else
flc(i,k)=flc(i,k)+fclr(i,k)*hk(ib)
endif
enddo
enddo
if(ib.lt.8) then
do i=1,m
fdiruv(i)=fdiruv(i)+fsdir(i)*hk(ib)
fdifuv(i)=fdifuv(i)+fsdif(i)*hk(ib)
enddo
else
do i=1,m
fdirpar(i)=fsdir(i)*hk(ib)
fdifpar(i)=fsdif(i)*hk(ib)
enddo
endif
100 continue
return
end subroutine sw_uvpar
subroutine sw_ir (m,np,wh,dp, &
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal, &
rsirbm,rsirdf,flx,flc,flxd,fdirir,fdifir)
implicit none
integer m,np,ict(m),icb(m)
integer ih1,ih2,im1,im2,is1,is2
real(Kind=fp_kind) cwp(m,np,3),taucld(m,np,3),reff(m,np,3)
real(Kind=fp_kind) fcld(m,np),cosz(m)
real(Kind=fp_kind) rsirbm(m),rsirdf(m)
real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
real(Kind=fp_kind) dp(m,np),wh(m,np)
real(Kind=fp_kind) flx(m,np+1),flc(m,np+1)
real(Kind=fp_kind) flxd(m,np+1)
real(Kind=fp_kind) fdirir(m),fdifir(m)
integer nk,nband
parameter (nk=10,nband=3)
real(Kind=fp_kind) :: taux
real(Kind=fp_kind) :: w1, w2, w3
real(Kind=fp_kind) :: g1, g2, g3
real(Kind=fp_kind) hk(nband,nk),xk(nk),ry(nband)
real(Kind=fp_kind) aib(nband,2),awb(nband,2),arb(nband,2)
real(Kind=fp_kind) aia(nband,3),awa(nband,3),ara(nband,3)
real(Kind=fp_kind) aig(nband,3),awg(nband,3),arg(nband,3)
integer ib,iv,ik,i,k
real(Kind=fp_kind) taurs,tauwv
real(Kind=fp_kind) :: dsm(m)
real(Kind=fp_kind) :: tauclb(m,np)
real(Kind=fp_kind) :: tauclf(m,np)
real(Kind=fp_kind) :: cc(m,3)
real(Kind=fp_kind) :: ssacl(m,np)
real(Kind=fp_kind) :: asycl(m,np)
real(Kind=fp_kind) :: rr(m,np+1,2)
real(Kind=fp_kind) :: tt(m,np+1,2)
real(Kind=fp_kind) :: td(m,np+1,2)
real(Kind=fp_kind) :: rs(m,np+1,2)
real(Kind=fp_kind) :: ts(m,np+1,2)
real(Kind=fp_kind) :: fall(m,np+1)
real(Kind=fp_kind) :: falld(m,np+1)
real(Kind=fp_kind) :: fclr(m,np+1)
real(Kind=fp_kind) :: fsdir(m)
real(Kind=fp_kind) :: fsdif(m)
real(Kind=fp_kind) :: tausto(m,np)
real(Kind=fp_kind) :: ssatau(m,np)
real(Kind=fp_kind) :: asysto(m,np)
real(Kind=fp_kind) :: tautob(m,np)
real(Kind=fp_kind) :: ssatob(m,np)
real(Kind=fp_kind) :: asytob(m,np)
real(Kind=fp_kind) :: tautof(m,np)
real(Kind=fp_kind) :: ssatof(m,np)
real(Kind=fp_kind) :: asytof(m,np)
real(Kind=fp_kind) :: ssaclt(m)
real(Kind=fp_kind) :: asyclt(m)
real(Kind=fp_kind) :: rrt(m,np)
real(Kind=fp_kind) :: ttt(m,np)
real(Kind=fp_kind) :: tdt(m,np)
real(Kind=fp_kind) :: rst(m,np)
real(Kind=fp_kind) :: tst(m,np)
real(Kind=fp_kind) :: dum1(m,np+1)
real(Kind=fp_kind) :: dum2(m)
real(Kind=fp_kind) :: dum3(m)
real(Kind=fp_kind) :: dum(m,np)
data xk/ &
0.0010, 0.0133, 0.0422, 0.1334, 0.4217, &
1.334, 5.623, 31.62, 177.8, 1000.0/
data hk/ &
.20673,.08236,.01074, .03497,.01157,.00360, &
.03011,.01133,.00411, .02260,.01143,.00421, &
.01336,.01240,.00389, .00696,.01258,.00326, &
.00441,.01381,.00499, .00115,.00650,.00465, &
.00026,.00244,.00245, .00000,.00094,.00145/
data ry /.0000156, .0000018, .000000/
data aib/ &
.000333, .000333, .000333, &
2.52, 2.52, 2.52/
data awb/ &
-0.0101, -0.0166, -0.0339, &
1.72, 1.85, 2.16/
data arb/ &
0.00307, 0.00307, 0.00307, &
0.0 , 0.0 , 0.0 /
data aia/ &
-.00000260, .00215346, .08938331, &
.00000746, .00073709, .00299387, &
.00000000,-.00000134,-.00001038/
data awa/ &
.00000007,-.00019934, .01209318, &
.00000845, .00088757, .01784739, &
-.00000004,-.00000650,-.00036910/
data ara/ &
.029, .342, .466, &
.0000, .000, .000, &
.0000, .000, .000/
data aig/ &
.74935228, .76098937, .84090400, &
.00119715, .00141864, .00126222, &
-.00000367,-.00000396,-.00000385/
data awg/ &
.79375035, .74513197, .83530748, &
.00832441, .01370071, .00257181, &
-.00023263,-.00038203, .00005519/
data arg/ &
.891, .948, .971, &
.0000, .000, .000, &
.0000, .000, .000/
do i=1,m
dsm(i)=0.602
fdirir(i)=0.0
fdifir(i)=0.0
rr(i,np+1,1)=rsirbm(i)
rr(i,np+1,2)=rsirbm(i)
rs(i,np+1,1)=rsirdf(i)
rs(i,np+1,2)=rsirdf(i)
td(i,np+1,1)=0.0
td(i,np+1,2)=0.0
tt(i,np+1,1)=0.0
tt(i,np+1,2)=0.0
ts(i,np+1,1)=0.0
ts(i,np+1,2)=0.0
cc(i,1)=0.0
cc(i,2)=0.0
cc(i,3)=0.0
enddo
do 100 ib=1,nband
iv=ib+8
if (cldwater) then
do k=1,np
do i=1,m
taucld(i,k,1)=cwp(i,k,1)*(aib(ib,1) &
+aib(ib,2)/reff(i,k,1))
taucld(i,k,2)=cwp(i,k,2)*(awb(ib,1) &
+awb(ib,2)/reff(i,k,2))
taucld(i,k,3)=cwp(i,k,3)*arb(ib,1)
enddo
enddo
endif
if (overcast) then
do k=1,np
do i=1,m
tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
tauclf(i,k)=tauclb(i,k)
enddo
enddo
do k=1,3
do i=1,m
cc(i,k)=1.0
enddo
enddo
else
call cloud_scale (m,np,cosz,fcld,taucld,ict,icb, &
cc,tauclb,tauclf)
endif
do k=1,np
do i=1,m
ssaclt(i)=0.99999
asyclt(i)=1.0
taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then
w1=(1.-(aia(ib,1)+(aia(ib,2)+ &
aia(ib,3)*reff(i,k,1))*reff(i,k,1)))*taucld(i,k,1)
w2=(1.-(awa(ib,1)+(awa(ib,2)+ &
awa(ib,3)*reff(i,k,2))*reff(i,k,2)))*taucld(i,k,2)
w3=(1.- ara(ib,1))*taucld(i,k,3)
ssaclt(i)=(w1+w2+w3)/taux
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff(i,k,1))*reff(i,k,1))*w1
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff(i,k,2))*reff(i,k,2))*w2
g3= arg(ib,1)*w3
asyclt(i)=(g1+g2+g3)/(w1+w2+w3)
endif
enddo
do i=1,m
ssacl(i,k)=ssaclt(i)
enddo
do i=1,m
asycl(i,k)=asyclt(i)
enddo
enddo
do 200 ik=1,nk
do k=1,np
do i=1,m
taurs=ry(ib)*dp(i,k)
tauwv=xk(ik)*wh(i,k)
tausto(i,k)=max(taurs+tauwv+taual(i,k,iv),opt_min)
ssatau(i,k)=max(ssaal(i,k,iv)*taual(i,k,iv)+taurs,opt_min)
asysto(i,k)=max(asyal(i,k,iv)*ssaal(i,k,iv)*taual(i,k,iv),opt_min)
if (overcast .and. fast_overcast ) then
else
tautob(i,k)=tausto(i,k)
ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min)
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
rr(i,k,1)=rrt(i,k)
tt(i,k,1)=ttt(i,k)
td(i,k,1)=tdt(i,k)
rs(i,k,1)=rst(i,k)
ts(i,k,1)=tst(i,k)
endif
if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. &
(overcast .and. fast_overcast ) ) then
tautob(i,k)=tausto(i,k)+max(tauclb(i,k),opt_min)
ssatob(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclb(i,k))/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclb(i,k)) &
/(ssatob(i,k)*tautob(i,k)),opt_min)
tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min)
ssatof(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclf(i,k))/tautof(i,k),opt_min)
ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind)
asytof(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclf(i,k)) &
/(ssatof(i,k)*tautof(i,k)),opt_min)
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
endif
rr(i,k,2)=rrt(i,k)
tt(i,k,2)=ttt(i,k)
td(i,k,2)=tdt(i,k)
rs(i,k,2)=rst(i,k)
ts(i,k,2)=tst(i,k)
enddo
enddo
if (overcast) then
if( .not. fast_overcast ) then
ih1=1 ; im1=1 ; is1=1
ih2=1 ; im2=1 ; is2=1
call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3)
endif
ih1=2 ; im1=2 ; is1=2
ih2=2 ; im2=2 ; is2=2
call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif)
else
ih1=1 ; im1=1 ; is1=1
ih2=2 ; im2=2 ; is2=2
call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
endif
do k=1,np+1
do i=1,m
flx(i,k) = flx(i,k)+fall(i,k)*hk(ib,ik)
flxd(i,k) = flxd(i,k)+falld(i,k)*hk(ib,ik)
if(overcast .and. fast_overcast) then
else
flc(i,k) = flc(i,k)+fclr(i,k)*hk(ib,ik)
endif
enddo
enddo
do i=1,m
fdirir(i) = fdirir(i)+fsdir(i)*hk(ib,ik)
fdifir(i) = fdifir(i)+fsdif(i)*hk(ib,ik)
enddo
200 continue
100 continue
return
end subroutine sw_ir
subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, &
cc,tauclb,tauclf)
implicit none
integer m,np,ict(m),icb(m)
real(Kind=fp_kind) cosz(m),fcld(m,np),taucld(m,np,3)
real(Kind=fp_kind) cc(m,3),tauclb(m,np),tauclf(m,np)
integer i,j,k,im,it,ia,kk
real(Kind=fp_kind) fm,ft,fa,xai,taux
integer nm,nt,na
parameter (nm=11,nt=9,na=11)
real(Kind=fp_kind) dm,dt,da,t1,caib(nm,nt,na),caif(nt,na)
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031)
data ((caib(1,i,j),j=1,11),i=1,9)/ &
.000,0.068,0.140,0.216,0.298,0.385,0.481,0.586,0.705,0.840,1.000, &
.000,0.052,0.106,0.166,0.230,0.302,0.383,0.478,0.595,0.752,1.000, &
.000,0.038,0.078,0.120,0.166,0.218,0.276,0.346,0.438,0.582,1.000, &
.000,0.030,0.060,0.092,0.126,0.164,0.206,0.255,0.322,0.442,1.000, &
.000,0.025,0.051,0.078,0.106,0.136,0.170,0.209,0.266,0.462,1.000, &
.000,0.023,0.046,0.070,0.095,0.122,0.150,0.187,0.278,0.577,1.000, &
.000,0.022,0.043,0.066,0.089,0.114,0.141,0.187,0.354,0.603,1.000, &
.000,0.021,0.042,0.063,0.086,0.108,0.135,0.214,0.349,0.565,1.000, &
.000,0.021,0.041,0.062,0.083,0.105,0.134,0.202,0.302,0.479,1.000/
data ((caib(2,i,j),j=1,11),i=1,9)/ &
.000,0.088,0.179,0.272,0.367,0.465,0.566,0.669,0.776,0.886,1.000, &
.000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.749,0.870,1.000, &
.000,0.065,0.134,0.207,0.286,0.372,0.466,0.572,0.692,0.831,1.000, &
.000,0.049,0.102,0.158,0.221,0.290,0.370,0.465,0.583,0.745,1.000, &
.000,0.037,0.076,0.118,0.165,0.217,0.278,0.354,0.459,0.638,1.000, &
.000,0.030,0.061,0.094,0.130,0.171,0.221,0.286,0.398,0.631,1.000, &
.000,0.026,0.052,0.081,0.111,0.146,0.189,0.259,0.407,0.643,1.000, &
.000,0.023,0.047,0.072,0.098,0.129,0.170,0.250,0.387,0.598,1.000, &
.000,0.022,0.044,0.066,0.090,0.118,0.156,0.224,0.328,0.508,1.000/
data ((caib(3,i,j),j=1,11),i=1,9)/ &
.000,0.094,0.189,0.285,0.383,0.482,0.582,0.685,0.788,0.894,1.000, &
.000,0.088,0.178,0.271,0.366,0.465,0.565,0.669,0.776,0.886,1.000, &
.000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.750,0.870,1.000, &
.000,0.066,0.134,0.209,0.289,0.375,0.470,0.577,0.697,0.835,1.000, &
.000,0.050,0.104,0.163,0.227,0.300,0.383,0.483,0.606,0.770,1.000, &
.000,0.038,0.080,0.125,0.175,0.233,0.302,0.391,0.518,0.710,1.000, &
.000,0.031,0.064,0.100,0.141,0.188,0.249,0.336,0.476,0.689,1.000, &
.000,0.026,0.054,0.084,0.118,0.158,0.213,0.298,0.433,0.638,1.000, &
.000,0.023,0.048,0.074,0.102,0.136,0.182,0.254,0.360,0.542,1.000/
data ((caib(4,i,j),j=1,11),i=1,9)/ &
.000,0.096,0.193,0.290,0.389,0.488,0.589,0.690,0.792,0.896,1.000, &
.000,0.092,0.186,0.281,0.378,0.477,0.578,0.680,0.785,0.891,1.000, &
.000,0.086,0.174,0.264,0.358,0.455,0.556,0.660,0.769,0.882,1.000, &
.000,0.074,0.153,0.235,0.323,0.416,0.514,0.622,0.737,0.862,1.000, &
.000,0.061,0.126,0.195,0.271,0.355,0.449,0.555,0.678,0.823,1.000, &
.000,0.047,0.098,0.153,0.215,0.286,0.370,0.471,0.600,0.770,1.000, &
.000,0.037,0.077,0.120,0.170,0.230,0.303,0.401,0.537,0.729,1.000, &
.000,0.030,0.062,0.098,0.138,0.187,0.252,0.343,0.476,0.673,1.000, &
.000,0.026,0.053,0.082,0.114,0.154,0.207,0.282,0.391,0.574,1.000/
data ((caib(5,i,j),j=1,11),i=1,9)/ &
.000,0.097,0.194,0.293,0.392,0.492,0.592,0.693,0.794,0.897,1.000, &
.000,0.094,0.190,0.286,0.384,0.483,0.584,0.686,0.789,0.894,1.000, &
.000,0.090,0.181,0.274,0.370,0.468,0.569,0.672,0.778,0.887,1.000, &
.000,0.081,0.165,0.252,0.343,0.439,0.539,0.645,0.757,0.874,1.000, &
.000,0.069,0.142,0.218,0.302,0.392,0.490,0.598,0.717,0.850,1.000, &
.000,0.054,0.114,0.178,0.250,0.330,0.422,0.529,0.656,0.810,1.000, &
.000,0.042,0.090,0.141,0.200,0.269,0.351,0.455,0.589,0.764,1.000, &
.000,0.034,0.070,0.112,0.159,0.217,0.289,0.384,0.515,0.703,1.000, &
.000,0.028,0.058,0.090,0.128,0.174,0.231,0.309,0.420,0.602,1.000/
data ((caib(6,i,j),j=1,11),i=1,9)/ &
.000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
.000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, &
.000,0.092,0.186,0.281,0.378,0.477,0.577,0.680,0.784,0.891,1.000, &
.000,0.086,0.174,0.264,0.358,0.455,0.556,0.661,0.769,0.882,1.000, &
.000,0.075,0.154,0.237,0.325,0.419,0.518,0.626,0.741,0.865,1.000, &
.000,0.062,0.129,0.201,0.279,0.366,0.462,0.571,0.694,0.836,1.000, &
.000,0.049,0.102,0.162,0.229,0.305,0.394,0.501,0.631,0.793,1.000, &
.000,0.038,0.080,0.127,0.182,0.245,0.323,0.422,0.550,0.730,1.000, &
.000,0.030,0.064,0.100,0.142,0.192,0.254,0.334,0.448,0.627,1.000/
data ((caib(7,i,j),j=1,11),i=1,9)/ &
.000,0.098,0.198,0.296,0.396,0.496,0.596,0.696,0.797,0.898,1.000, &
.000,0.097,0.194,0.293,0.392,0.491,0.591,0.693,0.794,0.897,1.000, &
.000,0.094,0.190,0.286,0.384,0.483,0.583,0.686,0.789,0.894,1.000, &
.000,0.089,0.180,0.274,0.369,0.467,0.568,0.672,0.778,0.887,1.000, &
.000,0.081,0.165,0.252,0.344,0.440,0.541,0.646,0.758,0.875,1.000, &
.000,0.069,0.142,0.221,0.306,0.397,0.496,0.604,0.722,0.854,1.000, &
.000,0.056,0.116,0.182,0.256,0.338,0.432,0.540,0.666,0.816,1.000, &
.000,0.043,0.090,0.143,0.203,0.273,0.355,0.455,0.583,0.754,1.000, &
.000,0.034,0.070,0.111,0.157,0.210,0.276,0.359,0.474,0.650,1.000/
data ((caib(8,i,j),j=1,11),i=1,9)/ &
.000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, &
.000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
.000,0.096,0.193,0.290,0.390,0.489,0.589,0.690,0.793,0.896,1.000, &
.000,0.093,0.186,0.282,0.379,0.478,0.578,0.681,0.786,0.892,1.000, &
.000,0.086,0.175,0.266,0.361,0.458,0.558,0.663,0.771,0.883,1.000, &
.000,0.076,0.156,0.240,0.330,0.423,0.523,0.630,0.744,0.867,1.000, &
.000,0.063,0.130,0.203,0.282,0.369,0.465,0.572,0.694,0.834,1.000, &
.000,0.049,0.102,0.161,0.226,0.299,0.385,0.486,0.611,0.774,1.000, &
.000,0.038,0.078,0.122,0.172,0.229,0.297,0.382,0.498,0.672,1.000/
data ((caib(9,i,j),j=1,11),i=1,9)/ &
.000,0.099,0.199,0.298,0.398,0.498,0.598,0.699,0.799,0.899,1.000, &
.000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, &
.000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
.000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, &
.000,0.092,0.185,0.280,0.376,0.474,0.575,0.678,0.782,0.890,1.000, &
.000,0.084,0.170,0.259,0.351,0.447,0.547,0.652,0.762,0.878,1.000, &
.000,0.071,0.146,0.224,0.308,0.398,0.494,0.601,0.718,0.850,1.000, &
.000,0.056,0.114,0.178,0.248,0.325,0.412,0.514,0.638,0.793,1.000, &
.000,0.042,0.086,0.134,0.186,0.246,0.318,0.405,0.521,0.691,1.000/
data ((caib(10,i,j),j=1,11),i=1,9)/ &
.000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
.000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
.000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
.000,0.100,0.199,0.298,0.398,0.498,0.598,0.698,0.798,0.899,1.000, &
.000,0.098,0.196,0.294,0.392,0.491,0.590,0.691,0.793,0.896,1.000, &
.000,0.092,0.185,0.278,0.374,0.470,0.570,0.671,0.777,0.886,1.000, &
.000,0.081,0.162,0.246,0.333,0.424,0.521,0.625,0.738,0.862,1.000, &
.000,0.063,0.128,0.196,0.270,0.349,0.438,0.540,0.661,0.809,1.000, &
.000,0.046,0.094,0.146,0.202,0.264,0.337,0.426,0.542,0.710,1.000/
data ((caib(11,i,j),j=1,11),i=1,9)/ &
.000,0.101,0.202,0.302,0.402,0.502,0.602,0.702,0.802,0.901,1.000, &
.000,0.102,0.202,0.303,0.404,0.504,0.604,0.703,0.802,0.902,1.000, &
.000,0.102,0.205,0.306,0.406,0.506,0.606,0.706,0.804,0.902,1.000, &
.000,0.104,0.207,0.309,0.410,0.510,0.609,0.707,0.805,0.902,1.000, &
.000,0.106,0.208,0.309,0.409,0.508,0.606,0.705,0.803,0.902,1.000, &
.000,0.102,0.202,0.298,0.395,0.493,0.590,0.690,0.790,0.894,1.000, &
.000,0.091,0.179,0.267,0.357,0.449,0.545,0.647,0.755,0.872,1.000, &
.000,0.073,0.142,0.214,0.290,0.372,0.462,0.563,0.681,0.822,1.000, &
.000,0.053,0.104,0.158,0.217,0.281,0.356,0.446,0.562,0.726,1.000/
data ((caif(i,j),j=1,11),i=1,9)/ &
.000,0.099,0.198,0.297,0.397,0.496,0.597,0.697,0.798,0.899,1.000, &
.000,0.098,0.196,0.294,0.394,0.494,0.594,0.694,0.796,0.898,1.000, &
.000,0.096,0.192,0.290,0.388,0.487,0.587,0.689,0.792,0.895,1.000, &
.000,0.092,0.185,0.280,0.376,0.476,0.576,0.678,0.783,0.890,1.000, &
.000,0.085,0.173,0.263,0.357,0.454,0.555,0.659,0.768,0.881,1.000, &
.000,0.076,0.154,0.237,0.324,0.418,0.517,0.624,0.738,0.864,1.000, &
.000,0.063,0.131,0.203,0.281,0.366,0.461,0.567,0.688,0.830,1.000, &
.000,0.052,0.107,0.166,0.232,0.305,0.389,0.488,0.610,0.770,1.000, &
.000,0.043,0.088,0.136,0.189,0.248,0.317,0.400,0.510,0.675,1.000/
do i=1,m
cc(i,1)=0.0
cc(i,2)=0.0
cc(i,3)=0.0
enddo
do i=1,m
do k=1,ict(i)-1
cc(i,1)=max(cc(i,1),fcld(i,k))
enddo
enddo
do i=1,m
do k=ict(i),icb(i)-1
cc(i,2)=max(cc(i,2),fcld(i,k))
enddo
enddo
do i=1,m
do k=icb(i),np
cc(i,3)=max(cc(i,3),fcld(i,k))
enddo
enddo
do i=1,m
do k=1,np
if(k.lt.ict(i)) then
kk=1
elseif(k.ge.ict(i) .and. k.lt.icb(i)) then
kk=2
else
kk=3
endif
tauclb(i,k) = 0.0
tauclf(i,k) = 0.0
taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then
fa=fcld(i,k)/cc(i,kk)
taux=min(taux,32._fp_kind)
fm=cosz(i)/dm
ft=(log10(taux)-t1)/dt
fa=fa/da
im=int(fm+1.5)
it=int(ft+1.5)
ia=int(fa+1.5)
im=max(im,2)
it=max(it,2)
ia=max(ia,2)
im=min(im,nm-1)
it=min(it,nt-1)
ia=min(ia,na-1)
fm=fm-float(im-1)
ft=ft-float(it-1)
fa=fa-float(ia-1)
xai= (-caib(im-1,it,ia)*(1.-fm)+ &
caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm)
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ &
caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ &
caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa)
xai= xai-2.*caib(im,it,ia)
xai=max(xai,0.0_fp_kind)
xai=min(xai,1.0_fp_kind)
tauclb(i,k) = taux*xai
xai= (-caif(it-1,ia)*(1.-ft)+ &
caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
xai=xai+(-caif(it,ia-1)*(1.-fa)+ &
caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
xai= xai-caif(it,ia)
xai=max(xai,0.0_fp_kind)
xai=min(xai,1.0_fp_kind)
tauclf(i,k) = taux*xai
endif
enddo
enddo
return
end subroutine cloud_scale
subroutine delta_eddington(tau,ssc,g0,cza,rr,tt,td)
implicit none
real(Kind=fp_kind) zero,one,two,three,four,fourth,seven,thresh
parameter (one =1., three=3.)
parameter (two =2., seven=7.)
parameter (four=4., fourth=.25)
parameter (zero=0., thresh=1.e-8)
real(Kind=fp_kind) tau,ssc,g0,cza
real(Kind=fp_kind) rr,tt,td
real(Kind=fp_kind) zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, &
all,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4
real(Kind=fp_kind) taupdzth,akkdtaup
zth = cza
ff = g0*g0
xx = one-ff*ssc
taup= tau*xx
sscp= ssc*(one-ff)/xx
gp = g0/(one+g0)
xx = three*gp
gm1 = (seven - sscp*(four+xx))*fourth
gm2 = -(one - sscp*(four-xx))*fourth
akk = sqrt((gm1+gm2)*(gm1-gm2))
xx = akk * zth
if (abs((one-xx)*(one+xx)) .lt. thresh) then
zth = zth + 0.001
xx = akk * zth
endif
st7 = one - xx
st8 = one + xx
st3 = st7 * st8
td=0.
taupdzth=taup/zth
if (taupdzth .lt. 40. ) td = exp(-taup/zth)
gm3 = (two - zth*three*gp)*fourth
xx = gm1 - gm2
alf1 = gm1 - gm3 * xx
alf2 = gm2 + gm3 * xx
xx = akk * two
all = (gm3 - alf2 * zth )*xx*td
bll = (one - gm3 + alf1*zth)*xx
xx = akk * gm3
cll = (alf2 + xx) * st7
dll = (alf2 - xx) * st8
xx = akk * (one-gm3)
fll = (alf1 + xx) * st8
ell = (alf1 - xx) * st7
st2=0.
akkdtaup=akk*taup
if (akkdtaup.lt.40.) st2 = exp(-akkdtaup)
st4 = st2 * st2
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3)
rr = ( cll-dll*st4 -all*st2)*st1
tt = - ((fll-ell*st4)*td-bll*st2)*st1
rr = max(rr,zero)
tt = max(tt,zero)
tt = tt+td
end subroutine delta_eddington
subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
implicit none
integer m,np,ict(m),icb(m),ih1,ih2,im1,im2,is1,is2
real(Kind=fp_kind) rr(m,np+1,2),tt(m,np+1,2),td(m,np+1,2)
real(Kind=fp_kind) rs(m,np+1,2),ts(m,np+1,2)
real(Kind=fp_kind) cc(m,3)
integer i,k,ih,im,is
real(Kind=fp_kind) denm,xx,yy
real(Kind=fp_kind) fupdif
real(Kind=fp_kind) :: rra(m,np+1,2,2)
real(Kind=fp_kind) :: tta(m,np+1,2,2)
real(Kind=fp_kind) :: tda(m,np+1,2,2)
real(Kind=fp_kind) :: rsa(m,np+1,2,2)
real(Kind=fp_kind) :: rxa(m,np+1,2,2)
real(Kind=fp_kind) :: ch(m)
real(Kind=fp_kind) :: cm(m)
real(Kind=fp_kind) :: ct(m)
real(Kind=fp_kind) :: flxdn(m,np+1)
real(Kind=fp_kind) :: fdndir(m)
real(Kind=fp_kind) :: fdndif(m)
real(Kind=fp_kind) flxdnu(m,np+1),flxdnd(m,np+1)
real(Kind=fp_kind) fclr(m,np+1),fall(m,np+1)
real(Kind=fp_kind) falld(m,np+1)
real(Kind=fp_kind) fsdir(m),fsdif(m)
if(overcast) then
else
endif
do k=1,np+1
do i=1,m
fclr(i,k)=0.0
fall(i,k)=0.0
falld(i,k)=0.0
enddo
enddo
do i=1,m
fsdir(i)=0.0
fsdif(i)=0.0
enddo
do ih=ih1,ih2
do i=1,m
tda(i,1,ih,1)=td(i,1,ih)
tta(i,1,ih,1)=tt(i,1,ih)
rsa(i,1,ih,1)=rs(i,1,ih)
tda(i,1,ih,2)=td(i,1,ih)
tta(i,1,ih,2)=tt(i,1,ih)
rsa(i,1,ih,2)=rs(i,1,ih)
enddo
do i=1,m
do k=2,ict(i)-1
denm = ts(i,k,ih)/( 1.-rsa(i,k-1,ih,1)*rs(i,k,ih))
tda(i,k,ih,1)= tda(i,k-1,ih,1)*td(i,k,ih)
tta(i,k,ih,1)= tda(i,k-1,ih,1)*tt(i,k,ih) &
+(tda(i,k-1,ih,1)*rsa(i,k-1,ih,1)*rr(i,k,ih) &
+tta(i,k-1,ih,1)-tda(i,k-1,ih,1))*denm
rsa(i,k,ih,1)= rs(i,k,ih)+ts(i,k,ih) &
*rsa(i,k-1,ih,1)*denm
if(tda(i,k,ih,1).lt.1.e-10) tda(i,k,ih,1)=0.
if(tta(i,k,ih,1).lt.1.e-10) tta(i,k,ih,1)=0.
tda(i,k,ih,2)= tda(i,k,ih,1)
tta(i,k,ih,2)= tta(i,k,ih,1)
rsa(i,k,ih,2)= rsa(i,k,ih,1)
enddo
enddo
do im=im1,im2
do i=1,m
do k=ict(i),icb(i)-1
denm = ts(i,k,im)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,im))
tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,im)
tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,im) &
+(tda(i,k-1,ih,im)*rsa(i,k-1,ih,im)*rr(i,k,im) &
+tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm
rsa(i,k,ih,im)= rs(i,k,im)+ts(i,k,im) &
*rsa(i,k-1,ih,im)*denm
if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0.
if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0.
enddo
enddo
enddo
enddo
do is=is1,is2
do i=1,m
rra(i,np+1,1,is)=rr(i,np+1,is)
rxa(i,np+1,1,is)=rs(i,np+1,is)
rra(i,np+1,2,is)=rr(i,np+1,is)
rxa(i,np+1,2,is)=rs(i,np+1,is)
enddo
do i=1,m
do k=np,icb(i),-1
denm=ts(i,k,is)/( 1.-rs(i,k,is)*rxa(i,k+1,1,is) )
rra(i,k,1,is)=rr(i,k,is)+(td(i,k,is)*rra(i,k+1,1,is) &
+(tt(i,k,is)-td(i,k,is))*rxa(i,k+1,1,is))*denm
rxa(i,k,1,is)= rs(i,k,is)+ts(i,k,is) &
*rxa(i,k+1,1,is)*denm
rra(i,k,2,is)=rra(i,k,1,is)
rxa(i,k,2,is)=rxa(i,k,1,is)
enddo
enddo
do im=im1,im2
do i=1,m
do k=icb(i)-1,ict(i),-1
denm=ts(i,k,im)/( 1.-rs(i,k,im)*rxa(i,k+1,im,is) )
rra(i,k,im,is)= rr(i,k,im)+(td(i,k,im)*rra(i,k+1,im,is) &
+(tt(i,k,im)-td(i,k,im))*rxa(i,k+1,im,is))*denm
rxa(i,k,im,is)= rs(i,k,im)+ts(i,k,im) &
*rxa(i,k+1,im,is)*denm
enddo
enddo
enddo
enddo
do ih=ih1,ih2
if(ih.eq.1) then
do i=1,m
ch(i)=1.0-cc(i,1)
enddo
else
do i=1,m
ch(i)=cc(i,1)
enddo
endif
do im=im1,im2
if(im.eq.1) then
do i=1,m
cm(i)=ch(i)*(1.0-cc(i,2))
enddo
else
do i=1,m
cm(i)=ch(i)*cc(i,2)
enddo
endif
do is=is1,is2
if(is.eq.1) then
do i=1,m
ct(i)=cm(i)*(1.0-cc(i,3))
enddo
else
do i=1,m
ct(i)=cm(i)*cc(i,3)
enddo
endif
do i=1,m
do k=icb(i),np
denm = ts(i,k,is)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,is) )
tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,is)
tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,is) &
+(tda(i,k-1,ih,im)*rr(i,k,is) &
*rsa(i,k-1,ih,im)+tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm
rsa(i,k,ih,im)= rs(i,k,is)+ts(i,k,is) &
*rsa(i,k-1,ih,im)*denm
if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0.
if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0.
enddo
enddo
do i=1,m
do k=ict(i)-1,1,-1
denm =ts(i,k,ih)/(1.-rs(i,k,ih)*rxa(i,k+1,im,is))
rra(i,k,im,is)= rr(i,k,ih)+(td(i,k,ih)*rra(i,k+1,im,is) &
+(tt(i,k,ih)-td(i,k,ih))*rxa(i,k+1,im,is))*denm
rxa(i,k,im,is)= rs(i,k,ih)+ts(i,k,ih) &
*rxa(i,k+1,im,is)*denm
enddo
enddo
do k=2,np+1
do i=1,m
denm= 1./(1.-rsa(i,k-1,ih,im)*rxa(i,k,im,is))
fdndir(i)= tda(i,k-1,ih,im)
xx= tda(i,k-1,ih,im)*rra(i,k,im,is)
yy= tta(i,k-1,ih,im)-tda(i,k-1,ih,im)
fdndif(i)= (xx*rsa(i,k-1,ih,im)+yy)*denm
fupdif= (xx+yy*rxa(i,k,im,is))*denm
flxdn(i,k)= fdndir(i)+fdndif(i)-fupdif
flxdnu(i,k)=-fupdif
flxdnd(i,k)=fdndir(i)+fdndif(i)
enddo
enddo
do i=1,m
flxdn(i,1)=1.0-rra(i,1,im,is)
flxdnu(i,1)=-rra(i,1,im,is)
flxdnd(i,1)=1.0
enddo
do k=1,np+1
do i=1,m
if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then
fclr(i,k)=flxdn(i,k)
endif
fall(i,k)=fall(i,k)+flxdn(i,k)*ct(i)
falld(i,k)=falld(i,k)+flxdnd(i,k)*ct(i)
enddo
enddo
do i=1,m
fsdir(i)=fsdir(i)+fdndir(i)*ct(i)
fsdif(i)=fsdif(i)+fdndif(i)*ct(i)
enddo
enddo
enddo
enddo
return
end subroutine twostream_adding
subroutine reduce_flux (m,np,swc,u1,du,nu,swh,w1,dw,nw,tbl,df)
implicit none
integer m,np,nu,nw
real(Kind=fp_kind) u1,du,w1,dw
real(Kind=fp_kind) swc(m,np+1),swh(m,np+1),tbl(nu,nw)
real(Kind=fp_kind) df(m,np+1)
integer i,k,ic,iw
real(Kind=fp_kind) clog,wlog,dc,dd,x0,x1,x2,y0,y1,y2
x0=u1+float(nu)*du
y0=w1+float(nw)*dw
x1=u1-0.5*du
y1=w1-0.5*dw
do k= 2, np+1
do i= 1, m
clog=min(swc(i,k),x0)
clog=max(swc(i,k),x1)
wlog=min(swh(i,k),y0)
wlog=max(swh(i,k),y1)
ic=int( (clog-x1)/du+1.)
iw=int( (wlog-y1)/dw+1.)
if(ic.lt.2)ic=2
if(iw.lt.2)iw=2
if(ic.gt.nu)ic=nu
if(iw.gt.nw)iw=nw
dc=clog-float(ic-2)*du-u1
dd=wlog-float(iw-2)*dw-w1
x2=tbl(ic-1,iw-1)+(tbl(ic-1,iw)-tbl(ic-1,iw-1))/dw*dd
y2=x2+(tbl(ic,iw-1)-tbl(ic-1,iw-1))/du*dc
df(i,k)=df(i,k)+y2
enddo
enddo
return
end subroutine reduce_flux
subroutine o3_profile (np, pres, ozone, its, ite, kts, kte, p2d, o3)
implicit none
integer m,np,its,ite,kts,kte
integer i,k,ko,kk
real(Kind=fp_kind) pres(np),ozone(np)
real(Kind=fp_kind) p(its:ite,kts:kte),o3(its:ite,kts:kte)
real(Kind=fp_kind),intent(in) :: p2d(its:ite,kts:kte)
real(Kind=fp_kind) linear, x1, y1, x2, y2, x
linear(x1, y1, x2, y2, x) = &
(y1 * (x2 - x) + y2 * (x - x1)) / (x2 - x1)
p = p2d
do k = 1,np
pres(k) = log(pres(k))
enddo
do k = kts,kte
do i = its, ite
p(i,k) = log(p(i,k))
end do
end do
do i = its, ite
ko = 1
do k = kts+1, kte
do while (ko .lt. np .and. p(i,k) .gt. pres(ko))
ko = ko + 1
end do
o3(i,k) = linear (pres(ko), ozone(ko), &
pres(ko-1), ozone(ko-1), &
p(i,k))
ko = ko - 1
end do
end do
do i = its, ite
ko = 1
k = kts
do while (ko .le. np .and. p(i,k) .gt. pres(ko))
ko = ko + 1
end do
if (ko-1 .le. 1) then
o3(i,k)=ozone(k)
else
o3(i,k)=0.
do kk=ko-2,1,-1
o3(i,k)=o3(i,k)+ozone(kk)*(pres(kk+1)-pres(kk))
enddo
o3(i,k)=o3(i,k)/(pres(ko-1)-pres(1))
endif
end do
end subroutine o3_profile
subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, &
cwc,reff,fcld,ict,icb, &
taual,ssaal,asyal,&
flx,acflxd,acflxu)
implicit none
integer,intent(in) :: m,np,ict(m),icb(m)
real(Kind=fp_kind) ,intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np), &
tb(m),ts(m), emiss(m,ib_lw)
real(Kind=fp_kind) ,intent(in) :: cwc(m,np,3),reff(m,np,3), fcld(m,np)
real(Kind=fp_kind) , intent(in) :: taual(m,np,ib_lw),ssaal(m,np,ib_lw),asyal(m,np,ib_lw)
real(Kind=fp_kind),intent(out) :: flx(m,np+1)
real(Kind=fp_kind) :: flc(m,np+1),dfdts(m,np+1), sfcem(m)
real(Kind=fp_kind) :: acflxu(m,np+1),acflxd(m,np+1)
real(Kind=fp_kind) cb(6,10),xkw(9),xke(9),aw(9),bw(9),pm(9),fkw(6,9),gkw(6,3)
real(Kind=fp_kind) aib(3,10),awb(4,10),aiw(4,10),aww(4,10),aig(4,10),awg(4,10)
integer ne(9),mw(9)
real(Kind=fp_kind) :: taucl(m,np,3)
integer nx2,no,nc,nh
parameter (nx2=26,no=21,nc=30,nh=31)
real(Kind=fp_kind) c1 (nx2,nc),c2 (nx2,nc),c3 (nx2,nc)
real(Kind=fp_kind) o1 (nx2,no),o2 (nx2,no),o3 (nx2,no)
real(Kind=fp_kind) h11(nx2,nh),h12(nx2,nh),h13(nx2,nh)
real(Kind=fp_kind) h21(nx2,nh),h22(nx2,nh),h23(nx2,nh)
real(Kind=fp_kind) h71(nx2,nh),h72(nx2,nh),h73(nx2,nh)
real(Kind=fp_kind) h81(nx2,nh),h82(nx2,nh),h83(nx2,nh)
real(Kind=fp_kind) pa(m,np),dt(m,np)
real(Kind=fp_kind) sh2o(m,np+1),swpre(m,np+1),swtem(m,np+1)
real(Kind=fp_kind) sco3(m,np+1),scopre(m,np+1),scotem(m,np+1)
real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dco2(m,np),do3(m,np)
real(Kind=fp_kind) dn2o(m,np),dch4(m,np)
real(Kind=fp_kind) df11(m,np),df12(m,np),df22(m,np)
real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2)
real(Kind=fp_kind) tn2o(m,4),tch4(m,4),tcom(m,6)
real(Kind=fp_kind) tf11(m),tf12(m),tf22(m)
real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2)
real(Kind=fp_kind) n2oexp(m,np,4),ch4exp(m,np,4),comexp(m,np,6)
real(Kind=fp_kind) f11exp(m,np),f12exp(m,np),f22exp(m,np)
real(Kind=fp_kind) blayer(m,0:np+1),blevel(m,np+1),dblayr(m,np+1),dbs(m)
real(Kind=fp_kind) dp(m,np),cwp(m,np,3)
real(Kind=fp_kind) trant(m),tranal(m),transfc(m,np+1),trantcr(m,np+1)
real(Kind=fp_kind) flxu(m,np+1),flxd(m,np+1),flcu(m,np+1),flcd(m,np+1)
real(Kind=fp_kind) rflx(m,np+1),rflc(m,np+1)
integer it(m),im(m),ib(m)
real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m),tcldlyr(m,np),fclr(m)
real(Kind=fp_kind) taerlyr(m,np)
integer i,j,k,ip,iw,ibn,ik,iq,isb,k1,k2
real(Kind=fp_kind) xx,yy,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2,bu,bd
real(Kind=fp_kind) w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2
real(Kind=fp_kind) tauxa
logical oznbnd,co2bnd,h2otbl,conbnd,n2obnd
logical ch4bnd,combnd,f11bnd,f12bnd,f22bnd,b10bnd
data cb/ &
5.3443e+0, -2.0617e-1, 2.5333e-3, &
-6.8633e-6, 1.0115e-8, -6.2672e-12, &
2.7148e+1, -5.4038e-1, 2.9501e-3, &
2.7228e-7, -9.3384e-9, 9.9677e-12, &
-3.4860e+1, 1.1132e+0, -1.3006e-2, &
6.4955e-5, -1.1815e-7, 8.0424e-11, &
-6.0513e+1, 1.4087e+0, -1.2077e-2, &
4.4050e-5, -5.6735e-8, 2.5660e-11, &
-2.6689e+1, 5.2828e-1, -3.4453e-3, &
6.0715e-6, 1.2523e-8, -2.1550e-11, &
-6.7274e+0, 4.2256e-2, 1.0441e-3, &
-1.2917e-5, 4.7396e-8, -4.4855e-11, &
1.8786e+1, -5.8359e-1, 6.9674e-3, &
-3.9391e-5, 1.0120e-7, -8.2301e-11, &
1.0344e+2, -2.5134e+0, 2.3748e-2, &
-1.0692e-4, 2.1841e-7, -1.3704e-10, &
-1.0482e+1, 3.8213e-1, -5.2267e-3, &
3.4412e-5, -1.1075e-7, 1.4092e-10, &
1.6769e+0, 6.5397e-2, -1.8125e-3, &
1.2912e-5, -2.6715e-8, 1.9792e-11/
data xkw / 29.55 , 4.167e-1, 1.328e-2, 5.250e-4, &
5.25e-4, 9.369e-3, 4.719e-2, 1.320e-0, 5.250e-4/
data xke / 0.00, 0.00, 27.40, 15.8, &
9.40, 7.75, 8.78, 0.0, 0.0/
data mw /6,6,8,6,6,8,9,6,16/
data aw/ 0.0021, 0.0140, 0.0167, 0.0302, &
0.0307, 0.0195, 0.0152, 0.0008, 0.0096/
data bw/ -1.01e-5, 5.57e-5, 8.54e-5, 2.96e-4, &
2.86e-4, 1.108e-4, 7.608e-5, -3.52e-6, 1.64e-5/
data pm/ 1.0, 1.0, 1.0, 1.0, 1.0, 0.77, 0.5, 1.0, 1.0/
data fkw / 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, &
0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, &
6*1.00, &
0.4654,0.2991,0.1343,0.0646,0.0226,0.0140, &
0.5543,0.2723,0.1131,0.0443,0.0160,0.0000, &
0.5955,0.2693,0.0953,0.0335,0.0064,0.0000, &
0.1958,0.3469,0.3147,0.1013,0.0365,0.0048, &
0.0740,0.1636,0.4174,0.1783,0.1101,0.0566, &
0.1437,0.2197,0.3185,0.2351,0.0647,0.0183/
data gkw/ 0.1782,0.0593,0.0215,0.0068,0.0022,0.0000, &
0.0923,0.1675,0.0923,0.0187,0.0178,0.0000, &
0.0000,0.1083,0.1581,0.0455,0.0274,0.0041/
data ne /0,0,3,1,1,1,1,0,0/
data aib / -0.44171, 0.62951, 0.06465, &
-0.13727, 0.61291, 0.28962, &
-0.01878, 1.67680, 0.79080, &
-0.01896, 1.06510, 0.69493, &
-0.04788, 0.88178, 0.54492, &
-0.02265, 1.57390, 0.76161, &
-0.01038, 2.15640, 0.89045, &
-0.00450, 2.51370, 0.95989, &
-0.00044, 3.15050, 1.03750, &
-0.02956, 1.44680, 0.71283/
data awb / 0.08641, 0.01769, -1.5572e-3, 3.4896e-5, &
0.22027, 0.00997, -1.8719e-3, 5.3112e-5, &
0.38074, -0.03027, 1.0154e-3, -1.1849e-5, &
0.15587, 0.00371, -7.7705e-4, 2.0547e-5, &
0.05518, 0.04544, -4.2067e-3, 1.0184e-4, &
0.12724, 0.04751, -5.2037e-3, 1.3711e-4, &
0.30390, 0.01656, -3.5271e-3, 1.0828e-4, &
0.63617, -0.06287, 2.2350e-3, -2.3177e-5, &
1.15470, -0.19282, 1.2084e-2, -2.5612e-4, &
0.34021, -0.02805, 1.0654e-3, -1.5443e-5/
data aiw/ 0.17201, 1.2229e-2, -1.4837e-4, 5.8020e-7, &
0.81470, -2.7293e-3, 9.7816e-8, 5.7650e-8, &
0.54859, -4.8273e-4, 5.4353e-6, -1.5679e-8, &
0.39218, 4.1717e-3, - 4.8869e-5, 1.9144e-7, &
0.71773, -3.3640e-3, 1.9713e-5, -3.3189e-8, &
0.77345, -5.5228e-3, 4.8379e-5, -1.5151e-7, &
0.74975, -5.6604e-3, 5.6475e-5, -1.9664e-7, &
0.69011, -4.5348e-3, 4.9322e-5, -1.8255e-7, &
0.83963, -6.7253e-3, 6.1900e-5, -2.0862e-7, &
0.64860, -2.8692e-3, 2.7656e-5, -8.9680e-8/
data aww/ -7.8566e-2, 8.0875e-2, -4.3403e-3, 8.1341e-5, &
-1.3384e-2, 9.3134e-2, -6.0491e-3, 1.3059e-4, &
3.7096e-2, 7.3211e-2, -4.4211e-3, 9.2448e-5, &
-3.7600e-3, 9.3344e-2, -5.6561e-3, 1.1387e-4, &
0.40212, 7.8083e-2, -5.9583e-3, 1.2883e-4, &
0.57928, 5.9094e-2, -5.4425e-3, 1.2725e-4, &
0.68974, 4.2334e-2, -4.9469e-3, 1.2863e-4, &
0.80122, 9.4578e-3, -2.8508e-3, 9.0078e-5, &
1.02340, -2.6204e-2, 4.2552e-4, 3.2160e-6, &
0.05092, 7.5409e-2, -4.7305e-3, 1.0121e-4/
data aig / 0.57867, 1.0135e-2, -1.1142e-4, 4.1537e-7, &
0.72259, 3.1149e-3, -1.9927e-5, 5.6024e-8, &
0.76109, 4.5449e-3, -4.6199e-5, 1.6446e-7, &
0.86934, 2.7474e-3, -3.1301e-5, 1.1959e-7, &
0.89103, 1.8513e-3, -1.6551e-5, 5.5193e-8, &
0.86325, 2.1408e-3, -1.6846e-5, 4.9473e-8, &
0.85064, 2.5028e-3, -2.0812e-5, 6.3427e-8, &
0.86945, 2.4615e-3, -2.3882e-5, 8.2431e-8, &
0.80122, 3.1906e-3, -2.4856e-5, 7.2411e-8, &
0.73290, 4.8034e-3, -4.4425e-5, 1.4839e-7/
data awg / -0.51930, 0.20290, -1.1747e-2, 2.3868e-4, &
-0.22151, 0.19708, -1.2462e-2, 2.6646e-4, &
0.14157, 0.14705, -9.5802e-3, 2.0819e-4, &
0.41590, 0.10482, -6.9118e-3, 1.5115e-4, &
0.55338, 7.7016e-2, -5.2218e-3, 1.1587e-4, &
0.61384, 6.4402e-2, -4.6241e-3, 1.0746e-4, &
0.67891, 4.8698e-2, -3.7021e-3, 9.1966e-5, &
0.78169, 2.0803e-2, -1.4749e-3, 3.9362e-5, &
0.93218, -3.3425e-2, 2.9632e-3, -6.9362e-5, &
0.01649, 0.16561, -1.0723e-2, 2.3220e-4/
data ((h11(ip,iw),iw=1,31), ip= 1, 1)/ &
0.99993843, 0.99990183, 0.99985260, 0.99979079, 0.99971771, &
0.99963379, 0.99953848, 0.99942899, 0.99930018, 0.99914461, &
0.99895102, 0.99870503, 0.99838799, 0.99797899, 0.99745202, &
0.99677002, 0.99587703, 0.99469399, 0.99311298, 0.99097902, &
0.98807001, 0.98409998, 0.97864997, 0.97114998, 0.96086001, &
0.94682997, 0.92777002, 0.90200001, 0.86739999, 0.82169998, &
0.76270002/
data ((h12(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.2021e-06, -0.3628e-06, -0.5891e-06, -0.8735e-06, -0.1204e-05, &
-0.1579e-05, -0.2002e-05, -0.2494e-05, -0.3093e-05, -0.3852e-05, &
-0.4835e-05, -0.6082e-05, -0.7591e-05, -0.9332e-05, -0.1128e-04, &
-0.1347e-04, -0.1596e-04, -0.1890e-04, -0.2241e-04, -0.2672e-04, &
-0.3208e-04, -0.3884e-04, -0.4747e-04, -0.5854e-04, -0.7272e-04, &
-0.9092e-04, -0.1146e-03, -0.1458e-03, -0.1877e-03, -0.2435e-03, &
-0.3159e-03/
data ((h13(ip,iw),iw=1,31), ip= 1, 1)/ &
0.5907e-09, 0.8541e-09, 0.1095e-08, 0.1272e-08, 0.1297e-08, &
0.1105e-08, 0.6788e-09, -0.5585e-10, -0.1147e-08, -0.2746e-08, &
-0.5001e-08, -0.7715e-08, -0.1037e-07, -0.1227e-07, -0.1287e-07, &
-0.1175e-07, -0.8517e-08, -0.2920e-08, 0.4786e-08, 0.1407e-07, &
0.2476e-07, 0.3781e-07, 0.5633e-07, 0.8578e-07, 0.1322e-06, &
0.2013e-06, 0.3006e-06, 0.4409e-06, 0.6343e-06, 0.8896e-06, &
0.1216e-05/
data ((h11(ip,iw),iw=1,31), ip= 2, 2)/ &
0.99993837, 0.99990171, 0.99985230, 0.99979031, 0.99971670, &
0.99963200, 0.99953520, 0.99942321, 0.99928987, 0.99912637, &
0.99892002, 0.99865198, 0.99830002, 0.99783802, 0.99723297, &
0.99643701, 0.99537897, 0.99396098, 0.99204701, 0.98944002, &
0.98588002, 0.98098999, 0.97425997, 0.96502000, 0.95236999, &
0.93515998, 0.91184998, 0.88040000, 0.83859998, 0.78429997, &
0.71560001/
data ((h12(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.2017e-06, -0.3620e-06, -0.5878e-06, -0.8713e-06, -0.1201e-05, &
-0.1572e-05, -0.1991e-05, -0.2476e-05, -0.3063e-05, -0.3808e-05, &
-0.4776e-05, -0.6011e-05, -0.7516e-05, -0.9272e-05, -0.1127e-04, &
-0.1355e-04, -0.1620e-04, -0.1936e-04, -0.2321e-04, -0.2797e-04, &
-0.3399e-04, -0.4171e-04, -0.5172e-04, -0.6471e-04, -0.8150e-04, &
-0.1034e-03, -0.1321e-03, -0.1705e-03, -0.2217e-03, -0.2889e-03, &
-0.3726e-03/
data ((h13(ip,iw),iw=1,31), ip= 2, 2)/ &
0.5894e-09, 0.8519e-09, 0.1092e-08, 0.1267e-08, 0.1289e-08, &
0.1093e-08, 0.6601e-09, -0.7831e-10, -0.1167e-08, -0.2732e-08, &
-0.4864e-08, -0.7334e-08, -0.9581e-08, -0.1097e-07, -0.1094e-07, &
-0.8999e-08, -0.4669e-08, 0.2391e-08, 0.1215e-07, 0.2424e-07, &
0.3877e-07, 0.5711e-07, 0.8295e-07, 0.1218e-06, 0.1793e-06, &
0.2621e-06, 0.3812e-06, 0.5508e-06, 0.7824e-06, 0.1085e-05, &
0.1462e-05/
data ((h11(ip,iw),iw=1,31), ip= 3, 3)/ &
0.99993825, 0.99990153, 0.99985188, 0.99978942, 0.99971509, &
0.99962920, 0.99953020, 0.99941432, 0.99927431, 0.99909937, &
0.99887401, 0.99857497, 0.99817699, 0.99764699, 0.99694097, &
0.99599802, 0.99473000, 0.99301600, 0.99068397, 0.98749000, &
0.98311001, 0.97707999, 0.96877003, 0.95738000, 0.94186002, &
0.92079002, 0.89230001, 0.85420001, 0.80430001, 0.74049997, &
0.66200000/
data ((h12(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.2011e-06, -0.3609e-06, -0.5859e-06, -0.8680e-06, -0.1195e-05, &
-0.1563e-05, -0.1975e-05, -0.2450e-05, -0.3024e-05, -0.3755e-05, &
-0.4711e-05, -0.5941e-05, -0.7455e-05, -0.9248e-05, -0.1132e-04, &
-0.1373e-04, -0.1659e-04, -0.2004e-04, -0.2431e-04, -0.2966e-04, &
-0.3653e-04, -0.4549e-04, -0.5724e-04, -0.7259e-04, -0.9265e-04, &
-0.1191e-03, -0.1543e-03, -0.2013e-03, -0.2633e-03, -0.3421e-03, &
-0.4350e-03/
data ((h13(ip,iw),iw=1,31), ip= 3, 3)/ &
0.5872e-09, 0.8484e-09, 0.1087e-08, 0.1259e-08, 0.1279e-08, &
0.1077e-08, 0.6413e-09, -0.9334e-10, -0.1161e-08, -0.2644e-08, &
-0.4588e-08, -0.6709e-08, -0.8474e-08, -0.9263e-08, -0.8489e-08, &
-0.5553e-08, 0.1203e-09, 0.9035e-08, 0.2135e-07, 0.3689e-07, &
0.5610e-07, 0.8097e-07, 0.1155e-06, 0.1649e-06, 0.2350e-06, &
0.3353e-06, 0.4806e-06, 0.6858e-06, 0.9617e-06, 0.1315e-05, &
0.1741e-05/
data ((h11(ip,iw),iw=1,31), ip= 4, 4)/ &
0.99993813, 0.99990118, 0.99985123, 0.99978811, 0.99971271, &
0.99962479, 0.99952239, 0.99940068, 0.99925101, 0.99905968, &
0.99880803, 0.99846900, 0.99800998, 0.99738997, 0.99655402, &
0.99542397, 0.99389100, 0.99180400, 0.98895001, 0.98501998, &
0.97961003, 0.97215003, 0.96191001, 0.94791001, 0.92887998, &
0.90311998, 0.86849999, 0.82270002, 0.76370001, 0.69000000, &
0.60240000/
data ((h12(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.2001e-06, -0.3592e-06, -0.5829e-06, -0.8631e-06, -0.1187e-05, &
-0.1549e-05, -0.1953e-05, -0.2415e-05, -0.2975e-05, -0.3694e-05, &
-0.4645e-05, -0.5882e-05, -0.7425e-05, -0.9279e-05, -0.1147e-04, &
-0.1406e-04, -0.1717e-04, -0.2100e-04, -0.2580e-04, -0.3191e-04, &
-0.3989e-04, -0.5042e-04, -0.6432e-04, -0.8261e-04, -0.1068e-03, &
-0.1389e-03, -0.1820e-03, -0.2391e-03, -0.3127e-03, -0.4021e-03, &
-0.5002e-03/
data ((h13(ip,iw),iw=1,31), ip= 4, 4)/ &
0.5838e-09, 0.8426e-09, 0.1081e-08, 0.1249e-08, 0.1267e-08, &
0.1062e-08, 0.6313e-09, -0.8241e-10, -0.1094e-08, -0.2436e-08, &
-0.4100e-08, -0.5786e-08, -0.6992e-08, -0.7083e-08, -0.5405e-08, &
-0.1259e-08, 0.6099e-08, 0.1732e-07, 0.3276e-07, 0.5256e-07, &
0.7756e-07, 0.1103e-06, 0.1547e-06, 0.2159e-06, 0.3016e-06, &
0.4251e-06, 0.6033e-06, 0.8499e-06, 0.1175e-05, 0.1579e-05, &
0.2044e-05/
data ((h11(ip,iw),iw=1,31), ip= 5, 5)/ &
0.99993789, 0.99990070, 0.99985009, 0.99978602, 0.99970889, &
0.99961799, 0.99951053, 0.99938041, 0.99921662, 0.99900270, &
0.99871498, 0.99832201, 0.99778402, 0.99704897, 0.99604702, &
0.99468100, 0.99281400, 0.99025702, 0.98673999, 0.98189002, &
0.97521001, 0.96600002, 0.95337999, 0.93620998, 0.91292000, &
0.88150001, 0.83969998, 0.78530002, 0.71650004, 0.63330001, &
0.53799999/
data ((h12(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.1987e-06, -0.3565e-06, -0.5784e-06, -0.8557e-06, -0.1175e-05, &
-0.1530e-05, -0.1923e-05, -0.2372e-05, -0.2919e-05, -0.3631e-05, &
-0.4587e-05, -0.5848e-05, -0.7442e-05, -0.9391e-05, -0.1173e-04, &
-0.1455e-04, -0.1801e-04, -0.2232e-04, -0.2779e-04, -0.3489e-04, &
-0.4428e-04, -0.5678e-04, -0.7333e-04, -0.9530e-04, -0.1246e-03, &
-0.1639e-03, -0.2164e-03, -0.2848e-03, -0.3697e-03, -0.4665e-03, &
-0.5646e-03/
data ((h13(ip,iw),iw=1,31), ip= 5, 5)/ &
0.5785e-09, 0.8338e-09, 0.1071e-08, 0.1239e-08, 0.1256e-08, &
0.1057e-08, 0.6480e-09, -0.1793e-10, -0.9278e-09, -0.2051e-08, &
-0.3337e-08, -0.4514e-08, -0.5067e-08, -0.4328e-08, -0.1545e-08, &
0.4100e-08, 0.1354e-07, 0.2762e-07, 0.4690e-07, 0.7190e-07, &
0.1040e-06, 0.1459e-06, 0.2014e-06, 0.2764e-06, 0.3824e-06, &
0.5359e-06, 0.7532e-06, 0.1047e-05, 0.1424e-05, 0.1873e-05, &
0.2356e-05/
data ((h11(ip,iw),iw=1,31), ip= 6, 6)/ &
0.99993753, 0.99989992, 0.99984848, 0.99978292, 0.99970299, &
0.99960762, 0.99949282, 0.99935049, 0.99916708, 0.99892199, &
0.99858701, 0.99812400, 0.99748403, 0.99660099, 0.99538797, &
0.99372399, 0.99143797, 0.98829001, 0.98395002, 0.97794998, &
0.96968001, 0.95832998, 0.94283003, 0.92179000, 0.89330000, &
0.85530001, 0.80519998, 0.74140000, 0.66280001, 0.57099998, &
0.47049999/
data ((h12(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.1964e-06, -0.3526e-06, -0.5717e-06, -0.8451e-06, -0.1158e-05, &
-0.1504e-05, -0.1886e-05, -0.2322e-05, -0.2861e-05, -0.3576e-05, &
-0.4552e-05, -0.5856e-05, -0.7529e-05, -0.9609e-05, -0.1216e-04, &
-0.1528e-04, -0.1916e-04, -0.2408e-04, -0.3043e-04, -0.3880e-04, &
-0.4997e-04, -0.6488e-04, -0.8474e-04, -0.1113e-03, -0.1471e-03, &
-0.1950e-03, -0.2583e-03, -0.3384e-03, -0.4326e-03, -0.5319e-03, &
-0.6244e-03/
data ((h13(ip,iw),iw=1,31), ip= 6, 6)/ &
0.5713e-09, 0.8263e-09, 0.1060e-08, 0.1226e-08, 0.1252e-08, &
0.1076e-08, 0.7149e-09, 0.1379e-09, -0.6043e-09, -0.1417e-08, &
-0.2241e-08, -0.2830e-08, -0.2627e-08, -0.8950e-09, 0.3231e-08, &
0.1075e-07, 0.2278e-07, 0.4037e-07, 0.6439e-07, 0.9576e-07, &
0.1363e-06, 0.1886e-06, 0.2567e-06, 0.3494e-06, 0.4821e-06, &
0.6719e-06, 0.9343e-06, 0.1280e-05, 0.1705e-05, 0.2184e-05, &
0.2651e-05/
data ((h11(ip,iw),iw=1,31), ip= 7, 7)/ &
0.99993700, 0.99989867, 0.99984592, 0.99977797, 0.99969423, &
0.99959219, 0.99946660, 0.99930722, 0.99909681, 0.99880999, &
0.99841303, 0.99786001, 0.99708802, 0.99601799, 0.99453998, &
0.99250001, 0.98969001, 0.98580003, 0.98041999, 0.97299999, &
0.96279001, 0.94881999, 0.92980999, 0.90407002, 0.86949998, &
0.82370001, 0.76459998, 0.69089997, 0.60310000, 0.50479996, &
0.40219998/
data ((h12(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.1932e-06, -0.3467e-06, -0.5623e-06, -0.8306e-06, -0.1136e-05, &
-0.1472e-05, -0.1842e-05, -0.2269e-05, -0.2807e-05, -0.3539e-05, &
-0.4553e-05, -0.5925e-05, -0.7710e-05, -0.9968e-05, -0.1278e-04, &
-0.1629e-04, -0.2073e-04, -0.2644e-04, -0.3392e-04, -0.4390e-04, &
-0.5727e-04, -0.7516e-04, -0.9916e-04, -0.1315e-03, -0.1752e-03, &
-0.2333e-03, -0.3082e-03, -0.3988e-03, -0.4982e-03, -0.5947e-03, &
-0.6764e-03/
data ((h13(ip,iw),iw=1,31), ip= 7, 7)/ &
0.5612e-09, 0.8116e-09, 0.1048e-08, 0.1222e-08, 0.1270e-08, &
0.1141e-08, 0.8732e-09, 0.4336e-09, -0.6548e-10, -0.4774e-09, &
-0.7556e-09, -0.6577e-09, 0.4377e-09, 0.3359e-08, 0.9159e-08, &
0.1901e-07, 0.3422e-07, 0.5616e-07, 0.8598e-07, 0.1251e-06, &
0.1752e-06, 0.2392e-06, 0.3228e-06, 0.4389e-06, 0.6049e-06, &
0.8370e-06, 0.1150e-05, 0.1547e-05, 0.2012e-05, 0.2493e-05, &
0.2913e-05/
data ((h11(ip,iw),iw=1,31), ip= 8, 8)/ &
0.99993622, 0.99989682, 0.99984211, 0.99977070, 0.99968100, &
0.99956948, 0.99942881, 0.99924588, 0.99899900, 0.99865800, &
0.99818099, 0.99751103, 0.99657297, 0.99526602, 0.99345201, &
0.99094099, 0.98746002, 0.98264998, 0.97599000, 0.96682000, &
0.95423001, 0.93708003, 0.91380000, 0.88239998, 0.84060001, &
0.78610003, 0.71730000, 0.63400000, 0.53859997, 0.43660003, &
0.33510000/
data ((h12(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.1885e-06, -0.3385e-06, -0.5493e-06, -0.8114e-06, -0.1109e-05, &
-0.1436e-05, -0.1796e-05, -0.2219e-05, -0.2770e-05, -0.3535e-05, &
-0.4609e-05, -0.6077e-05, -0.8016e-05, -0.1051e-04, -0.1367e-04, &
-0.1768e-04, -0.2283e-04, -0.2955e-04, -0.3849e-04, -0.5046e-04, &
-0.6653e-04, -0.8813e-04, -0.1173e-03, -0.1569e-03, -0.2100e-03, &
-0.2794e-03, -0.3656e-03, -0.4637e-03, -0.5629e-03, -0.6512e-03, &
-0.7167e-03/
data ((h13(ip,iw),iw=1,31), ip= 8, 8)/ &
0.5477e-09, 0.8000e-09, 0.1039e-08, 0.1234e-08, 0.1331e-08, &
0.1295e-08, 0.1160e-08, 0.9178e-09, 0.7535e-09, 0.8301e-09, &
0.1184e-08, 0.2082e-08, 0.4253e-08, 0.8646e-08, 0.1650e-07, &
0.2920e-07, 0.4834e-07, 0.7564e-07, 0.1125e-06, 0.1606e-06, &
0.2216e-06, 0.2992e-06, 0.4031e-06, 0.5493e-06, 0.7549e-06, &
0.1035e-05, 0.1400e-05, 0.1843e-05, 0.2327e-05, 0.2774e-05, &
0.3143e-05/
data ((h11(ip,iw),iw=1,31), ip= 9, 9)/ &
0.99993503, 0.99989408, 0.99983650, 0.99975997, 0.99966192, &
0.99953687, 0.99937540, 0.99916059, 0.99886602, 0.99845397, &
0.99787402, 0.99705601, 0.99590701, 0.99430102, 0.99206603, &
0.98896003, 0.98465002, 0.97869003, 0.97044003, 0.95911002, &
0.94363999, 0.92260998, 0.89419997, 0.85609996, 0.80610001, &
0.74220002, 0.66359997, 0.57169998, 0.47100002, 0.36860001, &
0.27079999/
data ((h12(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.1822e-06, -0.3274e-06, -0.5325e-06, -0.7881e-06, -0.1079e-05, &
-0.1398e-05, -0.1754e-05, -0.2184e-05, -0.2763e-05, -0.3581e-05, &
-0.4739e-05, -0.6341e-05, -0.8484e-05, -0.1128e-04, -0.1490e-04, &
-0.1955e-04, -0.2561e-04, -0.3364e-04, -0.4438e-04, -0.5881e-04, &
-0.7822e-04, -0.1045e-03, -0.1401e-03, -0.1884e-03, -0.2523e-03, &
-0.3335e-03, -0.4289e-03, -0.5296e-03, -0.6231e-03, -0.6980e-03, &
-0.7406e-03/
data ((h13(ip,iw),iw=1,31), ip= 9, 9)/ &
0.5334e-09, 0.7859e-09, 0.1043e-08, 0.1279e-08, 0.1460e-08, &
0.1560e-08, 0.1618e-08, 0.1657e-08, 0.1912e-08, 0.2569e-08, &
0.3654e-08, 0.5509e-08, 0.8964e-08, 0.1518e-07, 0.2560e-07, &
0.4178e-07, 0.6574e-07, 0.9958e-07, 0.1449e-06, 0.2031e-06, &
0.2766e-06, 0.3718e-06, 0.5022e-06, 0.6849e-06, 0.9360e-06, &
0.1268e-05, 0.1683e-05, 0.2157e-05, 0.2625e-05, 0.3020e-05, &
0.3364e-05/
data ((h11(ip,iw),iw=1,31), ip=10,10)/ &
0.99993336, 0.99989021, 0.99982840, 0.99974459, 0.99963468, &
0.99949121, 0.99930137, 0.99904430, 0.99868703, 0.99818403, &
0.99747300, 0.99646801, 0.99505299, 0.99307102, 0.99030602, &
0.98645997, 0.98111999, 0.97372001, 0.96353000, 0.94957000, &
0.93058997, 0.90486002, 0.87029999, 0.82449996, 0.76530004, &
0.69159997, 0.60380000, 0.50529999, 0.40259999, 0.30269998, &
0.21020001/
data ((h12(ip,iw),iw=1,31), ip=10,10)/ &
-0.1742e-06, -0.3134e-06, -0.5121e-06, -0.7619e-06, -0.1048e-05, &
-0.1364e-05, -0.1725e-05, -0.2177e-05, -0.2801e-05, -0.3694e-05, &
-0.4969e-05, -0.6748e-05, -0.9161e-05, -0.1236e-04, -0.1655e-04, &
-0.2203e-04, -0.2927e-04, -0.3894e-04, -0.5192e-04, -0.6936e-04, &
-0.9294e-04, -0.1250e-03, -0.1686e-03, -0.2271e-03, -0.3027e-03, &
-0.3944e-03, -0.4951e-03, -0.5928e-03, -0.6755e-03, -0.7309e-03, &
-0.7417e-03/
data ((h13(ip,iw),iw=1,31), ip=10,10)/ &
0.5179e-09, 0.7789e-09, 0.1071e-08, 0.1382e-08, 0.1690e-08, &
0.1979e-08, 0.2297e-08, 0.2704e-08, 0.3466e-08, 0.4794e-08, &
0.6746e-08, 0.9739e-08, 0.1481e-07, 0.2331e-07, 0.3679e-07, &
0.5726e-07, 0.8716e-07, 0.1289e-06, 0.1837e-06, 0.2534e-06, &
0.3424e-06, 0.4609e-06, 0.6245e-06, 0.8495e-06, 0.1151e-05, &
0.1536e-05, 0.1991e-05, 0.2468e-05, 0.2891e-05, 0.3245e-05, &
0.3580e-05/
data ((h11(ip,iw),iw=1,31), ip=11,11)/ &
0.99993110, 0.99988490, 0.99981719, 0.99972337, 0.99959719, &
0.99942869, 0.99920130, 0.99888903, 0.99845201, 0.99783301, &
0.99695599, 0.99571502, 0.99396503, 0.99150997, 0.98808002, &
0.98329997, 0.97667003, 0.96750998, 0.95494002, 0.93779999, &
0.91453999, 0.88319999, 0.84130001, 0.78689998, 0.71799999, &
0.63470000, 0.53909999, 0.43699998, 0.33550000, 0.24010003, &
0.15420002/
data ((h12(ip,iw),iw=1,31), ip=11,11)/ &
-0.1647e-06, -0.2974e-06, -0.4900e-06, -0.7358e-06, -0.1022e-05, &
-0.1344e-05, -0.1721e-05, -0.2212e-05, -0.2901e-05, -0.3896e-05, &
-0.5327e-05, -0.7342e-05, -0.1011e-04, -0.1382e-04, -0.1875e-04, &
-0.2530e-04, -0.3403e-04, -0.4573e-04, -0.6145e-04, -0.8264e-04, &
-0.1114e-03, -0.1507e-03, -0.2039e-03, -0.2737e-03, -0.3607e-03, &
-0.4599e-03, -0.5604e-03, -0.6497e-03, -0.7161e-03, -0.7443e-03, &
-0.7133e-03/
data ((h13(ip,iw),iw=1,31), ip=11,11)/ &
0.5073e-09, 0.7906e-09, 0.1134e-08, 0.1560e-08, 0.2046e-08, &
0.2589e-08, 0.3254e-08, 0.4107e-08, 0.5481e-08, 0.7602e-08, &
0.1059e-07, 0.1501e-07, 0.2210e-07, 0.3334e-07, 0.5055e-07, &
0.7629e-07, 0.1134e-06, 0.1642e-06, 0.2298e-06, 0.3133e-06, &
0.4225e-06, 0.5709e-06, 0.7739e-06, 0.1047e-05, 0.1401e-05, &
0.1833e-05, 0.2308e-05, 0.2753e-05, 0.3125e-05, 0.3467e-05, &
0.3748e-05/
data ((h11(ip,iw),iw=1,31), ip=12,12)/ &
0.99992824, 0.99987793, 0.99980247, 0.99969512, 0.99954712, &
0.99934530, 0.99906880, 0.99868500, 0.99814498, 0.99738002, &
0.99629498, 0.99475700, 0.99258602, 0.98953998, 0.98527998, &
0.97934997, 0.97112000, 0.95981002, 0.94433999, 0.92332000, &
0.89490002, 0.85680002, 0.80680001, 0.74290001, 0.66420001, &
0.57220000, 0.47149998, 0.36900002, 0.27109998, 0.18159997, &
0.10460001/
data ((h12(ip,iw),iw=1,31), ip=12,12)/ &
-0.1548e-06, -0.2808e-06, -0.4683e-06, -0.7142e-06, -0.1008e-05, &
-0.1347e-05, -0.1758e-05, -0.2306e-05, -0.3083e-05, -0.4214e-05, &
-0.5851e-05, -0.8175e-05, -0.1140e-04, -0.1577e-04, -0.2166e-04, &
-0.2955e-04, -0.4014e-04, -0.5434e-04, -0.7343e-04, -0.9931e-04, &
-0.1346e-03, -0.1826e-03, -0.2467e-03, -0.3283e-03, -0.4246e-03, &
-0.5264e-03, -0.6211e-03, -0.6970e-03, -0.7402e-03, -0.7316e-03, &
-0.6486e-03/
data ((h13(ip,iw),iw=1,31), ip=12,12)/ &
0.5078e-09, 0.8244e-09, 0.1255e-08, 0.1826e-08, 0.2550e-08, &
0.3438e-08, 0.4532e-08, 0.5949e-08, 0.8041e-08, 0.1110e-07, &
0.1534e-07, 0.2157e-07, 0.3116e-07, 0.4570e-07, 0.6747e-07, &
0.9961e-07, 0.1451e-06, 0.2061e-06, 0.2843e-06, 0.3855e-06, &
0.5213e-06, 0.7060e-06, 0.9544e-06, 0.1280e-05, 0.1684e-05, &
0.2148e-05, 0.2609e-05, 0.3002e-05, 0.3349e-05, 0.3670e-05, &
0.3780e-05/
data ((h11(ip,iw),iw=1,31), ip=13,13)/ &
0.99992472, 0.99986941, 0.99978399, 0.99965900, 0.99948251, &
0.99923742, 0.99889702, 0.99842298, 0.99775398, 0.99680400, &
0.99545598, 0.99354500, 0.99084800, 0.98706001, 0.98176998, &
0.97439998, 0.96423000, 0.95029002, 0.93129998, 0.90557003, &
0.87099999, 0.82520002, 0.76600003, 0.69220001, 0.60440004, &
0.50580001, 0.40310001, 0.30299997, 0.21039999, 0.12860000, &
0.06360000/
data ((h12(ip,iw),iw=1,31), ip=13,13)/ &
-0.1461e-06, -0.2663e-06, -0.4512e-06, -0.7027e-06, -0.1014e-05, &
-0.1387e-05, -0.1851e-05, -0.2478e-05, -0.3373e-05, -0.4682e-05, &
-0.6588e-05, -0.9311e-05, -0.1311e-04, -0.1834e-04, -0.2544e-04, &
-0.3502e-04, -0.4789e-04, -0.6515e-04, -0.8846e-04, -0.1202e-03, &
-0.1635e-03, -0.2217e-03, -0.2975e-03, -0.3897e-03, -0.4913e-03, &
-0.5902e-03, -0.6740e-03, -0.7302e-03, -0.7415e-03, -0.6858e-03, &
-0.5447e-03/
data ((h13(ip,iw),iw=1,31), ip=13,13)/ &
0.5236e-09, 0.8873e-09, 0.1426e-08, 0.2193e-08, 0.3230e-08, &
0.4555e-08, 0.6200e-08, 0.8298e-08, 0.1126e-07, 0.1544e-07, &
0.2130e-07, 0.2978e-07, 0.4239e-07, 0.6096e-07, 0.8829e-07, &
0.1280e-06, 0.1830e-06, 0.2555e-06, 0.3493e-06, 0.4740e-06, &
0.6431e-06, 0.8701e-06, 0.1169e-05, 0.1547e-05, 0.1992e-05, &
0.2460e-05, 0.2877e-05, 0.3230e-05, 0.3569e-05, 0.3782e-05, &
0.3591e-05/
data ((h11(ip,iw),iw=1,31), ip=14,14)/ &
0.99992090, 0.99985969, 0.99976218, 0.99961531, 0.99940270, &
0.99910218, 0.99868101, 0.99809098, 0.99725902, 0.99607700, &
0.99440002, 0.99202299, 0.98866999, 0.98395997, 0.97737998, &
0.96825999, 0.95570999, 0.93857002, 0.91531003, 0.88389999, &
0.84210002, 0.78759998, 0.71869999, 0.63530004, 0.53970003, &
0.43750000, 0.33590001, 0.24040002, 0.15439999, 0.08300000, &
0.03299999/
data ((h12(ip,iw),iw=1,31), ip=14,14)/ &
-0.1402e-06, -0.2569e-06, -0.4428e-06, -0.7076e-06, -0.1051e-05, &
-0.1478e-05, -0.2019e-05, -0.2752e-05, -0.3802e-05, -0.5343e-05, &
-0.7594e-05, -0.1082e-04, -0.1536e-04, -0.2166e-04, -0.3028e-04, &
-0.4195e-04, -0.5761e-04, -0.7867e-04, -0.1072e-03, -0.1462e-03, &
-0.1990e-03, -0.2687e-03, -0.3559e-03, -0.4558e-03, -0.5572e-03, &
-0.6476e-03, -0.7150e-03, -0.7439e-03, -0.7133e-03, -0.6015e-03, &
-0.4089e-03/
data ((h13(ip,iw),iw=1,31), ip=14,14)/ &
0.5531e-09, 0.9757e-09, 0.1644e-08, 0.2650e-08, 0.4074e-08, &
0.5957e-08, 0.8314e-08, 0.1128e-07, 0.1528e-07, 0.2087e-07, &
0.2874e-07, 0.4002e-07, 0.5631e-07, 0.7981e-07, 0.1139e-06, &
0.1621e-06, 0.2275e-06, 0.3136e-06, 0.4280e-06, 0.5829e-06, &
0.7917e-06, 0.1067e-05, 0.1419e-05, 0.1844e-05, 0.2310e-05, &
0.2747e-05, 0.3113e-05, 0.3455e-05, 0.3739e-05, 0.3715e-05, &
0.3125e-05/
data ((h11(ip,iw),iw=1,31), ip=15,15)/ &
0.99991709, 0.99984968, 0.99973857, 0.99956548, 0.99930853, &
0.99893898, 0.99841601, 0.99768001, 0.99664098, 0.99516898, &
0.99308002, 0.99012297, 0.98594999, 0.98009998, 0.97194999, &
0.96066999, 0.94523001, 0.92421001, 0.89579999, 0.85769999, &
0.80760002, 0.74360001, 0.66490000, 0.57290000, 0.47200000, &
0.36940002, 0.27139997, 0.18180001, 0.10479999, 0.04699999, &
0.01359999/
data ((h12(ip,iw),iw=1,31), ip=15,15)/ &
-0.1378e-06, -0.2542e-06, -0.4461e-06, -0.7333e-06, -0.1125e-05, &
-0.1630e-05, -0.2281e-05, -0.3159e-05, -0.4410e-05, -0.6246e-05, &
-0.8933e-05, -0.1280e-04, -0.1826e-04, -0.2589e-04, -0.3639e-04, &
-0.5059e-04, -0.6970e-04, -0.9552e-04, -0.1307e-03, -0.1784e-03, &
-0.2422e-03, -0.3237e-03, -0.4203e-03, -0.5227e-03, -0.6184e-03, &
-0.6953e-03, -0.7395e-03, -0.7315e-03, -0.6487e-03, -0.4799e-03, &
-0.2625e-03/
data ((h13(ip,iw),iw=1,31), ip=15,15)/ &
0.5891e-09, 0.1074e-08, 0.1885e-08, 0.3167e-08, 0.5051e-08, &
0.7631e-08, 0.1092e-07, 0.1500e-07, 0.2032e-07, 0.2769e-07, &
0.3810e-07, 0.5279e-07, 0.7361e-07, 0.1032e-06, 0.1450e-06, &
0.2026e-06, 0.2798e-06, 0.3832e-06, 0.5242e-06, 0.7159e-06, &
0.9706e-06, 0.1299e-05, 0.1701e-05, 0.2159e-05, 0.2612e-05, &
0.2998e-05, 0.3341e-05, 0.3661e-05, 0.3775e-05, 0.3393e-05, &
0.2384e-05/
data ((h11(ip,iw),iw=1,31), ip=16,16)/ &
0.99991363, 0.99984020, 0.99971467, 0.99951237, 0.99920303, &
0.99874902, 0.99809903, 0.99717999, 0.99588197, 0.99404502, &
0.99144298, 0.98776001, 0.98258001, 0.97533000, 0.96524000, &
0.95135999, 0.93241000, 0.90667999, 0.87199998, 0.82620001, &
0.76700002, 0.69309998, 0.60510004, 0.50650001, 0.40359998, &
0.30350000, 0.21069998, 0.12870002, 0.06370002, 0.02200001, &
0.00389999/
data ((h12(ip,iw),iw=1,31), ip=16,16)/ &
-0.1383e-06, -0.2577e-06, -0.4608e-06, -0.7793e-06, -0.1237e-05, &
-0.1850e-05, -0.2652e-05, -0.3728e-05, -0.5244e-05, -0.7451e-05, &
-0.1067e-04, -0.1532e-04, -0.2193e-04, -0.3119e-04, -0.4395e-04, &
-0.6126e-04, -0.8466e-04, -0.1164e-03, -0.1596e-03, -0.2177e-03, &
-0.2933e-03, -0.3855e-03, -0.4874e-03, -0.5870e-03, -0.6718e-03, &
-0.7290e-03, -0.7411e-03, -0.6859e-03, -0.5450e-03, -0.3353e-03, &
-0.1363e-03/
data ((h13(ip,iw),iw=1,31), ip=16,16)/ &
0.6217e-09, 0.1165e-08, 0.2116e-08, 0.3685e-08, 0.6101e-08, &
0.9523e-08, 0.1400e-07, 0.1959e-07, 0.2668e-07, 0.3629e-07, &
0.4982e-07, 0.6876e-07, 0.9523e-07, 0.1321e-06, 0.1825e-06, &
0.2505e-06, 0.3420e-06, 0.4677e-06, 0.6416e-06, 0.8760e-06, &
0.1183e-05, 0.1565e-05, 0.2010e-05, 0.2472e-05, 0.2882e-05, &
0.3229e-05, 0.3564e-05, 0.3777e-05, 0.3589e-05, 0.2786e-05, &
0.1487e-05/
data ((h11(ip,iw),iw=1,31), ip=17,17)/ &
0.99991077, 0.99983180, 0.99969262, 0.99945968, 0.99909151, &
0.99853700, 0.99773198, 0.99658400, 0.99496001, 0.99266702, &
0.98943001, 0.98484999, 0.97842997, 0.96945000, 0.95703000, &
0.93998998, 0.91676998, 0.88540000, 0.84350002, 0.78890002, &
0.71990001, 0.63639998, 0.54060000, 0.43820000, 0.33639997, &
0.24080002, 0.15460002, 0.08310002, 0.03310001, 0.00770003, &
0.00050002/
data ((h12(ip,iw),iw=1,31), ip=17,17)/ &
-0.1405e-06, -0.2649e-06, -0.4829e-06, -0.8398e-06, -0.1379e-05, &
-0.2132e-05, -0.3138e-05, -0.4487e-05, -0.6353e-05, -0.9026e-05, &
-0.1290e-04, -0.1851e-04, -0.2650e-04, -0.3772e-04, -0.5319e-04, &
-0.7431e-04, -0.1031e-03, -0.1422e-03, -0.1951e-03, -0.2648e-03, &
-0.3519e-03, -0.4518e-03, -0.5537e-03, -0.6449e-03, -0.7133e-03, &
-0.7432e-03, -0.7133e-03, -0.6018e-03, -0.4092e-03, -0.1951e-03, &
-0.5345e-04/
data ((h13(ip,iw),iw=1,31), ip=17,17)/ &
0.6457e-09, 0.1235e-08, 0.2303e-08, 0.4149e-08, 0.7120e-08, &
0.1152e-07, 0.1749e-07, 0.2508e-07, 0.3462e-07, 0.4718e-07, &
0.6452e-07, 0.8874e-07, 0.1222e-06, 0.1675e-06, 0.2276e-06, &
0.3076e-06, 0.4174e-06, 0.5714e-06, 0.7837e-06, 0.1067e-05, &
0.1428e-05, 0.1859e-05, 0.2327e-05, 0.2760e-05, 0.3122e-05, &
0.3458e-05, 0.3739e-05, 0.3715e-05, 0.3126e-05, 0.1942e-05, &
0.6977e-06/
data ((h11(ip,iw),iw=1,31), ip=18,18)/ &
0.99990851, 0.99982500, 0.99967349, 0.99941093, 0.99897999, &
0.99831200, 0.99732101, 0.99589097, 0.99386197, 0.99099803, &
0.98695999, 0.98128998, 0.97333002, 0.96227002, 0.94700998, &
0.92614001, 0.89779997, 0.85969996, 0.80949998, 0.74540001, &
0.66649997, 0.57420003, 0.47310001, 0.37029999, 0.27200001, &
0.18220001, 0.10500002, 0.04710001, 0.01359999, 0.00169998, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=18,18)/ &
-0.1431e-06, -0.2731e-06, -0.5072e-06, -0.9057e-06, -0.1537e-05, &
-0.2460e-05, -0.3733e-05, -0.5449e-05, -0.7786e-05, -0.1106e-04, &
-0.1574e-04, -0.2249e-04, -0.3212e-04, -0.4564e-04, -0.6438e-04, &
-0.9019e-04, -0.1256e-03, -0.1737e-03, -0.2378e-03, -0.3196e-03, &
-0.4163e-03, -0.5191e-03, -0.6154e-03, -0.6931e-03, -0.7384e-03, &
-0.7313e-03, -0.6492e-03, -0.4805e-03, -0.2629e-03, -0.8897e-04, &
-0.1432e-04/
data ((h13(ip,iw),iw=1,31), ip=18,18)/ &
0.6607e-09, 0.1282e-08, 0.2441e-08, 0.4522e-08, 0.8027e-08, &
0.1348e-07, 0.2122e-07, 0.3139e-07, 0.4435e-07, 0.6095e-07, &
0.8319e-07, 0.1139e-06, 0.1557e-06, 0.2107e-06, 0.2819e-06, &
0.3773e-06, 0.5107e-06, 0.6982e-06, 0.9542e-06, 0.1290e-05, &
0.1703e-05, 0.2170e-05, 0.2628e-05, 0.3013e-05, 0.3352e-05, &
0.3669e-05, 0.3780e-05, 0.3397e-05, 0.2386e-05, 0.1062e-05, &
0.2216e-06/
data ((h11(ip,iw),iw=1,31), ip=19,19)/ &
0.99990678, 0.99981970, 0.99965781, 0.99936831, 0.99887598, &
0.99808502, 0.99687898, 0.99510998, 0.99257898, 0.98900002, &
0.98398000, 0.97693998, 0.96711999, 0.95353001, 0.93484998, &
0.90934002, 0.87479997, 0.82900000, 0.76960003, 0.69550002, &
0.60720003, 0.50819999, 0.40490001, 0.30440003, 0.21130002, &
0.12910002, 0.06389999, 0.02200001, 0.00389999, 0.00010002, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=19,19)/ &
-0.1454e-06, -0.2805e-06, -0.5296e-06, -0.9685e-06, -0.1695e-05, &
-0.2812e-05, -0.4412e-05, -0.6606e-05, -0.9573e-05, -0.1363e-04, &
-0.1932e-04, -0.2743e-04, -0.3897e-04, -0.5520e-04, -0.7787e-04, &
-0.1094e-03, -0.1529e-03, -0.2117e-03, -0.2880e-03, -0.3809e-03, &
-0.4834e-03, -0.5836e-03, -0.6692e-03, -0.7275e-03, -0.7408e-03, &
-0.6865e-03, -0.5459e-03, -0.3360e-03, -0.1365e-03, -0.2935e-04, &
-0.2173e-05/
data ((h13(ip,iw),iw=1,31), ip=19,19)/ &
0.6693e-09, 0.1312e-08, 0.2538e-08, 0.4802e-08, 0.8778e-08, &
0.1528e-07, 0.2501e-07, 0.3836e-07, 0.5578e-07, 0.7806e-07, &
0.1069e-06, 0.1456e-06, 0.1970e-06, 0.2631e-06, 0.3485e-06, &
0.4642e-06, 0.6268e-06, 0.8526e-06, 0.1157e-05, 0.1545e-05, &
0.2002e-05, 0.2478e-05, 0.2897e-05, 0.3245e-05, 0.3578e-05, &
0.3789e-05, 0.3598e-05, 0.2792e-05, 0.1489e-05, 0.4160e-06, &
0.3843e-07/
data ((h11(ip,iw),iw=1,31), ip=20,20)/ &
0.99990559, 0.99981570, 0.99964547, 0.99933308, 0.99878299, &
0.99786699, 0.99642301, 0.99425799, 0.99111998, 0.98667002, &
0.98041999, 0.97170001, 0.95960999, 0.94295001, 0.92012000, &
0.88900000, 0.84740001, 0.79280001, 0.72360003, 0.63960004, &
0.54330003, 0.44029999, 0.33800000, 0.24190003, 0.15530002, &
0.08350003, 0.03320003, 0.00770003, 0.00050002, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=20,20)/ &
-0.1472e-06, -0.2866e-06, -0.5485e-06, -0.1024e-05, -0.1842e-05, &
-0.3160e-05, -0.5136e-05, -0.7922e-05, -0.1171e-04, -0.1682e-04, &
-0.2381e-04, -0.3355e-04, -0.4729e-04, -0.6673e-04, -0.9417e-04, &
-0.1327e-03, -0.1858e-03, -0.2564e-03, -0.3449e-03, -0.4463e-03, &
-0.5495e-03, -0.6420e-03, -0.7116e-03, -0.7427e-03, -0.7139e-03, &
-0.6031e-03, -0.4104e-03, -0.1957e-03, -0.5358e-04, -0.6176e-05, &
-0.1347e-06/
data ((h13(ip,iw),iw=1,31), ip=20,20)/ &
0.6750e-09, 0.1332e-08, 0.2602e-08, 0.5003e-08, 0.9367e-08, &
0.1684e-07, 0.2863e-07, 0.4566e-07, 0.6865e-07, 0.9861e-07, &
0.1368e-06, 0.1856e-06, 0.2479e-06, 0.3274e-06, 0.4315e-06, &
0.5739e-06, 0.7710e-06, 0.1040e-05, 0.1394e-05, 0.1829e-05, &
0.2309e-05, 0.2759e-05, 0.3131e-05, 0.3472e-05, 0.3755e-05, &
0.3730e-05, 0.3138e-05, 0.1948e-05, 0.6994e-06, 0.1022e-06, &
0.2459e-08/
data ((h11(ip,iw),iw=1,31), ip=21,21)/ &
0.99990469, 0.99981278, 0.99963617, 0.99930513, 0.99870503, &
0.99766999, 0.99597800, 0.99336702, 0.98951000, 0.98399001, &
0.97622001, 0.96543998, 0.95059001, 0.93019998, 0.90235001, &
0.86470002, 0.81480002, 0.75059998, 0.67129999, 0.57840002, &
0.47659999, 0.37279999, 0.27389997, 0.18339998, 0.10570002, &
0.04740000, 0.01370001, 0.00169998, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=21,21)/ &
-0.1487e-06, -0.2912e-06, -0.5636e-06, -0.1069e-05, -0.1969e-05, &
-0.3483e-05, -0.5858e-05, -0.9334e-05, -0.1416e-04, -0.2067e-04, &
-0.2936e-04, -0.4113e-04, -0.5750e-04, -0.8072e-04, -0.1139e-03, &
-0.1606e-03, -0.2246e-03, -0.3076e-03, -0.4067e-03, -0.5121e-03, &
-0.6110e-03, -0.6909e-03, -0.7378e-03, -0.7321e-03, -0.6509e-03, &
-0.4825e-03, -0.2641e-03, -0.8936e-04, -0.1436e-04, -0.5966e-06, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=21,21)/ &
0.6777e-09, 0.1344e-08, 0.2643e-08, 0.5138e-08, 0.9798e-08, &
0.1809e-07, 0.3185e-07, 0.5285e-07, 0.8249e-07, 0.1222e-06, &
0.1730e-06, 0.2351e-06, 0.3111e-06, 0.4078e-06, 0.5366e-06, &
0.7117e-06, 0.9495e-06, 0.1266e-05, 0.1667e-05, 0.2132e-05, &
0.2600e-05, 0.3001e-05, 0.3354e-05, 0.3679e-05, 0.3796e-05, &
0.3414e-05, 0.2399e-05, 0.1067e-05, 0.2222e-06, 0.1075e-07, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=22,22)/ &
0.99990410, 0.99981070, 0.99962938, 0.99928379, 0.99864298, &
0.99750000, 0.99556601, 0.99247700, 0.98780000, 0.98100001, &
0.97140002, 0.95810002, 0.93984997, 0.91491997, 0.88110000, &
0.83570004, 0.77670002, 0.70239997, 0.61350000, 0.51349998, &
0.40910000, 0.30750000, 0.21340001, 0.13040000, 0.06449997, &
0.02219999, 0.00389999, 0.00010002, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=22,22)/ &
-0.1496e-06, -0.2947e-06, -0.5749e-06, -0.1105e-05, -0.2074e-05, &
-0.3763e-05, -0.6531e-05, -0.1076e-04, -0.1682e-04, -0.2509e-04, &
-0.3605e-04, -0.5049e-04, -0.7012e-04, -0.9787e-04, -0.1378e-03, &
-0.1939e-03, -0.2695e-03, -0.3641e-03, -0.4703e-03, -0.5750e-03, &
-0.6648e-03, -0.7264e-03, -0.7419e-03, -0.6889e-03, -0.5488e-03, &
-0.3382e-03, -0.1375e-03, -0.2951e-04, -0.2174e-05, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=22,22)/ &
0.6798e-09, 0.1350e-08, 0.2667e-08, 0.5226e-08, 0.1010e-07, &
0.1903e-07, 0.3455e-07, 0.5951e-07, 0.9658e-07, 0.1479e-06, &
0.2146e-06, 0.2951e-06, 0.3903e-06, 0.5101e-06, 0.6693e-06, &
0.8830e-06, 0.1168e-05, 0.1532e-05, 0.1968e-05, 0.2435e-05, &
0.2859e-05, 0.3222e-05, 0.3572e-05, 0.3797e-05, 0.3615e-05, &
0.2811e-05, 0.1500e-05, 0.4185e-06, 0.3850e-07, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=23,23)/ &
0.99990374, 0.99980932, 0.99962449, 0.99926788, 0.99859399, &
0.99736100, 0.99520397, 0.99163198, 0.98606002, 0.97779000, &
0.96600002, 0.94963002, 0.92720997, 0.89670002, 0.85580003, &
0.80170000, 0.73269999, 0.64840001, 0.55110002, 0.44669998, &
0.34280002, 0.24529999, 0.15750003, 0.08469999, 0.03369999, &
0.00779998, 0.00050002, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=23,23)/ &
-0.1503e-06, -0.2971e-06, -0.5832e-06, -0.1131e-05, -0.2154e-05, &
-0.3992e-05, -0.7122e-05, -0.1211e-04, -0.1954e-04, -0.2995e-04, &
-0.4380e-04, -0.6183e-04, -0.8577e-04, -0.1191e-03, -0.1668e-03, &
-0.2333e-03, -0.3203e-03, -0.4237e-03, -0.5324e-03, -0.6318e-03, &
-0.7075e-03, -0.7429e-03, -0.7168e-03, -0.6071e-03, -0.4139e-03, &
-0.1976e-03, -0.5410e-04, -0.6215e-05, -0.1343e-06, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=23,23)/ &
0.6809e-09, 0.1356e-08, 0.2683e-08, 0.5287e-08, 0.1030e-07, &
0.1971e-07, 0.3665e-07, 0.6528e-07, 0.1100e-06, 0.1744e-06, &
0.2599e-06, 0.3650e-06, 0.4887e-06, 0.6398e-06, 0.8358e-06, &
0.1095e-05, 0.1429e-05, 0.1836e-05, 0.2286e-05, 0.2716e-05, &
0.3088e-05, 0.3444e-05, 0.3748e-05, 0.3740e-05, 0.3157e-05, &
0.1966e-05, 0.7064e-06, 0.1030e-06, 0.2456e-08, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=24,24)/ &
0.99990344, 0.99980831, 0.99962109, 0.99925637, 0.99855798, &
0.99725199, 0.99489999, 0.99087203, 0.98436999, 0.97447002, &
0.96012998, 0.94006002, 0.91254002, 0.87540001, 0.82609999, &
0.76240003, 0.68299997, 0.58930004, 0.48589998, 0.38020003, &
0.27920002, 0.18699998, 0.10769999, 0.04830003, 0.01400000, &
0.00169998, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=24,24)/ &
-0.1508e-06, -0.2989e-06, -0.5892e-06, -0.1151e-05, -0.2216e-05, &
-0.4175e-05, -0.7619e-05, -0.1333e-04, -0.2217e-04, -0.3497e-04, &
-0.5238e-04, -0.7513e-04, -0.1049e-03, -0.1455e-03, -0.2021e-03, &
-0.2790e-03, -0.3757e-03, -0.4839e-03, -0.5902e-03, -0.6794e-03, &
-0.7344e-03, -0.7341e-03, -0.6557e-03, -0.4874e-03, -0.2674e-03, &
-0.9059e-04, -0.1455e-04, -0.5986e-06, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=24,24)/ &
0.6812e-09, 0.1356e-08, 0.2693e-08, 0.5328e-08, 0.1045e-07, &
0.2021e-07, 0.3826e-07, 0.6994e-07, 0.1218e-06, 0.1997e-06, &
0.3069e-06, 0.4428e-06, 0.6064e-06, 0.8015e-06, 0.1043e-05, &
0.1351e-05, 0.1733e-05, 0.2168e-05, 0.2598e-05, 0.2968e-05, &
0.3316e-05, 0.3662e-05, 0.3801e-05, 0.3433e-05, 0.2422e-05, &
0.1081e-05, 0.2256e-06, 0.1082e-07, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=25,25)/ &
0.99990326, 0.99980772, 0.99961871, 0.99924821, 0.99853098, &
0.99716800, 0.99465698, 0.99022102, 0.98281002, 0.97118002, &
0.95393997, 0.92948997, 0.89579999, 0.85070002, 0.79189998, &
0.71759999, 0.62800002, 0.52639997, 0.41970003, 0.31559998, &
0.21899998, 0.13370001, 0.06610000, 0.02280003, 0.00400001, &
0.00010002, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=25,25)/ &
-0.1511e-06, -0.3001e-06, -0.5934e-06, -0.1166e-05, -0.2263e-05, &
-0.4319e-05, -0.8028e-05, -0.1438e-04, -0.2460e-04, -0.3991e-04, &
-0.6138e-04, -0.9005e-04, -0.1278e-03, -0.1778e-03, -0.2447e-03, &
-0.3313e-03, -0.4342e-03, -0.5424e-03, -0.6416e-03, -0.7146e-03, &
-0.7399e-03, -0.6932e-03, -0.5551e-03, -0.3432e-03, -0.1398e-03, &
-0.3010e-04, -0.2229e-05, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=25,25)/ &
0.6815e-09, 0.1358e-08, 0.2698e-08, 0.5355e-08, 0.1054e-07, &
0.2056e-07, 0.3942e-07, 0.7349e-07, 0.1315e-06, 0.2226e-06, &
0.3537e-06, 0.5266e-06, 0.7407e-06, 0.9958e-06, 0.1296e-05, &
0.1657e-05, 0.2077e-05, 0.2512e-05, 0.2893e-05, 0.3216e-05, &
0.3562e-05, 0.3811e-05, 0.3644e-05, 0.2841e-05, 0.1524e-05, &
0.4276e-06, 0.3960e-07, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=26,26)/ &
0.99990320, 0.99980718, 0.99961710, 0.99924242, 0.99851102, &
0.99710602, 0.99446702, 0.98969001, 0.98144001, 0.96805000, &
0.94762999, 0.91812998, 0.87730002, 0.82290000, 0.75319999, &
0.66789997, 0.56879997, 0.46160001, 0.35450000, 0.25370002, &
0.16280001, 0.08740002, 0.03479999, 0.00809997, 0.00059998, &
0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=26,26)/ &
-0.1513e-06, -0.3009e-06, -0.5966e-06, -0.1176e-05, -0.2299e-05, &
-0.4430e-05, -0.8352e-05, -0.1526e-04, -0.2674e-04, -0.4454e-04, &
-0.7042e-04, -0.1062e-03, -0.1540e-03, -0.2163e-03, -0.2951e-03, &
-0.3899e-03, -0.4948e-03, -0.5983e-03, -0.6846e-03, -0.7332e-03, &
-0.7182e-03, -0.6142e-03, -0.4209e-03, -0.2014e-03, -0.5530e-04, &
-0.6418e-05, -0.1439e-06, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=26,26)/ &
0.6817e-09, 0.1359e-08, 0.2702e-08, 0.5374e-08, 0.1061e-07, &
0.2079e-07, 0.4022e-07, 0.7610e-07, 0.1392e-06, 0.2428e-06, &
0.3992e-06, 0.6149e-06, 0.8893e-06, 0.1220e-05, 0.1599e-05, &
0.2015e-05, 0.2453e-05, 0.2853e-05, 0.3173e-05, 0.3488e-05, &
0.3792e-05, 0.3800e-05, 0.3210e-05, 0.2002e-05, 0.7234e-06, &
0.1068e-06, 0.2646e-08, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h21(ip,iw),iw=1,31), ip= 1, 1)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991685, 0.99986511, 0.99979371, 0.99970162, 0.99958909, &
0.99945778, 0.99931037, 0.99914628, 0.99895900, 0.99873799, &
0.99846601, 0.99813002, 0.99771398, 0.99719697, 0.99655598, &
0.99575800, 0.99475598, 0.99348903, 0.99186200, 0.98973000, &
0.98688000, 0.98303002, 0.97777998, 0.97059000, 0.96077001, &
0.94742000/
data ((h22(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3533e-06, -0.5991e-06, &
-0.9592e-06, -0.1444e-05, -0.2049e-05, -0.2764e-05, -0.3577e-05, &
-0.4469e-05, -0.5467e-05, -0.6654e-05, -0.8137e-05, -0.1002e-04, &
-0.1237e-04, -0.1528e-04, -0.1884e-04, -0.2310e-04, -0.2809e-04, &
-0.3396e-04, -0.4098e-04, -0.4960e-04, -0.6058e-04, -0.7506e-04, &
-0.9451e-04, -0.1207e-03, -0.1558e-03, -0.2026e-03, -0.2648e-03, &
-0.3468e-03/
data ((h23(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.2195e-09, -0.4031e-09, -0.7043e-09, -0.1153e-08, -0.1737e-08, &
-0.2395e-08, -0.3020e-08, -0.3549e-08, -0.4034e-08, -0.4421e-08, &
-0.4736e-08, -0.5681e-08, -0.8289e-08, -0.1287e-07, -0.1873e-07, &
-0.2523e-07, -0.3223e-07, -0.3902e-07, -0.4409e-07, -0.4699e-07, &
-0.4782e-07, -0.4705e-07, -0.4657e-07, -0.4885e-07, -0.5550e-07, &
-0.6619e-07, -0.7656e-07, -0.8027e-07, -0.7261e-07, -0.4983e-07, &
-0.1101e-07/
data ((h21(ip,iw),iw=1,31), ip= 2, 2)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991679, 0.99986511, 0.99979353, 0.99970138, 0.99958861, &
0.99945688, 0.99930882, 0.99914342, 0.99895400, 0.99872798, &
0.99844801, 0.99809802, 0.99765801, 0.99710101, 0.99639499, &
0.99549901, 0.99435198, 0.99287099, 0.99093699, 0.98837000, &
0.98491001, 0.98019999, 0.97373998, 0.96490002, 0.95283002, &
0.93649000/
data ((h22(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3534e-06, -0.5992e-06, &
-0.9594e-06, -0.1445e-05, -0.2050e-05, -0.2766e-05, -0.3580e-05, &
-0.4476e-05, -0.5479e-05, -0.6677e-05, -0.8179e-05, -0.1009e-04, &
-0.1251e-04, -0.1553e-04, -0.1928e-04, -0.2384e-04, -0.2930e-04, &
-0.3588e-04, -0.4393e-04, -0.5403e-04, -0.6714e-04, -0.8458e-04, &
-0.1082e-03, -0.1400e-03, -0.1829e-03, -0.2401e-03, -0.3157e-03, &
-0.4147e-03/
data ((h23(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.2195e-09, -0.4032e-09, -0.7046e-09, -0.1153e-08, -0.1738e-08, &
-0.2395e-08, -0.3021e-08, -0.3550e-08, -0.4035e-08, -0.4423e-08, &
-0.4740e-08, -0.5692e-08, -0.8314e-08, -0.1292e-07, -0.1882e-07, &
-0.2536e-07, -0.3242e-07, -0.3927e-07, -0.4449e-07, -0.4767e-07, &
-0.4889e-07, -0.4857e-07, -0.4860e-07, -0.5132e-07, -0.5847e-07, &
-0.6968e-07, -0.8037e-07, -0.8400e-07, -0.7521e-07, -0.4830e-07, &
-0.7562e-09/
data ((h21(ip,iw),iw=1,31), ip= 3, 3)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991679, 0.99986500, 0.99979341, 0.99970102, 0.99958777, &
0.99945557, 0.99930632, 0.99913889, 0.99894601, 0.99871302, &
0.99842101, 0.99805099, 0.99757600, 0.99696302, 0.99617100, &
0.99514598, 0.99381000, 0.99205798, 0.98974001, 0.98662001, &
0.98238999, 0.97659999, 0.96866000, 0.95776999, 0.94296998, &
0.92306000/
data ((h22(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3535e-06, -0.5994e-06, &
-0.9599e-06, -0.1446e-05, -0.2052e-05, -0.2769e-05, -0.3586e-05, &
-0.4487e-05, -0.5499e-05, -0.6712e-05, -0.8244e-05, -0.1021e-04, &
-0.1272e-04, -0.1591e-04, -0.1992e-04, -0.2489e-04, -0.3097e-04, &
-0.3845e-04, -0.4782e-04, -0.5982e-04, -0.7558e-04, -0.9674e-04, &
-0.1254e-03, -0.1644e-03, -0.2167e-03, -0.2863e-03, -0.3777e-03, &
-0.4959e-03/
data ((h23(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.2196e-09, -0.4033e-09, -0.7048e-09, -0.1154e-08, -0.1739e-08, &
-0.2396e-08, -0.3022e-08, -0.3551e-08, -0.4036e-08, -0.4425e-08, &
-0.4746e-08, -0.5710e-08, -0.8354e-08, -0.1300e-07, -0.1894e-07, &
-0.2554e-07, -0.3265e-07, -0.3958e-07, -0.4502e-07, -0.4859e-07, &
-0.5030e-07, -0.5053e-07, -0.5104e-07, -0.5427e-07, -0.6204e-07, &
-0.7388e-07, -0.8477e-07, -0.8760e-07, -0.7545e-07, -0.4099e-07, &
0.2046e-07/
data ((h21(ip,iw),iw=1,31), ip= 4, 4)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991673, 0.99986482, 0.99979299, 0.99970031, 0.99958658, &
0.99945343, 0.99930239, 0.99913180, 0.99893302, 0.99869001, &
0.99838102, 0.99798000, 0.99745703, 0.99676800, 0.99586397, &
0.99467200, 0.99309403, 0.99099600, 0.98817998, 0.98438001, &
0.97918999, 0.97206002, 0.96227002, 0.94888997, 0.93080997, &
0.90671003/
data ((h22(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.5623e-07, -0.1071e-06, -0.1984e-06, -0.3536e-06, -0.5997e-06, &
-0.9606e-06, -0.1447e-05, -0.2055e-05, -0.2775e-05, -0.3596e-05, &
-0.4504e-05, -0.5529e-05, -0.6768e-05, -0.8345e-05, -0.1039e-04, &
-0.1304e-04, -0.1645e-04, -0.2082e-04, -0.2633e-04, -0.3322e-04, &
-0.4187e-04, -0.5292e-04, -0.6730e-04, -0.8640e-04, -0.1122e-03, &
-0.1472e-03, -0.1948e-03, -0.2585e-03, -0.3428e-03, -0.4523e-03, &
-0.5915e-03/
data ((h23(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.2196e-09, -0.4034e-09, -0.7050e-09, -0.1154e-08, -0.1740e-08, &
-0.2398e-08, -0.3024e-08, -0.3552e-08, -0.4037e-08, -0.4428e-08, &
-0.4756e-08, -0.5741e-08, -0.8418e-08, -0.1310e-07, -0.1910e-07, &
-0.2575e-07, -0.3293e-07, -0.3998e-07, -0.4572e-07, -0.4980e-07, &
-0.5211e-07, -0.5287e-07, -0.5390e-07, -0.5782e-07, -0.6650e-07, &
-0.7892e-07, -0.8940e-07, -0.8980e-07, -0.7119e-07, -0.2452e-07, &
0.5823e-07/
data ((h21(ip,iw),iw=1,31), ip= 5, 5)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995136, &
0.99991661, 0.99986458, 0.99979252, 0.99969929, 0.99958479, &
0.99945003, 0.99929619, 0.99912071, 0.99891400, 0.99865502, &
0.99831998, 0.99787700, 0.99728799, 0.99650002, 0.99544799, &
0.99404198, 0.99215603, 0.98961997, 0.98619002, 0.98153001, &
0.97513002, 0.96634001, 0.95428002, 0.93791002, 0.91593999, &
0.88700002/
data ((h22(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.5623e-07, -0.1071e-06, -0.1985e-06, -0.3538e-06, -0.6002e-06, &
-0.9618e-06, -0.1450e-05, -0.2059e-05, -0.2783e-05, -0.3611e-05, &
-0.4531e-05, -0.5577e-05, -0.6855e-05, -0.8499e-05, -0.1066e-04, &
-0.1351e-04, -0.1723e-04, -0.2207e-04, -0.2829e-04, -0.3621e-04, &
-0.4636e-04, -0.5954e-04, -0.7690e-04, -0.1002e-03, -0.1317e-03, &
-0.1746e-03, -0.2326e-03, -0.3099e-03, -0.4111e-03, -0.5407e-03, &
-0.7020e-03/
data ((h23(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.2197e-09, -0.4037e-09, -0.7054e-09, -0.1155e-08, -0.1741e-08, &
-0.2401e-08, -0.3027e-08, -0.3553e-08, -0.4039e-08, -0.4431e-08, &
-0.4775e-08, -0.5784e-08, -0.8506e-08, -0.1326e-07, -0.1931e-07, &
-0.2600e-07, -0.3324e-07, -0.4048e-07, -0.4666e-07, -0.5137e-07, &
-0.5428e-07, -0.5558e-07, -0.5730e-07, -0.6228e-07, -0.7197e-07, &
-0.8455e-07, -0.9347e-07, -0.8867e-07, -0.5945e-07, 0.5512e-08, &
0.1209e-06/
data ((h21(ip,iw),iw=1,31), ip= 6, 6)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995130, &
0.99991649, 0.99986428, 0.99979180, 0.99969780, 0.99958187, &
0.99944460, 0.99928659, 0.99910372, 0.99888301, 0.99860299, &
0.99822998, 0.99773002, 0.99705303, 0.99613500, 0.99489301, &
0.99321300, 0.99093801, 0.98785001, 0.98365998, 0.97790998, &
0.97000998, 0.95916998, 0.94437003, 0.92440999, 0.89789999, &
0.86360002/
data ((h22(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.5624e-07, -0.1072e-06, -0.1986e-06, -0.3541e-06, -0.6010e-06, &
-0.9636e-06, -0.1453e-05, -0.2067e-05, -0.2796e-05, -0.3634e-05, &
-0.4572e-05, -0.5652e-05, -0.6987e-05, -0.8733e-05, -0.1107e-04, &
-0.1418e-04, -0.1832e-04, -0.2378e-04, -0.3092e-04, -0.4017e-04, &
-0.5221e-04, -0.6806e-04, -0.8916e-04, -0.1176e-03, -0.1562e-03, &
-0.2087e-03, -0.2793e-03, -0.3724e-03, -0.4928e-03, -0.6440e-03, &
-0.8270e-03/
data ((h23(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.2198e-09, -0.4040e-09, -0.7061e-09, -0.1156e-08, -0.1744e-08, &
-0.2405e-08, -0.3032e-08, -0.3556e-08, -0.4040e-08, -0.4444e-08, &
-0.4800e-08, -0.5848e-08, -0.8640e-08, -0.1346e-07, -0.1957e-07, &
-0.2627e-07, -0.3357e-07, -0.4114e-07, -0.4793e-07, -0.5330e-07, &
-0.5676e-07, -0.5873e-07, -0.6152e-07, -0.6783e-07, -0.7834e-07, &
-0.9023e-07, -0.9530e-07, -0.8162e-07, -0.3634e-07, 0.5638e-07, &
0.2189e-06/
data ((h21(ip,iw),iw=1,31), ip= 7, 7)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995124, &
0.99991626, 0.99986368, 0.99979049, 0.99969530, 0.99957728, &
0.99943632, 0.99927181, 0.99907762, 0.99883801, 0.99852502, &
0.99810201, 0.99752498, 0.99673301, 0.99564600, 0.99416101, &
0.99213398, 0.98936999, 0.98559999, 0.98043001, 0.97333997, &
0.96359003, 0.95025003, 0.93216002, 0.90798998, 0.87639999, &
0.83609998/
data ((h22(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.5626e-07, -0.1072e-06, -0.1987e-06, -0.3545e-06, -0.6022e-06, &
-0.9665e-06, -0.1460e-05, -0.2078e-05, -0.2817e-05, -0.3671e-05, &
-0.4637e-05, -0.5767e-05, -0.7188e-05, -0.9080e-05, -0.1165e-04, &
-0.1513e-04, -0.1981e-04, -0.2609e-04, -0.3441e-04, -0.4534e-04, &
-0.5978e-04, -0.7897e-04, -0.1047e-03, -0.1396e-03, -0.1870e-03, &
-0.2510e-03, -0.3363e-03, -0.4475e-03, -0.5888e-03, -0.7621e-03, &
-0.9647e-03/
data ((h23(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.2200e-09, -0.4045e-09, -0.7071e-09, -0.1159e-08, -0.1748e-08, &
-0.2411e-08, -0.3040e-08, -0.3561e-08, -0.4046e-08, -0.4455e-08, &
-0.4839e-08, -0.5941e-08, -0.8815e-08, -0.1371e-07, -0.1983e-07, &
-0.2652e-07, -0.3400e-07, -0.4207e-07, -0.4955e-07, -0.5554e-07, &
-0.5966e-07, -0.6261e-07, -0.6688e-07, -0.7454e-07, -0.8521e-07, &
-0.9470e-07, -0.9275e-07, -0.6525e-07, 0.3686e-08, 0.1371e-06, &
0.3623e-06/
data ((h21(ip,iw),iw=1,31), ip= 8, 8)/ &
0.99999607, 0.99999237, 0.99998540, 0.99997282, 0.99995112, &
0.99991590, 0.99986279, 0.99978858, 0.99969149, 0.99957019, &
0.99942350, 0.99924922, 0.99903822, 0.99877101, 0.99841398, &
0.99792302, 0.99724299, 0.99630302, 0.99500000, 0.99320602, &
0.99074000, 0.98736000, 0.98272002, 0.97635001, 0.96758002, &
0.95555997, 0.93919998, 0.91722000, 0.88819999, 0.85089999, &
0.80439997/
data ((h22(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.5628e-07, -0.1073e-06, -0.1990e-06, -0.3553e-06, -0.6042e-06, &
-0.9710e-06, -0.1469e-05, -0.2096e-05, -0.2849e-05, -0.3728e-05, &
-0.4738e-05, -0.5942e-05, -0.7490e-05, -0.9586e-05, -0.1247e-04, &
-0.1644e-04, -0.2184e-04, -0.2916e-04, -0.3898e-04, -0.5205e-04, &
-0.6948e-04, -0.9285e-04, -0.1244e-03, -0.1672e-03, -0.2251e-03, &
-0.3028e-03, -0.4051e-03, -0.5365e-03, -0.6998e-03, -0.8940e-03, &
-0.1112e-02/
data ((h23(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.2204e-09, -0.4052e-09, -0.7088e-09, -0.1162e-08, -0.1755e-08, &
-0.2422e-08, -0.3053e-08, -0.3572e-08, -0.4052e-08, -0.4474e-08, &
-0.4898e-08, -0.6082e-08, -0.9046e-08, -0.1400e-07, -0.2009e-07, &
-0.2683e-07, -0.3463e-07, -0.4334e-07, -0.5153e-07, -0.5811e-07, &
-0.6305e-07, -0.6749e-07, -0.7346e-07, -0.8208e-07, -0.9173e-07, &
-0.9603e-07, -0.8264e-07, -0.3505e-07, 0.6878e-07, 0.2586e-06, &
0.5530e-06/
data ((h21(ip,iw),iw=1,31), ip= 9, 9)/ &
0.99999607, 0.99999237, 0.99998540, 0.99997276, 0.99995089, &
0.99991536, 0.99986148, 0.99978572, 0.99968570, 0.99955928, &
0.99940401, 0.99921501, 0.99897999, 0.99867398, 0.99825603, &
0.99767601, 0.99686497, 0.99573302, 0.99415499, 0.99196899, &
0.98895001, 0.98479998, 0.97907001, 0.97119999, 0.96038002, &
0.94559997, 0.92565000, 0.89910001, 0.86470002, 0.82130003, &
0.76830000/
data ((h22(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.5630e-07, -0.1074e-06, -0.1994e-06, -0.3564e-06, -0.6072e-06, &
-0.9779e-06, -0.1484e-05, -0.2124e-05, -0.2900e-05, -0.3817e-05, &
-0.4891e-05, -0.6205e-05, -0.7931e-05, -0.1031e-04, -0.1362e-04, &
-0.1821e-04, -0.2454e-04, -0.3320e-04, -0.4493e-04, -0.6068e-04, &
-0.8186e-04, -0.1104e-03, -0.1491e-03, -0.2016e-03, -0.2722e-03, &
-0.3658e-03, -0.4873e-03, -0.6404e-03, -0.8253e-03, -0.1037e-02, &
-0.1267e-02/
data ((h23(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.2207e-09, -0.4061e-09, -0.7117e-09, -0.1169e-08, -0.1767e-08, &
-0.2439e-08, -0.3074e-08, -0.3588e-08, -0.4062e-08, -0.4510e-08, &
-0.4983e-08, -0.6261e-08, -0.9324e-08, -0.1430e-07, -0.2036e-07, &
-0.2725e-07, -0.3561e-07, -0.4505e-07, -0.5384e-07, -0.6111e-07, &
-0.6731e-07, -0.7355e-07, -0.8112e-07, -0.8978e-07, -0.9616e-07, &
-0.9157e-07, -0.6114e-07, 0.1622e-07, 0.1694e-06, 0.4277e-06, &
0.7751e-06/
data ((h21(ip,iw),iw=1,31), ip=10,10)/ &
0.99999607, 0.99999237, 0.99998540, 0.99997264, 0.99995059, &
0.99991453, 0.99985939, 0.99978119, 0.99967682, 0.99954277, &
0.99937469, 0.99916458, 0.99889499, 0.99853599, 0.99804002, &
0.99734300, 0.99636298, 0.99498600, 0.99305803, 0.99037802, &
0.98667002, 0.98154002, 0.97447002, 0.96473998, 0.95141000, &
0.93333000, 0.90916002, 0.87750000, 0.83710003, 0.78729999, &
0.72790003/
data ((h22(ip,iw),iw=1,31), ip=10,10)/ &
-0.5636e-07, -0.1076e-06, -0.2000e-06, -0.3582e-06, -0.6119e-06, &
-0.9888e-06, -0.1507e-05, -0.2168e-05, -0.2978e-05, -0.3952e-05, &
-0.5122e-05, -0.6592e-05, -0.8565e-05, -0.1132e-04, -0.1518e-04, &
-0.2060e-04, -0.2811e-04, -0.3848e-04, -0.5261e-04, -0.7173e-04, &
-0.9758e-04, -0.1326e-03, -0.1801e-03, -0.2442e-03, -0.3296e-03, &
-0.4415e-03, -0.5840e-03, -0.7591e-03, -0.9636e-03, -0.1189e-02, &
-0.1427e-02/
data ((h23(ip,iw),iw=1,31), ip=10,10)/ &
-0.2214e-09, -0.4080e-09, -0.7156e-09, -0.1178e-08, -0.1784e-08, &
-0.2466e-08, -0.3105e-08, -0.3617e-08, -0.4087e-08, -0.4563e-08, &
-0.5110e-08, -0.6492e-08, -0.9643e-08, -0.1461e-07, -0.2069e-07, &
-0.2796e-07, -0.3702e-07, -0.4717e-07, -0.5662e-07, -0.6484e-07, &
-0.7271e-07, -0.8079e-07, -0.8928e-07, -0.9634e-07, -0.9625e-07, &
-0.7776e-07, -0.2242e-07, 0.9745e-07, 0.3152e-06, 0.6388e-06, &
0.9992e-06/
data ((h21(ip,iw),iw=1,31), ip=11,11)/ &
0.99999607, 0.99999237, 0.99998534, 0.99997252, 0.99995011, &
0.99991328, 0.99985629, 0.99977452, 0.99966347, 0.99951839, &
0.99933177, 0.99909180, 0.99877602, 0.99834698, 0.99774700, &
0.99690098, 0.99570400, 0.99401599, 0.99164802, 0.98834997, &
0.98377001, 0.97742999, 0.96868002, 0.95666999, 0.94032001, &
0.91833997, 0.88929999, 0.85189998, 0.80530000, 0.74909997, &
0.68299997/
data ((h22(ip,iw),iw=1,31), ip=11,11)/ &
-0.5645e-07, -0.1079e-06, -0.2009e-06, -0.3610e-06, -0.6190e-06, &
-0.1005e-05, -0.1541e-05, -0.2235e-05, -0.3096e-05, -0.4155e-05, &
-0.5463e-05, -0.7150e-05, -0.9453e-05, -0.1269e-04, -0.1728e-04, &
-0.2375e-04, -0.3279e-04, -0.4531e-04, -0.6246e-04, -0.8579e-04, &
-0.1175e-03, -0.1604e-03, -0.2186e-03, -0.2964e-03, -0.3990e-03, &
-0.5311e-03, -0.6957e-03, -0.8916e-03, -0.1112e-02, -0.1346e-02, &
-0.1590e-02/
data ((h23(ip,iw),iw=1,31), ip=11,11)/ &
-0.2225e-09, -0.4104e-09, -0.7217e-09, -0.1192e-08, -0.1811e-08, &
-0.2509e-08, -0.3155e-08, -0.3668e-08, -0.4138e-08, -0.4650e-08, &
-0.5296e-08, -0.6785e-08, -0.9991e-08, -0.1494e-07, -0.2122e-07, &
-0.2911e-07, -0.3895e-07, -0.4979e-07, -0.6002e-07, -0.6964e-07, &
-0.7935e-07, -0.8887e-07, -0.9699e-07, -0.9967e-07, -0.8883e-07, &
-0.4988e-07, 0.4156e-07, 0.2197e-06, 0.5081e-06, 0.8667e-06, &
0.1212e-05/
data ((h21(ip,iw),iw=1,31), ip=12,12)/ &
0.99999607, 0.99999237, 0.99998528, 0.99997234, 0.99994951, &
0.99991143, 0.99985188, 0.99976480, 0.99964428, 0.99948311, &
0.99927050, 0.99899000, 0.99861199, 0.99809098, 0.99735999, &
0.99632198, 0.99484903, 0.99276900, 0.98984998, 0.98576999, &
0.98009998, 0.97224998, 0.96144003, 0.94667000, 0.92672002, &
0.90020001, 0.86570001, 0.82220000, 0.76919997, 0.70640004, &
0.63330001/
data ((h22(ip,iw),iw=1,31), ip=12,12)/ &
-0.5658e-07, -0.1083e-06, -0.2023e-06, -0.3650e-06, -0.6295e-06, &
-0.1030e-05, -0.1593e-05, -0.2334e-05, -0.3273e-05, -0.4455e-05, &
-0.5955e-05, -0.7935e-05, -0.1067e-04, -0.1455e-04, -0.2007e-04, &
-0.2788e-04, -0.3885e-04, -0.5409e-04, -0.7503e-04, -0.1036e-03, &
-0.1425e-03, -0.1951e-03, -0.2660e-03, -0.3598e-03, -0.4817e-03, &
-0.6355e-03, -0.8218e-03, -0.1035e-02, -0.1267e-02, -0.1508e-02, &
-0.1755e-02/
data ((h23(ip,iw),iw=1,31), ip=12,12)/ &
-0.2241e-09, -0.4142e-09, -0.7312e-09, -0.1214e-08, -0.1854e-08, &
-0.2578e-08, -0.3250e-08, -0.3765e-08, -0.4238e-08, -0.4809e-08, &
-0.5553e-08, -0.7132e-08, -0.1035e-07, -0.1538e-07, -0.2211e-07, &
-0.3079e-07, -0.4142e-07, -0.5303e-07, -0.6437e-07, -0.7566e-07, &
-0.8703e-07, -0.9700e-07, -0.1025e-06, -0.9718e-07, -0.6973e-07, &
-0.5265e-09, 0.1413e-06, 0.3895e-06, 0.7321e-06, 0.1085e-05, &
0.1449e-05/
data ((h21(ip,iw),iw=1,31), ip=13,13)/ &
0.99999607, 0.99999231, 0.99998522, 0.99997205, 0.99994856, &
0.99990892, 0.99984580, 0.99975121, 0.99961728, 0.99943388, &
0.99918568, 0.99884999, 0.99839199, 0.99775398, 0.99685299, &
0.99557197, 0.99375200, 0.99117702, 0.98755997, 0.98250002, &
0.97548002, 0.96575999, 0.95244002, 0.93436003, 0.91018999, &
0.87849998, 0.83810002, 0.78820002, 0.72870004, 0.65910000, &
0.57850003/
data ((h22(ip,iw),iw=1,31), ip=13,13)/ &
-0.5677e-07, -0.1090e-06, -0.2043e-06, -0.3709e-06, -0.6448e-06, &
-0.1066e-05, -0.1669e-05, -0.2480e-05, -0.3532e-05, -0.4887e-05, &
-0.6650e-05, -0.9017e-05, -0.1232e-04, -0.1701e-04, -0.2372e-04, &
-0.3325e-04, -0.4664e-04, -0.6528e-04, -0.9095e-04, -0.1260e-03, &
-0.1737e-03, -0.2381e-03, -0.3238e-03, -0.4359e-03, -0.5789e-03, &
-0.7549e-03, -0.9607e-03, -0.1188e-02, -0.1427e-02, -0.1674e-02, &
-0.1914e-02/
data ((h23(ip,iw),iw=1,31), ip=13,13)/ &
-0.2262e-09, -0.4191e-09, -0.7441e-09, -0.1244e-08, -0.1916e-08, &
-0.2687e-08, -0.3407e-08, -0.3947e-08, -0.4432e-08, -0.5059e-08, &
-0.5896e-08, -0.7538e-08, -0.1079e-07, -0.1606e-07, -0.2346e-07, &
-0.3305e-07, -0.4459e-07, -0.5720e-07, -0.6999e-07, -0.8300e-07, &
-0.9536e-07, -0.1039e-06, -0.1036e-06, -0.8526e-07, -0.3316e-07, &
0.7909e-07, 0.2865e-06, 0.6013e-06, 0.9580e-06, 0.1303e-05, &
0.1792e-05/
data ((h21(ip,iw),iw=1,31), ip=14,14)/ &
0.99999607, 0.99999231, 0.99998510, 0.99997163, 0.99994737, &
0.99990571, 0.99983770, 0.99973333, 0.99958128, 0.99936771, &
0.99907219, 0.99866599, 0.99810302, 0.99731499, 0.99620003, &
0.99461198, 0.99235398, 0.98916000, 0.98466998, 0.97839999, &
0.96969002, 0.95769000, 0.94133997, 0.91935998, 0.89029998, &
0.85290003, 0.80620003, 0.74989998, 0.68369997, 0.60679996, &
0.51899999/
data ((h22(ip,iw),iw=1,31), ip=14,14)/ &
-0.5703e-07, -0.1098e-06, -0.2071e-06, -0.3788e-06, -0.6657e-06, &
-0.1116e-05, -0.1776e-05, -0.2687e-05, -0.3898e-05, -0.5493e-05, &
-0.7607e-05, -0.1048e-04, -0.1450e-04, -0.2024e-04, -0.2845e-04, &
-0.4014e-04, -0.5658e-04, -0.7947e-04, -0.1110e-03, -0.1541e-03, &
-0.2125e-03, -0.2907e-03, -0.3936e-03, -0.5261e-03, -0.6912e-03, &
-0.8880e-03, -0.1109e-02, -0.1346e-02, -0.1591e-02, -0.1837e-02, &
-0.2054e-02/
data ((h23(ip,iw),iw=1,31), ip=14,14)/ &
-0.2288e-09, -0.4265e-09, -0.7627e-09, -0.1289e-08, -0.2011e-08, &
-0.2861e-08, -0.3673e-08, -0.4288e-08, -0.4812e-08, -0.5475e-08, &
-0.6365e-08, -0.8052e-08, -0.1142e-07, -0.1711e-07, -0.2533e-07, &
-0.3597e-07, -0.4862e-07, -0.6259e-07, -0.7708e-07, -0.9150e-07, &
-0.1035e-06, -0.1079e-06, -0.9742e-07, -0.5928e-07, 0.2892e-07, &
0.1998e-06, 0.4789e-06, 0.8298e-06, 0.1172e-05, 0.1583e-05, &
0.2329e-05/
data ((h21(ip,iw),iw=1,31), ip=15,15)/ &
0.99999607, 0.99999225, 0.99998498, 0.99997115, 0.99994600, &
0.99990171, 0.99982780, 0.99971092, 0.99953562, 0.99928278, &
0.99892598, 0.99842799, 0.99773300, 0.99675500, 0.99536800, &
0.99339402, 0.99058902, 0.98662001, 0.98104000, 0.97325999, &
0.96249002, 0.94773000, 0.92778003, 0.90125000, 0.86680001, &
0.82319999, 0.77010000, 0.70730001, 0.63400000, 0.54960001, &
0.45560002/
data ((h22(ip,iw),iw=1,31), ip=15,15)/ &
-0.5736e-07, -0.1109e-06, -0.2106e-06, -0.3890e-06, -0.6928e-06, &
-0.1181e-05, -0.1917e-05, -0.2965e-05, -0.4396e-05, -0.6315e-05, &
-0.8891e-05, -0.1242e-04, -0.1736e-04, -0.2442e-04, -0.3454e-04, &
-0.4892e-04, -0.6916e-04, -0.9735e-04, -0.1362e-03, -0.1891e-03, &
-0.2602e-03, -0.3545e-03, -0.4768e-03, -0.6310e-03, -0.8179e-03, &
-0.1032e-02, -0.1265e-02, -0.1508e-02, -0.1757e-02, -0.1989e-02, &
-0.2159e-02/
data ((h23(ip,iw),iw=1,31), ip=15,15)/ &
-0.2321e-09, -0.4350e-09, -0.7861e-09, -0.1347e-08, -0.2144e-08, &
-0.3120e-08, -0.4107e-08, -0.4892e-08, -0.5511e-08, -0.6164e-08, &
-0.7054e-08, -0.8811e-08, -0.1240e-07, -0.1862e-07, -0.2773e-07, &
-0.3957e-07, -0.5371e-07, -0.6939e-07, -0.8564e-07, -0.1006e-06, &
-0.1100e-06, -0.1066e-06, -0.8018e-07, -0.1228e-07, 0.1263e-06, &
0.3678e-06, 0.7022e-06, 0.1049e-05, 0.1411e-05, 0.2015e-05, &
0.3099e-05/
data ((h21(ip,iw),iw=1,31), ip=16,16)/ &
0.99999791, 0.99999589, 0.99999183, 0.99998391, 0.99996853, &
0.99993920, 0.99988472, 0.99978709, 0.99961978, 0.99934620, &
0.99892199, 0.99830103, 0.99742401, 0.99619502, 0.99445999, &
0.99199599, 0.98851001, 0.98360002, 0.97671002, 0.96710002, &
0.95378000, 0.93559003, 0.91112000, 0.87900001, 0.83780003, &
0.78680003, 0.72549999, 0.65300000, 0.56830001, 0.47140002, &
0.36650002/
data ((h22(ip,iw),iw=1,31), ip=16,16)/ &
-0.3122e-07, -0.6175e-07, -0.1214e-06, -0.2361e-06, -0.4518e-06, &
-0.8438e-06, -0.1524e-05, -0.2643e-05, -0.4380e-05, -0.6922e-05, &
-0.1042e-04, -0.1504e-04, -0.2125e-04, -0.2987e-04, -0.4200e-04, &
-0.5923e-04, -0.8383e-04, -0.1186e-03, -0.1670e-03, -0.2328e-03, &
-0.3204e-03, -0.4347e-03, -0.5802e-03, -0.7595e-03, -0.9703e-03, &
-0.1205e-02, -0.1457e-02, -0.1720e-02, -0.1980e-02, -0.2191e-02, &
-0.2290e-02/
data ((h23(ip,iw),iw=1,31), ip=16,16)/ &
-0.1376e-09, -0.2699e-09, -0.5220e-09, -0.9897e-09, -0.1819e-08, &
-0.3186e-08, -0.5224e-08, -0.7896e-08, -0.1090e-07, -0.1349e-07, &
-0.1443e-07, -0.1374e-07, -0.1386e-07, -0.1673e-07, -0.2237e-07, &
-0.3248e-07, -0.5050e-07, -0.7743e-07, -0.1097e-06, -0.1369e-06, &
-0.1463e-06, -0.1268e-06, -0.6424e-07, 0.5941e-07, 0.2742e-06, &
0.5924e-06, 0.9445e-06, 0.1286e-05, 0.1819e-05, 0.2867e-05, &
0.4527e-05/
data ((h21(ip,iw),iw=1,31), ip=17,17)/ &
0.99999756, 0.99999511, 0.99999028, 0.99998081, 0.99996233, &
0.99992681, 0.99986011, 0.99973929, 0.99953061, 0.99918979, &
0.99866599, 0.99790198, 0.99681997, 0.99528998, 0.99312103, &
0.99004799, 0.98571002, 0.97961998, 0.97105998, 0.95915002, &
0.94278002, 0.92061001, 0.89120001, 0.85320002, 0.80550003, &
0.74759996, 0.67900002, 0.59829998, 0.50520003, 0.40219998, &
0.29600000/
data ((h22(ip,iw),iw=1,31), ip=17,17)/ &
-0.3547e-07, -0.7029e-07, -0.1386e-06, -0.2709e-06, -0.5218e-06, &
-0.9840e-06, -0.1799e-05, -0.3156e-05, -0.5272e-05, -0.8357e-05, &
-0.1260e-04, -0.1827e-04, -0.2598e-04, -0.3667e-04, -0.5169e-04, &
-0.7312e-04, -0.1037e-03, -0.1467e-03, -0.2060e-03, -0.2857e-03, &
-0.3907e-03, -0.5257e-03, -0.6940e-03, -0.8954e-03, -0.1124e-02, &
-0.1371e-02, -0.1632e-02, -0.1897e-02, -0.2131e-02, -0.2275e-02, &
-0.2265e-02/
data ((h23(ip,iw),iw=1,31), ip=17,17)/ &
-0.1482e-09, -0.2910e-09, -0.5667e-09, -0.1081e-08, -0.2005e-08, &
-0.3554e-08, -0.5902e-08, -0.8925e-08, -0.1209e-07, -0.1448e-07, &
-0.1536e-07, -0.1565e-07, -0.1763e-07, -0.2088e-07, -0.2564e-07, &
-0.3635e-07, -0.5791e-07, -0.8907e-07, -0.1213e-06, -0.1418e-06, &
-0.1397e-06, -0.1000e-06, -0.4427e-08, 0.1713e-06, 0.4536e-06, &
0.8086e-06, 0.1153e-05, 0.1588e-05, 0.2437e-05, 0.3905e-05, &
0.5874e-05/
data ((h21(ip,iw),iw=1,31), ip=18,18)/ &
0.99999714, 0.99999428, 0.99998862, 0.99997741, 0.99995553, &
0.99991333, 0.99983358, 0.99968803, 0.99943441, 0.99901879, &
0.99837899, 0.99744099, 0.99609798, 0.99418801, 0.99147803, &
0.98764998, 0.98227000, 0.97469997, 0.96410000, 0.94941998, &
0.92940998, 0.90263999, 0.86769998, 0.82330000, 0.76880002, &
0.70379996, 0.62720001, 0.53810000, 0.43769997, 0.33149999, &
0.22839999/
data ((h22(ip,iw),iw=1,31), ip=18,18)/ &
-0.4064e-07, -0.8066e-07, -0.1593e-06, -0.3124e-06, -0.6049e-06, &
-0.1148e-05, -0.2118e-05, -0.3751e-05, -0.6314e-05, -0.1006e-04, &
-0.1526e-04, -0.2232e-04, -0.3196e-04, -0.4525e-04, -0.6394e-04, &
-0.9058e-04, -0.1284e-03, -0.1812e-03, -0.2533e-03, -0.3493e-03, &
-0.4740e-03, -0.6315e-03, -0.8228e-03, -0.1044e-02, -0.1286e-02, &
-0.1544e-02, -0.1810e-02, -0.2061e-02, -0.2243e-02, -0.2291e-02, &
-0.2152e-02/
data ((h23(ip,iw),iw=1,31), ip=18,18)/ &
-0.1630e-09, -0.3213e-09, -0.6266e-09, -0.1201e-08, -0.2248e-08, &
-0.4030e-08, -0.6770e-08, -0.1033e-07, -0.1392e-07, -0.1640e-07, &
-0.1768e-07, -0.1932e-07, -0.2229e-07, -0.2508e-07, -0.2940e-07, &
-0.4200e-07, -0.6717e-07, -0.1002e-06, -0.1286e-06, -0.1402e-06, &
-0.1216e-06, -0.5487e-07, 0.8418e-07, 0.3246e-06, 0.6610e-06, &
0.1013e-05, 0.1394e-05, 0.2073e-05, 0.3337e-05, 0.5175e-05, &
0.7255e-05/
data ((h21(ip,iw),iw=1,31), ip=19,19)/ &
0.99999672, 0.99999344, 0.99998701, 0.99997419, 0.99994916, &
0.99990064, 0.99980861, 0.99963921, 0.99934143, 0.99884701, &
0.99807602, 0.99692601, 0.99525797, 0.99287403, 0.98948997, &
0.98474002, 0.97804999, 0.96867001, 0.95559001, 0.93761998, &
0.91336000, 0.88139999, 0.84029996, 0.78920001, 0.72770000, &
0.65499997, 0.56999999, 0.47280002, 0.36760002, 0.26220000, &
0.16700000/
data ((h22(ip,iw),iw=1,31), ip=19,19)/ &
-0.4629e-07, -0.9195e-07, -0.1819e-06, -0.3572e-06, -0.6936e-06, &
-0.1323e-05, -0.2456e-05, -0.4385e-05, -0.7453e-05, -0.1200e-04, &
-0.1843e-04, -0.2731e-04, -0.3943e-04, -0.5606e-04, -0.7936e-04, &
-0.1123e-03, -0.1588e-03, -0.2231e-03, -0.3101e-03, -0.4247e-03, &
-0.5713e-03, -0.7522e-03, -0.9651e-03, -0.1202e-02, -0.1456e-02, &
-0.1721e-02, -0.1983e-02, -0.2196e-02, -0.2296e-02, -0.2224e-02, &
-0.1952e-02/
data ((h23(ip,iw),iw=1,31), ip=19,19)/ &
-0.1827e-09, -0.3607e-09, -0.7057e-09, -0.1359e-08, -0.2552e-08, &
-0.4615e-08, -0.7854e-08, -0.1218e-07, -0.1670e-07, -0.2008e-07, &
-0.2241e-07, -0.2516e-07, -0.2796e-07, -0.3015e-07, -0.3506e-07, &
-0.4958e-07, -0.7627e-07, -0.1070e-06, -0.1289e-06, -0.1286e-06, &
-0.8843e-07, 0.1492e-07, 0.2118e-06, 0.5155e-06, 0.8665e-06, &
0.1220e-05, 0.1765e-05, 0.2825e-05, 0.4498e-05, 0.6563e-05, &
0.8422e-05/
data ((h21(ip,iw),iw=1,31), ip=20,20)/ &
0.99999636, 0.99999279, 0.99998569, 0.99997163, 0.99994397, &
0.99989033, 0.99978799, 0.99959832, 0.99926043, 0.99868900, &
0.99777400, 0.99637598, 0.99431503, 0.99134803, 0.98714000, &
0.98122001, 0.97290999, 0.96131998, 0.94528997, 0.92346001, &
0.89429998, 0.85650003, 0.80879998, 0.75080001, 0.68190002, &
0.60100001, 0.50740004, 0.40399998, 0.29729998, 0.19730002, &
0.11479998/
data ((h22(ip,iw),iw=1,31), ip=20,20)/ &
-0.5164e-07, -0.1026e-06, -0.2031e-06, -0.3994e-06, -0.7771e-06, &
-0.1488e-05, -0.2776e-05, -0.5001e-05, -0.8610e-05, -0.1411e-04, &
-0.2209e-04, -0.3328e-04, -0.4860e-04, -0.6954e-04, -0.9861e-04, &
-0.1393e-03, -0.1961e-03, -0.2738e-03, -0.3778e-03, -0.5132e-03, &
-0.6831e-03, -0.8868e-03, -0.1118e-02, -0.1368e-02, -0.1632e-02, &
-0.1899e-02, -0.2136e-02, -0.2282e-02, -0.2273e-02, -0.2067e-02, &
-0.1679e-02/
data ((h23(ip,iw),iw=1,31), ip=20,20)/ &
-0.2058e-09, -0.4066e-09, -0.7967e-09, -0.1539e-08, -0.2904e-08, &
-0.5293e-08, -0.9116e-08, -0.1447e-07, -0.2058e-07, -0.2608e-07, &
-0.3053e-07, -0.3418e-07, -0.3619e-07, -0.3766e-07, -0.4313e-07, &
-0.5817e-07, -0.8299e-07, -0.1072e-06, -0.1195e-06, -0.1031e-06, &
-0.3275e-07, 0.1215e-06, 0.3835e-06, 0.7220e-06, 0.1062e-05, &
0.1504e-05, 0.2367e-05, 0.3854e-05, 0.5842e-05, 0.7875e-05, &
0.9082e-05/
data ((h21(ip,iw),iw=1,31), ip=21,21)/ &
0.99999619, 0.99999237, 0.99998480, 0.99996990, 0.99994045, &
0.99988312, 0.99977320, 0.99956751, 0.99919540, 0.99855101, &
0.99748802, 0.99581498, 0.99329299, 0.98961997, 0.98439002, &
0.97702003, 0.96671999, 0.95245999, 0.93291998, 0.90660000, &
0.87199998, 0.82780004, 0.77329999, 0.70819998, 0.63119996, &
0.54159999, 0.44059998, 0.33380002, 0.23000002, 0.14029998, &
0.07340002/
data ((h22(ip,iw),iw=1,31), ip=21,21)/ &
-0.5584e-07, -0.1110e-06, -0.2198e-06, -0.4329e-06, -0.8444e-06, &
-0.1623e-05, -0.3049e-05, -0.5551e-05, -0.9714e-05, -0.1627e-04, &
-0.2609e-04, -0.4015e-04, -0.5955e-04, -0.8603e-04, -0.1223e-03, &
-0.1724e-03, -0.2413e-03, -0.3346e-03, -0.4578e-03, -0.6155e-03, &
-0.8087e-03, -0.1033e-02, -0.1279e-02, -0.1540e-02, -0.1811e-02, &
-0.2065e-02, -0.2251e-02, -0.2301e-02, -0.2163e-02, -0.1828e-02, &
-0.1365e-02/
data ((h23(ip,iw),iw=1,31), ip=21,21)/ &
-0.2274e-09, -0.4498e-09, -0.8814e-09, -0.1708e-08, -0.3247e-08, &
-0.5972e-08, -0.1045e-07, -0.1707e-07, -0.2545e-07, -0.3440e-07, &
-0.4259e-07, -0.4822e-07, -0.5004e-07, -0.5061e-07, -0.5485e-07, &
-0.6687e-07, -0.8483e-07, -0.9896e-07, -0.9646e-07, -0.5557e-07, &
0.5765e-07, 0.2752e-06, 0.5870e-06, 0.9188e-06, 0.1291e-05, &
0.1971e-05, 0.3251e-05, 0.5115e-05, 0.7221e-05, 0.8825e-05, &
0.9032e-05/
data ((h21(ip,iw),iw=1,31), ip=22,22)/ &
0.99999607, 0.99999213, 0.99998438, 0.99996895, 0.99993849, &
0.99987900, 0.99976391, 0.99954629, 0.99914569, 0.99843502, &
0.99722600, 0.99526101, 0.99221897, 0.98771000, 0.98123002, &
0.97209001, 0.95936000, 0.94187999, 0.91820002, 0.88679999, &
0.84609997, 0.79530001, 0.73379999, 0.66090000, 0.57529998, &
0.47740000, 0.37129998, 0.26490003, 0.16890001, 0.09340000, &
0.04310000/
data ((h22(ip,iw),iw=1,31), ip=22,22)/ &
-0.5833e-07, -0.1160e-06, -0.2300e-06, -0.4540e-06, -0.8885e-06, &
-0.1718e-05, -0.3256e-05, -0.6010e-05, -0.1072e-04, -0.1838e-04, &
-0.3026e-04, -0.4772e-04, -0.7223e-04, -0.1057e-03, -0.1512e-03, &
-0.2128e-03, -0.2961e-03, -0.4070e-03, -0.5514e-03, -0.7320e-03, &
-0.9467e-03, -0.1187e-02, -0.1446e-02, -0.1717e-02, -0.1985e-02, &
-0.2203e-02, -0.2307e-02, -0.2237e-02, -0.1965e-02, -0.1532e-02, &
-0.1044e-02/
data ((h23(ip,iw),iw=1,31), ip=22,22)/ &
-0.2426e-09, -0.4805e-09, -0.9447e-09, -0.1841e-08, -0.3519e-08, &
-0.6565e-08, -0.1172e-07, -0.1979e-07, -0.3095e-07, -0.4443e-07, &
-0.5821e-07, -0.6868e-07, -0.7282e-07, -0.7208e-07, -0.7176e-07, &
-0.7562e-07, -0.8110e-07, -0.7934e-07, -0.5365e-07, 0.2483e-07, &
0.1959e-06, 0.4731e-06, 0.7954e-06, 0.1123e-05, 0.1652e-05, &
0.2711e-05, 0.4402e-05, 0.6498e-05, 0.8392e-05, 0.9154e-05, &
0.8261e-05/
data ((h21(ip,iw),iw=1,31), ip=23,23)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996859, 0.99993771, &
0.99987692, 0.99975860, 0.99953198, 0.99910772, 0.99833697, &
0.99698901, 0.99473202, 0.99113101, 0.98566002, 0.97770000, &
0.96640998, 0.95076001, 0.92943001, 0.90092003, 0.86370003, &
0.81659997, 0.75889999, 0.69000000, 0.60870004, 0.51440001, &
0.40990001, 0.30190003, 0.20060003, 0.11680001, 0.05760002, &
0.02270001/
data ((h22(ip,iw),iw=1,31), ip=23,23)/ &
-0.5929e-07, -0.1180e-06, -0.2344e-06, -0.4638e-06, -0.9118e-06, &
-0.1775e-05, -0.3401e-05, -0.6375e-05, -0.1160e-04, -0.2039e-04, &
-0.3444e-04, -0.5575e-04, -0.8641e-04, -0.1287e-03, -0.1856e-03, &
-0.2615e-03, -0.3618e-03, -0.4928e-03, -0.6594e-03, -0.8621e-03, &
-0.1095e-02, -0.1349e-02, -0.1618e-02, -0.1894e-02, -0.2140e-02, &
-0.2293e-02, -0.2290e-02, -0.2085e-02, -0.1696e-02, -0.1212e-02, &
-0.7506e-03/
data ((h23(ip,iw),iw=1,31), ip=23,23)/ &
-0.2496e-09, -0.4954e-09, -0.9780e-09, -0.1915e-08, -0.3697e-08, &
-0.6991e-08, -0.1279e-07, -0.2231e-07, -0.3653e-07, -0.5541e-07, &
-0.7688e-07, -0.9614e-07, -0.1069e-06, -0.1065e-06, -0.9866e-07, &
-0.8740e-07, -0.7192e-07, -0.4304e-07, 0.1982e-07, 0.1525e-06, &
0.3873e-06, 0.6947e-06, 0.1000e-05, 0.1409e-05, 0.2253e-05, &
0.3739e-05, 0.5744e-05, 0.7812e-05, 0.9067e-05, 0.8746e-05, &
0.6940e-05/
data ((h21(ip,iw),iw=1,31), ip=24,24)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996853, 0.99993742, &
0.99987602, 0.99975550, 0.99952233, 0.99907869, 0.99825698, &
0.99678302, 0.99424398, 0.99007100, 0.98356003, 0.97387999, &
0.96004999, 0.94090003, 0.91503000, 0.88099998, 0.83740002, &
0.78350002, 0.71869999, 0.64170003, 0.55149996, 0.44950002, &
0.34100002, 0.23540002, 0.14380002, 0.07550001, 0.03240001, &
0.01029998/
data ((h22(ip,iw),iw=1,31), ip=24,24)/ &
-0.5950e-07, -0.1185e-06, -0.2358e-06, -0.4678e-06, -0.9235e-06, &
-0.1810e-05, -0.3503e-05, -0.6664e-05, -0.1236e-04, -0.2223e-04, &
-0.3849e-04, -0.6396e-04, -0.1017e-03, -0.1545e-03, -0.2257e-03, &
-0.3192e-03, -0.4399e-03, -0.5933e-03, -0.7824e-03, -0.1005e-02, &
-0.1251e-02, -0.1516e-02, -0.1794e-02, -0.2060e-02, -0.2257e-02, &
-0.2318e-02, -0.2186e-02, -0.1853e-02, -0.1386e-02, -0.9021e-03, &
-0.5050e-03/
data ((h23(ip,iw),iw=1,31), ip=24,24)/ &
-0.2515e-09, -0.5001e-09, -0.9904e-09, -0.1951e-08, -0.3800e-08, &
-0.7288e-08, -0.1362e-07, -0.2452e-07, -0.4184e-07, -0.6663e-07, &
-0.9770e-07, -0.1299e-06, -0.1533e-06, -0.1584e-06, -0.1425e-06, &
-0.1093e-06, -0.5972e-07, 0.1426e-07, 0.1347e-06, 0.3364e-06, &
0.6209e-06, 0.9169e-06, 0.1243e-05, 0.1883e-05, 0.3145e-05, &
0.5011e-05, 0.7136e-05, 0.8785e-05, 0.9048e-05, 0.7686e-05, &
0.5368e-05/
data ((h21(ip,iw),iw=1,31), ip=25,25)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993724, &
0.99987543, 0.99975342, 0.99951530, 0.99905682, 0.99819201, &
0.99660802, 0.99381101, 0.98908001, 0.98148000, 0.96991003, &
0.95317000, 0.92992002, 0.89880002, 0.85839999, 0.80799997, &
0.74689996, 0.67420000, 0.58850002, 0.48979998, 0.38200003, &
0.27329999, 0.17479998, 0.09700000, 0.04500002, 0.01620001, &
0.00349998/
data ((h22(ip,iw),iw=1,31), ip=25,25)/ &
-0.5953e-07, -0.1187e-06, -0.2363e-06, -0.4697e-06, -0.9304e-06, &
-0.1833e-05, -0.3578e-05, -0.6889e-05, -0.1299e-04, -0.2384e-04, &
-0.4227e-04, -0.7201e-04, -0.1174e-03, -0.1825e-03, -0.2710e-03, &
-0.3861e-03, -0.5313e-03, -0.7095e-03, -0.9203e-03, -0.1158e-02, &
-0.1417e-02, -0.1691e-02, -0.1968e-02, -0.2200e-02, -0.2320e-02, &
-0.2263e-02, -0.1998e-02, -0.1563e-02, -0.1068e-02, -0.6300e-03, &
-0.3174e-03/
data ((h23(ip,iw),iw=1,31), ip=25,25)/ &
-0.2520e-09, -0.5016e-09, -0.9963e-09, -0.1971e-08, -0.3867e-08, &
-0.7500e-08, -0.1427e-07, -0.2634e-07, -0.4656e-07, -0.7753e-07, &
-0.1196e-06, -0.1683e-06, -0.2113e-06, -0.2309e-06, -0.2119e-06, &
-0.1518e-06, -0.5200e-07, 0.9274e-07, 0.2973e-06, 0.5714e-06, &
0.8687e-06, 0.1152e-05, 0.1621e-05, 0.2634e-05, 0.4310e-05, &
0.6418e-05, 0.8347e-05, 0.9162e-05, 0.8319e-05, 0.6209e-05, &
0.3844e-05/
data ((h21(ip,iw),iw=1,31), ip=26,26)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993718, &
0.99987501, 0.99975210, 0.99951041, 0.99904078, 0.99814302, &
0.99646801, 0.99344200, 0.98819000, 0.97952002, 0.96597999, &
0.94600999, 0.91812003, 0.88099998, 0.83359998, 0.77569997, &
0.70669997, 0.62529999, 0.53049999, 0.42449999, 0.31419998, &
0.20969999, 0.12269998, 0.06089997, 0.02420002, 0.00660002, &
0.00040001/
data ((h22(ip,iw),iw=1,31), ip=26,26)/ &
-0.5954e-07, -0.1187e-06, -0.2366e-06, -0.4709e-06, -0.9349e-06, &
-0.1849e-05, -0.3632e-05, -0.7058e-05, -0.1350e-04, -0.2521e-04, &
-0.4564e-04, -0.7958e-04, -0.1329e-03, -0.2114e-03, -0.3200e-03, &
-0.4611e-03, -0.6353e-03, -0.8409e-03, -0.1072e-02, -0.1324e-02, &
-0.1592e-02, -0.1871e-02, -0.2127e-02, -0.2297e-02, -0.2312e-02, &
-0.2123e-02, -0.1738e-02, -0.1247e-02, -0.7744e-03, -0.4117e-03, &
-0.1850e-03/
data ((h23(ip,iw),iw=1,31), ip=26,26)/ &
-0.2522e-09, -0.5025e-09, -0.9997e-09, -0.1983e-08, -0.3912e-08, &
-0.7650e-08, -0.1474e-07, -0.2777e-07, -0.5055e-07, -0.8745e-07, &
-0.1414e-06, -0.2095e-06, -0.2790e-06, -0.3241e-06, -0.3135e-06, &
-0.2269e-06, -0.5896e-07, 0.1875e-06, 0.4996e-06, 0.8299e-06, &
0.1115e-05, 0.1467e-05, 0.2236e-05, 0.3672e-05, 0.5668e-05, &
0.7772e-05, 0.9094e-05, 0.8827e-05, 0.7041e-05, 0.4638e-05, &
0.2539e-05/
data ((h81(ip,iw),iw=1,31), ip= 1, 1)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967158, 0.99944150, 0.99910933, 0.99867302, 0.99814397, &
0.99753898, 0.99686199, 0.99610198, 0.99523401, 0.99421698, &
0.99299300, 0.99147898, 0.98958999, 0.98721999, 0.98430002, &
0.98071998, 0.97639000, 0.97115999, 0.96480000, 0.95695001, &
0.94713998, 0.93469000, 0.91873002, 0.89810002, 0.87129998, &
0.83679998/
data ((h82(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.5685e-08, -0.1331e-07, -0.3249e-07, -0.8137e-07, -0.2048e-06, &
-0.4973e-06, -0.1118e-05, -0.2246e-05, -0.3982e-05, -0.6290e-05, &
-0.9040e-05, -0.1215e-04, -0.1567e-04, -0.1970e-04, -0.2449e-04, &
-0.3046e-04, -0.3798e-04, -0.4725e-04, -0.5831e-04, -0.7123e-04, &
-0.8605e-04, -0.1028e-03, -0.1212e-03, -0.1413e-03, -0.1635e-03, &
-0.1884e-03, -0.2160e-03, -0.2461e-03, -0.2778e-03, -0.3098e-03, &
-0.3411e-03/
data ((h83(ip,iw),iw=1,31), ip= 1, 1)/ &
0.2169e-10, 0.5237e-10, 0.1296e-09, 0.3204e-09, 0.7665e-09, &
0.1691e-08, 0.3222e-08, 0.5110e-08, 0.6779e-08, 0.7681e-08, &
0.7378e-08, 0.5836e-08, 0.3191e-08, -0.1491e-08, -0.1022e-07, &
-0.2359e-07, -0.3957e-07, -0.5553e-07, -0.6927e-07, -0.7849e-07, &
-0.8139e-07, -0.7853e-07, -0.7368e-07, -0.7220e-07, -0.7780e-07, &
-0.9091e-07, -0.1038e-06, -0.9929e-07, -0.5422e-07, 0.5379e-07, &
0.2350e-06/
data ((h81(ip,iw),iw=1,31), ip= 2, 2)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967158, 0.99944139, 0.99910921, 0.99867302, 0.99814397, &
0.99753797, 0.99686003, 0.99609798, 0.99522603, 0.99420297, &
0.99296701, 0.99142998, 0.98949999, 0.98706001, 0.98400998, &
0.98021001, 0.97552001, 0.96976000, 0.96262002, 0.95367002, &
0.94234002, 0.92781997, 0.90903997, 0.88459998, 0.85290003, &
0.81200004/
data ((h82(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.5684e-08, -0.1331e-07, -0.3248e-07, -0.8133e-07, -0.2047e-06, &
-0.4971e-06, -0.1117e-05, -0.2245e-05, -0.3981e-05, -0.6287e-05, &
-0.9035e-05, -0.1215e-04, -0.1565e-04, -0.1967e-04, -0.2444e-04, &
-0.3036e-04, -0.3780e-04, -0.4694e-04, -0.5779e-04, -0.7042e-04, &
-0.8491e-04, -0.1013e-03, -0.1196e-03, -0.1399e-03, -0.1625e-03, &
-0.1879e-03, -0.2163e-03, -0.2474e-03, -0.2803e-03, -0.3140e-03, &
-0.3478e-03/
data ((h83(ip,iw),iw=1,31), ip= 2, 2)/ &
0.2168e-10, 0.5242e-10, 0.1295e-09, 0.3201e-09, 0.7662e-09, &
0.1690e-08, 0.3220e-08, 0.5106e-08, 0.6776e-08, 0.7673e-08, &
0.7362e-08, 0.5808e-08, 0.3138e-08, -0.1595e-08, -0.1041e-07, &
-0.2390e-07, -0.4010e-07, -0.5636e-07, -0.7045e-07, -0.7972e-07, &
-0.8178e-07, -0.7677e-07, -0.6876e-07, -0.6381e-07, -0.6583e-07, &
-0.7486e-07, -0.8229e-07, -0.7017e-07, -0.1497e-07, 0.1051e-06, &
0.2990e-06/
data ((h81(ip,iw),iw=1,31), ip= 3, 3)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967152, 0.99944133, 0.99910891, 0.99867201, 0.99814302, &
0.99753499, 0.99685597, 0.99609101, 0.99521297, 0.99418002, &
0.99292499, 0.99135399, 0.98935997, 0.98681003, 0.98356998, &
0.97947001, 0.97430998, 0.96784997, 0.95972002, 0.94941002, &
0.93620002, 0.91912001, 0.89690000, 0.86790001, 0.83020002, &
0.78210002/
data ((h82(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.5682e-08, -0.1330e-07, -0.3247e-07, -0.8129e-07, -0.2046e-06, &
-0.4968e-06, -0.1117e-05, -0.2244e-05, -0.3978e-05, -0.6283e-05, &
-0.9027e-05, -0.1213e-04, -0.1563e-04, -0.1963e-04, -0.2436e-04, &
-0.3021e-04, -0.3754e-04, -0.4649e-04, -0.5709e-04, -0.6940e-04, &
-0.8359e-04, -0.9986e-04, -0.1182e-03, -0.1388e-03, -0.1620e-03, &
-0.1882e-03, -0.2175e-03, -0.2498e-03, -0.2843e-03, -0.3203e-03, &
-0.3573e-03/
data ((h83(ip,iw),iw=1,31), ip= 3, 3)/ &
0.2167e-10, 0.5238e-10, 0.1294e-09, 0.3198e-09, 0.7656e-09, &
0.1688e-08, 0.3217e-08, 0.5104e-08, 0.6767e-08, 0.7661e-08, &
0.7337e-08, 0.5764e-08, 0.3051e-08, -0.1752e-08, -0.1068e-07, &
-0.2436e-07, -0.4081e-07, -0.5740e-07, -0.7165e-07, -0.8046e-07, &
-0.8082e-07, -0.7289e-07, -0.6141e-07, -0.5294e-07, -0.5134e-07, &
-0.5552e-07, -0.5609e-07, -0.3464e-07, 0.3275e-07, 0.1669e-06, &
0.3745e-06/
data ((h81(ip,iw),iw=1,31), ip= 4, 4)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967140, 0.99944109, 0.99910849, 0.99867100, 0.99814099, &
0.99753201, 0.99685001, 0.99607998, 0.99519402, 0.99414498, &
0.99286002, 0.99123698, 0.98914999, 0.98644000, 0.98293000, &
0.97842002, 0.97263998, 0.96529001, 0.95592999, 0.94392002, &
0.92839003, 0.90815997, 0.88169998, 0.84720004, 0.80269998, &
0.74629998/
data ((h82(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.5680e-08, -0.1329e-07, -0.3243e-07, -0.8121e-07, -0.2044e-06, &
-0.4963e-06, -0.1115e-05, -0.2242e-05, -0.3974e-05, -0.6276e-05, &
-0.9015e-05, -0.1211e-04, -0.1559e-04, -0.1956e-04, -0.2423e-04, &
-0.2999e-04, -0.3716e-04, -0.4588e-04, -0.5618e-04, -0.6818e-04, &
-0.8218e-04, -0.9847e-04, -0.1171e-03, -0.1382e-03, -0.1621e-03, &
-0.1892e-03, -0.2197e-03, -0.2535e-03, -0.2902e-03, -0.3293e-03, &
-0.3700e-03/
data ((h83(ip,iw),iw=1,31), ip= 4, 4)/ &
0.2166e-10, 0.5229e-10, 0.1294e-09, 0.3193e-09, 0.7644e-09, &
0.1686e-08, 0.3213e-08, 0.5092e-08, 0.6753e-08, 0.7640e-08, &
0.7302e-08, 0.5696e-08, 0.2917e-08, -0.1984e-08, -0.1108e-07, &
-0.2497e-07, -0.4171e-07, -0.5849e-07, -0.7254e-07, -0.8017e-07, &
-0.7802e-07, -0.6662e-07, -0.5153e-07, -0.3961e-07, -0.3387e-07, &
-0.3219e-07, -0.2426e-07, 0.8700e-08, 0.9027e-07, 0.2400e-06, &
0.4623e-06/
data ((h81(ip,iw),iw=1,31), ip= 5, 5)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, &
0.99967128, 0.99944091, 0.99910778, 0.99866998, 0.99813801, &
0.99752700, 0.99684101, 0.99606299, 0.99516302, 0.99408901, &
0.99276000, 0.99105698, 0.98882997, 0.98588997, 0.98202002, &
0.97696000, 0.97039002, 0.96192998, 0.95104003, 0.93691999, &
0.91851997, 0.89440000, 0.86290002, 0.82200003, 0.76969999, &
0.70420003/
data ((h82(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.5675e-08, -0.1328e-07, -0.3239e-07, -0.8110e-07, -0.2040e-06, &
-0.4954e-06, -0.1114e-05, -0.2238e-05, -0.3968e-05, -0.6265e-05, &
-0.8996e-05, -0.1208e-04, -0.1553e-04, -0.1945e-04, -0.2404e-04, &
-0.2966e-04, -0.3663e-04, -0.4508e-04, -0.5508e-04, -0.6686e-04, &
-0.8082e-04, -0.9732e-04, -0.1165e-03, -0.1382e-03, -0.1630e-03, &
-0.1913e-03, -0.2234e-03, -0.2593e-03, -0.2989e-03, -0.3417e-03, &
-0.3857e-03/
data ((h83(ip,iw),iw=1,31), ip= 5, 5)/ &
0.2163e-10, 0.5209e-10, 0.1291e-09, 0.3186e-09, 0.7626e-09, &
0.1682e-08, 0.3203e-08, 0.5078e-08, 0.6730e-08, 0.7606e-08, &
0.7246e-08, 0.5592e-08, 0.2735e-08, -0.2325e-08, -0.1162e-07, &
-0.2576e-07, -0.4268e-07, -0.5938e-07, -0.7262e-07, -0.7827e-07, &
-0.7297e-07, -0.5786e-07, -0.3930e-07, -0.2373e-07, -0.1295e-07, &
-0.3728e-08, 0.1465e-07, 0.6114e-07, 0.1590e-06, 0.3257e-06, &
0.5622e-06/
data ((h81(ip,iw),iw=1,31), ip= 6, 6)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, &
0.99967122, 0.99944037, 0.99910682, 0.99866802, 0.99813402, &
0.99751902, 0.99682599, 0.99603701, 0.99511498, 0.99400300, &
0.99260598, 0.99078500, 0.98835999, 0.98510998, 0.98075998, &
0.97499001, 0.96741998, 0.95757002, 0.94476998, 0.92804998, &
0.90613002, 0.87739998, 0.83990002, 0.79159999, 0.73049998, &
0.65540004/
data ((h82(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.5671e-08, -0.1326e-07, -0.3234e-07, -0.8091e-07, -0.2035e-06, &
-0.4941e-06, -0.1111e-05, -0.2232e-05, -0.3958e-05, -0.6247e-05, &
-0.8966e-05, -0.1202e-04, -0.1544e-04, -0.1929e-04, -0.2377e-04, &
-0.2921e-04, -0.3593e-04, -0.4409e-04, -0.5385e-04, -0.6555e-04, &
-0.7965e-04, -0.9656e-04, -0.1163e-03, -0.1390e-03, -0.1649e-03, &
-0.1947e-03, -0.2288e-03, -0.2675e-03, -0.3109e-03, -0.3575e-03, &
-0.4039e-03/
data ((h83(ip,iw),iw=1,31), ip= 6, 6)/ &
0.2155e-10, 0.5188e-10, 0.1288e-09, 0.3175e-09, 0.7599e-09, &
0.1675e-08, 0.3190e-08, 0.5059e-08, 0.6699e-08, 0.7551e-08, &
0.7154e-08, 0.5435e-08, 0.2452e-08, -0.2802e-08, -0.1235e-07, &
-0.2668e-07, -0.4353e-07, -0.5962e-07, -0.7134e-07, -0.7435e-07, &
-0.6551e-07, -0.4676e-07, -0.2475e-07, -0.4876e-08, 0.1235e-07, &
0.3092e-07, 0.6192e-07, 0.1243e-06, 0.2400e-06, 0.4247e-06, &
0.6755e-06/
data ((h81(ip,iw),iw=1,31), ip= 7, 7)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981660, &
0.99967092, 0.99943972, 0.99910510, 0.99866402, 0.99812698, &
0.99750602, 0.99680197, 0.99599499, 0.99504000, 0.99387002, &
0.99237198, 0.99038202, 0.98768002, 0.98400998, 0.97903001, &
0.97236001, 0.96354002, 0.95196998, 0.93681002, 0.91688001, &
0.89069998, 0.85640001, 0.81190002, 0.75520003, 0.68470001, &
0.59990001/
data ((h82(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.5665e-08, -0.1322e-07, -0.3224e-07, -0.8063e-07, -0.2027e-06, &
-0.4921e-06, -0.1106e-05, -0.2223e-05, -0.3942e-05, -0.6220e-05, &
-0.8920e-05, -0.1194e-04, -0.1530e-04, -0.1905e-04, -0.2337e-04, &
-0.2860e-04, -0.3505e-04, -0.4296e-04, -0.5259e-04, -0.6439e-04, &
-0.7884e-04, -0.9635e-04, -0.1170e-03, -0.1407e-03, -0.1681e-03, &
-0.1998e-03, -0.2366e-03, -0.2790e-03, -0.3265e-03, -0.3763e-03, &
-0.4235e-03/
data ((h83(ip,iw),iw=1,31), ip= 7, 7)/ &
0.2157e-10, 0.5178e-10, 0.1283e-09, 0.3162e-09, 0.7558e-09, &
0.1665e-08, 0.3169e-08, 0.5027e-08, 0.6645e-08, 0.7472e-08, &
0.7017e-08, 0.5212e-08, 0.2059e-08, -0.3443e-08, -0.1321e-07, &
-0.2754e-07, -0.4389e-07, -0.5869e-07, -0.6825e-07, -0.6819e-07, &
-0.5570e-07, -0.3343e-07, -0.7592e-08, 0.1778e-07, 0.4322e-07, &
0.7330e-07, 0.1190e-06, 0.1993e-06, 0.3348e-06, 0.5376e-06, &
0.8030e-06/
data ((h81(ip,iw),iw=1,31), ip= 8, 8)/ &
0.99998659, 0.99997360, 0.99994856, 0.99990159, 0.99981642, &
0.99967051, 0.99943858, 0.99910247, 0.99865901, 0.99811602, &
0.99748600, 0.99676597, 0.99592900, 0.99492502, 0.99366802, &
0.99202400, 0.98979002, 0.98672003, 0.98249000, 0.97671002, &
0.96890998, 0.95854002, 0.94483000, 0.92675000, 0.90289998, &
0.87160003, 0.83069998, 0.77829999, 0.71239996, 0.63209999, &
0.53839999/
data ((h82(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.5652e-08, -0.1318e-07, -0.3210e-07, -0.8018e-07, -0.2014e-06, &
-0.4888e-06, -0.1099e-05, -0.2210e-05, -0.3918e-05, -0.6179e-05, &
-0.8849e-05, -0.1182e-04, -0.1509e-04, -0.1871e-04, -0.2284e-04, &
-0.2782e-04, -0.3403e-04, -0.4177e-04, -0.5145e-04, -0.6354e-04, &
-0.7853e-04, -0.9681e-04, -0.1185e-03, -0.1437e-03, -0.1729e-03, &
-0.2072e-03, -0.2475e-03, -0.2942e-03, -0.3457e-03, -0.3973e-03, &
-0.4434e-03/
data ((h83(ip,iw),iw=1,31), ip= 8, 8)/ &
0.2153e-10, 0.5151e-10, 0.1273e-09, 0.3136e-09, 0.7488e-09, &
0.1649e-08, 0.3142e-08, 0.4980e-08, 0.6559e-08, 0.7346e-08, &
0.6813e-08, 0.4884e-08, 0.1533e-08, -0.4209e-08, -0.1409e-07, &
-0.2801e-07, -0.4320e-07, -0.5614e-07, -0.6312e-07, -0.5976e-07, &
-0.4369e-07, -0.1775e-07, 0.1280e-07, 0.4534e-07, 0.8106e-07, &
0.1246e-06, 0.1874e-06, 0.2873e-06, 0.4433e-06, 0.6651e-06, &
0.9477e-06/
data ((h81(ip,iw),iw=1,31), ip= 9, 9)/ &
0.99998659, 0.99997360, 0.99994856, 0.99990153, 0.99981618, &
0.99966979, 0.99943691, 0.99909842, 0.99865001, 0.99809903, &
0.99745399, 0.99670798, 0.99582899, 0.99475002, 0.99336600, &
0.99151403, 0.98896003, 0.98540002, 0.98044997, 0.97364998, &
0.96445000, 0.95213997, 0.93579000, 0.91412002, 0.88550001, &
0.84810001, 0.79970002, 0.73850000, 0.66280001, 0.57309997, &
0.47189999/
data ((h82(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.5629e-08, -0.1310e-07, -0.3186e-07, -0.7948e-07, -0.1995e-06, &
-0.4837e-06, -0.1088e-05, -0.2188e-05, -0.3880e-05, -0.6115e-05, &
-0.8743e-05, -0.1165e-04, -0.1480e-04, -0.1824e-04, -0.2216e-04, &
-0.2691e-04, -0.3293e-04, -0.4067e-04, -0.5057e-04, -0.6314e-04, &
-0.7885e-04, -0.9813e-04, -0.1212e-03, -0.1482e-03, -0.1799e-03, &
-0.2175e-03, -0.2622e-03, -0.3135e-03, -0.3678e-03, -0.4193e-03, &
-0.4627e-03/
data ((h83(ip,iw),iw=1,31), ip= 9, 9)/ &
0.2121e-10, 0.5076e-10, 0.1257e-09, 0.3091e-09, 0.7379e-09, &
0.1623e-08, 0.3097e-08, 0.4904e-08, 0.6453e-08, 0.7168e-08, &
0.6534e-08, 0.4458e-08, 0.8932e-09, -0.5026e-08, -0.1469e-07, &
-0.2765e-07, -0.4103e-07, -0.5169e-07, -0.5585e-07, -0.4913e-07, &
-0.2954e-07, 0.6372e-09, 0.3738e-07, 0.7896e-07, 0.1272e-06, &
0.1867e-06, 0.2682e-06, 0.3895e-06, 0.5672e-06, 0.8091e-06, &
0.1114e-05/
data ((h81(ip,iw),iw=1,31), ip=10,10)/ &
0.99998659, 0.99997360, 0.99994850, 0.99990141, 0.99981582, &
0.99966878, 0.99943417, 0.99909198, 0.99863601, 0.99807203, &
0.99740499, 0.99662101, 0.99567503, 0.99448699, 0.99292302, &
0.99078500, 0.98780000, 0.98360002, 0.97773999, 0.96968001, &
0.95872998, 0.94401997, 0.92440999, 0.89840001, 0.86409998, &
0.81959999, 0.76279998, 0.69190001, 0.60650003, 0.50839996, &
0.40249997/
data ((h82(ip,iw),iw=1,31), ip=10,10)/ &
-0.5597e-08, -0.1300e-07, -0.3148e-07, -0.7838e-07, -0.1964e-06, &
-0.4759e-06, -0.1071e-05, -0.2155e-05, -0.3822e-05, -0.6019e-05, &
-0.8586e-05, -0.1139e-04, -0.1439e-04, -0.1764e-04, -0.2134e-04, &
-0.2591e-04, -0.3188e-04, -0.3978e-04, -0.5011e-04, -0.6334e-04, &
-0.7998e-04, -0.1006e-03, -0.1253e-03, -0.1547e-03, -0.1895e-03, &
-0.2315e-03, -0.2811e-03, -0.3363e-03, -0.3917e-03, -0.4413e-03, &
-0.4809e-03/
data ((h83(ip,iw),iw=1,31), ip=10,10)/ &
0.2109e-10, 0.5017e-10, 0.1235e-09, 0.3021e-09, 0.7217e-09, &
0.1585e-08, 0.3028e-08, 0.4796e-08, 0.6285e-08, 0.6910e-08, &
0.6178e-08, 0.3945e-08, 0.2436e-09, -0.5632e-08, -0.1464e-07, &
-0.2596e-07, -0.3707e-07, -0.4527e-07, -0.4651e-07, -0.3644e-07, &
-0.1296e-07, 0.2250e-07, 0.6722e-07, 0.1202e-06, 0.1831e-06, &
0.2605e-06, 0.3627e-06, 0.5062e-06, 0.7064e-06, 0.9725e-06, &
0.1304e-05/
data ((h81(ip,iw),iw=1,31), ip=11,11)/ &
0.99998659, 0.99997354, 0.99994850, 0.99990124, 0.99981529, &
0.99966723, 0.99942988, 0.99908209, 0.99861503, 0.99803102, &
0.99732900, 0.99648702, 0.99544603, 0.99409997, 0.99228698, &
0.98977000, 0.98620999, 0.98120999, 0.97421998, 0.96458000, &
0.95146000, 0.93378001, 0.91017002, 0.87889999, 0.83810002, &
0.78549999, 0.71930003, 0.63859999, 0.54409999, 0.43970001, &
0.33249998/
data ((h82(ip,iw),iw=1,31), ip=11,11)/ &
-0.5538e-08, -0.1280e-07, -0.3089e-07, -0.7667e-07, -0.1917e-06, &
-0.4642e-06, -0.1045e-05, -0.2106e-05, -0.3736e-05, -0.5878e-05, &
-0.8363e-05, -0.1104e-04, -0.1387e-04, -0.1692e-04, -0.2044e-04, &
-0.2493e-04, -0.3101e-04, -0.3926e-04, -0.5020e-04, -0.6429e-04, &
-0.8213e-04, -0.1044e-03, -0.1314e-03, -0.1637e-03, -0.2027e-03, &
-0.2498e-03, -0.3042e-03, -0.3617e-03, -0.4163e-03, -0.4625e-03, &
-0.4969e-03/
data ((h83(ip,iw),iw=1,31), ip=11,11)/ &
0.2067e-10, 0.4903e-10, 0.1200e-09, 0.2917e-09, 0.6965e-09, &
0.1532e-08, 0.2925e-08, 0.4632e-08, 0.6054e-08, 0.6590e-08, &
0.5746e-08, 0.3436e-08, -0.2251e-09, -0.5703e-08, -0.1344e-07, &
-0.2256e-07, -0.3120e-07, -0.3690e-07, -0.3520e-07, -0.2164e-07, &
0.6510e-08, 0.4895e-07, 0.1037e-06, 0.1702e-06, 0.2502e-06, &
0.3472e-06, 0.4710e-06, 0.6379e-06, 0.8633e-06, 0.1159e-05, &
0.1514e-05/
data ((h81(ip,iw),iw=1,31), ip=12,12)/ &
0.99998659, 0.99997354, 0.99994838, 0.99990094, 0.99981439, &
0.99966472, 0.99942350, 0.99906689, 0.99858302, 0.99796802, &
0.99721497, 0.99628800, 0.99510801, 0.99354398, 0.99139601, &
0.98838001, 0.98409998, 0.97807997, 0.96967000, 0.95806998, &
0.94226003, 0.92093998, 0.89249998, 0.85510004, 0.80659997, &
0.74510002, 0.66909999, 0.57870001, 0.47680002, 0.36919999, &
0.26520002/
data ((h82(ip,iw),iw=1,31), ip=12,12)/ &
-0.5476e-08, -0.1257e-07, -0.3008e-07, -0.7418e-07, -0.1848e-06, &
-0.4468e-06, -0.1006e-05, -0.2032e-05, -0.3611e-05, -0.5679e-05, &
-0.8058e-05, -0.1059e-04, -0.1324e-04, -0.1612e-04, -0.1956e-04, &
-0.2411e-04, -0.3046e-04, -0.3925e-04, -0.5098e-04, -0.6619e-04, &
-0.8562e-04, -0.1100e-03, -0.1399e-03, -0.1761e-03, -0.2202e-03, &
-0.2726e-03, -0.3306e-03, -0.3885e-03, -0.4404e-03, -0.4820e-03, &
-0.5082e-03/
data ((h83(ip,iw),iw=1,31), ip=12,12)/ &
0.2041e-10, 0.4771e-10, 0.1149e-09, 0.2782e-09, 0.6614e-09, &
0.1451e-08, 0.2778e-08, 0.4401e-08, 0.5736e-08, 0.6189e-08, &
0.5315e-08, 0.3087e-08, -0.2518e-09, -0.4806e-08, -0.1071e-07, &
-0.1731e-07, -0.2346e-07, -0.2659e-07, -0.2184e-07, -0.4261e-08, &
0.2975e-07, 0.8112e-07, 0.1484e-06, 0.2308e-06, 0.3296e-06, &
0.4475e-06, 0.5942e-06, 0.7859e-06, 0.1041e-05, 0.1369e-05, &
0.1726e-05/
data ((h81(ip,iw),iw=1,31), ip=13,13)/ &
0.99998653, 0.99997348, 0.99994826, 0.99990052, 0.99981320, &
0.99966109, 0.99941391, 0.99904412, 0.99853402, 0.99787498, &
0.99704498, 0.99599600, 0.99462402, 0.99276501, 0.99017602, &
0.98651999, 0.98133999, 0.97403997, 0.96386999, 0.94984001, &
0.93071002, 0.90495998, 0.87080002, 0.82620001, 0.76910001, &
0.69790000, 0.61199999, 0.51320004, 0.40640002, 0.29970002, &
0.20359999/
data ((h82(ip,iw),iw=1,31), ip=13,13)/ &
-0.5362e-08, -0.1223e-07, -0.2895e-07, -0.7071e-07, -0.1748e-06, &
-0.4219e-06, -0.9516e-06, -0.1928e-05, -0.3436e-05, -0.5409e-05, &
-0.7666e-05, -0.1005e-04, -0.1254e-04, -0.1533e-04, -0.1880e-04, &
-0.2358e-04, -0.3038e-04, -0.3988e-04, -0.5264e-04, -0.6934e-04, &
-0.9083e-04, -0.1179e-03, -0.1515e-03, -0.1927e-03, -0.2424e-03, &
-0.2994e-03, -0.3591e-03, -0.4155e-03, -0.4634e-03, -0.4982e-03, &
-0.5096e-03/
data ((h83(ip,iw),iw=1,31), ip=13,13)/ &
0.1976e-10, 0.4551e-10, 0.1086e-09, 0.2601e-09, 0.6126e-09, &
0.1345e-08, 0.2583e-08, 0.4112e-08, 0.5365e-08, 0.5796e-08, &
0.5031e-08, 0.3182e-08, 0.5970e-09, -0.2547e-08, -0.6172e-08, &
-0.1017e-07, -0.1388e-07, -0.1430e-07, -0.6118e-08, 0.1624e-07, &
0.5791e-07, 0.1205e-06, 0.2025e-06, 0.3032e-06, 0.4225e-06, &
0.5619e-06, 0.7322e-06, 0.9528e-06, 0.1243e-05, 0.1592e-05, &
0.1904e-05/
data ((h81(ip,iw),iw=1,31), ip=14,14)/ &
0.99998653, 0.99997348, 0.99994808, 0.99989992, 0.99981129, &
0.99965578, 0.99939990, 0.99901080, 0.99846399, 0.99773800, &
0.99680001, 0.99558002, 0.99394703, 0.99169999, 0.98853999, &
0.98408002, 0.97776002, 0.96888000, 0.95652002, 0.93949002, &
0.91631001, 0.88529998, 0.84439999, 0.79159999, 0.72510004, &
0.64390004, 0.54890001, 0.44379997, 0.33560002, 0.23449999, &
0.15009999/
data ((h82(ip,iw),iw=1,31), ip=14,14)/ &
-0.5210e-08, -0.1172e-07, -0.2731e-07, -0.6598e-07, -0.1615e-06, &
-0.3880e-06, -0.8769e-06, -0.1787e-05, -0.3204e-05, -0.5066e-05, &
-0.7197e-05, -0.9451e-05, -0.1185e-04, -0.1465e-04, -0.1831e-04, &
-0.2346e-04, -0.3088e-04, -0.4132e-04, -0.5545e-04, -0.7410e-04, &
-0.9820e-04, -0.1288e-03, -0.1670e-03, -0.2140e-03, -0.2692e-03, &
-0.3293e-03, -0.3886e-03, -0.4417e-03, -0.4840e-03, -0.5073e-03, &
-0.4944e-03/
data ((h83(ip,iw),iw=1,31), ip=14,14)/ &
0.1880e-10, 0.4271e-10, 0.9966e-10, 0.2352e-09, 0.5497e-09, &
0.1205e-08, 0.2334e-08, 0.3765e-08, 0.4993e-08, 0.5532e-08, &
0.5148e-08, 0.4055e-08, 0.2650e-08, 0.1326e-08, 0.2019e-09, &
-0.1124e-08, -0.2234e-08, 0.2827e-09, 0.1247e-07, 0.4102e-07, &
0.9228e-07, 0.1682e-06, 0.2676e-06, 0.3885e-06, 0.5286e-06, &
0.6904e-06, 0.8871e-06, 0.1142e-05, 0.1466e-05, 0.1800e-05, &
0.2004e-05/
data ((h81(ip,iw),iw=1,31), ip=15,15)/ &
0.99998653, 0.99997336, 0.99994785, 0.99989909, 0.99980879, &
0.99964851, 0.99938041, 0.99896401, 0.99836302, 0.99754399, &
0.99645603, 0.99500400, 0.99302697, 0.99027801, 0.98640001, &
0.98092002, 0.97319001, 0.96234000, 0.94727999, 0.92657000, &
0.89850003, 0.86119998, 0.81260002, 0.75080001, 0.67429996, &
0.58350003, 0.48089999, 0.37250000, 0.26760000, 0.17650002, &
0.10610002/
data ((h82(ip,iw),iw=1,31), ip=15,15)/ &
-0.5045e-08, -0.1113e-07, -0.2540e-07, -0.6008e-07, -0.1449e-06, &
-0.3457e-06, -0.7826e-06, -0.1609e-05, -0.2920e-05, -0.4665e-05, &
-0.6691e-05, -0.8868e-05, -0.1127e-04, -0.1422e-04, -0.1820e-04, &
-0.2389e-04, -0.3213e-04, -0.4380e-04, -0.5975e-04, -0.8092e-04, &
-0.1083e-03, -0.1433e-03, -0.1873e-03, -0.2402e-03, -0.2997e-03, &
-0.3607e-03, -0.4178e-03, -0.4662e-03, -0.4994e-03, -0.5028e-03, &
-0.4563e-03/
data ((h83(ip,iw),iw=1,31), ip=15,15)/ &
0.1804e-10, 0.3983e-10, 0.9045e-10, 0.2080e-09, 0.4786e-09, &
0.1046e-08, 0.2052e-08, 0.3413e-08, 0.4704e-08, 0.5565e-08, &
0.5887e-08, 0.5981e-08, 0.6202e-08, 0.6998e-08, 0.8493e-08, &
0.1002e-07, 0.1184e-07, 0.1780e-07, 0.3483e-07, 0.7122e-07, &
0.1341e-06, 0.2259e-06, 0.3446e-06, 0.4866e-06, 0.6486e-06, &
0.8343e-06, 0.1063e-05, 0.1356e-05, 0.1690e-05, 0.1951e-05, &
0.2005e-05/
data ((h81(ip,iw),iw=1,31), ip=16,16)/ &
0.99998647, 0.99997330, 0.99994755, 0.99989808, 0.99980563, &
0.99963909, 0.99935490, 0.99890202, 0.99822801, 0.99728203, &
0.99599099, 0.99423301, 0.99181002, 0.98842001, 0.98364002, &
0.97689003, 0.96740001, 0.95414001, 0.93575001, 0.91060001, &
0.87680000, 0.83219999, 0.77490002, 0.70330000, 0.61689997, &
0.51750004, 0.40990001, 0.30239999, 0.20539999, 0.12750000, &
0.07150000/
data ((h82(ip,iw),iw=1,31), ip=16,16)/ &
-0.4850e-08, -0.1045e-07, -0.2334e-07, -0.5367e-07, -0.1265e-06, &
-0.2980e-06, -0.6750e-06, -0.1406e-05, -0.2601e-05, -0.4239e-05, &
-0.6201e-05, -0.8389e-05, -0.1091e-04, -0.1413e-04, -0.1859e-04, &
-0.2500e-04, -0.3432e-04, -0.4761e-04, -0.6595e-04, -0.9030e-04, &
-0.1219e-03, -0.1624e-03, -0.2126e-03, -0.2708e-03, -0.3327e-03, &
-0.3926e-03, -0.4458e-03, -0.4871e-03, -0.5045e-03, -0.4777e-03, &
-0.3954e-03/
data ((h83(ip,iw),iw=1,31), ip=16,16)/ &
0.1717e-10, 0.3723e-10, 0.8093e-10, 0.1817e-09, 0.4100e-09, &
0.8932e-09, 0.1791e-08, 0.3126e-08, 0.4634e-08, 0.6095e-08, &
0.7497e-08, 0.9170e-08, 0.1136e-07, 0.1453e-07, 0.1892e-07, &
0.2369e-07, 0.2909e-07, 0.3922e-07, 0.6232e-07, 0.1083e-06, &
0.1847e-06, 0.2943e-06, 0.4336e-06, 0.5970e-06, 0.7815e-06, &
0.9959e-06, 0.1263e-05, 0.1583e-05, 0.1880e-05, 0.2009e-05, &
0.1914e-05/
data ((h81(ip,iw),iw=1,31), ip=17,17)/ &
0.99998647, 0.99997318, 0.99994719, 0.99989688, 0.99980187, &
0.99962789, 0.99932390, 0.99882400, 0.99805701, 0.99694502, &
0.99538797, 0.99323398, 0.99023998, 0.98604000, 0.98013997, &
0.97182000, 0.96016002, 0.94391000, 0.92149997, 0.89100003, &
0.85049999, 0.79769999, 0.73089999, 0.64919996, 0.55350000, &
0.44760001, 0.33870000, 0.23670000, 0.15149999, 0.08810002, &
0.04570001/
data ((h82(ip,iw),iw=1,31), ip=17,17)/ &
-0.4673e-08, -0.9862e-08, -0.2135e-07, -0.4753e-07, -0.1087e-06, &
-0.2512e-06, -0.5671e-06, -0.1199e-05, -0.2281e-05, -0.3842e-05, &
-0.5804e-05, -0.8110e-05, -0.1088e-04, -0.1452e-04, -0.1961e-04, &
-0.2696e-04, -0.3768e-04, -0.5311e-04, -0.7444e-04, -0.1028e-03, &
-0.1397e-03, -0.1865e-03, -0.2427e-03, -0.3047e-03, -0.3667e-03, &
-0.4237e-03, -0.4712e-03, -0.5003e-03, -0.4921e-03, -0.4286e-03, &
-0.3188e-03/
data ((h83(ip,iw),iw=1,31), ip=17,17)/ &
0.1653e-10, 0.3436e-10, 0.7431e-10, 0.1605e-09, 0.3548e-09, &
0.7723e-09, 0.1595e-08, 0.2966e-08, 0.4849e-08, 0.7169e-08, &
0.1003e-07, 0.1366e-07, 0.1825e-07, 0.2419e-07, 0.3186e-07, &
0.4068e-07, 0.5064e-07, 0.6618e-07, 0.9684e-07, 0.1536e-06, &
0.2450e-06, 0.3730e-06, 0.5328e-06, 0.7184e-06, 0.9291e-06, &
0.1180e-05, 0.1484e-05, 0.1798e-05, 0.1992e-05, 0.1968e-05, &
0.1736e-05/
data ((h81(ip,iw),iw=1,31), ip=18,18)/ &
0.99998647, 0.99997312, 0.99994683, 0.99989569, 0.99979800, &
0.99961591, 0.99928999, 0.99873698, 0.99785602, 0.99653602, &
0.99464101, 0.99198103, 0.98825997, 0.98306000, 0.97574002, &
0.96548998, 0.95117003, 0.93129998, 0.90407002, 0.86739999, &
0.81910002, 0.75720000, 0.68040001, 0.58880001, 0.48530000, &
0.37610000, 0.27029997, 0.17830002, 0.10720003, 0.05790001, &
0.02740002/
data ((h82(ip,iw),iw=1,31), ip=18,18)/ &
-0.4532e-08, -0.9395e-08, -0.1978e-07, -0.4272e-07, -0.9442e-07, &
-0.2124e-06, -0.4747e-06, -0.1017e-05, -0.2003e-05, -0.3524e-05, &
-0.5567e-05, -0.8108e-05, -0.1127e-04, -0.1547e-04, -0.2138e-04, &
-0.2996e-04, -0.4251e-04, -0.6059e-04, -0.8563e-04, -0.1190e-03, &
-0.1623e-03, -0.2156e-03, -0.2767e-03, -0.3403e-03, -0.4006e-03, &
-0.4530e-03, -0.4912e-03, -0.4995e-03, -0.4563e-03, -0.3592e-03, &
-0.2383e-03/
data ((h83(ip,iw),iw=1,31), ip=18,18)/ &
0.1593e-10, 0.3276e-10, 0.6896e-10, 0.1476e-09, 0.3190e-09, &
0.6944e-09, 0.1474e-08, 0.2935e-08, 0.5300e-08, 0.8697e-08, &
0.1336e-07, 0.1946e-07, 0.2707e-07, 0.3637e-07, 0.4800e-07, &
0.6187e-07, 0.7806e-07, 0.1008e-06, 0.1404e-06, 0.2089e-06, &
0.3153e-06, 0.4613e-06, 0.6416e-06, 0.8506e-06, 0.1095e-05, &
0.1387e-05, 0.1708e-05, 0.1956e-05, 0.2003e-05, 0.1836e-05, &
0.1483e-05/
data ((h81(ip,iw),iw=1,31), ip=19,19)/ &
0.99998641, 0.99997300, 0.99994648, 0.99989462, 0.99979430, &
0.99960452, 0.99925661, 0.99864697, 0.99763900, 0.99607199, &
0.99376297, 0.99046898, 0.98584002, 0.97937000, 0.97031999, &
0.95766997, 0.94010001, 0.91588002, 0.88300002, 0.83920002, &
0.78230000, 0.71060002, 0.62360001, 0.52320004, 0.41450000, &
0.30589998, 0.20789999, 0.12900001, 0.07239997, 0.03590000, &
0.01539999/
data ((h82(ip,iw),iw=1,31), ip=19,19)/ &
-0.4448e-08, -0.9085e-08, -0.1877e-07, -0.3946e-07, -0.8472e-07, &
-0.1852e-06, -0.4074e-06, -0.8791e-06, -0.1789e-05, -0.3314e-05, &
-0.5521e-05, -0.8425e-05, -0.1215e-04, -0.1711e-04, -0.2407e-04, &
-0.3421e-04, -0.4905e-04, -0.7032e-04, -0.9985e-04, -0.1394e-03, &
-0.1897e-03, -0.2491e-03, -0.3132e-03, -0.3763e-03, -0.4332e-03, &
-0.4786e-03, -0.5005e-03, -0.4775e-03, -0.3970e-03, -0.2794e-03, &
-0.1652e-03/
data ((h83(ip,iw),iw=1,31), ip=19,19)/ &
0.1566e-10, 0.3219e-10, 0.6635e-10, 0.1400e-09, 0.2999e-09, &
0.6513e-09, 0.1406e-08, 0.2953e-08, 0.5789e-08, 0.1037e-07, &
0.1709e-07, 0.2623e-07, 0.3777e-07, 0.5159e-07, 0.6823e-07, &
0.8864e-07, 0.1134e-06, 0.1461e-06, 0.1960e-06, 0.2761e-06, &
0.3962e-06, 0.5583e-06, 0.7580e-06, 0.9957e-06, 0.1282e-05, &
0.1607e-05, 0.1898e-05, 0.2020e-05, 0.1919e-05, 0.1623e-05, &
0.1171e-05/
data ((h81(ip,iw),iw=1,31), ip=20,20)/ &
0.99998641, 0.99997294, 0.99994624, 0.99989372, 0.99979132, &
0.99959481, 0.99922693, 0.99856299, 0.99742502, 0.99558598, &
0.99278802, 0.98872000, 0.98295999, 0.97491002, 0.96368998, &
0.94812000, 0.92662001, 0.89719999, 0.85780001, 0.80599999, &
0.73969996, 0.65779996, 0.56130004, 0.45410001, 0.34369999, &
0.24030000, 0.15390003, 0.08950001, 0.04640001, 0.02090001, &
0.00800002/
data ((h82(ip,iw),iw=1,31), ip=20,20)/ &
-0.4403e-08, -0.8896e-08, -0.1818e-07, -0.3751e-07, -0.7880e-07, &
-0.1683e-06, -0.3640e-06, -0.7852e-06, -0.1640e-05, -0.3191e-05, &
-0.5634e-05, -0.9046e-05, -0.1355e-04, -0.1953e-04, -0.2786e-04, &
-0.3995e-04, -0.5752e-04, -0.8256e-04, -0.1174e-03, -0.1638e-03, &
-0.2211e-03, -0.2854e-03, -0.3507e-03, -0.4116e-03, -0.4633e-03, &
-0.4966e-03, -0.4921e-03, -0.4309e-03, -0.3215e-03, -0.2016e-03, &
-0.1061e-03/
data ((h83(ip,iw),iw=1,31), ip=20,20)/ &
0.1551e-10, 0.3147e-10, 0.6419e-10, 0.1356e-09, 0.2860e-09, &
0.6178e-09, 0.1353e-08, 0.2934e-08, 0.6095e-08, 0.1174e-07, &
0.2067e-07, 0.3346e-07, 0.5014e-07, 0.7024e-07, 0.9377e-07, &
0.1226e-06, 0.1592e-06, 0.2056e-06, 0.2678e-06, 0.3584e-06, &
0.4892e-06, 0.6651e-06, 0.8859e-06, 0.1160e-05, 0.1488e-05, &
0.1814e-05, 0.2010e-05, 0.1984e-05, 0.1748e-05, 0.1338e-05, &
0.8445e-06/
data ((h81(ip,iw),iw=1,31), ip=21,21)/ &
0.99998641, 0.99997288, 0.99994606, 0.99989301, 0.99978900, &
0.99958712, 0.99920273, 0.99849200, 0.99723101, 0.99511403, &
0.99177098, 0.98677999, 0.97962999, 0.96961999, 0.95573002, &
0.93658000, 0.91036999, 0.87500000, 0.82800001, 0.76730001, &
0.69110000, 0.59930003, 0.49479997, 0.38370001, 0.27590001, &
0.18210000, 0.10949999, 0.05919999, 0.02800000, 0.01130003, &
0.00389999/
data ((h82(ip,iw),iw=1,31), ip=21,21)/ &
-0.4379e-08, -0.8801e-08, -0.1782e-07, -0.3642e-07, -0.7536e-07, &
-0.1581e-06, -0.3366e-06, -0.7227e-06, -0.1532e-05, -0.3106e-05, &
-0.5810e-05, -0.9862e-05, -0.1540e-04, -0.2279e-04, -0.3292e-04, &
-0.4738e-04, -0.6817e-04, -0.9765e-04, -0.1384e-03, -0.1918e-03, &
-0.2551e-03, -0.3226e-03, -0.3876e-03, -0.4452e-03, -0.4883e-03, &
-0.5005e-03, -0.4598e-03, -0.3633e-03, -0.2416e-03, -0.1349e-03, &
-0.6278e-04/
data ((h83(ip,iw),iw=1,31), ip=21,21)/ &
0.1542e-10, 0.3111e-10, 0.6345e-10, 0.1310e-09, 0.2742e-09, &
0.5902e-09, 0.1289e-08, 0.2826e-08, 0.6103e-08, 0.1250e-07, &
0.2355e-07, 0.4041e-07, 0.6347e-07, 0.9217e-07, 0.1256e-06, &
0.1658e-06, 0.2175e-06, 0.2824e-06, 0.3607e-06, 0.4614e-06, &
0.6004e-06, 0.7880e-06, 0.1034e-05, 0.1349e-05, 0.1698e-05, &
0.1965e-05, 0.2021e-05, 0.1857e-05, 0.1500e-05, 0.1015e-05, &
0.5467e-06/
data ((h81(ip,iw),iw=1,31), ip=22,22)/ &
0.99998635, 0.99997288, 0.99994594, 0.99989259, 0.99978727, &
0.99958128, 0.99918407, 0.99843502, 0.99706697, 0.99468601, &
0.99077803, 0.98474997, 0.97593999, 0.96350998, 0.94633001, &
0.92282999, 0.89100003, 0.84860003, 0.79330003, 0.72299999, &
0.63670003, 0.53600001, 0.42580003, 0.31470001, 0.21410000, &
0.13300002, 0.07470000, 0.03710002, 0.01580000, 0.00580001, &
0.00169998/
data ((h82(ip,iw),iw=1,31), ip=22,22)/ &
-0.4366e-08, -0.8749e-08, -0.1761e-07, -0.3578e-07, -0.7322e-07, &
-0.1517e-06, -0.3189e-06, -0.6785e-06, -0.1446e-05, -0.3014e-05, &
-0.5933e-05, -0.1069e-04, -0.1755e-04, -0.2683e-04, -0.3936e-04, &
-0.5675e-04, -0.8137e-04, -0.1160e-03, -0.1630e-03, -0.2223e-03, &
-0.2899e-03, -0.3589e-03, -0.4230e-03, -0.4755e-03, -0.5031e-03, &
-0.4834e-03, -0.4036e-03, -0.2849e-03, -0.1687e-03, -0.8356e-04, &
-0.3388e-04/
data ((h83(ip,iw),iw=1,31), ip=22,22)/ &
0.1536e-10, 0.3086e-10, 0.6248e-10, 0.1288e-09, 0.2664e-09, &
0.5637e-09, 0.1222e-08, 0.2680e-08, 0.5899e-08, 0.1262e-07, &
0.2527e-07, 0.4621e-07, 0.7678e-07, 0.1165e-06, 0.1640e-06, &
0.2199e-06, 0.2904e-06, 0.3783e-06, 0.4787e-06, 0.5925e-06, &
0.7377e-06, 0.9389e-06, 0.1216e-05, 0.1560e-05, 0.1879e-05, &
0.2025e-05, 0.1940e-05, 0.1650e-05, 0.1194e-05, 0.6981e-06, &
0.3103e-06/
data ((h81(ip,iw),iw=1,31), ip=23,23)/ &
0.99998635, 0.99997282, 0.99994588, 0.99989229, 0.99978608, &
0.99957722, 0.99917048, 0.99839097, 0.99693698, 0.99432403, &
0.98987001, 0.98273998, 0.97201002, 0.95668000, 0.93548000, &
0.90671998, 0.86830002, 0.81800002, 0.75330001, 0.67299998, &
0.57720000, 0.46920002, 0.35659999, 0.25010002, 0.16049999, &
0.09350002, 0.04850000, 0.02179998, 0.00840002, 0.00269997, &
0.00070000/
data ((h82(ip,iw),iw=1,31), ip=23,23)/ &
-0.4359e-08, -0.8720e-08, -0.1749e-07, -0.3527e-07, -0.7175e-07, &
-0.1473e-06, -0.3062e-06, -0.6451e-06, -0.1372e-05, -0.2902e-05, &
-0.5936e-05, -0.1133e-04, -0.1971e-04, -0.3143e-04, -0.4715e-04, &
-0.6833e-04, -0.9759e-04, -0.1379e-03, -0.1907e-03, -0.2542e-03, &
-0.3239e-03, -0.3935e-03, -0.4559e-03, -0.4991e-03, -0.5009e-03, &
-0.4414e-03, -0.3306e-03, -0.2077e-03, -0.1093e-03, -0.4754e-04, &
-0.1642e-04/
data ((h83(ip,iw),iw=1,31), ip=23,23)/ &
0.1531e-10, 0.3070e-10, 0.6184e-10, 0.1257e-09, 0.2578e-09, &
0.5451e-09, 0.1159e-08, 0.2526e-08, 0.5585e-08, 0.1225e-07, &
0.2576e-07, 0.5017e-07, 0.8855e-07, 0.1417e-06, 0.2078e-06, &
0.2858e-06, 0.3802e-06, 0.4946e-06, 0.6226e-06, 0.7572e-06, &
0.9137e-06, 0.1133e-05, 0.1438e-05, 0.1772e-05, 0.1994e-05, &
0.1994e-05, 0.1779e-05, 0.1375e-05, 0.8711e-06, 0.4273e-06, &
0.1539e-06/
data ((h81(ip,iw),iw=1,31), ip=24,24)/ &
0.99998635, 0.99997282, 0.99994582, 0.99989212, 0.99978542, &
0.99957442, 0.99916071, 0.99835902, 0.99683702, 0.99403203, &
0.98908001, 0.98084998, 0.96805000, 0.94933999, 0.92330998, &
0.88830000, 0.84219998, 0.78270000, 0.70809996, 0.61759996, &
0.51330000, 0.40079999, 0.29000002, 0.19239998, 0.11619997, &
0.06300002, 0.02980000, 0.01200002, 0.00410002, 0.00120002, &
0.00019997/
data ((h82(ip,iw),iw=1,31), ip=24,24)/ &
-0.4354e-08, -0.8703e-08, -0.1742e-07, -0.3499e-07, -0.7074e-07, &
-0.1441e-06, -0.2971e-06, -0.6195e-06, -0.1309e-05, -0.2780e-05, &
-0.5823e-05, -0.1165e-04, -0.2152e-04, -0.3616e-04, -0.5604e-04, &
-0.8230e-04, -0.1173e-03, -0.1635e-03, -0.2211e-03, -0.2868e-03, &
-0.3567e-03, -0.4260e-03, -0.4844e-03, -0.5097e-03, -0.4750e-03, &
-0.3779e-03, -0.2522e-03, -0.1409e-03, -0.6540e-04, -0.2449e-04, &
-0.6948e-05/
data ((h83(ip,iw),iw=1,31), ip=24,24)/ &
0.1529e-10, 0.3060e-10, 0.6142e-10, 0.1241e-09, 0.2535e-09, &
0.5259e-09, 0.1107e-08, 0.2383e-08, 0.5243e-08, 0.1161e-07, &
0.2523e-07, 0.5188e-07, 0.9757e-07, 0.1657e-06, 0.2553e-06, &
0.3629e-06, 0.4878e-06, 0.6323e-06, 0.7923e-06, 0.9575e-06, &
0.1139e-05, 0.1381e-05, 0.1687e-05, 0.1952e-05, 0.2029e-05, &
0.1890e-05, 0.1552e-05, 0.1062e-05, 0.5728e-06, 0.2280e-06, &
0.6762e-07/
data ((h81(ip,iw),iw=1,31), ip=25,25)/ &
0.99998635, 0.99997282, 0.99994582, 0.99989200, 0.99978489, &
0.99957252, 0.99915391, 0.99833602, 0.99676299, 0.99380499, &
0.98843998, 0.97920001, 0.96427000, 0.94182003, 0.91018999, &
0.86769998, 0.81260002, 0.74300003, 0.65770000, 0.55750000, &
0.44660002, 0.33310002, 0.22860003, 0.14319998, 0.08090001, &
0.04030001, 0.01719999, 0.00620002, 0.00190002, 0.00040001, &
0.00000000/
data ((h82(ip,iw),iw=1,31), ip=25,25)/ &
-0.4352e-08, -0.8693e-08, -0.1738e-07, -0.3483e-07, -0.7006e-07, &
-0.1423e-06, -0.2905e-06, -0.6008e-06, -0.1258e-05, -0.2663e-05, &
-0.5638e-05, -0.1165e-04, -0.2270e-04, -0.4044e-04, -0.6554e-04, &
-0.9855e-04, -0.1407e-03, -0.1928e-03, -0.2534e-03, -0.3197e-03, &
-0.3890e-03, -0.4563e-03, -0.5040e-03, -0.4998e-03, -0.4249e-03, &
-0.3025e-03, -0.1794e-03, -0.8860e-04, -0.3575e-04, -0.1122e-04, &
-0.2506e-05/
data ((h83(ip,iw),iw=1,31), ip=25,25)/ &
0.1527e-10, 0.3053e-10, 0.6115e-10, 0.1230e-09, 0.2492e-09, &
0.5149e-09, 0.1068e-08, 0.2268e-08, 0.4932e-08, 0.1089e-07, &
0.2408e-07, 0.5156e-07, 0.1028e-06, 0.1859e-06, 0.3028e-06, &
0.4476e-06, 0.6124e-06, 0.7932e-06, 0.9879e-06, 0.1194e-05, &
0.1417e-05, 0.1673e-05, 0.1929e-05, 0.2064e-05, 0.1997e-05, &
0.1725e-05, 0.1267e-05, 0.7464e-06, 0.3312e-06, 0.1066e-06, &
0.2718e-07/
data ((h81(ip,iw),iw=1,31), ip=26,26)/ &
0.99998635, 0.99997282, 0.99994576, 0.99989188, 0.99978459, &
0.99957132, 0.99914938, 0.99831998, 0.99670899, 0.99363601, &
0.98794001, 0.97781998, 0.96087998, 0.93456000, 0.89670002, &
0.84560001, 0.78020000, 0.69920003, 0.60299999, 0.49400002, &
0.37910002, 0.26889998, 0.17460001, 0.10280001, 0.05379999, &
0.02429998, 0.00929999, 0.00300002, 0.00080001, 0.00010002, &
0.00000000/
data ((h82(ip,iw),iw=1,31), ip=26,26)/ &
-0.4351e-08, -0.8688e-08, -0.1736e-07, -0.3473e-07, -0.6966e-07, &
-0.1405e-06, -0.2857e-06, -0.5867e-06, -0.1218e-05, -0.2563e-05, &
-0.5435e-05, -0.1144e-04, -0.2321e-04, -0.4379e-04, -0.7487e-04, &
-0.1163e-03, -0.1670e-03, -0.2250e-03, -0.2876e-03, -0.3535e-03, &
-0.4215e-03, -0.4826e-03, -0.5082e-03, -0.4649e-03, -0.3564e-03, &
-0.2264e-03, -0.1188e-03, -0.5128e-04, -0.1758e-04, -0.4431e-05, &
-0.7275e-06/
data ((h83(ip,iw),iw=1,31), ip=26,26)/ &
0.1525e-10, 0.3048e-10, 0.6097e-10, 0.1223e-09, 0.2466e-09, &
0.5021e-09, 0.1032e-08, 0.2195e-08, 0.4688e-08, 0.1027e-07, &
0.2279e-07, 0.4999e-07, 0.1046e-06, 0.2009e-06, 0.3460e-06, &
0.5335e-06, 0.7478e-06, 0.9767e-06, 0.1216e-05, 0.1469e-05, &
0.1735e-05, 0.1977e-05, 0.2121e-05, 0.2103e-05, 0.1902e-05, &
0.1495e-05, 0.9541e-06, 0.4681e-06, 0.1672e-06, 0.4496e-07, &
0.9859e-08/
data ((c1(ip,iw),iw=1,30), ip= 1, 1)/ &
0.99985647, 0.99976432, 0.99963892, 0.99948031, 0.99927652, &
0.99899602, 0.99860001, 0.99804801, 0.99732202, 0.99640399, &
0.99526399, 0.99384302, 0.99204999, 0.98979002, 0.98694998, &
0.98334998, 0.97878999, 0.97307003, 0.96592999, 0.95722002, &
0.94660002, 0.93366003, 0.91777998, 0.89819998, 0.87419999, &
0.84500003, 0.81029999, 0.76989996, 0.72440004, 0.67490000/
data ((c2(ip,iw),iw=1,30), ip= 1, 1)/ &
-0.1841e-06, -0.4666e-06, -0.1050e-05, -0.2069e-05, -0.3601e-05, &
-0.5805e-05, -0.8863e-05, -0.1291e-04, -0.1806e-04, -0.2460e-04, &
-0.3317e-04, -0.4452e-04, -0.5944e-04, -0.7884e-04, -0.1036e-03, &
-0.1346e-03, -0.1727e-03, -0.2186e-03, -0.2728e-03, -0.3364e-03, &
-0.4102e-03, -0.4948e-03, -0.5890e-03, -0.6900e-03, -0.7930e-03, &
-0.8921e-03, -0.9823e-03, -0.1063e-02, -0.1138e-02, -0.1214e-02/
data ((c3(ip,iw),iw=1,30), ip= 1, 1)/ &
0.5821e-10, 0.5821e-10, -0.3201e-09, -0.1804e-08, -0.4336e-08, &
-0.7829e-08, -0.1278e-07, -0.1847e-07, -0.2827e-07, -0.4495e-07, &
-0.7126e-07, -0.1071e-06, -0.1524e-06, -0.2160e-06, -0.3014e-06, &
-0.4097e-06, -0.5349e-06, -0.6718e-06, -0.8125e-06, -0.9755e-06, &
-0.1157e-05, -0.1339e-05, -0.1492e-05, -0.1563e-05, -0.1485e-05, &
-0.1210e-05, -0.7280e-06, -0.1107e-06, 0.5369e-06, 0.1154e-05/
data ((c1(ip,iw),iw=1,30), ip= 2, 2)/ &
0.99985647, 0.99976432, 0.99963868, 0.99947977, 0.99927580, &
0.99899501, 0.99859601, 0.99804401, 0.99731201, 0.99638498, &
0.99523097, 0.99378198, 0.99194402, 0.98961002, 0.98664999, &
0.98286998, 0.97807002, 0.97200000, 0.96439999, 0.95503998, &
0.94352001, 0.92931998, 0.91175002, 0.88989997, 0.86300004, &
0.83039999, 0.79159999, 0.74710000, 0.69790000, 0.64579999/
data ((c2(ip,iw),iw=1,30), ip= 2, 2)/ &
-0.1831e-06, -0.4642e-06, -0.1048e-05, -0.2067e-05, -0.3596e-05, &
-0.5797e-05, -0.8851e-05, -0.1289e-04, -0.1802e-04, -0.2454e-04, &
-0.3307e-04, -0.4435e-04, -0.5916e-04, -0.7842e-04, -0.1031e-03, &
-0.1342e-03, -0.1725e-03, -0.2189e-03, -0.2739e-03, -0.3386e-03, &
-0.4138e-03, -0.5003e-03, -0.5968e-03, -0.7007e-03, -0.8076e-03, &
-0.9113e-03, -0.1007e-02, -0.1096e-02, -0.1181e-02, -0.1271e-02/
data ((c3(ip,iw),iw=1,30), ip= 2, 2)/ &
0.5821e-10, 0.5821e-10, -0.3347e-09, -0.1746e-08, -0.4366e-08, &
-0.7858e-08, -0.1262e-07, -0.1866e-07, -0.2849e-07, -0.4524e-07, &
-0.7176e-07, -0.1077e-06, -0.1531e-06, -0.2166e-06, -0.3018e-06, &
-0.4090e-06, -0.5327e-06, -0.6670e-06, -0.8088e-06, -0.9714e-06, &
-0.1151e-05, -0.1333e-05, -0.1483e-05, -0.1548e-05, -0.1467e-05, &
-0.1192e-05, -0.7159e-06, -0.1032e-06, 0.5571e-06, 0.1217e-05/
data ((c1(ip,iw),iw=1,30), ip= 3, 3)/ &
0.99985671, 0.99976432, 0.99963838, 0.99947912, 0.99927449, &
0.99899203, 0.99859202, 0.99803501, 0.99729699, 0.99635702, &
0.99518001, 0.99369103, 0.99178600, 0.98935002, 0.98623002, &
0.98223001, 0.97711003, 0.97060001, 0.96243000, 0.95222998, &
0.93957001, 0.92379999, 0.90411001, 0.87959999, 0.84930003, &
0.81270003, 0.76980001, 0.72140002, 0.66909999, 0.61539996/
data ((c2(ip,iw),iw=1,30), ip= 3, 3)/ &
-0.1831e-06, -0.4623e-06, -0.1048e-05, -0.2065e-05, -0.3589e-05, &
-0.5789e-05, -0.8833e-05, -0.1286e-04, -0.1797e-04, -0.2446e-04, &
-0.3292e-04, -0.4412e-04, -0.5880e-04, -0.7795e-04, -0.1027e-03, &
-0.1340e-03, -0.1728e-03, -0.2199e-03, -0.2759e-03, -0.3419e-03, &
-0.4194e-03, -0.5081e-03, -0.6078e-03, -0.7156e-03, -0.8270e-03, &
-0.9365e-03, -0.1040e-02, -0.1137e-02, -0.1235e-02, -0.1339e-02/
data ((c3(ip,iw),iw=1,30), ip= 3, 3)/ &
0.2910e-10, 0.5821e-10, -0.3201e-09, -0.1732e-08, -0.4307e-08, &
-0.7843e-08, -0.1270e-07, -0.1882e-07, -0.2862e-07, -0.4571e-07, &
-0.7225e-07, -0.1082e-06, -0.1535e-06, -0.2171e-06, -0.3021e-06, &
-0.4084e-06, -0.5302e-06, -0.6615e-06, -0.8059e-06, -0.9668e-06, &
-0.1146e-05, -0.1325e-05, -0.1468e-05, -0.1530e-05, -0.1448e-05, &
-0.1168e-05, -0.6907e-06, -0.7148e-07, 0.6242e-06, 0.1357e-05/
data ((c1(ip,iw),iw=1,30), ip= 4, 4)/ &
0.99985629, 0.99976349, 0.99963838, 0.99947798, 0.99927282, &
0.99898797, 0.99858499, 0.99802202, 0.99727303, 0.99631298, &
0.99510002, 0.99355298, 0.99155599, 0.98898000, 0.98566002, &
0.98136997, 0.97584999, 0.96880001, 0.95986998, 0.94862998, &
0.93452001, 0.91681999, 0.89459997, 0.86680001, 0.83270001, &
0.79189998, 0.74479997, 0.69290000, 0.63839996, 0.58410001/
data ((c2(ip,iw),iw=1,30), ip= 4, 4)/ &
-0.1808e-06, -0.4642e-06, -0.1045e-05, -0.2058e-05, -0.3581e-05, &
-0.5776e-05, -0.8801e-05, -0.1281e-04, -0.1789e-04, -0.2433e-04, &
-0.3273e-04, -0.4382e-04, -0.5840e-04, -0.7755e-04, -0.1024e-03, &
-0.1342e-03, -0.1737e-03, -0.2217e-03, -0.2791e-03, -0.3473e-03, &
-0.4272e-03, -0.5191e-03, -0.6227e-03, -0.7354e-03, -0.8526e-03, &
-0.9688e-03, -0.1081e-02, -0.1189e-02, -0.1300e-02, -0.1417e-02/
data ((c3(ip,iw),iw=1,30), ip= 4, 4)/ &
0.1019e-09, 0.1601e-09, -0.4075e-09, -0.1746e-08, -0.4366e-08, &
-0.7960e-08, -0.1294e-07, -0.1898e-07, -0.2899e-07, -0.4594e-07, &
-0.7267e-07, -0.1088e-06, -0.1536e-06, -0.2164e-06, -0.3002e-06, &
-0.4055e-06, -0.5260e-06, -0.6571e-06, -0.8022e-06, -0.9624e-06, &
-0.1139e-05, -0.1315e-05, -0.1456e-05, -0.1512e-05, -0.1420e-05, &
-0.1137e-05, -0.6483e-06, 0.6679e-08, 0.7652e-06, 0.1574e-05/
data ((c1(ip,iw),iw=1,30), ip= 5, 5)/ &
0.99985641, 0.99976403, 0.99963748, 0.99947661, 0.99926913, &
0.99898303, 0.99857402, 0.99800003, 0.99723399, 0.99624503, &
0.99498397, 0.99335301, 0.99123502, 0.98847997, 0.98488998, &
0.98023999, 0.97421998, 0.96648002, 0.95659000, 0.94404000, &
0.92815000, 0.90802002, 0.88270003, 0.85119998, 0.81290001, &
0.76770002, 0.71679997, 0.66219997, 0.60670000, 0.55250001/
data ((c2(ip,iw),iw=1,30), ip= 5, 5)/ &
-0.1827e-06, -0.4608e-06, -0.1042e-05, -0.2053e-05, -0.3565e-05, &
-0.5745e-05, -0.8758e-05, -0.1273e-04, -0.1778e-04, -0.2417e-04, &
-0.3250e-04, -0.4347e-04, -0.5801e-04, -0.7729e-04, -0.1025e-03, &
-0.1349e-03, -0.1755e-03, -0.2249e-03, -0.2842e-03, -0.3549e-03, &
-0.4380e-03, -0.5340e-03, -0.6428e-03, -0.7613e-03, -0.8854e-03, &
-0.1009e-02, -0.1131e-02, -0.1252e-02, -0.1376e-02, -0.1502e-02/
data ((c3(ip,iw),iw=1,30), ip= 5, 5)/ &
0.4366e-10, -0.1455e-10, -0.4075e-09, -0.1804e-08, -0.4293e-08, &
-0.8178e-08, -0.1301e-07, -0.1915e-07, -0.2938e-07, -0.4664e-07, &
-0.7365e-07, -0.1090e-06, -0.1539e-06, -0.2158e-06, -0.2992e-06, &
-0.4033e-06, -0.5230e-06, -0.6537e-06, -0.7976e-06, -0.9601e-06, &
-0.1135e-05, -0.1305e-05, -0.1440e-05, -0.1490e-05, -0.1389e-05, &
-0.1087e-05, -0.5646e-06, 0.1475e-06, 0.9852e-06, 0.1853e-05/
data ((c1(ip,iw),iw=1,30), ip= 6, 6)/ &
0.99985617, 0.99976331, 0.99963629, 0.99947429, 0.99926388, &
0.99897301, 0.99855602, 0.99796802, 0.99717802, 0.99614400, &
0.99480897, 0.99306899, 0.99078500, 0.98778999, 0.98387998, &
0.97876000, 0.97211999, 0.96350002, 0.95240998, 0.93821001, &
0.92009002, 0.89709997, 0.86820000, 0.83249998, 0.78970003, &
0.74039996, 0.68630004, 0.63010001, 0.57459998, 0.52069998/
data ((c2(ip,iw),iw=1,30), ip= 6, 6)/ &
-0.1798e-06, -0.4580e-06, -0.1033e-05, -0.2039e-05, -0.3544e-05, &
-0.5709e-05, -0.8696e-05, -0.1264e-04, -0.1763e-04, -0.2395e-04, &
-0.3220e-04, -0.4311e-04, -0.5777e-04, -0.7732e-04, -0.1032e-03, &
-0.1365e-03, -0.1784e-03, -0.2295e-03, -0.2914e-03, -0.3653e-03, &
-0.4527e-03, -0.5541e-03, -0.6689e-03, -0.7947e-03, -0.9265e-03, &
-0.1060e-02, -0.1192e-02, -0.1326e-02, -0.1460e-02, -0.1586e-02/
data ((c3(ip,iw),iw=1,30), ip= 6, 6)/ &
0.8731e-10, 0.0000e+00, -0.3492e-09, -0.1892e-08, -0.4322e-08, &
-0.8367e-08, -0.1318e-07, -0.1962e-07, -0.3024e-07, -0.4708e-07, &
-0.7359e-07, -0.1087e-06, -0.1534e-06, -0.2152e-06, -0.2978e-06, &
-0.4008e-06, -0.5207e-06, -0.6509e-06, -0.7968e-06, -0.9584e-06, &
-0.1128e-05, -0.1297e-05, -0.1425e-05, -0.1461e-05, -0.1342e-05, &
-0.1009e-05, -0.4283e-06, 0.3666e-06, 0.1272e-05, 0.2171e-05/
data ((c1(ip,iw),iw=1,30), ip= 7, 7)/ &
0.99985600, 0.99976230, 0.99963462, 0.99947017, 0.99925607, &
0.99895698, 0.99852800, 0.99791902, 0.99709100, 0.99599499, &
0.99456000, 0.99267203, 0.99017102, 0.98688000, 0.98255002, &
0.97685999, 0.96941000, 0.95969999, 0.94709998, 0.93085998, &
0.91001999, 0.88360000, 0.85060000, 0.81040001, 0.76319999, &
0.71029997, 0.65400004, 0.59740001, 0.54229999, 0.48839998/
data ((c2(ip,iw),iw=1,30), ip= 7, 7)/ &
-0.1784e-06, -0.4551e-06, -0.1023e-05, -0.2019e-05, -0.3507e-05, &
-0.5651e-05, -0.8608e-05, -0.1250e-04, -0.1744e-04, -0.2370e-04, &
-0.3189e-04, -0.4289e-04, -0.5777e-04, -0.7787e-04, -0.1045e-03, &
-0.1392e-03, -0.1828e-03, -0.2365e-03, -0.3015e-03, -0.3797e-03, &
-0.4723e-03, -0.5803e-03, -0.7026e-03, -0.8365e-03, -0.9772e-03, &
-0.1120e-02, -0.1265e-02, -0.1409e-02, -0.1547e-02, -0.1665e-02/
data ((c3(ip,iw),iw=1,30), ip= 7, 7)/ &
0.5821e-10, 0.8731e-10, -0.4366e-09, -0.1935e-08, -0.4555e-08, &
-0.8455e-08, -0.1356e-07, -0.2024e-07, -0.3079e-07, -0.4758e-07, &
-0.7352e-07, -0.1078e-06, -0.1520e-06, -0.2139e-06, -0.2964e-06, &
-0.3997e-06, -0.5185e-06, -0.6493e-06, -0.7943e-06, -0.9568e-06, &
-0.1127e-05, -0.1288e-05, -0.1405e-05, -0.1425e-05, -0.1275e-05, &
-0.8809e-06, -0.2158e-06, 0.6597e-06, 0.1610e-05, 0.2524e-05/
data ((c1(ip,iw),iw=1,30), ip= 8, 8)/ &
0.99985582, 0.99976122, 0.99963123, 0.99946368, 0.99924308, &
0.99893397, 0.99848598, 0.99784499, 0.99696398, 0.99577999, &
0.99421299, 0.99212801, 0.98935997, 0.98569000, 0.98083001, &
0.97442001, 0.96595001, 0.95486999, 0.94040000, 0.92163002, &
0.89760000, 0.86720002, 0.82969999, 0.78499997, 0.73370004, &
0.67799997, 0.62070000, 0.56439996, 0.50960004, 0.45539999/
data ((c2(ip,iw),iw=1,30), ip= 8, 8)/ &
-0.1760e-06, -0.4451e-06, -0.1004e-05, -0.1989e-05, -0.3457e-05, &
-0.5574e-05, -0.8470e-05, -0.1230e-04, -0.1721e-04, -0.2344e-04, &
-0.3168e-04, -0.4286e-04, -0.5815e-04, -0.7898e-04, -0.1070e-03, &
-0.1434e-03, -0.1892e-03, -0.2460e-03, -0.3152e-03, -0.3985e-03, &
-0.4981e-03, -0.6139e-03, -0.7448e-03, -0.8878e-03, -0.1038e-02, &
-0.1193e-02, -0.1348e-02, -0.1499e-02, -0.1631e-02, -0.1735e-02/
data ((c3(ip,iw),iw=1,30), ip= 8, 8)/ &
-0.1455e-10, 0.4366e-10, -0.3929e-09, -0.2081e-08, -0.4700e-08, &
-0.8804e-08, -0.1417e-07, -0.2068e-07, -0.3143e-07, -0.4777e-07, &
-0.7336e-07, -0.1070e-06, -0.1517e-06, -0.2134e-06, -0.2967e-06, &
-0.3991e-06, -0.5164e-06, -0.6510e-06, -0.7979e-06, -0.9575e-06, &
-0.1123e-05, -0.1279e-05, -0.1382e-05, -0.1374e-05, -0.1166e-05, &
-0.6893e-06, 0.7339e-07, 0.1013e-05, 0.1982e-05, 0.2896e-05/
data ((c1(ip,iw),iw=1,30), ip= 9, 9)/ &
0.99985498, 0.99975908, 0.99962622, 0.99945402, 0.99922228, &
0.99889803, 0.99842203, 0.99773699, 0.99677801, 0.99547797, &
0.99373603, 0.99140298, 0.98829001, 0.98413998, 0.97863001, &
0.97127002, 0.96156001, 0.94875997, 0.93197000, 0.91017997, &
0.88230002, 0.84749997, 0.80540001, 0.75620002, 0.70159996, &
0.64429998, 0.58710003, 0.53130001, 0.47640002, 0.42189997/
data ((c2(ip,iw),iw=1,30), ip= 9, 9)/ &
-0.1717e-06, -0.4327e-06, -0.9759e-06, -0.1943e-05, -0.3391e-05, &
-0.5454e-05, -0.8297e-05, -0.1209e-04, -0.1697e-04, -0.2322e-04, &
-0.3163e-04, -0.4318e-04, -0.5910e-04, -0.8111e-04, -0.1108e-03, &
-0.1493e-03, -0.1982e-03, -0.2588e-03, -0.3333e-03, -0.4237e-03, &
-0.5312e-03, -0.6562e-03, -0.7968e-03, -0.9496e-03, -0.1110e-02, &
-0.1276e-02, -0.1439e-02, -0.1588e-02, -0.1708e-02, -0.1796e-02/
data ((c3(ip,iw),iw=1,30), ip= 9, 9)/ &
0.0000e+00, 0.1455e-10, -0.3638e-09, -0.2299e-08, -0.4744e-08, &
-0.9284e-08, -0.1445e-07, -0.2141e-07, -0.3162e-07, -0.4761e-07, &
-0.7248e-07, -0.1065e-06, -0.1501e-06, -0.2140e-06, -0.2981e-06, &
-0.3994e-06, -0.5201e-06, -0.6549e-06, -0.8009e-06, -0.9627e-06, &
-0.1125e-05, -0.1266e-05, -0.1348e-05, -0.1292e-05, -0.1005e-05, &
-0.4166e-06, 0.4279e-06, 0.1401e-05, 0.2379e-05, 0.3278e-05/
data ((c1(ip,iw),iw=1,30), ip=10,10)/ &
0.99985462, 0.99975640, 0.99961889, 0.99943668, 0.99919188, &
0.99884301, 0.99832898, 0.99757999, 0.99651998, 0.99506402, &
0.99309200, 0.99044400, 0.98689002, 0.98215997, 0.97579002, &
0.96730000, 0.95603001, 0.94110000, 0.92149001, 0.89609998, &
0.86399996, 0.82449996, 0.77759999, 0.72459996, 0.66769999, &
0.61000001, 0.55340004, 0.49769998, 0.44250000, 0.38810003/
data ((c2(ip,iw),iw=1,30), ip=10,10)/ &
-0.1607e-06, -0.4160e-06, -0.9320e-06, -0.1872e-05, -0.3281e-05, &
-0.5286e-05, -0.8097e-05, -0.1187e-04, -0.1677e-04, -0.2320e-04, &
-0.3190e-04, -0.4402e-04, -0.6081e-04, -0.8441e-04, -0.1162e-03, &
-0.1576e-03, -0.2102e-03, -0.2760e-03, -0.3571e-03, -0.4558e-03, &
-0.5730e-03, -0.7082e-03, -0.8591e-03, -0.1022e-02, -0.1194e-02, &
-0.1368e-02, -0.1533e-02, -0.1671e-02, -0.1775e-02, -0.1843e-02/
data ((c3(ip,iw),iw=1,30), ip=10,10)/ &
-0.1164e-09, -0.7276e-10, -0.5530e-09, -0.2270e-08, -0.5093e-08, &
-0.9517e-08, -0.1502e-07, -0.2219e-07, -0.3171e-07, -0.4712e-07, &
-0.7123e-07, -0.1042e-06, -0.1493e-06, -0.2156e-06, -0.2999e-06, &
-0.4027e-06, -0.5243e-06, -0.6616e-06, -0.8125e-06, -0.9691e-06, &
-0.1126e-05, -0.1251e-05, -0.1294e-05, -0.1163e-05, -0.7639e-06, &
-0.7395e-07, 0.8279e-06, 0.1819e-05, 0.2795e-05, 0.3647e-05/
data ((c1(ip,iw),iw=1,30), ip=11,11)/ &
0.99985212, 0.99975210, 0.99960798, 0.99941242, 0.99914628, &
0.99876302, 0.99819702, 0.99736100, 0.99616700, 0.99450397, &
0.99225003, 0.98920000, 0.98510998, 0.97961998, 0.97220999, &
0.96231002, 0.94909000, 0.93155003, 0.90856999, 0.87910002, &
0.84219998, 0.79790002, 0.74669999, 0.69080001, 0.63300002, &
0.57570004, 0.51950002, 0.46359998, 0.40829998, 0.35450000/
data ((c2(ip,iw),iw=1,30), ip=11,11)/ &
-0.1531e-06, -0.3864e-06, -0.8804e-06, -0.1776e-05, -0.3131e-05, &
-0.5082e-05, -0.7849e-05, -0.1164e-04, -0.1669e-04, -0.2340e-04, &
-0.3261e-04, -0.4546e-04, -0.6380e-04, -0.8932e-04, -0.1237e-03, &
-0.1687e-03, -0.2262e-03, -0.2984e-03, -0.3880e-03, -0.4964e-03, &
-0.6244e-03, -0.7705e-03, -0.9325e-03, -0.1107e-02, -0.1288e-02, &
-0.1466e-02, -0.1623e-02, -0.1746e-02, -0.1831e-02, -0.1875e-02/
data ((c3(ip,iw),iw=1,30), ip=11,11)/ &
0.1019e-09, -0.2037e-09, -0.8004e-09, -0.2387e-08, -0.5326e-08, &
-0.9764e-08, -0.1576e-07, -0.2256e-07, -0.3180e-07, -0.4616e-07, &
-0.7026e-07, -0.1031e-06, -0.1520e-06, -0.2181e-06, -0.3037e-06, &
-0.4109e-06, -0.5354e-06, -0.6740e-06, -0.8241e-06, -0.9810e-06, &
-0.1126e-05, -0.1221e-05, -0.1200e-05, -0.9678e-06, -0.4500e-06, &
0.3236e-06, 0.1256e-05, 0.2259e-05, 0.3206e-05, 0.3978e-05/
data ((c1(ip,iw),iw=1,30), ip=12,12)/ &
0.99985027, 0.99974507, 0.99959022, 0.99937689, 0.99907988, &
0.99865198, 0.99801201, 0.99706602, 0.99569201, 0.99377203, &
0.99115402, 0.98762000, 0.98286003, 0.97640002, 0.96771997, &
0.95604998, 0.94045001, 0.91979003, 0.89289999, 0.85879999, &
0.81700003, 0.76800001, 0.71340001, 0.65579998, 0.59810001, &
0.54139996, 0.48519999, 0.42909998, 0.37410003, 0.32190001/
data ((c2(ip,iw),iw=1,30), ip=12,12)/ &
-0.1340e-06, -0.3478e-06, -0.8189e-06, -0.1653e-05, -0.2944e-05, &
-0.4852e-05, -0.7603e-05, -0.1150e-04, -0.1682e-04, -0.2400e-04, &
-0.3390e-04, -0.4799e-04, -0.6807e-04, -0.9596e-04, -0.1338e-03, &
-0.1833e-03, -0.2471e-03, -0.3275e-03, -0.4268e-03, -0.5466e-03, &
-0.6862e-03, -0.8439e-03, -0.1017e-02, -0.1201e-02, -0.1389e-02, &
-0.1563e-02, -0.1706e-02, -0.1809e-02, -0.1872e-02, -0.1890e-02/
data ((c3(ip,iw),iw=1,30), ip=12,12)/ &
-0.1455e-10, -0.1892e-09, -0.8295e-09, -0.2547e-08, -0.5544e-08, &
-0.1014e-07, -0.1605e-07, -0.2341e-07, -0.3156e-07, -0.4547e-07, &
-0.6749e-07, -0.1034e-06, -0.1550e-06, -0.2230e-06, -0.3130e-06, &
-0.4219e-06, -0.5469e-06, -0.6922e-06, -0.8448e-06, -0.9937e-06, &
-0.1118e-05, -0.1166e-05, -0.1054e-05, -0.6926e-06, -0.7180e-07, &
0.7515e-06, 0.1709e-05, 0.2703e-05, 0.3593e-05, 0.4232e-05/
data ((c1(ip,iw),iw=1,30), ip=13,13)/ &
0.99984729, 0.99973530, 0.99956691, 0.99932659, 0.99898797, &
0.99849701, 0.99776399, 0.99667102, 0.99507397, 0.99283201, &
0.98977000, 0.98563999, 0.98001999, 0.97241002, 0.96213001, &
0.94830000, 0.92980999, 0.90546000, 0.87409997, 0.83510000, &
0.78850001, 0.73549998, 0.67850000, 0.62049997, 0.56340003, &
0.50699997, 0.45050001, 0.39450002, 0.34060001, 0.29079998/
data ((c2(ip,iw),iw=1,30), ip=13,13)/ &
-0.1163e-06, -0.3048e-06, -0.7186e-06, -0.1495e-05, -0.2726e-05, &
-0.4588e-05, -0.7396e-05, -0.1152e-04, -0.1725e-04, -0.2514e-04, &
-0.3599e-04, -0.5172e-04, -0.7403e-04, -0.1051e-03, -0.1469e-03, &
-0.2023e-03, -0.2735e-03, -0.3637e-03, -0.4746e-03, -0.6067e-03, &
-0.7586e-03, -0.9281e-03, -0.1112e-02, -0.1304e-02, -0.1491e-02, &
-0.1653e-02, -0.1777e-02, -0.1860e-02, -0.1896e-02, -0.1891e-02/
data ((c3(ip,iw),iw=1,30), ip=13,13)/ &
-0.1455e-09, -0.2765e-09, -0.9750e-09, -0.2794e-08, -0.5413e-08, &
-0.1048e-07, -0.1625e-07, -0.2344e-07, -0.3105e-07, -0.4304e-07, &
-0.6608e-07, -0.1057e-06, -0.1587e-06, -0.2308e-06, -0.3235e-06, &
-0.4373e-06, -0.5687e-06, -0.7156e-06, -0.8684e-06, -0.1007e-05, &
-0.1094e-05, -0.1062e-05, -0.8273e-06, -0.3485e-06, 0.3463e-06, &
0.1206e-05, 0.2173e-05, 0.3132e-05, 0.3919e-05, 0.4370e-05/
data ((c1(ip,iw),iw=1,30), ip=14,14)/ &
0.99984348, 0.99972272, 0.99953479, 0.99926043, 0.99886698, &
0.99829400, 0.99744201, 0.99615997, 0.99429500, 0.99166000, &
0.98806000, 0.98316997, 0.97649997, 0.96748000, 0.95525998, &
0.93878001, 0.91687000, 0.88830000, 0.85220003, 0.80820000, &
0.75699997, 0.70099998, 0.64300001, 0.58550000, 0.52890003, &
0.47219998, 0.41560000, 0.36040002, 0.30849999, 0.26169997/
data ((c2(ip,iw),iw=1,30), ip=14,14)/ &
-0.8581e-07, -0.2557e-06, -0.6103e-06, -0.1305e-05, -0.2472e-05, &
-0.4334e-05, -0.7233e-05, -0.1167e-04, -0.1806e-04, -0.2679e-04, &
-0.3933e-04, -0.5705e-04, -0.8194e-04, -0.1165e-03, -0.1637e-03, &
-0.2259e-03, -0.3068e-03, -0.4082e-03, -0.5318e-03, -0.6769e-03, &
-0.8415e-03, -0.1023e-02, -0.1216e-02, -0.1410e-02, -0.1588e-02, &
-0.1733e-02, -0.1837e-02, -0.1894e-02, -0.1904e-02, -0.1881e-02/
data ((c3(ip,iw),iw=1,30), ip=14,14)/ &
-0.2037e-09, -0.4220e-09, -0.1091e-08, -0.2896e-08, -0.5821e-08, &
-0.1052e-07, -0.1687e-07, -0.2353e-07, -0.3193e-07, -0.4254e-07, &
-0.6685e-07, -0.1072e-06, -0.1638e-06, -0.2427e-06, -0.3421e-06, &
-0.4600e-06, -0.5946e-06, -0.7472e-06, -0.8958e-06, -0.1009e-05, &
-0.1032e-05, -0.8919e-06, -0.5224e-06, 0.5218e-07, 0.7886e-06, &
0.1672e-05, 0.2626e-05, 0.3513e-05, 0.4138e-05, 0.4379e-05/
data ((c1(ip,iw),iw=1,30), ip=15,15)/ &
0.99983788, 0.99970680, 0.99949580, 0.99917668, 0.99871200, &
0.99803603, 0.99703097, 0.99552703, 0.99333203, 0.99023402, &
0.98597997, 0.98013997, 0.97223002, 0.96145999, 0.94686002, &
0.92727000, 0.90142000, 0.86820000, 0.82700002, 0.77820003, &
0.72350001, 0.66569996, 0.60769999, 0.55089998, 0.49430001, &
0.43739998, 0.38110000, 0.32749999, 0.27840000, 0.23479998/
data ((c2(ip,iw),iw=1,30), ip=15,15)/ &
-0.8246e-07, -0.2070e-06, -0.4895e-06, -0.1106e-05, -0.2216e-05, &
-0.4077e-05, -0.7150e-05, -0.1202e-04, -0.1920e-04, -0.2938e-04, &
-0.4380e-04, -0.6390e-04, -0.9209e-04, -0.1310e-03, -0.1843e-03, &
-0.2554e-03, -0.3468e-03, -0.4611e-03, -0.5982e-03, -0.7568e-03, &
-0.9340e-03, -0.1126e-02, -0.1324e-02, -0.1514e-02, -0.1676e-02, &
-0.1801e-02, -0.1881e-02, -0.1911e-02, -0.1900e-02, -0.1867e-02/
data ((c3(ip,iw),iw=1,30), ip=15,15)/ &
-0.1601e-09, -0.3492e-09, -0.1019e-08, -0.2634e-08, -0.5632e-08, &
-0.1065e-07, -0.1746e-07, -0.2542e-07, -0.3206e-07, -0.4390e-07, &
-0.6956e-07, -0.1093e-06, -0.1729e-06, -0.2573e-06, -0.3612e-06, &
-0.4904e-06, -0.6342e-06, -0.7834e-06, -0.9175e-06, -0.9869e-06, &
-0.9164e-06, -0.6386e-06, -0.1544e-06, 0.4798e-06, 0.1252e-05, &
0.2137e-05, 0.3043e-05, 0.3796e-05, 0.4211e-05, 0.4332e-05/
data ((c1(ip,iw),iw=1,30), ip=16,16)/ &
0.99983227, 0.99968958, 0.99945217, 0.99907941, 0.99852598, &
0.99772000, 0.99652398, 0.99475902, 0.99218899, 0.98856002, &
0.98348999, 0.97653997, 0.96708000, 0.95420998, 0.93677002, &
0.91352999, 0.88330001, 0.84509999, 0.79900002, 0.74599999, &
0.68879998, 0.63049996, 0.57319999, 0.51660001, 0.45969999, &
0.40289998, 0.34780002, 0.29650003, 0.25070000, 0.20959997/
data ((c2(ip,iw),iw=1,30), ip=16,16)/ &
-0.7004e-07, -0.1592e-06, -0.3936e-06, -0.9145e-06, -0.1958e-05, &
-0.3850e-05, -0.7093e-05, -0.1252e-04, -0.2066e-04, -0.3271e-04, &
-0.4951e-04, -0.7268e-04, -0.1045e-03, -0.1487e-03, -0.2092e-03, &
-0.2899e-03, -0.3936e-03, -0.5215e-03, -0.6729e-03, -0.8454e-03, &
-0.1035e-02, -0.1235e-02, -0.1432e-02, -0.1608e-02, -0.1751e-02, &
-0.1854e-02, -0.1907e-02, -0.1913e-02, -0.1888e-02, -0.1857e-02/
data ((c3(ip,iw),iw=1,30), ip=16,16)/ &
-0.2328e-09, -0.3347e-09, -0.9750e-09, -0.2314e-08, -0.5166e-08, &
-0.1052e-07, -0.1726e-07, -0.2605e-07, -0.3532e-07, -0.4949e-07, &
-0.7229e-07, -0.1133e-06, -0.1799e-06, -0.2725e-06, -0.3881e-06, &
-0.5249e-06, -0.6763e-06, -0.8227e-06, -0.9279e-06, -0.9205e-06, &
-0.7228e-06, -0.3109e-06, 0.2583e-06, 0.9390e-06, 0.1726e-05, &
0.2579e-05, 0.3376e-05, 0.3931e-05, 0.4161e-05, 0.4369e-05/
data ((c1(ip,iw),iw=1,30), ip=17,17)/ &
0.99982637, 0.99967217, 0.99940813, 0.99897701, 0.99831802, &
0.99734300, 0.99592501, 0.99385202, 0.99086499, 0.98659998, &
0.98057997, 0.97229999, 0.96098000, 0.94555002, 0.92479002, &
0.89740002, 0.86240000, 0.81919998, 0.76859999, 0.71249998, &
0.65419996, 0.59630001, 0.53950000, 0.48259997, 0.42549998, &
0.36940002, 0.31629997, 0.26810002, 0.22520000, 0.18580002/
data ((c2(ip,iw),iw=1,30), ip=17,17)/ &
-0.6526e-07, -0.1282e-06, -0.3076e-06, -0.7454e-06, -0.1685e-05, &
-0.3600e-05, -0.7071e-05, -0.1292e-04, -0.2250e-04, -0.3665e-04, &
-0.5623e-04, -0.8295e-04, -0.1195e-03, -0.1696e-03, -0.2385e-03, &
-0.3298e-03, -0.4465e-03, -0.5887e-03, -0.7546e-03, -0.9408e-03, &
-0.1141e-02, -0.1345e-02, -0.1533e-02, -0.1691e-02, -0.1813e-02, &
-0.1889e-02, -0.1916e-02, -0.1904e-02, -0.1877e-02, -0.1850e-02/
data ((c3(ip,iw),iw=1,30), ip=17,17)/ &
-0.1746e-09, -0.2037e-09, -0.8149e-09, -0.2095e-08, -0.4889e-08, &
-0.9517e-08, -0.1759e-07, -0.2740e-07, -0.4147e-07, -0.5774e-07, &
-0.7909e-07, -0.1199e-06, -0.1877e-06, -0.2859e-06, -0.4137e-06, &
-0.5649e-06, -0.7218e-06, -0.8516e-06, -0.9022e-06, -0.7905e-06, &
-0.4531e-06, 0.6917e-07, 0.7009e-06, 0.1416e-05, 0.2194e-05, &
0.2963e-05, 0.3578e-05, 0.3900e-05, 0.4094e-05, 0.4642e-05/
data ((c1(ip,iw),iw=1,30), ip=18,18)/ &
0.99982101, 0.99965781, 0.99936712, 0.99887502, 0.99809802, &
0.99692702, 0.99523401, 0.99281400, 0.98935997, 0.98435003, &
0.97728002, 0.96740997, 0.95381999, 0.93539000, 0.91082001, &
0.87889999, 0.83889997, 0.79100001, 0.73660004, 0.67879999, &
0.62049997, 0.56330001, 0.50629997, 0.44900000, 0.39209998, &
0.33749998, 0.28729999, 0.24229997, 0.20150000, 0.16280001/
data ((c2(ip,iw),iw=1,30), ip=18,18)/ &
-0.6477e-07, -0.1243e-06, -0.2536e-06, -0.6173e-06, -0.1495e-05, &
-0.3353e-05, -0.6919e-05, -0.1337e-04, -0.2418e-04, -0.4049e-04, &
-0.6354e-04, -0.9455e-04, -0.1367e-03, -0.1942e-03, -0.2717e-03, &
-0.3744e-03, -0.5042e-03, -0.6609e-03, -0.8416e-03, -0.1041e-02, &
-0.1249e-02, -0.1448e-02, -0.1622e-02, -0.1760e-02, -0.1857e-02, &
-0.1906e-02, -0.1911e-02, -0.1892e-02, -0.1870e-02, -0.1844e-02/
data ((c3(ip,iw),iw=1,30), ip=18,18)/ &
-0.5821e-10, -0.2328e-09, -0.6985e-09, -0.1368e-08, -0.4351e-08, &
-0.8993e-08, -0.1579e-07, -0.2916e-07, -0.4904e-07, -0.7010e-07, &
-0.9623e-07, -0.1332e-06, -0.1928e-06, -0.2977e-06, -0.4371e-06, &
-0.5992e-06, -0.7586e-06, -0.8580e-06, -0.8238e-06, -0.5811e-06, &
-0.1298e-06, 0.4702e-06, 0.1162e-05, 0.1905e-05, 0.2632e-05, &
0.3247e-05, 0.3609e-05, 0.3772e-05, 0.4166e-05, 0.5232e-05/
data ((c1(ip,iw),iw=1,30), ip=19,19)/ &
0.99981648, 0.99964571, 0.99933147, 0.99878597, 0.99787998, &
0.99649400, 0.99448699, 0.99166602, 0.98762000, 0.98181999, &
0.97352999, 0.96183002, 0.94558001, 0.92363000, 0.89480001, &
0.85799998, 0.81309998, 0.76100004, 0.70420003, 0.64590001, &
0.58840001, 0.53139997, 0.47380000, 0.41619998, 0.36030000, &
0.30809999, 0.26109999, 0.21880001, 0.17909998, 0.14080000/
data ((c2(ip,iw),iw=1,30), ip=19,19)/ &
-0.7906e-07, -0.1291e-06, -0.2430e-06, -0.5145e-06, -0.1327e-05, &
-0.3103e-05, -0.6710e-05, -0.1371e-04, -0.2561e-04, -0.4405e-04, &
-0.7051e-04, -0.1070e-03, -0.1560e-03, -0.2217e-03, -0.3090e-03, &
-0.4228e-03, -0.5657e-03, -0.7371e-03, -0.9322e-03, -0.1142e-02, &
-0.1352e-02, -0.1541e-02, -0.1697e-02, -0.1813e-02, -0.1883e-02, &
-0.1906e-02, -0.1898e-02, -0.1882e-02, -0.1866e-02, -0.1832e-02/
data ((c3(ip,iw),iw=1,30), ip=19,19)/ &
0.2910e-10, 0.1455e-10, -0.2765e-09, -0.1426e-08, -0.2576e-08, &
-0.5923e-08, -0.1429e-07, -0.3159e-07, -0.5441e-07, -0.8367e-07, &
-0.1161e-06, -0.1526e-06, -0.2060e-06, -0.3007e-06, -0.4450e-06, &
-0.6182e-06, -0.7683e-06, -0.8170e-06, -0.6754e-06, -0.3122e-06, &
0.2234e-06, 0.8828e-06, 0.1632e-05, 0.2373e-05, 0.3002e-05, &
0.3384e-05, 0.3499e-05, 0.3697e-05, 0.4517e-05, 0.6117e-05/
data ((c1(ip,iw),iw=1,30), ip=20,20)/ &
0.99981302, 0.99963689, 0.99930489, 0.99870700, 0.99768901, &
0.99608499, 0.99373102, 0.99039900, 0.98566997, 0.97895002, &
0.96930999, 0.95548999, 0.93621999, 0.91029000, 0.87669998, &
0.83490002, 0.78549999, 0.73019999, 0.67240000, 0.61469996, &
0.55779999, 0.50029999, 0.44220001, 0.38489997, 0.33069998, &
0.28149998, 0.23760003, 0.19690001, 0.15759999, 0.11989999/
data ((c2(ip,iw),iw=1,30), ip=20,20)/ &
-0.7762e-07, -0.1319e-06, -0.2315e-06, -0.4780e-06, -0.1187e-05, &
-0.2750e-05, -0.6545e-05, -0.1393e-04, -0.2645e-04, -0.4652e-04, &
-0.7657e-04, -0.1190e-03, -0.1766e-03, -0.2520e-03, -0.3499e-03, &
-0.4751e-03, -0.6307e-03, -0.8160e-03, -0.1024e-02, -0.1240e-02, &
-0.1443e-02, -0.1619e-02, -0.1757e-02, -0.1849e-02, -0.1892e-02, &
-0.1896e-02, -0.1886e-02, -0.1878e-02, -0.1861e-02, -0.1807e-02/
data ((c3(ip,iw),iw=1,30), ip=20,20)/ &
0.8731e-10, -0.7276e-10, -0.2328e-09, -0.6403e-09, -0.1455e-08, &
-0.3827e-08, -0.1270e-07, -0.3014e-07, -0.5594e-07, -0.9677e-07, &
-0.1422e-06, -0.1823e-06, -0.2296e-06, -0.3094e-06, -0.4399e-06, &
-0.6008e-06, -0.7239e-06, -0.7014e-06, -0.4562e-06, -0.7778e-08, &
0.5785e-06, 0.1291e-05, 0.2072e-05, 0.2783e-05, 0.3247e-05, &
0.3358e-05, 0.3364e-05, 0.3847e-05, 0.5194e-05, 0.7206e-05/
data ((c1(ip,iw),iw=1,30), ip=21,21)/ &
0.99981070, 0.99962878, 0.99928439, 0.99864298, 0.99752903, &
0.99573100, 0.99301797, 0.98905998, 0.98354000, 0.97570997, &
0.96449000, 0.94837999, 0.92576003, 0.89539999, 0.85680002, &
0.81000000, 0.75660002, 0.69949996, 0.64199996, 0.58529997, &
0.52829999, 0.47020000, 0.41200000, 0.35570002, 0.30400002, &
0.25800002, 0.21609998, 0.17610002, 0.13709998, 0.10020000/
data ((c2(ip,iw),iw=1,30), ip=21,21)/ &
-0.1010e-06, -0.1533e-06, -0.2347e-06, -0.4535e-06, -0.1029e-05, &
-0.2530e-05, -0.6335e-05, -0.1381e-04, -0.2681e-04, -0.4777e-04, &
-0.8083e-04, -0.1296e-03, -0.1966e-03, -0.2836e-03, -0.3937e-03, &
-0.5313e-03, -0.6995e-03, -0.8972e-03, -0.1113e-02, -0.1327e-02, &
-0.1520e-02, -0.1681e-02, -0.1800e-02, -0.1867e-02, -0.1887e-02, &
-0.1884e-02, -0.1881e-02, -0.1879e-02, -0.1849e-02, -0.1764e-02/
data ((c3(ip,iw),iw=1,30), ip=21,21)/ &
0.8731e-10, 0.1310e-09, -0.2474e-09, -0.2619e-09, 0.8295e-09, &
-0.1979e-08, -0.1141e-07, -0.2621e-07, -0.5799e-07, -0.1060e-06, &
-0.1621e-06, -0.2281e-06, -0.2793e-06, -0.3335e-06, -0.4277e-06, &
-0.5429e-06, -0.5970e-06, -0.4872e-06, -0.1775e-06, 0.3028e-06, &
0.9323e-06, 0.1680e-05, 0.2452e-05, 0.3063e-05, 0.3299e-05, &
0.3219e-05, 0.3369e-05, 0.4332e-05, 0.6152e-05, 0.8413e-05/
data ((c1(ip,iw),iw=1,30), ip=22,22)/ &
0.99980962, 0.99962330, 0.99926400, 0.99858999, 0.99741602, &
0.99547201, 0.99236798, 0.98776001, 0.98124999, 0.97210997, &
0.95902997, 0.94033003, 0.91415000, 0.87919998, 0.83529997, &
0.78380001, 0.72749996, 0.66990000, 0.61339998, 0.55720001, &
0.49980003, 0.44129997, 0.38360000, 0.32929999, 0.28070003, &
0.23710001, 0.19620001, 0.15619999, 0.11769998, 0.08200002/
data ((c2(ip,iw),iw=1,30), ip=22,22)/ &
-0.1258e-06, -0.1605e-06, -0.2581e-06, -0.4286e-06, -0.8321e-06, &
-0.2392e-05, -0.6163e-05, -0.1358e-04, -0.2646e-04, -0.4792e-04, &
-0.8284e-04, -0.1369e-03, -0.2138e-03, -0.3141e-03, -0.4393e-03, &
-0.5917e-03, -0.7731e-03, -0.9796e-03, -0.1195e-02, -0.1399e-02, &
-0.1579e-02, -0.1725e-02, -0.1822e-02, -0.1867e-02, -0.1877e-02, &
-0.1879e-02, -0.1886e-02, -0.1879e-02, -0.1825e-02, -0.1706e-02/
data ((c3(ip,iw),iw=1,30), ip=22,22)/ &
-0.8731e-10, 0.2910e-10, 0.7276e-10, 0.1281e-08, 0.1222e-08, &
-0.1935e-08, -0.8004e-08, -0.2258e-07, -0.5428e-07, -0.1085e-06, &
-0.1835e-06, -0.2716e-06, -0.3446e-06, -0.3889e-06, -0.4203e-06, &
-0.4394e-06, -0.3716e-06, -0.1677e-06, 0.1622e-06, 0.6327e-06, &
0.1275e-05, 0.2018e-05, 0.2716e-05, 0.3137e-05, 0.3136e-05, &
0.3078e-05, 0.3649e-05, 0.5152e-05, 0.7315e-05, 0.9675e-05/
data ((c1(ip,iw),iw=1,30), ip=23,23)/ &
0.99980921, 0.99961692, 0.99924570, 0.99854898, 0.99734801, &
0.99527103, 0.99182302, 0.98655999, 0.97895002, 0.96814001, &
0.95284998, 0.93124998, 0.90130001, 0.86170000, 0.81290001, &
0.75740004, 0.69920003, 0.64199996, 0.58640003, 0.53020000, &
0.47240001, 0.41399997, 0.35780001, 0.30650002, 0.26069999, &
0.21850002, 0.17750001, 0.13739997, 0.09950000, 0.06540000/
data ((c2(ip,iw),iw=1,30), ip=23,23)/ &
-0.1434e-06, -0.1676e-06, -0.2699e-06, -0.2859e-06, -0.7542e-06, &
-0.2273e-05, -0.5898e-05, -0.1292e-04, -0.2538e-04, -0.4649e-04, &
-0.8261e-04, -0.1405e-03, -0.2259e-03, -0.3407e-03, -0.4845e-03, &
-0.6561e-03, -0.8524e-03, -0.1062e-02, -0.1266e-02, -0.1456e-02, &
-0.1621e-02, -0.1748e-02, -0.1823e-02, -0.1854e-02, -0.1868e-02, &
-0.1886e-02, -0.1899e-02, -0.1876e-02, -0.1790e-02, -0.1636e-02/
data ((c3(ip,iw),iw=1,30), ip=23,23)/ &
-0.1892e-09, -0.2474e-09, 0.1892e-09, 0.2561e-08, 0.4366e-09, &
-0.1499e-08, -0.4336e-08, -0.1740e-07, -0.5233e-07, -0.1055e-06, &
-0.1940e-06, -0.3113e-06, -0.4161e-06, -0.4620e-06, -0.4316e-06, &
-0.3031e-06, -0.5438e-07, 0.2572e-06, 0.5773e-06, 0.1008e-05, &
0.1609e-05, 0.2290e-05, 0.2817e-05, 0.2940e-05, 0.2803e-05, &
0.3061e-05, 0.4235e-05, 0.6225e-05, 0.8615e-05, 0.1095e-04/
data ((c1(ip,iw),iw=1,30), ip=24,24)/ &
0.99980992, 0.99961102, 0.99922198, 0.99852699, 0.99732202, &
0.99510902, 0.99140203, 0.98550999, 0.97672999, 0.96399999, &
0.94602001, 0.92101002, 0.88709998, 0.84310001, 0.79020000, &
0.73189998, 0.67299998, 0.61619997, 0.56060004, 0.50400001, &
0.44610000, 0.38880002, 0.33530003, 0.28740001, 0.24390000, &
0.20179999, 0.16009998, 0.11979997, 0.08260000, 0.05049998/
data ((c2(ip,iw),iw=1,30), ip=24,24)/ &
-0.1529e-06, -0.2005e-06, -0.2861e-06, -0.1652e-06, -0.6334e-06, &
-0.1965e-05, -0.5437e-05, -0.1182e-04, -0.2344e-04, -0.4384e-04, &
-0.7982e-04, -0.1398e-03, -0.2321e-03, -0.3616e-03, -0.5274e-03, &
-0.7239e-03, -0.9363e-03, -0.1142e-02, -0.1328e-02, -0.1499e-02, &
-0.1645e-02, -0.1748e-02, -0.1804e-02, -0.1834e-02, -0.1867e-02, &
-0.1903e-02, -0.1914e-02, -0.1866e-02, -0.1746e-02, -0.1558e-02/
data ((c3(ip,iw),iw=1,30), ip=24,24)/ &
-0.3638e-09, -0.9313e-09, 0.1703e-08, 0.2081e-08, -0.1251e-08, &
-0.1208e-08, -0.6883e-08, -0.1608e-07, -0.4559e-07, -0.1047e-06, &
-0.2040e-06, -0.3312e-06, -0.4624e-06, -0.5198e-06, -0.4326e-06, &
-0.1452e-06, 0.3003e-06, 0.7455e-06, 0.1102e-05, 0.1470e-05, &
0.1957e-05, 0.2474e-05, 0.2691e-05, 0.2484e-05, 0.2414e-05, &
0.3232e-05, 0.5050e-05, 0.7455e-05, 0.9997e-05, 0.1217e-04/
data ((c1(ip,iw),iw=1,30), ip=25,25)/ &
0.99980998, 0.99960178, 0.99920201, 0.99852800, 0.99729002, &
0.99498200, 0.99102801, 0.98461998, 0.97465998, 0.95982999, &
0.93866003, 0.90968001, 0.87140000, 0.82340002, 0.76770002, &
0.70860004, 0.64999998, 0.59290004, 0.53610003, 0.47860003, &
0.42110002, 0.36610001, 0.31639999, 0.27200001, 0.22960001, &
0.18690002, 0.14429998, 0.10380000, 0.06739998, 0.03740001/
data ((c2(ip,iw),iw=1,30), ip=25,25)/ &
-0.1453e-06, -0.2529e-06, -0.1807e-06, -0.1109e-06, -0.4469e-06, &
-0.1885e-05, -0.4590e-05, -0.1043e-04, -0.2057e-04, -0.3951e-04, &
-0.7466e-04, -0.1356e-03, -0.2341e-03, -0.3783e-03, -0.5688e-03, &
-0.7935e-03, -0.1021e-02, -0.1219e-02, -0.1388e-02, -0.1535e-02, &
-0.1653e-02, -0.1726e-02, -0.1768e-02, -0.1813e-02, -0.1874e-02, &
-0.1925e-02, -0.1927e-02, -0.1851e-02, -0.1697e-02, -0.1478e-02/
data ((c3(ip,iw),iw=1,30), ip=25,25)/ &
-0.6257e-09, -0.1382e-08, 0.2095e-08, 0.1863e-08, -0.1834e-08, &
-0.2125e-08, -0.6985e-08, -0.1634e-07, -0.4128e-07, -0.9924e-07, &
-0.1938e-06, -0.3275e-06, -0.4556e-06, -0.5046e-06, -0.3633e-06, &
0.2484e-07, 0.6195e-06, 0.1249e-05, 0.1731e-05, 0.2053e-05, &
0.2358e-05, 0.2569e-05, 0.2342e-05, 0.1883e-05, 0.2103e-05, &
0.3570e-05, 0.5973e-05, 0.8752e-05, 0.1140e-04, 0.1328e-04/
data ((c1(ip,iw),iw=1,30), ip=26,26)/ &
0.99980712, 0.99958581, 0.99919039, 0.99854302, 0.99724799, &
0.99486500, 0.99071401, 0.98379999, 0.97279000, 0.95585001, &
0.93112999, 0.89749998, 0.85460001, 0.80320001, 0.74660003, &
0.68869996, 0.63100004, 0.57249999, 0.51320004, 0.45450002, &
0.39810002, 0.34649998, 0.30119997, 0.25950003, 0.21740001, &
0.17379999, 0.13029999, 0.08950001, 0.05400002, 0.02640003/
data ((c2(ip,iw),iw=1,30), ip=26,26)/ &
-0.1257e-06, -0.2495e-06, -0.1334e-06, -0.8414e-07, -0.1698e-06, &
-0.1346e-05, -0.3692e-05, -0.8625e-05, -0.1750e-04, -0.3483e-04, &
-0.6843e-04, -0.1305e-03, -0.2362e-03, -0.3971e-03, -0.6127e-03, &
-0.8621e-03, -0.1101e-02, -0.1297e-02, -0.1452e-02, -0.1570e-02, &
-0.1647e-02, -0.1688e-02, -0.1727e-02, -0.1797e-02, -0.1887e-02, &
-0.1947e-02, -0.1935e-02, -0.1833e-02, -0.1647e-02, -0.1401e-02/
data ((c3(ip,iw),iw=1,30), ip=26,26)/ &
-0.1222e-08, -0.1164e-09, 0.2285e-08, 0.2037e-09, 0.5675e-09, &
-0.5239e-08, -0.9211e-08, -0.1483e-07, -0.3981e-07, -0.9641e-07, &
-0.1717e-06, -0.2796e-06, -0.3800e-06, -0.3762e-06, -0.1936e-06, &
0.1920e-06, 0.8335e-06, 0.1691e-05, 0.2415e-05, 0.2767e-05, &
0.2823e-05, 0.2551e-05, 0.1839e-05, 0.1314e-05, 0.1960e-05, &
0.4003e-05, 0.6909e-05, 0.1004e-04, 0.1273e-04, 0.1423e-04/
data ((o1(ip,iw),iw=1,21), ip= 1, 1)/ &
0.99999344, 0.99998689, 0.99997336, 0.99994606, 0.99989170, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
0.99489498, 0.99144602, 0.98655999, 0.98008001, 0.97165000, &
0.96043998, 0.94527000, 0.92462999, 0.89709997, 0.86180001, &
0.81800002/
data ((o2(ip,iw),iw=1,21), ip= 1, 1)/ &
0.6531e-10, 0.5926e-10, -0.1646e-09, -0.1454e-08, -0.7376e-08, &
-0.2968e-07, -0.1071e-06, -0.3584e-06, -0.1125e-05, -0.3289e-05, &
-0.8760e-05, -0.2070e-04, -0.4259e-04, -0.7691e-04, -0.1264e-03, &
-0.1957e-03, -0.2895e-03, -0.4107e-03, -0.5588e-03, -0.7300e-03, &
-0.9199e-03/
data ((o3(ip,iw),iw=1,21), ip= 1, 1)/ &
-0.2438e-10, -0.4826e-10, -0.9474e-10, -0.1828e-09, -0.3406e-09, &
-0.6223e-09, -0.1008e-08, -0.1412e-08, -0.1244e-08, 0.8485e-09, &
0.6343e-08, 0.1201e-07, 0.2838e-08, -0.4024e-07, -0.1257e-06, &
-0.2566e-06, -0.4298e-06, -0.6184e-06, -0.7657e-06, -0.8153e-06, &
-0.7552e-06/
data ((o1(ip,iw),iw=1,21), ip= 2, 2)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
0.99489498, 0.99144298, 0.98654997, 0.98006999, 0.97162998, &
0.96042001, 0.94520003, 0.92449999, 0.89690000, 0.86140001, &
0.81739998/
data ((o2(ip,iw),iw=1,21), ip= 2, 2)/ &
0.6193e-10, 0.5262e-10, -0.1774e-09, -0.1478e-08, -0.7416e-08, &
-0.2985e-07, -0.1071e-06, -0.3584e-06, -0.1124e-05, -0.3287e-05, &
-0.8753e-05, -0.2069e-04, -0.4256e-04, -0.7686e-04, -0.1264e-03, &
-0.1956e-03, -0.2893e-03, -0.4103e-03, -0.5580e-03, -0.7285e-03, &
-0.9171e-03/
data ((o3(ip,iw),iw=1,21), ip= 2, 2)/ &
-0.2436e-10, -0.4822e-10, -0.9466e-10, -0.1827e-09, -0.3404e-09, &
-0.6220e-09, -0.1008e-08, -0.1414e-08, -0.1247e-08, 0.8360e-09, &
0.6312e-08, 0.1194e-07, 0.2753e-08, -0.4040e-07, -0.1260e-06, &
-0.2571e-06, -0.4307e-06, -0.6202e-06, -0.7687e-06, -0.8204e-06, &
-0.7636e-06/
data ((o1(ip,iw),iw=1,21), ip= 3, 3)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
0.99489301, 0.99143898, 0.98654997, 0.98005998, 0.97158998, &
0.96035999, 0.94509000, 0.92431998, 0.89660001, 0.86080003, &
0.81639999/
data ((o2(ip,iw),iw=1,21), ip= 3, 3)/ &
0.5658e-10, 0.4212e-10, -0.1977e-09, -0.1516e-08, -0.7481e-08, &
-0.2995e-07, -0.1072e-06, -0.3583e-06, -0.1123e-05, -0.3283e-05, &
-0.8744e-05, -0.2067e-04, -0.4252e-04, -0.7679e-04, -0.1262e-03, &
-0.1953e-03, -0.2889e-03, -0.4096e-03, -0.5567e-03, -0.7263e-03, &
-0.9130e-03/
data ((o3(ip,iw),iw=1,21), ip= 3, 3)/ &
-0.2433e-10, -0.4815e-10, -0.9453e-10, -0.1825e-09, -0.3400e-09, &
-0.6215e-09, -0.1007e-08, -0.1415e-08, -0.1253e-08, 0.8143e-09, &
0.6269e-08, 0.1186e-07, 0.2604e-08, -0.4067e-07, -0.1264e-06, &
-0.2579e-06, -0.4321e-06, -0.6229e-06, -0.7732e-06, -0.8277e-06, &
-0.7752e-06/
data ((o1(ip,iw),iw=1,21), ip= 4, 4)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99711901, &
0.99489301, 0.99143499, 0.98653001, 0.98003000, 0.97153997, &
0.96026999, 0.94493997, 0.92404002, 0.89609998, 0.85990000, &
0.81480002/
data ((o2(ip,iw),iw=1,21), ip= 4, 4)/ &
0.4814e-10, 0.2552e-10, -0.2298e-09, -0.1576e-08, -0.7579e-08, &
-0.3009e-07, -0.1074e-06, -0.3581e-06, -0.1122e-05, -0.3278e-05, &
-0.8729e-05, -0.2063e-04, -0.4245e-04, -0.7667e-04, -0.1260e-03, &
-0.1950e-03, -0.2883e-03, -0.4086e-03, -0.5549e-03, -0.7229e-03, &
-0.9071e-03/
data ((o3(ip,iw),iw=1,21), ip= 4, 4)/ &
-0.2428e-10, -0.4805e-10, -0.9433e-10, -0.1821e-09, -0.3394e-09, &
-0.6206e-09, -0.1008e-08, -0.1416e-08, -0.1261e-08, 0.7860e-09, &
0.6188e-08, 0.1171e-07, 0.2389e-08, -0.4109e-07, -0.1271e-06, &
-0.2591e-06, -0.4344e-06, -0.6267e-06, -0.7797e-06, -0.8378e-06, &
-0.7901e-06/
data ((o1(ip,iw),iw=1,21), ip= 5, 5)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
0.99978638, 0.99957907, 0.99918377, 0.99844402, 0.99711901, &
0.99488801, 0.99142599, 0.98650998, 0.97999001, 0.97148001, &
0.96011001, 0.94467002, 0.92356998, 0.89530003, 0.85860002, &
0.81250000/
data ((o2(ip,iw),iw=1,21), ip= 5, 5)/ &
0.3482e-10, -0.6492e-12, -0.2805e-09, -0.1671e-08, -0.7740e-08, &
-0.3032e-07, -0.1076e-06, -0.3582e-06, -0.1120e-05, -0.3270e-05, &
-0.8704e-05, -0.2058e-04, -0.4235e-04, -0.7649e-04, -0.1257e-03, &
-0.1945e-03, -0.2874e-03, -0.4070e-03, -0.5521e-03, -0.7181e-03, &
-0.8990e-03/
data ((o3(ip,iw),iw=1,21), ip= 5, 5)/ &
-0.2419e-10, -0.4788e-10, -0.9401e-10, -0.1815e-09, -0.3385e-09, &
-0.6192e-09, -0.1006e-08, -0.1417e-08, -0.1273e-08, 0.7404e-09, &
0.6068e-08, 0.1148e-07, 0.2021e-08, -0.4165e-07, -0.1281e-06, &
-0.2609e-06, -0.4375e-06, -0.6323e-06, -0.7887e-06, -0.8508e-06, &
-0.8067e-06/
data ((o1(ip,iw),iw=1,21), ip= 6, 6)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
0.99978638, 0.99957931, 0.99918377, 0.99844301, 0.99711698, &
0.99488401, 0.99141300, 0.98648000, 0.97992003, 0.97135001, &
0.95989001, 0.94428003, 0.92286998, 0.89410001, 0.85640001, &
0.80890000/
data ((o2(ip,iw),iw=1,21), ip= 6, 6)/ &
0.1388e-10, -0.4180e-10, -0.3601e-09, -0.1820e-08, -0.7993e-08, &
-0.3068e-07, -0.1081e-06, -0.3580e-06, -0.1117e-05, -0.3257e-05, &
-0.8667e-05, -0.2049e-04, -0.4218e-04, -0.7620e-04, -0.1253e-03, &
-0.1937e-03, -0.2860e-03, -0.4047e-03, -0.5481e-03, -0.7115e-03, &
-0.8885e-03/
data ((o3(ip,iw),iw=1,21), ip= 6, 6)/ &
-0.2406e-10, -0.4762e-10, -0.9351e-10, -0.1806e-09, -0.3370e-09, &
-0.6170e-09, -0.1004e-08, -0.1417e-08, -0.1297e-08, 0.6738e-09, &
0.5895e-08, 0.1113e-07, 0.1466e-08, -0.4265e-07, -0.1298e-06, &
-0.2636e-06, -0.4423e-06, -0.6402e-06, -0.8005e-06, -0.8658e-06, &
-0.8222e-06/
data ((o1(ip,iw),iw=1,21), ip= 7, 7)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989200, &
0.99978638, 0.99957931, 0.99918360, 0.99844301, 0.99711502, &
0.99487501, 0.99138802, 0.98642999, 0.97982001, 0.97114998, &
0.95954001, 0.94363999, 0.92176998, 0.89219999, 0.85329998, &
0.80379999/
data ((o2(ip,iw),iw=1,21), ip= 7, 7)/ &
-0.1889e-10, -0.1062e-09, -0.4847e-09, -0.2053e-08, -0.8389e-08, &
-0.3140e-07, -0.1089e-06, -0.3577e-06, -0.1112e-05, -0.3236e-05, &
-0.8607e-05, -0.2035e-04, -0.4192e-04, -0.7576e-04, -0.1245e-03, &
-0.1925e-03, -0.2840e-03, -0.4013e-03, -0.5427e-03, -0.7029e-03, &
-0.8756e-03/
data ((o3(ip,iw),iw=1,21), ip= 7, 7)/ &
-0.2385e-10, -0.4722e-10, -0.9273e-10, -0.1791e-09, -0.3348e-09, &
-0.6121e-09, -0.9974e-09, -0.1422e-08, -0.1326e-08, 0.5603e-09, &
0.5604e-08, 0.1061e-07, 0.6106e-09, -0.4398e-07, -0.1321e-06, &
-0.2676e-06, -0.4490e-06, -0.6507e-06, -0.8145e-06, -0.8801e-06, &
-0.8311e-06/
data ((o1(ip,iw),iw=1,21), ip= 8, 8)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989229, &
0.99978650, 0.99957931, 0.99918288, 0.99844098, 0.99711001, &
0.99486202, 0.99135500, 0.98635000, 0.97965997, 0.97083998, &
0.95898998, 0.94266999, 0.92009997, 0.88929999, 0.84860003, &
0.79640001/
data ((o2(ip,iw),iw=1,21), ip= 8, 8)/ &
-0.6983e-10, -0.2063e-09, -0.6785e-09, -0.2416e-08, -0.9000e-08, &
-0.3243e-07, -0.1100e-06, -0.3574e-06, -0.1104e-05, -0.3205e-05, &
-0.8516e-05, -0.2014e-04, -0.4151e-04, -0.7508e-04, -0.1234e-03, &
-0.1907e-03, -0.2811e-03, -0.3966e-03, -0.5355e-03, -0.6924e-03, &
-0.8613e-03/
data ((o3(ip,iw),iw=1,21), ip= 8, 8)/ &
-0.2353e-10, -0.4659e-10, -0.9153e-10, -0.1769e-09, -0.3313e-09, &
-0.6054e-09, -0.9899e-09, -0.1430e-08, -0.1375e-08, 0.3874e-09, &
0.5171e-08, 0.9807e-08, -0.7345e-09, -0.4604e-07, -0.1356e-06, &
-0.2731e-06, -0.4577e-06, -0.6632e-06, -0.8284e-06, -0.8894e-06, &
-0.8267e-06/
data ((o1(ip,iw),iw=1,21), ip= 9, 9)/ &
0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989229, &
0.99978650, 0.99957961, 0.99918252, 0.99843901, 0.99710202, &
0.99484003, 0.99130303, 0.98623002, 0.97940999, 0.97038001, &
0.95815003, 0.94119000, 0.91755998, 0.88510001, 0.84189999, &
0.78610003/
data ((o2(ip,iw),iw=1,21), ip= 9, 9)/ &
-0.1481e-09, -0.3601e-09, -0.9762e-09, -0.2973e-08, -0.1014e-07, &
-0.3421e-07, -0.1121e-06, -0.3569e-06, -0.1092e-05, -0.3156e-05, &
-0.8375e-05, -0.1981e-04, -0.4090e-04, -0.7405e-04, -0.1218e-03, &
-0.1881e-03, -0.2770e-03, -0.3906e-03, -0.5269e-03, -0.6810e-03, &
-0.8471e-03/
data ((o3(ip,iw),iw=1,21), ip= 9, 9)/ &
-0.2304e-10, -0.4564e-10, -0.8969e-10, -0.1735e-09, -0.3224e-09, &
-0.5933e-09, -0.9756e-09, -0.1428e-08, -0.1446e-08, 0.1156e-09, &
0.4499e-08, 0.8469e-08, -0.2720e-08, -0.4904e-07, -0.1401e-06, &
-0.2801e-06, -0.4681e-06, -0.6761e-06, -0.8387e-06, -0.8879e-06, &
-0.8040e-06/
data ((o1(ip,iw),iw=1,21), ip=10,10)/ &
0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989259, &
0.99978650, 0.99957931, 0.99918163, 0.99843597, 0.99709100, &
0.99480897, 0.99122101, 0.98604000, 0.97902000, 0.96965003, &
0.95684999, 0.93896997, 0.91386002, 0.87910002, 0.83249998, &
0.77200001/
data ((o2(ip,iw),iw=1,21), ip=10,10)/ &
-0.2661e-09, -0.5923e-09, -0.1426e-08, -0.3816e-08, -0.1159e-07, &
-0.3654e-07, -0.1143e-06, -0.3559e-06, -0.1074e-05, -0.3083e-05, &
-0.8159e-05, -0.1932e-04, -0.3998e-04, -0.7253e-04, -0.1194e-03, &
-0.1845e-03, -0.2718e-03, -0.3833e-03, -0.5176e-03, -0.6701e-03, &
-0.8354e-03/
data ((o3(ip,iw),iw=1,21), ip=10,10)/ &
-0.2232e-10, -0.4421e-10, -0.8695e-10, -0.1684e-09, -0.3141e-09, &
-0.5765e-09, -0.9606e-09, -0.1434e-08, -0.1551e-08, -0.2663e-09, &
0.3515e-08, 0.6549e-08, -0.5479e-08, -0.5312e-07, -0.1460e-06, &
-0.2883e-06, -0.4787e-06, -0.6863e-06, -0.8399e-06, -0.8703e-06, &
-0.7602e-06/
data ((o1(ip,iw),iw=1,21), ip=11,11)/ &
0.99999356, 0.99998701, 0.99997360, 0.99994630, 0.99989289, &
0.99978679, 0.99957907, 0.99917960, 0.99843001, 0.99707502, &
0.99475998, 0.99109501, 0.98575002, 0.97843999, 0.96855003, &
0.95494002, 0.93572998, 0.90853000, 0.87070000, 0.81970000, &
0.75380003/
data ((o2(ip,iw),iw=1,21), ip=11,11)/ &
-0.4394e-09, -0.9330e-09, -0.2086e-08, -0.5054e-08, -0.1373e-07, &
-0.3971e-07, -0.1178e-06, -0.3546e-06, -0.1049e-05, -0.2976e-05, &
-0.7847e-05, -0.1860e-04, -0.3864e-04, -0.7038e-04, -0.1162e-03, &
-0.1798e-03, -0.2654e-03, -0.3754e-03, -0.5091e-03, -0.6621e-03, &
-0.8286e-03/
data ((o3(ip,iw),iw=1,21), ip=11,11)/ &
-0.2127e-10, -0.4216e-10, -0.8300e-10, -0.1611e-09, -0.3019e-09, &
-0.5597e-09, -0.9431e-09, -0.1450e-08, -0.1694e-08, -0.7913e-09, &
0.2144e-08, 0.3990e-08, -0.9282e-08, -0.5810e-07, -0.1525e-06, &
-0.2965e-06, -0.4869e-06, -0.6894e-06, -0.8281e-06, -0.8350e-06, &
-0.6956e-06/
data ((o1(ip,iw),iw=1,21), ip=12,12)/ &
0.99999368, 0.99998701, 0.99997377, 0.99994630, 0.99989259, &
0.99978709, 0.99957848, 0.99917740, 0.99842203, 0.99704897, &
0.99468797, 0.99090999, 0.98532999, 0.97758001, 0.96693999, &
0.95213997, 0.93109000, 0.90110999, 0.85930002, 0.80290002, &
0.73019999/
data ((o2(ip,iw),iw=1,21), ip=12,12)/ &
-0.6829e-09, -0.1412e-08, -0.3014e-08, -0.6799e-08, -0.1675e-07, &
-0.4450e-07, -0.1235e-06, -0.3538e-06, -0.1014e-05, -0.2827e-05, &
-0.7407e-05, -0.1759e-04, -0.3676e-04, -0.6744e-04, -0.1120e-03, &
-0.1742e-03, -0.2585e-03, -0.3683e-03, -0.5034e-03, -0.6594e-03, &
-0.8290e-03/
data ((o3(ip,iw),iw=1,21), ip=12,12)/ &
-0.1985e-10, -0.3937e-10, -0.7761e-10, -0.1511e-09, -0.2855e-09, &
-0.5313e-09, -0.9251e-09, -0.1470e-08, -0.1898e-08, -0.1519e-08, &
0.2914e-09, 0.5675e-09, -0.1405e-07, -0.6359e-07, -0.1584e-06, &
-0.3020e-06, -0.4893e-06, -0.6821e-06, -0.8021e-06, -0.7834e-06, &
-0.6105e-06/
data ((o1(ip,iw),iw=1,21), ip=13,13)/ &
0.99999368, 0.99998701, 0.99997389, 0.99994695, 0.99989289, &
0.99978721, 0.99957782, 0.99917412, 0.99840999, 0.99701297, &
0.99458599, 0.99064600, 0.98471999, 0.97632003, 0.96464998, &
0.94819999, 0.92467999, 0.89109999, 0.84430003, 0.78139997, &
0.70070004/
data ((o2(ip,iw),iw=1,21), ip=13,13)/ &
-0.1004e-08, -0.2043e-08, -0.4239e-08, -0.9104e-08, -0.2075e-07, &
-0.5096e-07, -0.1307e-06, -0.3520e-06, -0.9671e-06, -0.2630e-05, &
-0.6825e-05, -0.1624e-04, -0.3429e-04, -0.6369e-04, -0.1069e-03, &
-0.1680e-03, -0.2520e-03, -0.3635e-03, -0.5029e-03, -0.6647e-03, &
-0.8390e-03/
data ((o3(ip,iw),iw=1,21), ip=13,13)/ &
-0.1807e-10, -0.3587e-10, -0.7085e-10, -0.1385e-09, -0.2648e-09, &
-0.4958e-09, -0.8900e-09, -0.1473e-08, -0.2112e-08, -0.2399e-08, &
-0.2002e-08, -0.3646e-08, -0.1931e-07, -0.6852e-07, -0.1618e-06, &
-0.3021e-06, -0.4828e-06, -0.6634e-06, -0.7643e-06, -0.7177e-06, &
-0.5054e-06/
data ((o1(ip,iw),iw=1,21), ip=14,14)/ &
0.99999368, 0.99998713, 0.99997389, 0.99994725, 0.99989289, &
0.99978679, 0.99957597, 0.99916971, 0.99839503, 0.99696702, &
0.99444997, 0.99028301, 0.98387003, 0.97457999, 0.96148002, &
0.94284999, 0.91613001, 0.87809998, 0.82520002, 0.75489998, &
0.66520000/
data ((o2(ip,iw),iw=1,21), ip=14,14)/ &
-0.1387e-08, -0.2798e-08, -0.5706e-08, -0.1187e-07, -0.2564e-07, &
-0.5866e-07, -0.1398e-06, -0.3516e-06, -0.9148e-06, -0.2398e-05, &
-0.6122e-05, -0.1459e-04, -0.3125e-04, -0.5923e-04, -0.1013e-03, &
-0.1620e-03, -0.2473e-03, -0.3631e-03, -0.5098e-03, -0.6800e-03, &
-0.8603e-03/
data ((o3(ip,iw),iw=1,21), ip=14,14)/ &
-0.1610e-10, -0.3200e-10, -0.6337e-10, -0.1245e-09, -0.2408e-09, &
-0.4533e-09, -0.8405e-09, -0.1464e-08, -0.2337e-08, -0.3341e-08, &
-0.4467e-08, -0.8154e-08, -0.2436e-07, -0.7128e-07, -0.1604e-06, &
-0.2945e-06, -0.4666e-06, -0.6357e-06, -0.7187e-06, -0.6419e-06, &
-0.3795e-06/
data ((o1(ip,iw),iw=1,21), ip=15,15)/ &
0.99999410, 0.99998724, 0.99997455, 0.99994725, 0.99989331, &
0.99978632, 0.99957472, 0.99916393, 0.99837703, 0.99690801, &
0.99427801, 0.98982000, 0.98277998, 0.97232002, 0.95731997, &
0.93585998, 0.90521002, 0.86180001, 0.80190003, 0.72290003, &
0.62380004/
data ((o2(ip,iw),iw=1,21), ip=15,15)/ &
-0.1788e-08, -0.3588e-08, -0.7244e-08, -0.1479e-07, -0.3083e-07, &
-0.6671e-07, -0.1497e-06, -0.3519e-06, -0.8607e-06, -0.2154e-05, &
-0.5364e-05, -0.1276e-04, -0.2785e-04, -0.5435e-04, -0.9573e-04, &
-0.1570e-03, -0.2455e-03, -0.3682e-03, -0.5253e-03, -0.7065e-03, &
-0.8938e-03/
data ((o3(ip,iw),iw=1,21), ip=15,15)/ &
-0.1429e-10, -0.2843e-10, -0.5645e-10, -0.1115e-09, -0.2181e-09, &
-0.4200e-09, -0.7916e-09, -0.1460e-08, -0.2542e-08, -0.4168e-08, &
-0.6703e-08, -0.1215e-07, -0.2821e-07, -0.7073e-07, -0.1530e-06, &
-0.2791e-06, -0.4426e-06, -0.6027e-06, -0.6707e-06, -0.5591e-06, &
-0.2328e-06/
data ((o1(ip,iw),iw=1,21), ip=16,16)/ &
0.99999434, 0.99998778, 0.99997467, 0.99994761, 0.99989331, &
0.99978602, 0.99957269, 0.99915779, 0.99835497, 0.99684399, &
0.99408400, 0.98929000, 0.98148000, 0.96954000, 0.95212001, &
0.92719001, 0.89170003, 0.84200001, 0.77420002, 0.68620002, &
0.57780004/
data ((o2(ip,iw),iw=1,21), ip=16,16)/ &
-0.2141e-08, -0.4286e-08, -0.8603e-08, -0.1737e-07, -0.3548e-07, &
-0.7410e-07, -0.1590e-06, -0.3537e-06, -0.8142e-06, -0.1935e-05, &
-0.4658e-05, -0.1099e-04, -0.2444e-04, -0.4948e-04, -0.9067e-04, &
-0.1538e-03, -0.2474e-03, -0.3793e-03, -0.5495e-03, -0.7439e-03, &
-0.9383e-03/
data ((o3(ip,iw),iw=1,21), ip=16,16)/ &
-0.1295e-10, -0.2581e-10, -0.5136e-10, -0.1019e-09, -0.2011e-09, &
-0.3916e-09, -0.7585e-09, -0.1439e-08, -0.2648e-08, -0.4747e-08, &
-0.8301e-08, -0.1499e-07, -0.3024e-07, -0.6702e-07, -0.1399e-06, &
-0.2564e-06, -0.4117e-06, -0.5669e-06, -0.6239e-06, -0.4748e-06, &
-0.7013e-07/
data ((o1(ip,iw),iw=1,21), ip=17,17)/ &
0.99999434, 0.99998778, 0.99997479, 0.99994791, 0.99989331, &
0.99978608, 0.99957120, 0.99915212, 0.99833500, 0.99677801, &
0.99388403, 0.98873001, 0.98005998, 0.96639001, 0.94606000, &
0.91689998, 0.87580001, 0.81889999, 0.74280000, 0.64559996, &
0.52869999/
data ((o2(ip,iw),iw=1,21), ip=17,17)/ &
-0.2400e-08, -0.4796e-08, -0.9599e-08, -0.1927e-07, -0.3892e-07, &
-0.7954e-07, -0.1661e-06, -0.3540e-06, -0.7780e-06, -0.1763e-05, &
-0.4092e-05, -0.9512e-05, -0.2142e-04, -0.4502e-04, -0.8640e-04, &
-0.1525e-03, -0.2526e-03, -0.3955e-03, -0.5805e-03, -0.7897e-03, &
-0.9899e-03/
data ((o3(ip,iw),iw=1,21), ip=17,17)/ &
-0.1220e-10, -0.2432e-10, -0.4845e-10, -0.9640e-10, -0.1912e-09, &
-0.3771e-09, -0.7392e-09, -0.1420e-08, -0.2702e-08, -0.5049e-08, &
-0.9214e-08, -0.1659e-07, -0.3101e-07, -0.6162e-07, -0.1235e-06, &
-0.2287e-06, -0.3755e-06, -0.5274e-06, -0.5790e-06, -0.3947e-06, &
0.1003e-06/
data ((o1(ip,iw),iw=1,21), ip=18,18)/ &
0.99999464, 0.99998808, 0.99997497, 0.99994791, 0.99989331, &
0.99978518, 0.99957031, 0.99914658, 0.99831802, 0.99671799, &
0.99370098, 0.98821002, 0.97867000, 0.96313000, 0.93948001, &
0.90534002, 0.85769999, 0.79310000, 0.70840001, 0.60290003, &
0.47930002/
data ((o2(ip,iw),iw=1,21), ip=18,18)/ &
-0.2557e-08, -0.5106e-08, -0.1020e-07, -0.2043e-07, -0.4103e-07, &
-0.8293e-07, -0.1697e-06, -0.3531e-06, -0.7531e-06, -0.1645e-05, &
-0.3690e-05, -0.8411e-05, -0.1902e-04, -0.4118e-04, -0.8276e-04, &
-0.1525e-03, -0.2601e-03, -0.4147e-03, -0.6149e-03, -0.8384e-03, &
-0.1042e-02/
data ((o3(ip,iw),iw=1,21), ip=18,18)/ &
-0.1189e-10, -0.2372e-10, -0.4729e-10, -0.9421e-10, -0.1873e-09, &
-0.3713e-09, -0.7317e-09, -0.1437e-08, -0.2764e-08, -0.5243e-08, &
-0.9691e-08, -0.1751e-07, -0.3122e-07, -0.5693e-07, -0.1076e-06, &
-0.1981e-06, -0.3324e-06, -0.4785e-06, -0.5280e-06, -0.3174e-06, &
0.2672e-06/
data ((o1(ip,iw),iw=1,21), ip=19,19)/ &
0.99999464, 0.99998820, 0.99997509, 0.99994779, 0.99989331, &
0.99978518, 0.99956989, 0.99914283, 0.99830401, 0.99667197, &
0.99355298, 0.98776001, 0.97741997, 0.96007001, 0.93285000, &
0.89310002, 0.83819997, 0.76520002, 0.67250001, 0.56000000, &
0.43199998/
data ((o2(ip,iw),iw=1,21), ip=19,19)/ &
-0.2630e-08, -0.5249e-08, -0.1048e-07, -0.2096e-07, -0.4198e-07, &
-0.8440e-07, -0.1710e-06, -0.3513e-06, -0.7326e-06, -0.1562e-05, &
-0.3416e-05, -0.7637e-05, -0.1719e-04, -0.3795e-04, -0.7926e-04, &
-0.1524e-03, -0.2680e-03, -0.4344e-03, -0.6486e-03, -0.8838e-03, &
-0.1089e-02/
data ((o3(ip,iw),iw=1,21), ip=19,19)/ &
-0.1188e-10, -0.2369e-10, -0.4725e-10, -0.9417e-10, -0.1875e-09, &
-0.3725e-09, -0.7365e-09, -0.1445e-08, -0.2814e-08, -0.5384e-08, &
-0.1008e-07, -0.1816e-07, -0.3179e-07, -0.5453e-07, -0.9500e-07, &
-0.1679e-06, -0.2819e-06, -0.4109e-06, -0.4555e-06, -0.2283e-06, &
0.4283e-06/
data ((o1(ip,iw),iw=1,21), ip=20,20)/ &
0.99999487, 0.99998832, 0.99997520, 0.99994791, 0.99989331, &
0.99978459, 0.99956900, 0.99913990, 0.99829400, 0.99663699, &
0.99344099, 0.98741001, 0.97643000, 0.95743001, 0.92672002, &
0.88099998, 0.81809998, 0.73660004, 0.63620001, 0.51880002, &
0.38880002/
data ((o2(ip,iw),iw=1,21), ip=20,20)/ &
-0.2651e-08, -0.5291e-08, -0.1056e-07, -0.2110e-07, -0.4221e-07, &
-0.8462e-07, -0.1705e-06, -0.3466e-06, -0.7155e-06, -0.1501e-05, &
-0.3223e-05, -0.7079e-05, -0.1581e-04, -0.3517e-04, -0.7553e-04, &
-0.1510e-03, -0.2746e-03, -0.4528e-03, -0.6789e-03, -0.9214e-03, &
-0.1124e-02/
data ((o3(ip,iw),iw=1,21), ip=20,20)/ &
-0.1193e-10, -0.2380e-10, -0.4748e-10, -0.9465e-10, -0.1886e-09, &
-0.3751e-09, -0.7436e-09, -0.1466e-08, -0.2872e-08, -0.5508e-08, &
-0.1038e-07, -0.1891e-07, -0.3279e-07, -0.5420e-07, -0.8711e-07, &
-0.1403e-06, -0.2248e-06, -0.3221e-06, -0.3459e-06, -0.1066e-06, &
0.5938e-06/
data ((o1(ip,iw),iw=1,21), ip=21,21)/ &
0.99999487, 0.99998873, 0.99997509, 0.99994779, 0.99989349, &
0.99978501, 0.99956918, 0.99913877, 0.99828798, 0.99661303, &
0.99335998, 0.98715001, 0.97566003, 0.95530999, 0.92153001, &
0.87000000, 0.79869998, 0.70819998, 0.60109997, 0.48110002, &
0.35140002/
data ((o2(ip,iw),iw=1,21), ip=21,21)/ &
-0.2654e-08, -0.5296e-08, -0.1057e-07, -0.2111e-07, -0.4219e-07, &
-0.8445e-07, -0.1696e-06, -0.3428e-06, -0.7013e-06, -0.1458e-05, &
-0.3084e-05, -0.6678e-05, -0.1476e-04, -0.3284e-04, -0.7173e-04, &
-0.1481e-03, -0.2786e-03, -0.4688e-03, -0.7052e-03, -0.9506e-03, &
-0.1148e-02/
data ((o3(ip,iw),iw=1,21), ip=21,21)/ &
-0.1195e-10, -0.2384e-10, -0.4755e-10, -0.9482e-10, -0.1890e-09, &
-0.3761e-09, -0.7469e-09, -0.1476e-08, -0.2892e-08, -0.5603e-08, &
-0.1060e-07, -0.1942e-07, -0.3393e-07, -0.5508e-07, -0.8290e-07, &
-0.1182e-06, -0.1657e-06, -0.2170e-06, -0.1997e-06, 0.6227e-07, &
0.7847e-06/
data ((o1(ip,iw),iw=1,21), ip=22,22)/ &
0.99999541, 0.99998873, 0.99997497, 0.99994737, 0.99989349, &
0.99978501, 0.99956882, 0.99913770, 0.99828303, 0.99659699, &
0.99330199, 0.98697001, 0.97510999, 0.95372999, 0.91742998, &
0.86080003, 0.78139997, 0.68220001, 0.56920004, 0.44809997, &
0.32080001/
data ((o2(ip,iw),iw=1,21), ip=22,22)/ &
-0.2653e-08, -0.5295e-08, -0.1057e-07, -0.2110e-07, -0.4215e-07, &
-0.8430e-07, -0.1690e-06, -0.3403e-06, -0.6919e-06, -0.1427e-05, &
-0.2991e-05, -0.6399e-05, -0.1398e-04, -0.3099e-04, -0.6824e-04, &
-0.1441e-03, -0.2795e-03, -0.4814e-03, -0.7282e-03, -0.9739e-03, &
-0.1163e-02/
data ((o3(ip,iw),iw=1,21), ip=22,22)/ &
-0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
-0.3765e-09, -0.7483e-09, -0.1481e-08, -0.2908e-08, -0.5660e-08, &
-0.1075e-07, -0.1980e-07, -0.3472e-07, -0.5626e-07, -0.8149e-07, &
-0.1027e-06, -0.1136e-06, -0.1071e-06, -0.2991e-07, 0.2743e-06, &
0.1017e-05/
data ((o1(ip,iw),iw=1,21), ip=23,23)/ &
0.99999595, 0.99998885, 0.99997479, 0.99994725, 0.99989331, &
0.99978518, 0.99956882, 0.99913692, 0.99827999, 0.99658602, &
0.99326497, 0.98685002, 0.97474003, 0.95260000, 0.91441000, &
0.85360003, 0.76719999, 0.65990001, 0.54190004, 0.42119998, &
0.29699999/
data ((o2(ip,iw),iw=1,21), ip=23,23)/ &
-0.2653e-08, -0.5294e-08, -0.1057e-07, -0.2109e-07, -0.4212e-07, &
-0.8420e-07, -0.1686e-06, -0.3388e-06, -0.6858e-06, -0.1406e-05, &
-0.2928e-05, -0.6206e-05, -0.1344e-04, -0.2961e-04, -0.6533e-04, &
-0.1399e-03, -0.2780e-03, -0.4904e-03, -0.7488e-03, -0.9953e-03, &
-0.1175e-02/
data ((o3(ip,iw),iw=1,21), ip=23,23)/ &
-0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
-0.3767e-09, -0.7492e-09, -0.1485e-08, -0.2924e-08, -0.5671e-08, &
-0.1084e-07, -0.2009e-07, -0.3549e-07, -0.5773e-07, -0.8208e-07, &
-0.9394e-07, -0.7270e-07, -0.3947e-08, 0.1456e-06, 0.5083e-06, &
0.1270e-05/
data ((o1(ip,iw),iw=1,21), ip=24,24)/ &
0.99999630, 0.99998873, 0.99997401, 0.99994725, 0.99989349, &
0.99978501, 0.99956959, 0.99913663, 0.99827701, 0.99658000, &
0.99324101, 0.98676997, 0.97447002, 0.95185000, 0.91232002, &
0.84850001, 0.75660002, 0.64230001, 0.52030003, 0.40090001, &
0.27980000/
data ((o2(ip,iw),iw=1,21), ip=24,24)/ &
-0.2653e-08, -0.5294e-08, -0.1056e-07, -0.2109e-07, -0.4210e-07, &
-0.8413e-07, -0.1684e-06, -0.3379e-06, -0.6820e-06, -0.1393e-05, &
-0.2889e-05, -0.6080e-05, -0.1307e-04, -0.2861e-04, -0.6310e-04, &
-0.1363e-03, -0.2758e-03, -0.4969e-03, -0.7681e-03, -0.1017e-02, &
-0.1186e-02/
data ((o3(ip,iw),iw=1,21), ip=24,24)/ &
-0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
-0.3768e-09, -0.7497e-09, -0.1487e-08, -0.2933e-08, -0.5710e-08, &
-0.1089e-07, -0.2037e-07, -0.3616e-07, -0.5907e-07, -0.8351e-07, &
-0.8925e-07, -0.4122e-07, 0.8779e-07, 0.3143e-06, 0.7281e-06, &
0.1500e-05/
data ((o1(ip,iw),iw=1,21), ip=25,25)/ &
0.99999648, 0.99998897, 0.99997377, 0.99994749, 0.99989331, &
0.99978501, 0.99956989, 0.99913692, 0.99827600, 0.99657297, &
0.99322498, 0.98672003, 0.97431999, 0.95137000, 0.91095001, &
0.84500003, 0.74909997, 0.62979996, 0.50510001, 0.38679999, &
0.26789999/
data ((o2(ip,iw),iw=1,21), ip=25,25)/ &
-0.2653e-08, -0.5293e-08, -0.1056e-07, -0.2108e-07, -0.4209e-07, &
-0.8409e-07, -0.1682e-06, -0.3373e-06, -0.6797e-06, -0.1383e-05, &
-0.2862e-05, -0.5993e-05, -0.1283e-04, -0.2795e-04, -0.6158e-04, &
-0.1338e-03, -0.2743e-03, -0.5030e-03, -0.7863e-03, -0.1038e-02, &
-0.1196e-02/
data ((o3(ip,iw),iw=1,21), ip=25,25)/ &
-0.1195e-10, -0.2383e-10, -0.4755e-10, -0.9484e-10, -0.1891e-09, &
-0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2939e-08, -0.5741e-08, &
-0.1100e-07, -0.2066e-07, -0.3660e-07, -0.6002e-07, -0.8431e-07, &
-0.8556e-07, -0.1674e-07, 0.1638e-06, 0.4525e-06, 0.8949e-06, &
0.1669e-05/
data ((o1(ip,iw),iw=1,21), ip=26,26)/ &
0.99999672, 0.99998909, 0.99997377, 0.99994695, 0.99989349, &
0.99978518, 0.99956989, 0.99913692, 0.99827498, 0.99657100, &
0.99321902, 0.98668998, 0.97421002, 0.95106000, 0.91009998, &
0.84280002, 0.74430001, 0.62180001, 0.49519998, 0.37800002, &
0.25999999/
data ((o2(ip,iw),iw=1,21), ip=26,26)/ &
-0.2652e-08, -0.5292e-08, -0.1056e-07, -0.2108e-07, -0.4208e-07, &
-0.8406e-07, -0.1681e-06, -0.3369e-06, -0.6784e-06, -0.1378e-05, &
-0.2843e-05, -0.5944e-05, -0.1269e-04, -0.2759e-04, -0.6078e-04, &
-0.1326e-03, -0.2742e-03, -0.5088e-03, -0.8013e-03, -0.1054e-02, &
-0.1202e-02/
data ((o3(ip,iw),iw=1,21), ip=26,26)/ &
-0.1194e-10, -0.2383e-10, -0.4754e-10, -0.9482e-10, -0.1891e-09, &
-0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2941e-08, -0.5752e-08, &
-0.1104e-07, -0.2069e-07, -0.3661e-07, -0.6012e-07, -0.8399e-07, &
-0.8183e-07, 0.1930e-08, 0.2167e-06, 0.5434e-06, 0.9990e-06, &
0.1787e-05/
do k=1,np
do i=1,m
pa(i,k)=0.5*(pl(i,k)+pl(i,k+1))
dt(i,k)=ta(i,k)-250.0
enddo
enddo
do k=1,np
do i=1,m
dp (i,k) = pl(i,k+1)-pl(i,k)
dh2o (i,k) = 1.02*wa(i,k)*dp(i,k)+1.e-10
do3 (i,k) = 476.*oa(i,k)*dp(i,k)+1.e-10
dco2 (i,k) = 789.*co2*dp(i,k)+1.e-10
dch4 (i,k) = 789.*ch4*dp(i,k)+1.e-10
dn2o (i,k) = 789.*n2o*dp(i,k)+1.e-10
df11 (i,k) = 789.*cfc11*dp(i,k)+1.e-10
df12 (i,k) = 789.*cfc12*dp(i,k)+1.e-10
df22 (i,k) = 789.*cfc22*dp(i,k)+1.e-10
xx=pa(i,k)*0.001618*wa(i,k)*wa(i,k)*dp(i,k)
dcont(i,k) = xx*exp(1800./ta(i,k)-6.081)+1.e-10
enddo
enddo
if (high) then
call column(m,np,pa,dt,dh2o,sh2o,swpre,swtem)
endif
if (cldwater) then
do k=1,np
do i=1,m
xx=1.02*10000.*(pl(i,k+1)-pl(i,k))
cwp(i,k,1)=xx*cwc(i,k,1)
cwp(i,k,2)=xx*cwc(i,k,2)
cwp(i,k,3)=xx*cwc(i,k,3)
enddo
enddo
endif
do i=1,m
sfcem(i) =0.0
transfc(i,np+1)=1.0
trantcr(i,np+1)=1.0
enddo
do k=1,np+1
do i=1,m
flx(i,k) = 0.0
flc(i,k) = 0.0
dfdts(i,k)= 0.0
rflx(i,k) = 0.0
rflc(i,k) = 0.0
acflxu(i,k) = 0.0
acflxd(i,k) = 0.0
enddo
enddo
do 1000 ibn=1,ib_lw
h2otbl=high.and.(ibn.eq.1.or.ibn.eq.2.or.ibn.eq.8)
conbnd=ibn.ge.3.and.ibn.le.7
co2bnd=ibn.eq.3
oznbnd=ibn.eq.5
n2obnd=ibn.eq.6.or.ibn.eq.7
ch4bnd=ibn.eq.6.or.ibn.eq.7
combnd=ibn.eq.4.or.ibn.eq.5
f11bnd=ibn.eq.4.or.ibn.eq.5
f12bnd=ibn.eq.4.or.ibn.eq.6
f22bnd=ibn.eq.4.or.ibn.eq.6
b10bnd=ibn.eq.10
if (.not. b10bnd .or. trace) then
do k=1,np
do i=1,m
blayer(i,k)=ta(i,k)*(ta(i,k)*(ta(i,k)*(ta(i,k) &
*(ta(i,k)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
+cb(3,ibn))+cb(2,ibn))+cb(1,ibn)
enddo
enddo
do i=1,m
blayer(i,np+1)=(ts(i)*(ts(i)*(ts(i)*(ts(i) &
*(ts(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
+cb(3,ibn))+cb(2,ibn))+cb(1,ibn))*emiss(i,ibn)
blayer(i,0) = 0.0
dbs(i)=(ts(i)*(ts(i)*(ts(i)*(ts(i)*5.*cb(6,ibn)+4.*cb(5,ibn)) &
+3.*cb(4,ibn))+2.*cb(3,ibn))+cb(2,ibn))*emiss(i,ibn)
enddo
do k=1,np+1
do i=1,m
dblayr(i,k)=blayer(i,k-1)-blayer(i,k)
enddo
enddo
do k=2,np
do i=1,m
blevel(i,k)=(blayer(i,k-1)*dp(i,k)+blayer(i,k)*dp(i,k-1))/ &
(dp(i,k-1)+dp(i,k))
enddo
enddo
do i=1,m
blevel(i,1)=blayer(i,1)+(blayer(i,1)-blayer(i,2))*dp(i,1)/ &
(dp(i,1)+dp(i,2))
blevel(i,np+1)=tb(i)*(tb(i)*(tb(i)*(tb(i) &
*(tb(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
+cb(3,ibn))+cb(2,ibn))+cb(1,ibn)
enddo
if (high .and. co2bnd) then
call column(m,np,pa,dt,dco2,sco3,scopre,scotem)
endif
if (oznbnd) then
call column(m,np,pa,dt,do3,sco3,scopre,scotem)
endif
if (cldwater) then
do k=1,np
do i=1,m
taucl(i,k,1)=cwp(i,k,1)*(aib(1,ibn)+aib(2,ibn)/ &
reff(i,k,1)**aib(3,ibn))
taucl(i,k,2)=cwp(i,k,2)*(awb(1,ibn)+(awb(2,ibn)+ &
(awb(3,ibn)+awb(4,ibn)*reff(i,k,2))*reff(i,k,2)) &
*reff(i,k,2))
taucl(i,k,3)=0.00307*cwp(i,k,3)
enddo
enddo
endif
do k=1,np
do i=1,m
tcldlyr(i,k) = 1.0
taux=taucl(i,k,1)+taucl(i,k,2)+taucl(i,k,3)
if (taux.gt.0.02 .and. fcld(i,k).gt.0.01) then
reff1=min(reff(i,k,1),150._fp_kind)
reff2=min(reff(i,k,2),20.0_fp_kind)
w1=taucl(i,k,1)*(aiw(1,ibn)+(aiw(2,ibn)+(aiw(3,ibn) &
+aiw(4,ibn)*reff1)*reff1)*reff1)
w2=taucl(i,k,2)*(aww(1,ibn)+(aww(2,ibn)+(aww(3,ibn) &
+aww(4,ibn)*reff2)*reff2)*reff2)
w3=taucl(i,k,3)*0.54
ww=(w1+w2+w3)/taux
g1=w1*(aig(1,ibn)+(aig(2,ibn)+(aig(3,ibn) &
+aig(4,ibn)*reff1)*reff1)*reff1)
g2=w2*(awg(1,ibn)+(awg(2,ibn)+(awg(3,ibn) &
+awg(4,ibn)*reff2)*reff2)*reff2)
g3=w3*0.95
gg=(g1+g2+g3)/(w1+w2+w3)
ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg
taux=taux*(1.-ww*ff)
tauxa=max(0._fp_kind,1.66*taux)
tcldlyr(i,k)=0.
if(tauxa.lt.80.)tcldlyr(i,k)=exp(-tauxa)
endif
enddo
enddo
do k=1,np
do i=1,m
taerlyr(i,k)=1.0
if (taual(i,k,ibn).gt.0.01) then
ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,k,ibn)) &
*asyal(i,k,ibn))*asyal(i,k,ibn)
taux=taual(i,k,ibn)*(1.-ssaal(i,k,ibn)*ff)
taerlyr(i,k)=exp(-1.66*taux)
endif
enddo
enddo
if (.not.h2otbl .and. .not.b10bnd) then
call h2oexps(ibn,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
endif
if (conbnd) then
call conexps(ibn,m,np,dcont,xke,conexp)
endif
if (.not.high .and. co2bnd) then
call co2exps(m,np,dco2,pa,dt,co2exp)
endif
if (trace) then
if (n2obnd) then
call n2oexps(ibn,m,np,dn2o,pa,dt,n2oexp)
endif
if (ch4bnd) then
call ch4exps(ibn,m,np,dch4,pa,dt,ch4exp)
endif
if (combnd) then
call comexps(ibn,m,np,dco2,dt,comexp)
endif
if (f11bnd) then
a1 = 1.26610e-3
b1 = 3.55940e-6
fk1 = 1.89736e+1
a2 = 8.19370e-4
b2 = 4.67810e-6
fk2 = 1.01487e+1
call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp)
endif
if (f12bnd) then
a1 = 8.77370e-4
b1 =-5.88440e-6
fk1 = 1.58104e+1
a2 = 8.62000e-4
b2 =-4.22500e-6
fk2 = 3.70107e+1
call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp)
endif
if (f22bnd) then
a1 = 9.65130e-4
b1 = 1.31280e-5
fk1 = 6.18536e+0
a2 =-3.00010e-5
b2 = 5.25010e-7
fk2 = 3.27912e+1
call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp)
endif
if (b10bnd) then
call b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt &
,h2oexp,conexp,co2exp,n2oexp)
endif
endif
do k=1,np+1
do i=1,m
flxu(i,k) = 0.0
flxd(i,k) = 0.0
flcu(i,k) = 0.0
flcd(i,k) = 0.0
enddo
enddo
do 2000 k1=1,np
do i=1,m
it(i) = 0
im(i) = 0
ib(i) = 0
cldlw(i) = 0.0
cldmd(i) = 0.0
cldhi(i) = 0.0
tranal(i)= 1.0
enddo
if (.not. h2otbl) then
do ik=1,6
do i=1,m
th2o(i,ik)=1.0
enddo
enddo
endif
do iq=1,3
do i=1,m
tcon(i,iq)=1.0
enddo
enddo
if (.not.high .and. co2bnd) then
do isb=1,2
do ik=1,6
do i=1,m
tco2(i,ik,isb)=1.0
enddo
enddo
enddo
endif
if (trace) then
if (n2obnd) then
do ik=1,4
do i=1,m
tn2o(i,ik)=1.0
enddo
enddo
endif
if (ch4bnd) then
do ik=1,4
do i=1,m
tch4(i,ik)=1.0
enddo
enddo
endif
if (combnd) then
do ik=1,6
do i=1,m
tcom(i,ik)=1.0
enddo
enddo
endif
if (f11bnd) then
do i=1,m
tf11(i)=1.0
enddo
endif
if (f12bnd) then
do i=1,m
tf12(i)=1.0
enddo
endif
if (f22bnd) then
do i=1,m
tf22(i)=1.0
enddo
endif
if (b10bnd) then
do ik=1,5
do i=1,m
th2o(i,ik)=1.0
enddo
enddo
do ik=1,6
do i=1,m
tco2(i,ik,1)=1.0
enddo
enddo
do i=1,m
tcon(i,1)=1.0
enddo
do ik=1,2
do i=1,m
tn2o(i,ik)=1.0
enddo
enddo
endif
endif
do i=1,m
fclr(i)=1.0
enddo
do 3000 k2=k1+1,np+1
do i=1,m
trant(i)=1.0
enddo
if (h2otbl) then
w1=-8.0
p1=-2.0
dwe=0.3
dpe=0.2
if (ibn.eq.1) then
call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
w1,p1,dwe,dpe,h11,h12,h13,trant)
endif
if (ibn.eq.2) then
call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
w1,p1,dwe,dpe,h21,h22,h23,trant)
endif
if (ibn.eq.8) then
call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
w1,p1,dwe,dpe,h81,h82,h83,trant)
endif
else
if (.not.b10bnd) then
call h2okdis(ibn,m,np,k2-1,fkw,gkw,ne,h2oexp,conexp, &
th2o,tcon,trant)
endif
endif
if (co2bnd) then
if (high) then
w1=-4.0
p1=-2.0
dwe=0.3
dpe=0.2
call tablup(k1,k2,m,np,nx2,nc,sco3,scopre,scotem, &
w1,p1,dwe,dpe,c1,c2,c3,trant)
else
call co2kdis(m,np,k2-1,co2exp,tco2,trant)
endif
endif
if (oznbnd) then
w1=-6.0
p1=-2.0
dwe=0.3
dpe=0.2
call tablup(k1,k2,m,np,nx2,no,sco3,scopre,scotem, &
w1,p1,dwe,dpe,o1,o2,o3,trant)
endif
if (trace) then
if (n2obnd) then
call n2okdis(ibn,m,np,k2-1,n2oexp,tn2o,trant)
endif
if (ch4bnd) then
call ch4kdis(ibn,m,np,k2-1,ch4exp,tch4,trant)
endif
if (combnd) then
call comkdis(ibn,m,np,k2-1,comexp,tcom,trant)
endif
if (f11bnd) then
call cfckdis(m,np,k2-1,f11exp,tf11,trant)
endif
if (f12bnd) then
call cfckdis(m,np,k2-1,f12exp,tf12,trant)
endif
if (f22bnd) then
call cfckdis(m,np,k2-1,f22exp,tf22,trant)
endif
if (b10bnd) then
call b10kdis(m,np,k2-1,h2oexp,conexp,co2exp,n2oexp &
,th2o,tcon,tco2,tn2o,trant)
endif
endif
do i=1,m
tranal(i)=tranal(i)*taerlyr(i,k2-1)
trant (i)=trant(i) *tranal(i)
enddo
if (.not. overcast) then
call cldovlp (m,np,k2,ict,icb,it,im,ib, &
cldhi,cldmd,cldlw,fcld,tcldlyr,fclr)
else
do i=1,m
fclr(i)=fclr(i)*tcldlyr(i,k2-1)
enddo
endif
if (.not. b10bnd) then
if (k2 .eq. k1+1) then
do i=1,m
yy=min(0.999_fp_kind,trant(i))
yy=max(0.001_fp_kind,yy)
xx=(blevel(i,k1)-blevel(i,k2))/ log(yy)
bu=(blevel(i,k1)-blevel(i,k2)*yy)/(1.0-yy)+xx
bd=(blevel(i,k2)-blevel(i,k1)*yy)/(1.0-yy)-xx
flcu(i,k1)=flcu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)
flcd(i,k2)=flcd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)
flxu(i,k1)=flxu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)*fclr(i)
flxd(i,k2)=flxd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)*fclr(i)
enddo
else
do i=1,m
xx=trant(i)*dblayr(i,k2)
flcu(i,k1) =flcu(i,k1)+xx
flxu(i,k1) =flxu(i,k1)+xx*fclr(i)
xx=trant(i)*dblayr(i,k1)
flcd(i,k2) =flcd(i,k2)+xx
flxd(i,k2) =flxd(i,k2)+xx*fclr(i)
enddo
endif
else
do i=1,m
rflx(i,k1) = rflx(i,k1)+trant(i)*fclr(i)*dblayr(i,k2)
rflx(i,k2) = rflx(i,k2)+trant(i)*fclr(i)*dblayr(i,k1)
rflc(i,k1) = rflc(i,k1)+trant(i)*dblayr(i,k2)
rflc(i,k2) = rflc(i,k2)+trant(i)*dblayr(i,k1)
enddo
endif
3000 continue
do i=1,m
trantcr(i,k1) =trant(i)
transfc(i,k1) =trant(i)*fclr(i)
enddo
do i=1,m
dfdts(i,k1) =dfdts(i,k1)-dbs(i)*transfc(i,k1)
enddo
2000 continue
if (.not. b10bnd) then
do i=1,m
flcu(i,np+1)=-blayer(i,np+1)
flxu(i,np+1)=-blayer(i,np+1)
sfcem(i)=sfcem(i)-blayer(i,np+1)
dfdts(i,np+1)=dfdts(i,np+1)-dbs(i)
enddo
do k=1,np+1
do i=1,m
flcu(i,k)=flcu(i,k)- &
flcd(i,np+1)*trantcr(i,k)*(1.-emiss(i,ibn))
flxu(i,k)=flxu(i,k)- &
flxd(i,np+1)*transfc(i,k)*(1.-emiss(i,ibn))
enddo
enddo
endif
do k=1,np+1
do i=1,m
flc(i,k)=flc(i,k)+flcd(i,k)+flcu(i,k)
flx(i,k)=flx(i,k)+flxd(i,k)+flxu(i,k)
acflxu(i,k)=acflxu(i,k)+flxu(i,k)
acflxd(i,k)=acflxd(i,k)+flxd(i,k)
enddo
enddo
if (b10bnd) then
do k=1,np+1
do i=1,m
flc(i,k)=flc(i,k)+rflc(i,k)
flx(i,k)=flx(i,k)+rflx(i,k)
if(rflx(i,k).ge.0.0) acflxd(i,k)=acflxd(i,k)+rflx(i,k)
if(rflx(i,k).lt.0.0) acflxu(i,k)=acflxu(i,k)+rflx(i,k)
enddo
enddo
endif
endif
1000 continue
return
end subroutine lwrad
subroutine column (m,np,pa,dt,sabs0,sabs,spre,stem)
implicit none
integer m,np,i,k
real(Kind=fp_kind) pa(m,np),dt(m,np),sabs0(m,np)
real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1)
do i=1,m
sabs(i,1)=0.0
spre(i,1)=0.0
stem(i,1)=0.0
enddo
do k=1,np
do i=1,m
sabs(i,k+1)=sabs(i,k)+sabs0(i,k)
spre(i,k+1)=spre(i,k)+pa(i,k)*sabs0(i,k)
stem(i,k+1)=stem(i,k)+dt(i,k)*sabs0(i,k)
enddo
enddo
return
end subroutine column
subroutine h2oexps(ib,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
implicit none
integer ib,m,np,i,k,ik
real(Kind=fp_kind) dh2o(m,np),pa(m,np),dt(m,np)
real(Kind=fp_kind) h2oexp(m,np,6)
integer mw(9)
real(Kind=fp_kind) xkw(9),aw(9),bw(9),pm(9)
real(Kind=fp_kind) xh
do k=1,np
do i=1,m
xh = dh2o(i,k)*(pa(i,k)/500.)**pm(ib) &
* ( 1.+(aw(ib)+bw(ib)* dt(i,k))*dt(i,k) )
h2oexp(i,k,1) = exp(-xh*xkw(ib))
enddo
enddo
if (mw(ib).eq.6) then
do ik=2,6
do k=1,np
do i=1,m
xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.1.e-4)xh=0.
h2oexp(i,k,ik) = xh*xh*xh
enddo
enddo
enddo
elseif (mw(ib).eq.8) then
do ik=2,6
do k=1,np
do i=1,m
xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.1.e-3)xh=0.
xh = xh*xh
h2oexp(i,k,ik) = xh*xh
enddo
enddo
enddo
elseif (mw(ib).eq.9) then
do ik=2,6
do k=1,np
do i=1,m
xh=h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.1.e-4)xh=0.
h2oexp(i,k,ik) = xh*xh*xh
enddo
enddo
enddo
else
do ik=2,6
do k=1,np
do i=1,m
xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.2.e-2)xh=0.
xh = xh*xh
xh = xh*xh
h2oexp(i,k,ik) = xh*xh
enddo
enddo
enddo
endif
return
end subroutine h2oexps
subroutine conexps(ib,m,np,dcont,xke,conexp)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) dcont(m,np)
real(Kind=fp_kind) conexp(m,np,3)
real(Kind=fp_kind) xke(9)
do k=1,np
do i=1,m
conexp(i,k,1) = exp(-dcont(i,k)*xke(ib))
enddo
enddo
if (ib .eq. 3) then
do k=1,np
do i=1,m
conexp(i,k,2) = conexp(i,k,1) *conexp(i,k,1)
conexp(i,k,3) = conexp(i,k,2) *conexp(i,k,2)
enddo
enddo
endif
return
end subroutine conexps
subroutine co2exps(m,np,dco2,pa,dt,co2exp)
implicit none
integer m,np,i,k
real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np)
real(Kind=fp_kind) co2exp(m,np,6,2)
real(Kind=fp_kind) xc
do k=1,np
do i=1,m
xc = dco2(i,k)*(pa(i,k)/300.0)**0.5 &
*(1.+(0.0182+1.07e-4*dt(i,k))*dt(i,k))
co2exp(i,k,1,1)=exp(-xc*2.656e-5)
xc=co2exp(i,k,1,1)*co2exp(i,k,1,1)
xc=xc*xc
co2exp(i,k,2,1)=xc*xc
xc=co2exp(i,k,2,1)*co2exp(i,k,2,1)
xc=xc*xc
co2exp(i,k,3,1)=xc*xc
xc=co2exp(i,k,3,1)*co2exp(i,k,3,1)
xc=xc*xc
co2exp(i,k,4,1)=xc*xc
xc=co2exp(i,k,4,1)*co2exp(i,k,4,1)
xc=xc*xc
co2exp(i,k,5,1)=xc*xc
xc=co2exp(i,k,5,1)*co2exp(i,k,5,1)
xc=xc*xc
co2exp(i,k,6,1)=xc*xc
xc = dco2(i,k)*(pa(i,k)/30.0)**0.85 &
*(1.+(0.0042+2.00e-5*dt(i,k))*dt(i,k))
co2exp(i,k,1,2)=exp(-xc*2.656e-3)
xc=co2exp(i,k,1,2)*co2exp(i,k,1,2)
xc=xc*xc
co2exp(i,k,2,2)=xc*xc
xc=co2exp(i,k,2,2)*co2exp(i,k,2,2)
xc=xc*xc
co2exp(i,k,3,2)=xc*xc
xc=co2exp(i,k,3,2)*co2exp(i,k,3,2)
xc=xc*xc
co2exp(i,k,4,2)=xc*xc
xc=co2exp(i,k,4,2)*co2exp(i,k,4,2)
xc=xc*xc
co2exp(i,k,5,2)=xc*xc
xc=co2exp(i,k,5,2)*co2exp(i,k,5,2)
xc=xc*xc
co2exp(i,k,6,2)=xc*xc
enddo
enddo
return
end subroutine co2exps
subroutine n2oexps(ib,m,np,dn2o,pa,dt,n2oexp)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) dn2o(m,np),pa(m,np),dt(m,np)
real(Kind=fp_kind) n2oexp(m,np,4)
real(Kind=fp_kind) xc,xc1,xc2
do k=1,np
do i=1,m
if (ib.eq.6) then
xc=dn2o(i,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,k))*dt(i,k))
n2oexp(i,k,1)=exp(-xc*6.31582e-2)
xc=n2oexp(i,k,1)*n2oexp(i,k,1)*n2oexp(i,k,1)
xc1=xc*xc
xc2=xc1*xc1
n2oexp(i,k,2)=xc*xc1*xc2
else
xc=dn2o(i,k)*(pa(i,k)/500.0)**0.48 &
*(1.+(1.3804e-3+7.4838e-6*dt(i,k))*dt(i,k))
n2oexp(i,k,1)=exp(-xc*5.35779e-2)
xc=n2oexp(i,k,1)*n2oexp(i,k,1)
xc=xc*xc
n2oexp(i,k,2)=xc*xc
xc=n2oexp(i,k,2)*n2oexp(i,k,2)
xc=xc*xc
n2oexp(i,k,3)=xc*xc
xc=n2oexp(i,k,3)*n2oexp(i,k,3)
xc=xc*xc
n2oexp(i,k,4)=xc*xc
endif
enddo
enddo
return
end subroutine n2oexps
subroutine ch4exps(ib,m,np,dch4,pa,dt,ch4exp)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) dch4(m,np),pa(m,np),dt(m,np)
real(Kind=fp_kind) ch4exp(m,np,4)
real(Kind=fp_kind) xc
do k=1,np
do i=1,m
if (ib.eq.6) then
xc=dch4(i,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,k))*dt(i,k))
ch4exp(i,k,1)=exp(-xc*5.80708e-3)
else
xc=dch4(i,k)*(pa(i,k)/500.0)**0.65 &
*(1.+(5.9590e-4-2.2931e-6*dt(i,k))*dt(i,k))
ch4exp(i,k,1)=exp(-xc*6.29247e-2)
xc=ch4exp(i,k,1)*ch4exp(i,k,1)*ch4exp(i,k,1)
xc=xc*xc
ch4exp(i,k,2)=xc*xc
xc=ch4exp(i,k,2)*ch4exp(i,k,2)*ch4exp(i,k,2)
xc=xc*xc
ch4exp(i,k,3)=xc*xc
xc=ch4exp(i,k,3)*ch4exp(i,k,3)*ch4exp(i,k,3)
xc=xc*xc
ch4exp(i,k,4)=xc*xc
endif
enddo
enddo
return
end subroutine ch4exps
subroutine comexps(ib,m,np,dcom,dt,comexp)
implicit none
integer ib,m,np,i,k,ik
real(Kind=fp_kind) dcom(m,np),dt(m,np)
real(Kind=fp_kind) comexp(m,np,6)
real(Kind=fp_kind) xc
do k=1,np
do i=1,m
if (ib.eq.4) then
xc=dcom(i,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,k))*dt(i,k))
endif
if (ib.eq.5) then
xc=dcom(i,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,k))*dt(i,k))
endif
comexp(i,k,1)=exp(-xc*1.922e-7)
do ik=2,6
xc=comexp(i,k,ik-1)*comexp(i,k,ik-1)
xc=xc*xc
comexp(i,k,ik)=xc*comexp(i,k,ik-1)
enddo
enddo
enddo
return
end subroutine comexps
subroutine cfcexps(ib,m,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) dcfc(m,np),dt(m,np)
real(Kind=fp_kind) cfcexp(m,np)
real(Kind=fp_kind) a1,b1,fk1,a2,b2,fk2
real(Kind=fp_kind) xf
do k=1,np
do i=1,m
if (ib.eq.4) then
xf=dcfc(i,k)*(1.+(a1+b1*dt(i,k))*dt(i,k))
cfcexp(i,k)=exp(-xf*fk1)
else
xf=dcfc(i,k)*(1.+(a2+b2*dt(i,k))*dt(i,k))
cfcexp(i,k)=exp(-xf*fk2)
endif
enddo
enddo
return
end subroutine cfcexps
subroutine b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt &
,h2oexp,conexp,co2exp,n2oexp)
implicit none
integer m,np,i,k
real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dn2o(m,np)
real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np)
real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) &
,n2oexp(m,np,4)
real(Kind=fp_kind) xx,xx1,xx2,xx3
do k=1,np
do i=1,m
xx=dh2o(i,k)*(pa(i,k)/500.0) &
*(1.+(0.0149+6.20e-5*dt(i,k))*dt(i,k))
h2oexp(i,k,1)=exp(-xx*0.10624)
xx=h2oexp(i,k,1)*h2oexp(i,k,1)
xx=xx*xx
h2oexp(i,k,2)=xx*xx
xx=h2oexp(i,k,2)*h2oexp(i,k,2)
xx=xx*xx
h2oexp(i,k,3)=xx*xx
xx=h2oexp(i,k,3)*h2oexp(i,k,3)
xx=xx*xx
h2oexp(i,k,4)=xx*xx
xx=h2oexp(i,k,4)*h2oexp(i,k,4)
xx=xx*xx
h2oexp(i,k,5)=xx*xx
xx=h2oexp(i,k,5)*h2oexp(i,k,5)
xx=xx*xx
xx=dco2(i,k)*(pa(i,k)/300.0)**0.5 &
*(1.+(0.0179+1.02e-4*dt(i,k))*dt(i,k))
co2exp(i,k,1,1)=exp(-xx*2.656e-5)
xx=co2exp(i,k,1,1)*co2exp(i,k,1,1)
xx=xx*xx
co2exp(i,k,2,1)=xx*xx
xx=co2exp(i,k,2,1)*co2exp(i,k,2,1)
xx=xx*xx
co2exp(i,k,3,1)=xx*xx
xx=co2exp(i,k,3,1)*co2exp(i,k,3,1)
xx=xx*xx
co2exp(i,k,4,1)=xx*xx
xx=co2exp(i,k,4,1)*co2exp(i,k,4,1)
xx=xx*xx
co2exp(i,k,5,1)=xx*xx
xx=co2exp(i,k,5,1)*co2exp(i,k,5,1)
xx=xx*xx
co2exp(i,k,6,1)=xx*xx
conexp(i,k,1)=exp(-dcont(i,k)*1.04995e+2)
xx=dn2o(i,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,k))*dt(i,k))
n2oexp(i,k,1)=exp(-xx*0.25238)
xx=n2oexp(i,k,1)*n2oexp(i,k,1)
xx1=xx*xx
xx1=xx1*xx1
xx2=xx1*xx1
xx3=xx2*xx2
n2oexp(i,k,2)=xx*xx1*xx2*xx3
enddo
enddo
return
end subroutine b10exps
subroutine tablup(k1,k2,m,np,nx,nh,sabs,spre,stem,w1,p1, &
dwe,dpe,coef1,coef2,coef3,tran)
implicit none
integer k1,k2,m,np,nx,nh,i
real(Kind=fp_kind) w1,p1,dwe,dpe
real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1)
real(Kind=fp_kind) coef1(nx,nh),coef2(nx,nh),coef3(nx,nh)
real(Kind=fp_kind) tran(m)
real(Kind=fp_kind) x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2,xxx
integer iw,ip
do i=1,m
x1=sabs(i,k2)-sabs(i,k1)
we=(log10(x1)-w1)/dwe
if (we .ge. (w1-2.)) then
x2=(spre(i,k2)-spre(i,k1))/x1
x3=(stem(i,k2)-stem(i,k1))/x1
pe=(log10(x2)-p1)/dpe
xxx=real(nh-1)
we=min(we,xxx)
pe=max(pe,0.0_fp_kind)
xxx=real(nx-1)
pe=min(pe,xxx)
iw=int(we+1.0)
iw=min(iw,nh-1)
iw=max(iw, 2)
fw=we-float(iw-1)
ip=int(pe+1.0)
ip=min(ip,nx-1)
ip=max(ip, 1)
fp=pe-float(ip-1)
pa = coef1(ip,iw-1)*(1.-fp)+coef1(ip+1,iw-1)*fp
pb = coef1(ip, iw)*(1.-fp)+coef1(ip+1, iw)*fp
pc = coef1(ip,iw+1)*(1.-fp)+coef1(ip+1,iw+1)*fp
ax = (-pa*(1.-fw)+pc*(1.+fw)) *fw*0.5 + pb*(1.-fw*fw)
ba = coef2(ip, iw)*(1.-fp)+coef2(ip+1, iw)*fp
bb = coef2(ip,iw+1)*(1.-fp)+coef2(ip+1,iw+1)*fp
t1 = ba*(1.-fw) + bb*fw
ca = coef3(ip, iw)*(1.-fp)+coef3(ip+1, iw)*fp
cb = coef3(ip,iw+1)*(1.-fp)+coef3(ip+1,iw+1)*fp
t2 = ca*(1.-fw) + cb*fw
tran(i)= (ax + (t1+t2*x3) * x3)*tran(i)
tran(i)=min(tran(i),0.9999999_fp_kind)
tran(i)=max(tran(i),0.0000001_fp_kind)
else
tran(i)=0.9999999
endif
enddo
return
end subroutine tablup
subroutine h2okdis(ib,m,np,k,fkw,gkw,ne,h2oexp,conexp, &
th2o,tcon,tran)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) conexp(m,np,3),h2oexp(m,np,6)
integer ne(9)
real(Kind=fp_kind) fkw(6,9),gkw(6,3)
real(Kind=fp_kind) th2o(m,6),tcon(m,3),tran(m)
real(Kind=fp_kind) trnth2o
do i=1,m
th2o(i,1) = th2o(i,1)*h2oexp(i,k,1)
th2o(i,2) = th2o(i,2)*h2oexp(i,k,2)
th2o(i,3) = th2o(i,3)*h2oexp(i,k,3)
th2o(i,4) = th2o(i,4)*h2oexp(i,k,4)
th2o(i,5) = th2o(i,5)*h2oexp(i,k,5)
th2o(i,6) = th2o(i,6)*h2oexp(i,k,6)
enddo
if (ne(ib).eq.0) then
do i=1,m
trnth2o =(fkw(1,ib)*th2o(i,1) &
+ fkw(2,ib)*th2o(i,2) &
+ fkw(3,ib)*th2o(i,3) &
+ fkw(4,ib)*th2o(i,4) &
+ fkw(5,ib)*th2o(i,5) &
+ fkw(6,ib)*th2o(i,6))
tran(i)=tran(i)*trnth2o
enddo
elseif (ne(ib).eq.1) then
do i=1,m
tcon(i,1)= tcon(i,1)*conexp(i,k,1)
trnth2o =(fkw(1,ib)*th2o(i,1) &
+ fkw(2,ib)*th2o(i,2) &
+ fkw(3,ib)*th2o(i,3) &
+ fkw(4,ib)*th2o(i,4) &
+ fkw(5,ib)*th2o(i,5) &
+ fkw(6,ib)*th2o(i,6))*tcon(i,1)
tran(i)=tran(i)*trnth2o
enddo
else
do i=1,m
tcon(i,1)= tcon(i,1)*conexp(i,k,1)
tcon(i,2)= tcon(i,2)*conexp(i,k,2)
tcon(i,3)= tcon(i,3)*conexp(i,k,3)
trnth2o = ( gkw(1,1)*th2o(i,1) &
+ gkw(2,1)*th2o(i,2) &
+ gkw(3,1)*th2o(i,3) &
+ gkw(4,1)*th2o(i,4) &
+ gkw(5,1)*th2o(i,5) &
+ gkw(6,1)*th2o(i,6) ) * tcon(i,1) &
+ ( gkw(1,2)*th2o(i,1) &
+ gkw(2,2)*th2o(i,2) &
+ gkw(3,2)*th2o(i,3) &
+ gkw(4,2)*th2o(i,4) &
+ gkw(5,2)*th2o(i,5) &
+ gkw(6,2)*th2o(i,6) ) * tcon(i,2) &
+ ( gkw(1,3)*th2o(i,1) &
+ gkw(2,3)*th2o(i,2) &
+ gkw(3,3)*th2o(i,3) &
+ gkw(4,3)*th2o(i,4) &
+ gkw(5,3)*th2o(i,5) &
+ gkw(6,3)*th2o(i,6) ) * tcon(i,3)
tran(i)=tran(i)*trnth2o
enddo
endif
return
end subroutine h2okdis
subroutine co2kdis(m,np,k,co2exp,tco2,tran)
implicit none
integer m,np,i,k
real(Kind=fp_kind) co2exp(m,np,6,2)
real(Kind=fp_kind) tco2(m,6,2),tran(m)
real(Kind=fp_kind) xc
do i=1,m
tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1)
xc= 0.1395 *tco2(i,1,1)
tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1)
xc=xc+0.1407 *tco2(i,2,1)
tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1)
xc=xc+0.1549 *tco2(i,3,1)
tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1)
xc=xc+0.1357 *tco2(i,4,1)
tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1)
xc=xc+0.0182 *tco2(i,5,1)
tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1)
xc=xc+0.0220 *tco2(i,6,1)
tco2(i,1,2)=tco2(i,1,2)*co2exp(i,k,1,2)
xc=xc+0.0766 *tco2(i,1,2)
tco2(i,2,2)=tco2(i,2,2)*co2exp(i,k,2,2)
xc=xc+0.1372 *tco2(i,2,2)
tco2(i,3,2)=tco2(i,3,2)*co2exp(i,k,3,2)
xc=xc+0.1189 *tco2(i,3,2)
tco2(i,4,2)=tco2(i,4,2)*co2exp(i,k,4,2)
xc=xc+0.0335 *tco2(i,4,2)
tco2(i,5,2)=tco2(i,5,2)*co2exp(i,k,5,2)
xc=xc+0.0169 *tco2(i,5,2)
tco2(i,6,2)=tco2(i,6,2)*co2exp(i,k,6,2)
xc=xc+0.0059 *tco2(i,6,2)
tran(i)=tran(i)*xc
enddo
return
end subroutine co2kdis
subroutine n2okdis(ib,m,np,k,n2oexp,tn2o,tran)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) n2oexp(m,np,4)
real(Kind=fp_kind) tn2o(m,4),tran(m)
real(Kind=fp_kind) xc
do i=1,m
if (ib.eq.6) then
tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
xc= 0.940414*tn2o(i,1)
tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
xc=xc+0.059586*tn2o(i,2)
else
tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
xc= 0.561961*tn2o(i,1)
tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
xc=xc+0.138707*tn2o(i,2)
tn2o(i,3)=tn2o(i,3)*n2oexp(i,k,3)
xc=xc+0.240670*tn2o(i,3)
tn2o(i,4)=tn2o(i,4)*n2oexp(i,k,4)
xc=xc+0.058662*tn2o(i,4)
endif
tran(i)=tran(i)*xc
enddo
return
end subroutine n2okdis
subroutine ch4kdis(ib,m,np,k,ch4exp,tch4,tran)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) ch4exp(m,np,4)
real(Kind=fp_kind) tch4(m,4),tran(m)
real(Kind=fp_kind) xc
do i=1,m
if (ib.eq.6) then
tch4(i,1)=tch4(i,1)*ch4exp(i,k,1)
xc= tch4(i,1)
else
tch4(i,1)=tch4(i,1)*ch4exp(i,k,1)
xc= 0.610650*tch4(i,1)
tch4(i,2)=tch4(i,2)*ch4exp(i,k,2)
xc=xc+0.280212*tch4(i,2)
tch4(i,3)=tch4(i,3)*ch4exp(i,k,3)
xc=xc+0.107349*tch4(i,3)
tch4(i,4)=tch4(i,4)*ch4exp(i,k,4)
xc=xc+0.001789*tch4(i,4)
endif
tran(i)=tran(i)*xc
enddo
return
end subroutine ch4kdis
subroutine comkdis(ib,m,np,k,comexp,tcom,tran)
implicit none
integer ib,m,np,i,k
real(Kind=fp_kind) comexp(m,np,6)
real(Kind=fp_kind) tcom(m,6),tran(m)
real(Kind=fp_kind) xc
do i=1,m
if (ib.eq.4) then
tcom(i,1)=tcom(i,1)*comexp(i,k,1)
xc= 0.12159*tcom(i,1)
tcom(i,2)=tcom(i,2)*comexp(i,k,2)
xc=xc+0.24359*tcom(i,2)
tcom(i,3)=tcom(i,3)*comexp(i,k,3)
xc=xc+0.24981*tcom(i,3)
tcom(i,4)=tcom(i,4)*comexp(i,k,4)
xc=xc+0.26427*tcom(i,4)
tcom(i,5)=tcom(i,5)*comexp(i,k,5)
xc=xc+0.07807*tcom(i,5)
tcom(i,6)=tcom(i,6)*comexp(i,k,6)
xc=xc+0.04267*tcom(i,6)
else
tcom(i,1)=tcom(i,1)*comexp(i,k,1)
xc= 0.06869*tcom(i,1)
tcom(i,2)=tcom(i,2)*comexp(i,k,2)
xc=xc+0.14795*tcom(i,2)
tcom(i,3)=tcom(i,3)*comexp(i,k,3)
xc=xc+ 0.19512*tcom(i,3)
tcom(i,4)=tcom(i,4)*comexp(i,k,4)
xc=xc+ 0.33446*tcom(i,4)
tcom(i,5)=tcom(i,5)*comexp(i,k,5)
xc=xc+ 0.17199*tcom(i,5)
tcom(i,6)=tcom(i,6)*comexp(i,k,6)
xc=xc+ 0.08179*tcom(i,6)
endif
tran(i)=tran(i)*xc
enddo
return
end subroutine comkdis
subroutine cfckdis(m,np,k,cfcexp,tcfc,tran)
implicit none
integer m,np,i,k
real(Kind=fp_kind) cfcexp(m,np)
real(Kind=fp_kind) tcfc(m),tran(m)
do i=1,m
tcfc(i)=tcfc(i)*cfcexp(i,k)
tran(i)=tran(i)*tcfc(i)
enddo
return
end subroutine cfckdis
subroutine b10kdis(m,np,k,h2oexp,conexp,co2exp,n2oexp &
,th2o,tcon,tco2,tn2o,tran)
implicit none
integer m,np,i,k
real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) &
,n2oexp(m,np,4)
real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2),tn2o(m,4) &
,tran(m)
real(Kind=fp_kind) xx
do i=1,m
th2o(i,1)=th2o(i,1)*h2oexp(i,k,1)
xx= 0.3153*th2o(i,1)
th2o(i,2)=th2o(i,2)*h2oexp(i,k,2)
xx=xx+0.4604*th2o(i,2)
th2o(i,3)=th2o(i,3)*h2oexp(i,k,3)
xx=xx+0.1326*th2o(i,3)
th2o(i,4)=th2o(i,4)*h2oexp(i,k,4)
xx=xx+0.0798*th2o(i,4)
th2o(i,5)=th2o(i,5)*h2oexp(i,k,5)
xx=xx+0.0119*th2o(i,5)
tran(i)=xx
enddo
do i=1,m
tcon(i,1)=tcon(i,1)*conexp(i,k,1)
tran(i)=tran(i)*tcon(i,1)
enddo
do i=1,m
tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1)
xx= 0.2673*tco2(i,1,1)
tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1)
xx=xx+ 0.2201*tco2(i,2,1)
tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1)
xx=xx+ 0.2106*tco2(i,3,1)
tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1)
xx=xx+ 0.2409*tco2(i,4,1)
tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1)
xx=xx+ 0.0196*tco2(i,5,1)
tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1)
xx=xx+ 0.0415*tco2(i,6,1)
tran(i)=tran(i)*xx
enddo
do i=1,m
tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
xx= 0.970831*tn2o(i,1)
tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
xx=xx+0.029169*tn2o(i,2)
tran(i)=tran(i)*(xx-1.0)
enddo
return
end subroutine b10kdis
subroutine cldovlp (m,np,k2,ict,icb,it,im,ib, &
cldhi,cldmd,cldlw,fcld,tcldlyr,fclr)
implicit none
integer m,np,k2,ict(m),icb(m)
integer i,j,k,ii,it(m),im(m),ib(m),itx(m,np),imx(m,np),ibx(m,np)
real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m)
real(Kind=fp_kind) fcld(m,np),tcldlyr(m,np),fclr(m)
do i=1,m
if (k2.le.ict(i)) then
if(fcld(i,k2-1).gt.0.001) then
it(i)=it(i)+1
ii=it(i)
itx(i,ii)=k2-1
if (ii .eq. 1) go to 11
do k=1,ii-1
j=itx(i,k)
if(fcld(i,j).gt.fcld(i,k2-1)) then
do j=ii-1,k,-1
itx(i,j+1)=itx(i,j)
enddo
itx(i,k)=k2-1
go to 11
endif
enddo
11 continue
cldhi(i)=0.0
do k=1,ii
j=itx(i,k)
cldhi(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldhi(i))
enddo
endif
endif
if (k2.gt.ict(m) .and. k2.le.icb(m)) then
if(fcld(i,k2-1).gt.0.001) then
im(i)=im(i)+1
ii=im(i)
imx(i,ii)=k2-1
if (ii .eq. 1) go to 21
do k=1,ii-1
j=imx(i,k)
if(fcld(i,j).gt.fcld(i,k2-1)) then
do j=ii-1,k,-1
imx(i,j+1)=imx(i,j)
enddo
imx(i,k)=k2-1
go to 21
endif
enddo
21 continue
cldmd(i)=0.0
do k=1,ii
j=imx(i,k)
cldmd(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldmd(i))
enddo
endif
endif
if (k2.gt.icb(m)) then
if(fcld(i,k2-1).gt.0.001) then
ib(i)=ib(i)+1
ii=ib(i)
ibx(i,ii)=k2-1
if (ii .eq. 1) go to 31
do k=1,ii-1
j=ibx(i,k)
if(fcld(i,j).gt.fcld(i,k2-1)) then
do j=ii-1,k,-1
ibx(i,j+1)=ibx(i,j)
enddo
ibx(i,k)=k2-1
go to 31
endif
enddo
31 continue
cldlw(i)=0.0
do k=1,ii
j=ibx(i,k)
cldlw(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldlw(i))
enddo
endif
endif
fclr(i)=(1.0-cldhi(i))*(1.0-cldmd(i))*(1.0-cldlw(i))
enddo
return
end subroutine cldovlp
end module module_ra_goddard