irradconstants.F90

Go to the documentation of this file.

! $Id: irradconstants.F90,v 1.1.2.1 2015/03/09 15:40:15 drholdaw Exp $

module irrad_constants

implicit none
save

!*********************************************************************
!   THE EQUATION NUMBERS noted in this code follows the latest       !
!    version (May 2003) of the NASA Tech. Memo. (2001), which can    !
!    be accessed at ftp://climate.gsfc.nasa.gov/pub/chou/clirad_lw/  !
!*********************************************************************

!-----xkw is the absorption coefficient for the first k-distribution
!     interval due to water vapor line absorption (Table 4)
!     Units are cm**2/g    

   real, dimension(9) :: 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]

!-----xke is the absorption coefficient for the first k-distribution
!     function due to water vapor continuum absorption (Table 9).
!     Units are cm**2/g

!-----Roberts et al's continuum k data

!   real, dimension(9) :: xke = &
!      [0.00,339.00,27.40,15.8,9.40,7.75,7.70,0.0,0.0]

!-----CKD (Version 2.3) continuum k data

   real, dimension(9) :: xke = &
      [0.0,271.,25.00,16.8,8.31,6.52,12.7,0.0,0.0]

!-----mw is the ratio between neighboring absorption coefficients
!     for water vapor line absorption (Table 4).

   integer, dimension(9) :: mw = [6,6,8,6,6,8,9,6,16]

!-----aw and bw (Table 3) are the coefficients for temperature scaling
!     for water vapor in Eq. (4.2).

   real, dimension(9) :: aw = &
      [ 0.0021, 0.0140, 0.0167, 0.0302, &
        0.0307, 0.0195, 0.0152, 0.0008, 0.0096 ]
   real, dimension(9) :: 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]

!-----pm is the pressure-scaling parameter for water vapor absorption
!     Eq. (4.1) and Table 3.

   real, dimension(9) :: pm = [ 1.0, 1.0, 1.0, 1.0, 1.0, 0.77, 0.5, 1.0, 1.0 ]

!-----fkw is the planck-weighted k-distribution function due to h2o
!     line absorption (Table 4).
!     The k-distribution function for Band 3, fkw(*,3), 
!     is not used (see the parameter gkw below).

   real, dimension(6,9) :: fkw = reshape([ &
       0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, &
       0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, &
       1.0000,1.0000,1.0000,1.0000,1.0000,1.0000, &
       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],[6,9])

!-----gkw is the planck-weighted k-distribution function due to h2o
!     line absorption in the 3 subbands (800-720,620-720,540-620 /cm)
!     of band 3 (Table 10).  Note that the order of the sub-bands
!     is reversed.

   real, dimension(6,3) :: gkw = reshape([ &
       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],[6,3])

!bdc
   real :: w11 = -8.0
   real :: w12 = -4.0
   real :: w13 = -6.0
   real :: p11 = -2.0
   real :: p12 = -2.0
   real :: p13 = -2.0
   real :: dwe =  3.33333
   real :: dpe =  5.0
!bdc

!MATMAT Move the planck (cb) and plancd (dcb) data arrays into here.

!-----the following coefficients are given in Table 2 for computing  
!     spectrally integrated planck fluxes using Eq. (3.11)

   real, dimension(6,10) :: cb = reshape([ &
       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],[6,10])

!-----Coefficients for computing the derivative of Planck function
!     with respect to temperature (Eq. 3.12).
!     dcb(1)=1*cb(2), dcb(2)=2*cb(3), dcb(3)=3*cb(4) ...  etc

   real, dimension(5,10) :: dcb = reshape([ &
      -2.0617e-01, 5.0666e-03,-2.0590e-05, 4.0460e-08,-3.1336e-11, &
      -5.4038e-01, 5.9002e-03, 8.1684e-07,-3.7354e-08, 4.9839e-11, &
       1.1132e+00,-2.6012e-02, 1.9486e-04,-4.7260e-07, 4.0212e-10, &
       1.4087e+00,-2.4154e-02, 1.3215e-04,-2.2694e-07, 1.2830e-10, &
       5.2828e-01,-6.8906e-03, 1.8215e-05, 5.0092e-08,-1.0775e-10, &
       4.2256e-02, 2.0882e-03,-3.8751e-05, 1.8958e-07,-2.2428e-10, &
      -5.8359e-01, 1.3935e-02,-1.1817e-04, 4.0480e-07,-4.1150e-10, &
      -2.5134e+00, 4.7496e-02,-3.2076e-04, 8.7364e-07,-6.8520e-10, &
       3.8213e-01,-1.0453e-02, 1.0324e-04,-4.4300e-07, 7.0460e-10, &
       6.5397e-02,-3.6250e-03, 3.8736e-05,-1.0686e-07, 9.8960e-11],[5,10])

!-----include tables used in the table look-up for co2 (band 3), 
!     o3 (band 5), and h2o (bands 1, 2, and 8) transmission functions.
!     "co2.tran4" is the co2 transmission table applicable to a large
!     range of co2 amount (up to 100 times of the present-time value).

! Data used in table look-up for transmittance calculations:
!
!   c1 , c2, c3: for co2 (band 3)
!   oo1,oo2,oo3: for  o3 (band 5)
!   h11,h12,h13: for h2o (band 1)
!   h21,h22,h23: for h2o (band 2)
!   h81,h82,h83: for h2o (band 8)

   real, dimension(26,30) :: c1 = reshape([ &
       0.99985647, 0.99985647, 0.99985671, 0.99985629, 0.99985641, &
       0.99985617, 0.99985600, 0.99985582, 0.99985498, 0.99985462, &
       0.99985212, 0.99985027, 0.99984729, 0.99984348, 0.99983788, &
       0.99983227, 0.99982637, 0.99982101, 0.99981648, 0.99981302, &
       0.99981070, 0.99980962, 0.99980921, 0.99980992, 0.99980998, &
       0.99980712, 0.99976432, 0.99976432, 0.99976432, 0.99976349, &
       0.99976403, 0.99976331, 0.99976230, 0.99976122, 0.99975908, &
       0.99975640, 0.99975210, 0.99974507, 0.99973530, 0.99972272, &
       0.99970680, 0.99968958, 0.99967217, 0.99965781, 0.99964571, &
       0.99963689, 0.99962878, 0.99962330, 0.99961692, 0.99961102, &
       0.99960178, 0.99958581, 0.99963892, 0.99963868, 0.99963838, &
       0.99963838, 0.99963748, 0.99963629, 0.99963462, 0.99963123, &
       0.99962622, 0.99961889, 0.99960798, 0.99959022, 0.99956691, &
       0.99953479, 0.99949580, 0.99945217, 0.99940813, 0.99936712, &
       0.99933147, 0.99930489, 0.99928439, 0.99926400, 0.99924570, &
       0.99922198, 0.99920201, 0.99919039, 0.99948031, 0.99947977, &
       0.99947912, 0.99947798, 0.99947661, 0.99947429, 0.99947017, &
       0.99946368, 0.99945402, 0.99943668, 0.99941242, 0.99937689, &
       0.99932659, 0.99926043, 0.99917668, 0.99907941, 0.99897701, &
       0.99887502, 0.99878597, 0.99870700, 0.99864298, 0.99858999, &
       0.99854898, 0.99852699, 0.99852800, 0.99854302, 0.99927652, &
       0.99927580, 0.99927449, 0.99927282, 0.99926913, 0.99926388, &
       0.99925607, 0.99924308, 0.99922228, 0.99919188, 0.99914628, &
       0.99907988, 0.99898797, 0.99886698, 0.99871200, 0.99852598, &
       0.99831802, 0.99809802, 0.99787998, 0.99768901, 0.99752903, &
       0.99741602, 0.99734801, 0.99732202, 0.99729002, 0.99724799, &
       0.99899602, 0.99899501, 0.99899203, 0.99898797, 0.99898303, &
       0.99897301, 0.99895698, 0.99893397, 0.99889803, 0.99884301, &
       0.99876302, 0.99865198, 0.99849701, 0.99829400, 0.99803603, &
       0.99772000, 0.99734300, 0.99692702, 0.99649400, 0.99608499, &
       0.99573100, 0.99547201, 0.99527103, 0.99510902, 0.99498200, &
       0.99486500, 0.99860001, 0.99859601, 0.99859202, 0.99858499, &
       0.99857402, 0.99855602, 0.99852800, 0.99848598, 0.99842203, &
       0.99832898, 0.99819702, 0.99801201, 0.99776399, 0.99744201, &
       0.99703097, 0.99652398, 0.99592501, 0.99523401, 0.99448699, &
       0.99373102, 0.99301797, 0.99236798, 0.99182302, 0.99140203, &
       0.99102801, 0.99071401, 0.99804801, 0.99804401, 0.99803501, &
       0.99802202, 0.99800003, 0.99796802, 0.99791902, 0.99784499, &
       0.99773699, 0.99757999, 0.99736100, 0.99706602, 0.99667102, &
       0.99615997, 0.99552703, 0.99475902, 0.99385202, 0.99281400, &
       0.99166602, 0.99039900, 0.98905998, 0.98776001, 0.98655999, &
       0.98550999, 0.98461998, 0.98379999, 0.99732202, 0.99731201, &
       0.99729699, 0.99727303, 0.99723399, 0.99717802, 0.99709100, &
       0.99696398, 0.99677801, 0.99651998, 0.99616700, 0.99569201, &
       0.99507397, 0.99429500, 0.99333203, 0.99218899, 0.99086499, &
       0.98935997, 0.98762000, 0.98566997, 0.98354000, 0.98124999, &
       0.97895002, 0.97672999, 0.97465998, 0.97279000, 0.99640399, &
       0.99638498, 0.99635702, 0.99631298, 0.99624503, 0.99614400, &
       0.99599499, 0.99577999, 0.99547797, 0.99506402, 0.99450397, &
       0.99377203, 0.99283201, 0.99166000, 0.99023402, 0.98856002, &
       0.98659998, 0.98435003, 0.98181999, 0.97895002, 0.97570997, &
       0.97210997, 0.96814001, 0.96399999, 0.95982999, 0.95585001, &
       0.99526399, 0.99523097, 0.99518001, 0.99510002, 0.99498397, &
       0.99480897, 0.99456000, 0.99421299, 0.99373603, 0.99309200, &
       0.99225003, 0.99115402, 0.98977000, 0.98806000, 0.98597997, &
       0.98348999, 0.98057997, 0.97728002, 0.97352999, 0.96930999, &
       0.96449000, 0.95902997, 0.95284998, 0.94602001, 0.93866003, &
       0.93112999, 0.99384302, 0.99378198, 0.99369103, 0.99355298, &
       0.99335301, 0.99306899, 0.99267203, 0.99212801, 0.99140298, &
       0.99044400, 0.98920000, 0.98762000, 0.98563999, 0.98316997, &
       0.98013997, 0.97653997, 0.97229999, 0.96740997, 0.96183002, &
       0.95548999, 0.94837999, 0.94033003, 0.93124998, 0.92101002, &
       0.90968001, 0.89749998, 0.99204999, 0.99194402, 0.99178600, &
       0.99155599, 0.99123502, 0.99078500, 0.99017102, 0.98935997, &
       0.98829001, 0.98689002, 0.98510998, 0.98286003, 0.98001999, &
       0.97649997, 0.97223002, 0.96708000, 0.96098000, 0.95381999, &
       0.94558001, 0.93621999, 0.92576003, 0.91415000, 0.90130001, &
       0.88709998, 0.87140000, 0.85460001, 0.98979002, 0.98961002, &
       0.98935002, 0.98898000, 0.98847997, 0.98778999, 0.98688000, &
       0.98569000, 0.98413998, 0.98215997, 0.97961998, 0.97640002, &
       0.97241002, 0.96748000, 0.96145999, 0.95420998, 0.94555002, &
       0.93539000, 0.92363000, 0.91029000, 0.89539999, 0.87919998, &
       0.86170000, 0.84310001, 0.82340002, 0.80320001, 0.98694998, &
       0.98664999, 0.98623002, 0.98566002, 0.98488998, 0.98387998, &
       0.98255002, 0.98083001, 0.97863001, 0.97579002, 0.97220999, &
       0.96771997, 0.96213001, 0.95525998, 0.94686002, 0.93677002, &
       0.92479002, 0.91082001, 0.89480001, 0.87669998, 0.85680002, &
       0.83529997, 0.81290001, 0.79020000, 0.76770002, 0.74660003, &
       0.98334998, 0.98286998, 0.98223001, 0.98136997, 0.98023999, &
       0.97876000, 0.97685999, 0.97442001, 0.97127002, 0.96730000, &
       0.96231002, 0.95604998, 0.94830000, 0.93878001, 0.92727000, &
       0.91352999, 0.89740002, 0.87889999, 0.85799998, 0.83490002, &
       0.81000000, 0.78380001, 0.75740004, 0.73189998, 0.70860004, &
       0.68869996, 0.97878999, 0.97807002, 0.97711003, 0.97584999, &
       0.97421998, 0.97211999, 0.96941000, 0.96595001, 0.96156001, &
       0.95603001, 0.94909000, 0.94045001, 0.92980999, 0.91687000, &
       0.90142000, 0.88330001, 0.86240000, 0.83889997, 0.81309998, &
       0.78549999, 0.75660002, 0.72749996, 0.69920003, 0.67299998, &
       0.64999998, 0.63100004, 0.97307003, 0.97200000, 0.97060001, &
       0.96880001, 0.96648002, 0.96350002, 0.95969999, 0.95486999, &
       0.94875997, 0.94110000, 0.93155003, 0.91979003, 0.90546000, &
       0.88830000, 0.86820000, 0.84509999, 0.81919998, 0.79100001, &
       0.76100004, 0.73019999, 0.69949996, 0.66990000, 0.64199996, &
       0.61619997, 0.59290004, 0.57249999, 0.96592999, 0.96439999, &
       0.96243000, 0.95986998, 0.95659000, 0.95240998, 0.94709998, &
       0.94040000, 0.93197000, 0.92149001, 0.90856999, 0.89289999, &
       0.87409997, 0.85220003, 0.82700002, 0.79900002, 0.76859999, &
       0.73660004, 0.70420003, 0.67240000, 0.64199996, 0.61339998, &
       0.58640003, 0.56060004, 0.53610003, 0.51320004, 0.95722002, &
       0.95503998, 0.95222998, 0.94862998, 0.94404000, 0.93821001, &
       0.93085998, 0.92163002, 0.91017997, 0.89609998, 0.87910002, &
       0.85879999, 0.83510000, 0.80820000, 0.77820003, 0.74599999, &
       0.71249998, 0.67879999, 0.64590001, 0.61469996, 0.58529997, &
       0.55720001, 0.53020000, 0.50400001, 0.47860003, 0.45450002, &
       0.94660002, 0.94352001, 0.93957001, 0.93452001, 0.92815000, &
       0.92009002, 0.91001999, 0.89760000, 0.88230002, 0.86399996, &
       0.84219998, 0.81700003, 0.78850001, 0.75699997, 0.72350001, &
       0.68879998, 0.65419996, 0.62049997, 0.58840001, 0.55779999, &
       0.52829999, 0.49980003, 0.47240001, 0.44610000, 0.42110002, &
       0.39810002, 0.93366003, 0.92931998, 0.92379999, 0.91681999, &
       0.90802002, 0.89709997, 0.88360000, 0.86720002, 0.84749997, &
       0.82449996, 0.79790002, 0.76800001, 0.73549998, 0.70099998, &
       0.66569996, 0.63049996, 0.59630001, 0.56330001, 0.53139997, &
       0.50029999, 0.47020000, 0.44129997, 0.41399997, 0.38880002, &
       0.36610001, 0.34649998, 0.91777998, 0.91175002, 0.90411001, &
       0.89459997, 0.88270003, 0.86820000, 0.85060000, 0.82969999, &
       0.80540001, 0.77759999, 0.74669999, 0.71340001, 0.67850000, &
       0.64300001, 0.60769999, 0.57319999, 0.53950000, 0.50629997, &
       0.47380000, 0.44220001, 0.41200000, 0.38360000, 0.35780001, &
       0.33530003, 0.31639999, 0.30119997, 0.89819998, 0.88989997, &
       0.87959999, 0.86680001, 0.85119998, 0.83249998, 0.81040001, &
       0.78499997, 0.75620002, 0.72459996, 0.69080001, 0.65579998, &
       0.62049997, 0.58550000, 0.55089998, 0.51660001, 0.48259997, &
       0.44900000, 0.41619998, 0.38489997, 0.35570002, 0.32929999, &
       0.30650002, 0.28740001, 0.27200001, 0.25950003, 0.87419999, &
       0.86300004, 0.84930003, 0.83270001, 0.81290001, 0.78970003, &
       0.76319999, 0.73370004, 0.70159996, 0.66769999, 0.63300002, &
       0.59810001, 0.56340003, 0.52890003, 0.49430001, 0.45969999, &
       0.42549998, 0.39209998, 0.36030000, 0.33069998, 0.30400002, &
       0.28070003, 0.26069999, 0.24390000, 0.22960001, 0.21740001, &
       0.84500003, 0.83039999, 0.81270003, 0.79189998, 0.76770002, &
       0.74039996, 0.71029997, 0.67799997, 0.64429998, 0.61000001, &
       0.57570004, 0.54139996, 0.50699997, 0.47219998, 0.43739998, &
       0.40289998, 0.36940002, 0.33749998, 0.30809999, 0.28149998, &
       0.25800002, 0.23710001, 0.21850002, 0.20179999, 0.18690002, &
       0.17379999, 0.81029999, 0.79159999, 0.76980001, 0.74479997, &
       0.71679997, 0.68630004, 0.65400004, 0.62070000, 0.58710003, &
       0.55340004, 0.51950002, 0.48519999, 0.45050001, 0.41560000, &
       0.38110000, 0.34780002, 0.31629997, 0.28729999, 0.26109999, &
       0.23760003, 0.21609998, 0.19620001, 0.17750001, 0.16009998, &
       0.14429998, 0.13029999, 0.76989996, 0.74710000, 0.72140002, &
       0.69290000, 0.66219997, 0.63010001, 0.59740001, 0.56439996, &
       0.53130001, 0.49769998, 0.46359998, 0.42909998, 0.39450002, &
       0.36040002, 0.32749999, 0.29650003, 0.26810002, 0.24229997, &
       0.21880001, 0.19690001, 0.17610002, 0.15619999, 0.13739997, &
       0.11979997, 0.10380000, 0.08950001, 0.72440004, 0.69790000, &
       0.66909999, 0.63839996, 0.60670000, 0.57459998, 0.54229999, &
       0.50960004, 0.47640002, 0.44250000, 0.40829998, 0.37410003, &
       0.34060001, 0.30849999, 0.27840000, 0.25070000, 0.22520000, &
       0.20150000, 0.17909998, 0.15759999, 0.13709998, 0.11769998, &
       0.09950000, 0.08260000, 0.06739998, 0.05400002, 0.67490000, &
       0.64579999, 0.61539996, 0.58410001, 0.55250001, 0.52069998, &
       0.48839998, 0.45539999, 0.42189997, 0.38810003, 0.35450000, &
       0.32190001, 0.29079998, 0.26169997, 0.23479998, 0.20959997, &
       0.18580002, 0.16280001, 0.14080000, 0.11989999, 0.10020000, &
       0.08200002, 0.06540000, 0.05049998, 0.03740001, 0.02640003],[26,30])
      
   real, dimension(26,30) :: c2 = reshape([ &
      -0.1841e-06, -0.1831e-06, -0.1831e-06, -0.1808e-06, -0.1827e-06, &
      -0.1798e-06, -0.1784e-06, -0.1760e-06, -0.1717e-06, -0.1607e-06, &
      -0.1531e-06, -0.1340e-06, -0.1163e-06, -0.8581e-07, -0.8246e-07, &
      -0.7004e-07, -0.6526e-07, -0.6477e-07, -0.7906e-07, -0.7762e-07, &
      -0.1010e-06, -0.1258e-06, -0.1434e-06, -0.1529e-06, -0.1453e-06, &
      -0.1257e-06, -0.4666e-06, -0.4642e-06, -0.4623e-06, -0.4642e-06, &
      -0.4608e-06, -0.4580e-06, -0.4551e-06, -0.4451e-06, -0.4327e-06, &
      -0.4160e-06, -0.3864e-06, -0.3478e-06, -0.3048e-06, -0.2557e-06, &
      -0.2070e-06, -0.1592e-06, -0.1282e-06, -0.1243e-06, -0.1291e-06, &
      -0.1319e-06, -0.1533e-06, -0.1605e-06, -0.1676e-06, -0.2005e-06, &
      -0.2529e-06, -0.2495e-06, -0.1050e-05, -0.1048e-05, -0.1048e-05, &
      -0.1045e-05, -0.1042e-05, -0.1033e-05, -0.1023e-05, -0.1004e-05, &
      -0.9759e-06, -0.9320e-06, -0.8804e-06, -0.8189e-06, -0.7186e-06, &
      -0.6103e-06, -0.4895e-06, -0.3936e-06, -0.3076e-06, -0.2536e-06, &
      -0.2430e-06, -0.2315e-06, -0.2347e-06, -0.2581e-06, -0.2699e-06, &
      -0.2861e-06, -0.1807e-06, -0.1334e-06, -0.2069e-05, -0.2067e-05, &
      -0.2065e-05, -0.2058e-05, -0.2053e-05, -0.2039e-05, -0.2019e-05, &
      -0.1989e-05, -0.1943e-05, -0.1872e-05, -0.1776e-05, -0.1653e-05, &
      -0.1495e-05, -0.1305e-05, -0.1106e-05, -0.9145e-06, -0.7454e-06, &
      -0.6173e-06, -0.5145e-06, -0.4780e-06, -0.4535e-06, -0.4286e-06, &
      -0.2859e-06, -0.1652e-06, -0.1109e-06, -0.8414e-07, -0.3601e-05, &
      -0.3596e-05, -0.3589e-05, -0.3581e-05, -0.3565e-05, -0.3544e-05, &
      -0.3507e-05, -0.3457e-05, -0.3391e-05, -0.3281e-05, -0.3131e-05, &
      -0.2944e-05, -0.2726e-05, -0.2472e-05, -0.2216e-05, -0.1958e-05, &
      -0.1685e-05, -0.1495e-05, -0.1327e-05, -0.1187e-05, -0.1029e-05, &
      -0.8321e-06, -0.7542e-06, -0.6334e-06, -0.4469e-06, -0.1698e-06, &
      -0.5805e-05, -0.5797e-05, -0.5789e-05, -0.5776e-05, -0.5745e-05, &
      -0.5709e-05, -0.5651e-05, -0.5574e-05, -0.5454e-05, -0.5286e-05, &
      -0.5082e-05, -0.4852e-05, -0.4588e-05, -0.4334e-05, -0.4077e-05, &
      -0.3850e-05, -0.3600e-05, -0.3353e-05, -0.3103e-05, -0.2750e-05, &
      -0.2530e-05, -0.2392e-05, -0.2273e-05, -0.1965e-05, -0.1885e-05, &
      -0.1346e-05, -0.8863e-05, -0.8851e-05, -0.8833e-05, -0.8801e-05, &
      -0.8758e-05, -0.8696e-05, -0.8608e-05, -0.8470e-05, -0.8297e-05, &
      -0.8097e-05, -0.7849e-05, -0.7603e-05, -0.7396e-05, -0.7233e-05, &
      -0.7150e-05, -0.7093e-05, -0.7071e-05, -0.6919e-05, -0.6710e-05, &
      -0.6545e-05, -0.6335e-05, -0.6163e-05, -0.5898e-05, -0.5437e-05, &
      -0.4590e-05, -0.3692e-05, -0.1291e-04, -0.1289e-04, -0.1286e-04, &
      -0.1281e-04, -0.1273e-04, -0.1264e-04, -0.1250e-04, -0.1230e-04, &
      -0.1209e-04, -0.1187e-04, -0.1164e-04, -0.1150e-04, -0.1152e-04, &
      -0.1167e-04, -0.1202e-04, -0.1252e-04, -0.1292e-04, -0.1337e-04, &
      -0.1371e-04, -0.1393e-04, -0.1381e-04, -0.1358e-04, -0.1292e-04, &
      -0.1182e-04, -0.1043e-04, -0.8625e-05, -0.1806e-04, -0.1802e-04, &
      -0.1797e-04, -0.1789e-04, -0.1778e-04, -0.1763e-04, -0.1744e-04, &
      -0.1721e-04, -0.1697e-04, -0.1677e-04, -0.1669e-04, -0.1682e-04, &
      -0.1725e-04, -0.1806e-04, -0.1920e-04, -0.2066e-04, -0.2250e-04, &
      -0.2418e-04, -0.2561e-04, -0.2645e-04, -0.2681e-04, -0.2646e-04, &
      -0.2538e-04, -0.2344e-04, -0.2057e-04, -0.1750e-04, -0.2460e-04, &
      -0.2454e-04, -0.2446e-04, -0.2433e-04, -0.2417e-04, -0.2395e-04, &
      -0.2370e-04, -0.2344e-04, -0.2322e-04, -0.2320e-04, -0.2340e-04, &
      -0.2400e-04, -0.2514e-04, -0.2679e-04, -0.2938e-04, -0.3271e-04, &
      -0.3665e-04, -0.4049e-04, -0.4405e-04, -0.4652e-04, -0.4777e-04, &
      -0.4792e-04, -0.4649e-04, -0.4384e-04, -0.3951e-04, -0.3483e-04, &
      -0.3317e-04, -0.3307e-04, -0.3292e-04, -0.3273e-04, -0.3250e-04, &
      -0.3220e-04, -0.3189e-04, -0.3168e-04, -0.3163e-04, -0.3190e-04, &
      -0.3261e-04, -0.3390e-04, -0.3599e-04, -0.3933e-04, -0.4380e-04, &
      -0.4951e-04, -0.5623e-04, -0.6354e-04, -0.7051e-04, -0.7657e-04, &
      -0.8083e-04, -0.8284e-04, -0.8261e-04, -0.7982e-04, -0.7466e-04, &
      -0.6843e-04, -0.4452e-04, -0.4435e-04, -0.4412e-04, -0.4382e-04, &
      -0.4347e-04, -0.4311e-04, -0.4289e-04, -0.4286e-04, -0.4318e-04, &
      -0.4402e-04, -0.4546e-04, -0.4799e-04, -0.5172e-04, -0.5705e-04, &
      -0.6390e-04, -0.7268e-04, -0.8295e-04, -0.9455e-04, -0.1070e-03, &
      -0.1190e-03, -0.1296e-03, -0.1369e-03, -0.1405e-03, -0.1398e-03, &
      -0.1356e-03, -0.1305e-03, -0.5944e-04, -0.5916e-04, -0.5880e-04, &
      -0.5840e-04, -0.5801e-04, -0.5777e-04, -0.5777e-04, -0.5815e-04, &
      -0.5910e-04, -0.6081e-04, -0.6380e-04, -0.6807e-04, -0.7403e-04, &
      -0.8194e-04, -0.9209e-04, -0.1045e-03, -0.1195e-03, -0.1367e-03, &
      -0.1560e-03, -0.1766e-03, -0.1966e-03, -0.2138e-03, -0.2259e-03, &
      -0.2321e-03, -0.2341e-03, -0.2362e-03, -0.7884e-04, -0.7842e-04, &
      -0.7795e-04, -0.7755e-04, -0.7729e-04, -0.7732e-04, -0.7787e-04, &
      -0.7898e-04, -0.8111e-04, -0.8441e-04, -0.8932e-04, -0.9596e-04, &
      -0.1051e-03, -0.1165e-03, -0.1310e-03, -0.1487e-03, -0.1696e-03, &
      -0.1942e-03, -0.2217e-03, -0.2520e-03, -0.2836e-03, -0.3141e-03, &
      -0.3407e-03, -0.3616e-03, -0.3783e-03, -0.3971e-03, -0.1036e-03, &
      -0.1031e-03, -0.1027e-03, -0.1024e-03, -0.1025e-03, -0.1032e-03, &
      -0.1045e-03, -0.1070e-03, -0.1108e-03, -0.1162e-03, -0.1237e-03, &
      -0.1338e-03, -0.1469e-03, -0.1637e-03, -0.1843e-03, -0.2092e-03, &
      -0.2385e-03, -0.2717e-03, -0.3090e-03, -0.3499e-03, -0.3937e-03, &
      -0.4393e-03, -0.4845e-03, -0.5274e-03, -0.5688e-03, -0.6127e-03, &
      -0.1346e-03, -0.1342e-03, -0.1340e-03, -0.1342e-03, -0.1349e-03, &
      -0.1365e-03, -0.1392e-03, -0.1434e-03, -0.1493e-03, -0.1576e-03, &
      -0.1687e-03, -0.1833e-03, -0.2023e-03, -0.2259e-03, -0.2554e-03, &
      -0.2899e-03, -0.3298e-03, -0.3744e-03, -0.4228e-03, -0.4751e-03, &
      -0.5313e-03, -0.5917e-03, -0.6561e-03, -0.7239e-03, -0.7935e-03, &
      -0.8621e-03, -0.1727e-03, -0.1725e-03, -0.1728e-03, -0.1737e-03, &
      -0.1755e-03, -0.1784e-03, -0.1828e-03, -0.1892e-03, -0.1982e-03, &
      -0.2102e-03, -0.2262e-03, -0.2471e-03, -0.2735e-03, -0.3068e-03, &
      -0.3468e-03, -0.3936e-03, -0.4465e-03, -0.5042e-03, -0.5657e-03, &
      -0.6307e-03, -0.6995e-03, -0.7731e-03, -0.8524e-03, -0.9363e-03, &
      -0.1021e-02, -0.1101e-02, -0.2186e-03, -0.2189e-03, -0.2199e-03, &
      -0.2217e-03, -0.2249e-03, -0.2295e-03, -0.2365e-03, -0.2460e-03, &
      -0.2588e-03, -0.2760e-03, -0.2984e-03, -0.3275e-03, -0.3637e-03, &
      -0.4082e-03, -0.4611e-03, -0.5215e-03, -0.5887e-03, -0.6609e-03, &
      -0.7371e-03, -0.8160e-03, -0.8972e-03, -0.9796e-03, -0.1062e-02, &
      -0.1142e-02, -0.1219e-02, -0.1297e-02, -0.2728e-03, -0.2739e-03, &
      -0.2759e-03, -0.2791e-03, -0.2842e-03, -0.2914e-03, -0.3015e-03, &
      -0.3152e-03, -0.3333e-03, -0.3571e-03, -0.3880e-03, -0.4268e-03, &
      -0.4746e-03, -0.5318e-03, -0.5982e-03, -0.6729e-03, -0.7546e-03, &
      -0.8416e-03, -0.9322e-03, -0.1024e-02, -0.1113e-02, -0.1195e-02, &
      -0.1266e-02, -0.1328e-02, -0.1388e-02, -0.1452e-02, -0.3364e-03, &
      -0.3386e-03, -0.3419e-03, -0.3473e-03, -0.3549e-03, -0.3653e-03, &
      -0.3797e-03, -0.3985e-03, -0.4237e-03, -0.4558e-03, -0.4964e-03, &
      -0.5466e-03, -0.6067e-03, -0.6769e-03, -0.7568e-03, -0.8454e-03, &
      -0.9408e-03, -0.1041e-02, -0.1142e-02, -0.1240e-02, -0.1327e-02, &
      -0.1399e-02, -0.1456e-02, -0.1499e-02, -0.1535e-02, -0.1570e-02, &
      -0.4102e-03, -0.4138e-03, -0.4194e-03, -0.4272e-03, -0.4380e-03, &
      -0.4527e-03, -0.4723e-03, -0.4981e-03, -0.5312e-03, -0.5730e-03, &
      -0.6244e-03, -0.6862e-03, -0.7586e-03, -0.8415e-03, -0.9340e-03, &
      -0.1035e-02, -0.1141e-02, -0.1249e-02, -0.1352e-02, -0.1443e-02, &
      -0.1520e-02, -0.1579e-02, -0.1621e-02, -0.1645e-02, -0.1653e-02, &
      -0.1647e-02, -0.4948e-03, -0.5003e-03, -0.5081e-03, -0.5191e-03, &
      -0.5340e-03, -0.5541e-03, -0.5803e-03, -0.6139e-03, -0.6562e-03, &
      -0.7082e-03, -0.7705e-03, -0.8439e-03, -0.9281e-03, -0.1023e-02, &
      -0.1126e-02, -0.1235e-02, -0.1345e-02, -0.1448e-02, -0.1541e-02, &
      -0.1619e-02, -0.1681e-02, -0.1725e-02, -0.1748e-02, -0.1748e-02, &
      -0.1726e-02, -0.1688e-02, -0.5890e-03, -0.5968e-03, -0.6078e-03, &
      -0.6227e-03, -0.6428e-03, -0.6689e-03, -0.7026e-03, -0.7448e-03, &
      -0.7968e-03, -0.8591e-03, -0.9325e-03, -0.1017e-02, -0.1112e-02, &
      -0.1216e-02, -0.1324e-02, -0.1432e-02, -0.1533e-02, -0.1622e-02, &
      -0.1697e-02, -0.1757e-02, -0.1800e-02, -0.1822e-02, -0.1823e-02, &
      -0.1804e-02, -0.1768e-02, -0.1727e-02, -0.6900e-03, -0.7007e-03, &
      -0.7156e-03, -0.7354e-03, -0.7613e-03, -0.7947e-03, -0.8365e-03, &
      -0.8878e-03, -0.9496e-03, -0.1022e-02, -0.1107e-02, -0.1201e-02, &
      -0.1304e-02, -0.1410e-02, -0.1514e-02, -0.1608e-02, -0.1691e-02, &
      -0.1760e-02, -0.1813e-02, -0.1849e-02, -0.1867e-02, -0.1867e-02, &
      -0.1854e-02, -0.1834e-02, -0.1813e-02, -0.1797e-02, -0.7930e-03, &
      -0.8076e-03, -0.8270e-03, -0.8526e-03, -0.8854e-03, -0.9265e-03, &
      -0.9772e-03, -0.1038e-02, -0.1110e-02, -0.1194e-02, -0.1288e-02, &
      -0.1389e-02, -0.1491e-02, -0.1588e-02, -0.1676e-02, -0.1751e-02, &
      -0.1813e-02, -0.1857e-02, -0.1883e-02, -0.1892e-02, -0.1887e-02, &
      -0.1877e-02, -0.1868e-02, -0.1867e-02, -0.1874e-02, -0.1887e-02, &
      -0.8921e-03, -0.9113e-03, -0.9365e-03, -0.9688e-03, -0.1009e-02, &
      -0.1060e-02, -0.1120e-02, -0.1193e-02, -0.1276e-02, -0.1368e-02, &
      -0.1466e-02, -0.1563e-02, -0.1653e-02, -0.1733e-02, -0.1801e-02, &
      -0.1854e-02, -0.1889e-02, -0.1906e-02, -0.1906e-02, -0.1896e-02, &
      -0.1884e-02, -0.1879e-02, -0.1886e-02, -0.1903e-02, -0.1925e-02, &
      -0.1947e-02, -0.9823e-03, -0.1007e-02, -0.1040e-02, -0.1081e-02, &
      -0.1131e-02, -0.1192e-02, -0.1265e-02, -0.1348e-02, -0.1439e-02, &
      -0.1533e-02, -0.1623e-02, -0.1706e-02, -0.1777e-02, -0.1837e-02, &
      -0.1881e-02, -0.1907e-02, -0.1916e-02, -0.1911e-02, -0.1898e-02, &
      -0.1886e-02, -0.1881e-02, -0.1886e-02, -0.1899e-02, -0.1914e-02, &
      -0.1927e-02, -0.1935e-02, -0.1063e-02, -0.1096e-02, -0.1137e-02, &
      -0.1189e-02, -0.1252e-02, -0.1326e-02, -0.1409e-02, -0.1499e-02, &
      -0.1588e-02, -0.1671e-02, -0.1746e-02, -0.1809e-02, -0.1860e-02, &
      -0.1894e-02, -0.1911e-02, -0.1913e-02, -0.1904e-02, -0.1892e-02, &
      -0.1882e-02, -0.1878e-02, -0.1879e-02, -0.1879e-02, -0.1876e-02, &
      -0.1866e-02, -0.1851e-02, -0.1833e-02, -0.1138e-02, -0.1181e-02, &
      -0.1235e-02, -0.1300e-02, -0.1376e-02, -0.1460e-02, -0.1547e-02, &
      -0.1631e-02, -0.1708e-02, -0.1775e-02, -0.1831e-02, -0.1872e-02, &
      -0.1896e-02, -0.1904e-02, -0.1900e-02, -0.1888e-02, -0.1877e-02, &
      -0.1870e-02, -0.1866e-02, -0.1861e-02, -0.1849e-02, -0.1825e-02, &
      -0.1790e-02, -0.1746e-02, -0.1697e-02, -0.1647e-02, -0.1214e-02, &
      -0.1271e-02, -0.1339e-02, -0.1417e-02, -0.1502e-02, -0.1586e-02, &
      -0.1665e-02, -0.1735e-02, -0.1796e-02, -0.1843e-02, -0.1875e-02, &
      -0.1890e-02, -0.1891e-02, -0.1881e-02, -0.1867e-02, -0.1857e-02, &
      -0.1850e-02, -0.1844e-02, -0.1832e-02, -0.1807e-02, -0.1764e-02, &
      -0.1706e-02, -0.1636e-02, -0.1558e-02, -0.1478e-02, -0.1401e-02],[26,30])

   real, dimension(26,30) :: c3 = reshape([ &
       0.5821e-10,  0.5821e-10,  0.2910e-10,  0.1019e-09,  0.4366e-10, &
       0.8731e-10,  0.5821e-10, -0.1455e-10,  0.0000e+00, -0.1164e-09, &
       0.1019e-09, -0.1455e-10, -0.1455e-09, -0.2037e-09, -0.1601e-09, &
      -0.2328e-09, -0.1746e-09, -0.5821e-10,  0.2910e-10,  0.8731e-10, &
       0.8731e-10, -0.8731e-10, -0.1892e-09, -0.3638e-09, -0.6257e-09, &
      -0.1222e-08,  0.5821e-10,  0.5821e-10,  0.5821e-10,  0.1601e-09, &
      -0.1455e-10,  0.0000e+00,  0.8731e-10,  0.4366e-10,  0.1455e-10, &
      -0.7276e-10, -0.2037e-09, -0.1892e-09, -0.2765e-09, -0.4220e-09, &
      -0.3492e-09, -0.3347e-09, -0.2037e-09, -0.2328e-09,  0.1455e-10, &
      -0.7276e-10,  0.1310e-09,  0.2910e-10, -0.2474e-09, -0.9313e-09, &
      -0.1382e-08, -0.1164e-09, -0.3201e-09, -0.3347e-09, -0.3201e-09, &
      -0.4075e-09, -0.4075e-09, -0.3492e-09, -0.4366e-09, -0.3929e-09, &
      -0.3638e-09, -0.5530e-09, -0.8004e-09, -0.8295e-09, -0.9750e-09, &
      -0.1091e-08, -0.1019e-08, -0.9750e-09, -0.8149e-09, -0.6985e-09, &
      -0.2765e-09, -0.2328e-09, -0.2474e-09,  0.7276e-10,  0.1892e-09, &
       0.1703e-08,  0.2095e-08,  0.2285e-08, -0.1804e-08, -0.1746e-08, &
      -0.1732e-08, -0.1746e-08, -0.1804e-08, -0.1892e-08, -0.1935e-08, &
      -0.2081e-08, -0.2299e-08, -0.2270e-08, -0.2387e-08, -0.2547e-08, &
      -0.2794e-08, -0.2896e-08, -0.2634e-08, -0.2314e-08, -0.2095e-08, &
      -0.1368e-08, -0.1426e-08, -0.6403e-09, -0.2619e-09,  0.1281e-08, &
       0.2561e-08,  0.2081e-08,  0.1863e-08,  0.2037e-09, -0.4336e-08, &
      -0.4366e-08, -0.4307e-08, -0.4366e-08, -0.4293e-08, -0.4322e-08, &
      -0.4555e-08, -0.4700e-08, -0.4744e-08, -0.5093e-08, -0.5326e-08, &
      -0.5544e-08, -0.5413e-08, -0.5821e-08, -0.5632e-08, -0.5166e-08, &
      -0.4889e-08, -0.4351e-08, -0.2576e-08, -0.1455e-08,  0.8295e-09, &
       0.1222e-08,  0.4366e-09, -0.1251e-08, -0.1834e-08,  0.5675e-09, &
      -0.7829e-08, -0.7858e-08, -0.7843e-08, -0.7960e-08, -0.8178e-08, &
      -0.8367e-08, -0.8455e-08, -0.8804e-08, -0.9284e-08, -0.9517e-08, &
      -0.9764e-08, -0.1014e-07, -0.1048e-07, -0.1052e-07, -0.1065e-07, &
      -0.1052e-07, -0.9517e-08, -0.8993e-08, -0.5923e-08, -0.3827e-08, &
      -0.1979e-08, -0.1935e-08, -0.1499e-08, -0.1208e-08, -0.2125e-08, &
      -0.5239e-08, -0.1278e-07, -0.1262e-07, -0.1270e-07, -0.1294e-07, &
      -0.1301e-07, -0.1318e-07, -0.1356e-07, -0.1417e-07, -0.1445e-07, &
      -0.1502e-07, -0.1576e-07, -0.1605e-07, -0.1625e-07, -0.1687e-07, &
      -0.1746e-07, -0.1726e-07, -0.1759e-07, -0.1579e-07, -0.1429e-07, &
      -0.1270e-07, -0.1141e-07, -0.8004e-08, -0.4336e-08, -0.6883e-08, &
      -0.6985e-08, -0.9211e-08, -0.1847e-07, -0.1866e-07, -0.1882e-07, &
      -0.1898e-07, -0.1915e-07, -0.1962e-07, -0.2024e-07, -0.2068e-07, &
      -0.2141e-07, -0.2219e-07, -0.2256e-07, -0.2341e-07, -0.2344e-07, &
      -0.2353e-07, -0.2542e-07, -0.2605e-07, -0.2740e-07, -0.2916e-07, &
      -0.3159e-07, -0.3014e-07, -0.2621e-07, -0.2258e-07, -0.1740e-07, &
      -0.1608e-07, -0.1634e-07, -0.1483e-07, -0.2827e-07, -0.2849e-07, &
      -0.2862e-07, -0.2899e-07, -0.2938e-07, -0.3024e-07, -0.3079e-07, &
      -0.3143e-07, -0.3162e-07, -0.3171e-07, -0.3180e-07, -0.3156e-07, &
      -0.3105e-07, -0.3193e-07, -0.3206e-07, -0.3532e-07, -0.4147e-07, &
      -0.4904e-07, -0.5441e-07, -0.5594e-07, -0.5799e-07, -0.5428e-07, &
      -0.5233e-07, -0.4559e-07, -0.4128e-07, -0.3981e-07, -0.4495e-07, &
      -0.4524e-07, -0.4571e-07, -0.4594e-07, -0.4664e-07, -0.4708e-07, &
      -0.4758e-07, -0.4777e-07, -0.4761e-07, -0.4712e-07, -0.4616e-07, &
      -0.4547e-07, -0.4304e-07, -0.4254e-07, -0.4390e-07, -0.4949e-07, &
      -0.5774e-07, -0.7010e-07, -0.8367e-07, -0.9677e-07, -0.1060e-06, &
      -0.1085e-06, -0.1055e-06, -0.1047e-06, -0.9924e-07, -0.9641e-07, &
      -0.7126e-07, -0.7176e-07, -0.7225e-07, -0.7267e-07, -0.7365e-07, &
      -0.7359e-07, -0.7352e-07, -0.7336e-07, -0.7248e-07, -0.7123e-07, &
      -0.7026e-07, -0.6749e-07, -0.6608e-07, -0.6685e-07, -0.6956e-07, &
      -0.7229e-07, -0.7909e-07, -0.9623e-07, -0.1161e-06, -0.1422e-06, &
      -0.1621e-06, -0.1835e-06, -0.1940e-06, -0.2040e-06, -0.1938e-06, &
      -0.1717e-06, -0.1071e-06, -0.1077e-06, -0.1082e-06, -0.1088e-06, &
      -0.1090e-06, -0.1087e-06, -0.1078e-06, -0.1070e-06, -0.1065e-06, &
      -0.1042e-06, -0.1031e-06, -0.1034e-06, -0.1057e-06, -0.1072e-06, &
      -0.1093e-06, -0.1133e-06, -0.1199e-06, -0.1332e-06, -0.1526e-06, &
      -0.1823e-06, -0.2281e-06, -0.2716e-06, -0.3113e-06, -0.3312e-06, &
      -0.3275e-06, -0.2796e-06, -0.1524e-06, -0.1531e-06, -0.1535e-06, &
      -0.1536e-06, -0.1539e-06, -0.1534e-06, -0.1520e-06, -0.1517e-06, &
      -0.1501e-06, -0.1493e-06, -0.1520e-06, -0.1550e-06, -0.1587e-06, &
      -0.1638e-06, -0.1729e-06, -0.1799e-06, -0.1877e-06, -0.1928e-06, &
      -0.2060e-06, -0.2296e-06, -0.2793e-06, -0.3446e-06, -0.4161e-06, &
      -0.4624e-06, -0.4556e-06, -0.3800e-06, -0.2160e-06, -0.2166e-06, &
      -0.2171e-06, -0.2164e-06, -0.2158e-06, -0.2152e-06, -0.2139e-06, &
      -0.2134e-06, -0.2140e-06, -0.2156e-06, -0.2181e-06, -0.2230e-06, &
      -0.2308e-06, -0.2427e-06, -0.2573e-06, -0.2725e-06, -0.2859e-06, &
      -0.2977e-06, -0.3007e-06, -0.3094e-06, -0.3335e-06, -0.3889e-06, &
      -0.4620e-06, -0.5198e-06, -0.5046e-06, -0.3762e-06, -0.3014e-06, &
      -0.3018e-06, -0.3021e-06, -0.3002e-06, -0.2992e-06, -0.2978e-06, &
      -0.2964e-06, -0.2967e-06, -0.2981e-06, -0.2999e-06, -0.3037e-06, &
      -0.3130e-06, -0.3235e-06, -0.3421e-06, -0.3612e-06, -0.3881e-06, &
      -0.4137e-06, -0.4371e-06, -0.4450e-06, -0.4399e-06, -0.4277e-06, &
      -0.4203e-06, -0.4316e-06, -0.4326e-06, -0.3633e-06, -0.1936e-06, &
      -0.4097e-06, -0.4090e-06, -0.4084e-06, -0.4055e-06, -0.4033e-06, &
      -0.4008e-06, -0.3997e-06, -0.3991e-06, -0.3994e-06, -0.4027e-06, &
      -0.4109e-06, -0.4219e-06, -0.4373e-06, -0.4600e-06, -0.4904e-06, &
      -0.5249e-06, -0.5649e-06, -0.5992e-06, -0.6182e-06, -0.6008e-06, &
      -0.5429e-06, -0.4394e-06, -0.3031e-06, -0.1452e-06,  0.2484e-07, &
       0.1920e-06, -0.5349e-06, -0.5327e-06, -0.5302e-06, -0.5260e-06, &
      -0.5230e-06, -0.5207e-06, -0.5185e-06, -0.5164e-06, -0.5201e-06, &
      -0.5243e-06, -0.5354e-06, -0.5469e-06, -0.5687e-06, -0.5946e-06, &
      -0.6342e-06, -0.6763e-06, -0.7218e-06, -0.7586e-06, -0.7683e-06, &
      -0.7239e-06, -0.5970e-06, -0.3716e-06, -0.5438e-07,  0.3003e-06, &
       0.6195e-06,  0.8335e-06, -0.6718e-06, -0.6670e-06, -0.6615e-06, &
      -0.6571e-06, -0.6537e-06, -0.6509e-06, -0.6493e-06, -0.6510e-06, &
      -0.6549e-06, -0.6616e-06, -0.6740e-06, -0.6922e-06, -0.7156e-06, &
      -0.7472e-06, -0.7834e-06, -0.8227e-06, -0.8516e-06, -0.8580e-06, &
      -0.8170e-06, -0.7014e-06, -0.4872e-06, -0.1677e-06,  0.2572e-06, &
       0.7455e-06,  0.1249e-05,  0.1691e-05, -0.8125e-06, -0.8088e-06, &
      -0.8059e-06, -0.8022e-06, -0.7976e-06, -0.7968e-06, -0.7943e-06, &
      -0.7979e-06, -0.8009e-06, -0.8125e-06, -0.8241e-06, -0.8448e-06, &
      -0.8684e-06, -0.8958e-06, -0.9175e-06, -0.9279e-06, -0.9022e-06, &
      -0.8238e-06, -0.6754e-06, -0.4562e-06, -0.1775e-06,  0.1622e-06, &
       0.5773e-06,  0.1102e-05,  0.1731e-05,  0.2415e-05, -0.9755e-06, &
      -0.9714e-06, -0.9668e-06, -0.9624e-06, -0.9601e-06, -0.9584e-06, &
      -0.9568e-06, -0.9575e-06, -0.9627e-06, -0.9691e-06, -0.9810e-06, &
      -0.9937e-06, -0.1007e-05, -0.1009e-05, -0.9869e-06, -0.9205e-06, &
      -0.7905e-06, -0.5811e-06, -0.3122e-06, -0.7778e-08,  0.3028e-06, &
       0.6327e-06,  0.1008e-05,  0.1470e-05,  0.2053e-05,  0.2767e-05, &
      -0.1157e-05, -0.1151e-05, -0.1146e-05, -0.1139e-05, -0.1135e-05, &
      -0.1128e-05, -0.1127e-05, -0.1123e-05, -0.1125e-05, -0.1126e-05, &
      -0.1126e-05, -0.1118e-05, -0.1094e-05, -0.1032e-05, -0.9164e-06, &
      -0.7228e-06, -0.4531e-06, -0.1298e-06,  0.2234e-06,  0.5785e-06, &
       0.9323e-06,  0.1275e-05,  0.1609e-05,  0.1957e-05,  0.2358e-05, &
       0.2823e-05, -0.1339e-05, -0.1333e-05, -0.1325e-05, -0.1315e-05, &
      -0.1305e-05, -0.1297e-05, -0.1288e-05, -0.1279e-05, -0.1266e-05, &
      -0.1251e-05, -0.1221e-05, -0.1166e-05, -0.1062e-05, -0.8919e-06, &
      -0.6386e-06, -0.3109e-06,  0.6917e-07,  0.4702e-06,  0.8828e-06, &
       0.1291e-05,  0.1680e-05,  0.2018e-05,  0.2290e-05,  0.2474e-05, &
       0.2569e-05,  0.2551e-05, -0.1492e-05, -0.1483e-05, -0.1468e-05, &
      -0.1456e-05, -0.1440e-05, -0.1425e-05, -0.1405e-05, -0.1382e-05, &
      -0.1348e-05, -0.1294e-05, -0.1200e-05, -0.1054e-05, -0.8273e-06, &
      -0.5224e-06, -0.1544e-06,  0.2583e-06,  0.7009e-06,  0.1162e-05, &
       0.1632e-05,  0.2072e-05,  0.2452e-05,  0.2716e-05,  0.2817e-05, &
       0.2691e-05,  0.2342e-05,  0.1839e-05, -0.1563e-05, -0.1548e-05, &
      -0.1530e-05, -0.1512e-05, -0.1490e-05, -0.1461e-05, -0.1425e-05, &
      -0.1374e-05, -0.1292e-05, -0.1163e-05, -0.9678e-06, -0.6926e-06, &
      -0.3485e-06,  0.5218e-07,  0.4798e-06,  0.9390e-06,  0.1416e-05, &
       0.1905e-05,  0.2373e-05,  0.2783e-05,  0.3063e-05,  0.3137e-05, &
       0.2940e-05,  0.2484e-05,  0.1883e-05,  0.1314e-05, -0.1485e-05, &
      -0.1467e-05, -0.1448e-05, -0.1420e-05, -0.1389e-05, -0.1342e-05, &
      -0.1275e-05, -0.1166e-05, -0.1005e-05, -0.7639e-06, -0.4500e-06, &
      -0.7180e-07,  0.3463e-06,  0.7886e-06,  0.1252e-05,  0.1726e-05, &
       0.2194e-05,  0.2632e-05,  0.3002e-05,  0.3247e-05,  0.3299e-05, &
       0.3136e-05,  0.2803e-05,  0.2414e-05,  0.2103e-05,  0.1960e-05, &
      -0.1210e-05, -0.1192e-05, -0.1168e-05, -0.1137e-05, -0.1087e-05, &
      -0.1009e-05, -0.8809e-06, -0.6893e-06, -0.4166e-06, -0.7395e-07, &
       0.3236e-06,  0.7515e-06,  0.1206e-05,  0.1672e-05,  0.2137e-05, &
       0.2579e-05,  0.2963e-05,  0.3247e-05,  0.3384e-05,  0.3358e-05, &
       0.3219e-05,  0.3078e-05,  0.3061e-05,  0.3232e-05,  0.3570e-05, &
       0.4003e-05, -0.7280e-06, -0.7159e-06, -0.6907e-06, -0.6483e-06, &
      -0.5646e-06, -0.4283e-06, -0.2158e-06,  0.7339e-07,  0.4279e-06, &
       0.8279e-06,  0.1256e-05,  0.1709e-05,  0.2173e-05,  0.2626e-05, &
       0.3043e-05,  0.3376e-05,  0.3578e-05,  0.3609e-05,  0.3499e-05, &
       0.3364e-05,  0.3369e-05,  0.3649e-05,  0.4235e-05,  0.5050e-05, &
       0.5973e-05,  0.6909e-05, -0.1107e-06, -0.1032e-06, -0.7148e-07, &
       0.6679e-08,  0.1475e-06,  0.3666e-06,  0.6597e-06,  0.1013e-05, &
       0.1401e-05,  0.1819e-05,  0.2259e-05,  0.2703e-05,  0.3132e-05, &
       0.3513e-05,  0.3796e-05,  0.3931e-05,  0.3900e-05,  0.3772e-05, &
       0.3697e-05,  0.3847e-05,  0.4332e-05,  0.5152e-05,  0.6225e-05, &
       0.7455e-05,  0.8752e-05,  0.1004e-04,  0.5369e-06,  0.5571e-06, &
       0.6242e-06,  0.7652e-06,  0.9852e-06,  0.1272e-05,  0.1610e-05, &
       0.1982e-05,  0.2379e-05,  0.2795e-05,  0.3206e-05,  0.3593e-05, &
       0.3919e-05,  0.4138e-05,  0.4211e-05,  0.4161e-05,  0.4094e-05, &
       0.4166e-05,  0.4517e-05,  0.5194e-05,  0.6152e-05,  0.7315e-05, &
       0.8615e-05,  0.9997e-05,  0.1140e-04,  0.1273e-04,  0.1154e-05, &
       0.1217e-05,  0.1357e-05,  0.1574e-05,  0.1853e-05,  0.2171e-05, &
       0.2524e-05,  0.2896e-05,  0.3278e-05,  0.3647e-05,  0.3978e-05, &
       0.4232e-05,  0.4370e-05,  0.4379e-05,  0.4332e-05,  0.4369e-05, &
       0.4642e-05,  0.5232e-05,  0.6117e-05,  0.7206e-05,  0.8413e-05, &
       0.9675e-05,  0.1095e-04,  0.1217e-04,  0.1328e-04,  0.1423e-04],[26,30])

   real, dimension(26,21) :: oo1 = reshape([ &
       0.99999344, 0.99999344, 0.99999344, 0.99999344, 0.99999344, &
       0.99999344, 0.99999344, 0.99999344, 0.99999344, 0.99999344, &
       0.99999356, 0.99999368, 0.99999368, 0.99999368, 0.99999410, &
       0.99999434, 0.99999434, 0.99999464, 0.99999464, 0.99999487, &
       0.99999487, 0.99999541, 0.99999595, 0.99999630, 0.99999648, &
       0.99999672, 0.99998689, 0.99998689, 0.99998689, 0.99998689, &
       0.99998689, 0.99998689, 0.99998689, 0.99998689, 0.99998689, &
       0.99998689, 0.99998701, 0.99998701, 0.99998701, 0.99998713, &
       0.99998724, 0.99998778, 0.99998778, 0.99998808, 0.99998820, &
       0.99998832, 0.99998873, 0.99998873, 0.99998885, 0.99998873, &
       0.99998897, 0.99998909, 0.99997336, 0.99997348, 0.99997348, &
       0.99997348, 0.99997348, 0.99997348, 0.99997348, 0.99997348, &
       0.99997360, 0.99997360, 0.99997360, 0.99997377, 0.99997389, &
       0.99997389, 0.99997455, 0.99997467, 0.99997479, 0.99997497, &
       0.99997509, 0.99997520, 0.99997509, 0.99997497, 0.99997479, &
       0.99997401, 0.99997377, 0.99997377, 0.99994606, 0.99994606, &
       0.99994606, 0.99994606, 0.99994606, 0.99994606, 0.99994630, &
       0.99994630, 0.99994630, 0.99994630, 0.99994630, 0.99994630, &
       0.99994695, 0.99994725, 0.99994725, 0.99994761, 0.99994791, &
       0.99994791, 0.99994779, 0.99994791, 0.99994779, 0.99994737, &
       0.99994725, 0.99994725, 0.99994749, 0.99994695, 0.99989170, &
       0.99989170, 0.99989170, 0.99989200, 0.99989200, 0.99989200, &
       0.99989200, 0.99989229, 0.99989229, 0.99989259, 0.99989289, &
       0.99989259, 0.99989289, 0.99989289, 0.99989331, 0.99989331, &
       0.99989331, 0.99989331, 0.99989331, 0.99989331, 0.99989349, &
       0.99989349, 0.99989331, 0.99989349, 0.99989331, 0.99989349, &
       0.99978632, 0.99978632, 0.99978632, 0.99978632, 0.99978638, &
       0.99978638, 0.99978638, 0.99978650, 0.99978650, 0.99978650, &
       0.99978679, 0.99978709, 0.99978721, 0.99978679, 0.99978632, &
       0.99978602, 0.99978608, 0.99978518, 0.99978518, 0.99978459, &
       0.99978501, 0.99978501, 0.99978518, 0.99978501, 0.99978501, &
       0.99978518, 0.99957907, 0.99957907, 0.99957907, 0.99957907, &
       0.99957907, 0.99957931, 0.99957931, 0.99957931, 0.99957961, &
       0.99957931, 0.99957907, 0.99957848, 0.99957782, 0.99957597, &
       0.99957472, 0.99957269, 0.99957120, 0.99957031, 0.99956989, &
       0.99956900, 0.99956918, 0.99956882, 0.99956882, 0.99956959, &
       0.99956989, 0.99956989, 0.99918377, 0.99918377, 0.99918377, &
       0.99918377, 0.99918377, 0.99918377, 0.99918360, 0.99918288, &
       0.99918252, 0.99918163, 0.99917960, 0.99917740, 0.99917412, &
       0.99916971, 0.99916393, 0.99915779, 0.99915212, 0.99914658, &
       0.99914283, 0.99913990, 0.99913877, 0.99913770, 0.99913692, &
       0.99913663, 0.99913692, 0.99913692, 0.99844402, 0.99844402, &
       0.99844402, 0.99844402, 0.99844402, 0.99844301, 0.99844301, &
       0.99844098, 0.99843901, 0.99843597, 0.99843001, 0.99842203, &
       0.99840999, 0.99839503, 0.99837703, 0.99835497, 0.99833500, &
       0.99831802, 0.99830401, 0.99829400, 0.99828798, 0.99828303, &
       0.99827999, 0.99827701, 0.99827600, 0.99827498, 0.99712098, &
       0.99712098, 0.99712098, 0.99711901, 0.99711901, 0.99711698, &
       0.99711502, 0.99711001, 0.99710202, 0.99709100, 0.99707502, &
       0.99704897, 0.99701297, 0.99696702, 0.99690801, 0.99684399, &
       0.99677801, 0.99671799, 0.99667197, 0.99663699, 0.99661303, &
       0.99659699, 0.99658602, 0.99658000, 0.99657297, 0.99657100, &
       0.99489498, 0.99489498, 0.99489301, 0.99489301, 0.99488801, &
       0.99488401, 0.99487501, 0.99486202, 0.99484003, 0.99480897, &
       0.99475998, 0.99468797, 0.99458599, 0.99444997, 0.99427801, &
       0.99408400, 0.99388403, 0.99370098, 0.99355298, 0.99344099, &
       0.99335998, 0.99330199, 0.99326497, 0.99324101, 0.99322498, &
       0.99321902, 0.99144602, 0.99144298, 0.99143898, 0.99143499, &
       0.99142599, 0.99141300, 0.99138802, 0.99135500, 0.99130303, &
       0.99122101, 0.99109501, 0.99090999, 0.99064600, 0.99028301, &
       0.98982000, 0.98929000, 0.98873001, 0.98821002, 0.98776001, &
       0.98741001, 0.98715001, 0.98697001, 0.98685002, 0.98676997, &
       0.98672003, 0.98668998, 0.98655999, 0.98654997, 0.98654997, &
       0.98653001, 0.98650998, 0.98648000, 0.98642999, 0.98635000, &
       0.98623002, 0.98604000, 0.98575002, 0.98532999, 0.98471999, &
       0.98387003, 0.98277998, 0.98148000, 0.98005998, 0.97867000, &
       0.97741997, 0.97643000, 0.97566003, 0.97510999, 0.97474003, &
       0.97447002, 0.97431999, 0.97421002, 0.98008001, 0.98006999, &
       0.98005998, 0.98003000, 0.97999001, 0.97992003, 0.97982001, &
       0.97965997, 0.97940999, 0.97902000, 0.97843999, 0.97758001, &
       0.97632003, 0.97457999, 0.97232002, 0.96954000, 0.96639001, &
       0.96313000, 0.96007001, 0.95743001, 0.95530999, 0.95372999, &
       0.95260000, 0.95185000, 0.95137000, 0.95106000, 0.97165000, &
       0.97162998, 0.97158998, 0.97153997, 0.97148001, 0.97135001, &
       0.97114998, 0.97083998, 0.97038001, 0.96965003, 0.96855003, &
       0.96693999, 0.96464998, 0.96148002, 0.95731997, 0.95212001, &
       0.94606000, 0.93948001, 0.93285000, 0.92672002, 0.92153001, &
       0.91742998, 0.91441000, 0.91232002, 0.91095001, 0.91009998, &
       0.96043998, 0.96042001, 0.96035999, 0.96026999, 0.96011001, &
       0.95989001, 0.95954001, 0.95898998, 0.95815003, 0.95684999, &
       0.95494002, 0.95213997, 0.94819999, 0.94284999, 0.93585998, &
       0.92719001, 0.91689998, 0.90534002, 0.89310002, 0.88099998, &
       0.87000000, 0.86080003, 0.85360003, 0.84850001, 0.84500003, &
       0.84280002, 0.94527000, 0.94520003, 0.94509000, 0.94493997, &
       0.94467002, 0.94428003, 0.94363999, 0.94266999, 0.94119000, &
       0.93896997, 0.93572998, 0.93109000, 0.92467999, 0.91613001, &
       0.90521002, 0.89170003, 0.87580001, 0.85769999, 0.83819997, &
       0.81809998, 0.79869998, 0.78139997, 0.76719999, 0.75660002, &
       0.74909997, 0.74430001, 0.92462999, 0.92449999, 0.92431998, &
       0.92404002, 0.92356998, 0.92286998, 0.92176998, 0.92009997, &
       0.91755998, 0.91386002, 0.90853000, 0.90110999, 0.89109999, &
       0.87809998, 0.86180001, 0.84200001, 0.81889999, 0.79310000, &
       0.76520002, 0.73660004, 0.70819998, 0.68220001, 0.65990001, &
       0.64230001, 0.62979996, 0.62180001, 0.89709997, 0.89690000, &
       0.89660001, 0.89609998, 0.89530003, 0.89410001, 0.89219999, &
       0.88929999, 0.88510001, 0.87910002, 0.87070000, 0.85930002, &
       0.84430003, 0.82520002, 0.80190003, 0.77420002, 0.74280000, &
       0.70840001, 0.67250001, 0.63620001, 0.60109997, 0.56920004, &
       0.54190004, 0.52030003, 0.50510001, 0.49519998, 0.86180001, &
       0.86140001, 0.86080003, 0.85990000, 0.85860002, 0.85640001, &
       0.85329998, 0.84860003, 0.84189999, 0.83249998, 0.81970000, &
       0.80290002, 0.78139997, 0.75489998, 0.72290003, 0.68620002, &
       0.64559996, 0.60290003, 0.56000000, 0.51880002, 0.48110002, &
       0.44809997, 0.42119998, 0.40090001, 0.38679999, 0.37800002, &
       0.81800002, 0.81739998, 0.81639999, 0.81480002, 0.81250000, &
       0.80890000, 0.80379999, 0.79640001, 0.78610003, 0.77200001, &
       0.75380003, 0.73019999, 0.70070004, 0.66520000, 0.62380004, &
       0.57780004, 0.52869999, 0.47930002, 0.43199998, 0.38880002, &
       0.35140002, 0.32080001, 0.29699999, 0.27980000, 0.26789999, &
       0.25999999],[26,21]) 

   real, dimension(26,21) :: oo2 = reshape([ &
       0.6531e-10,  0.6193e-10,  0.5658e-10,  0.4814e-10,  0.3482e-10, &
       0.1388e-10, -0.1889e-10, -0.6983e-10, -0.1481e-09, -0.2661e-09, &
      -0.4394e-09, -0.6829e-09, -0.1004e-08, -0.1387e-08, -0.1788e-08, &
      -0.2141e-08, -0.2400e-08, -0.2557e-08, -0.2630e-08, -0.2651e-08, &
      -0.2654e-08, -0.2653e-08, -0.2653e-08, -0.2653e-08, -0.2653e-08, &
      -0.2652e-08,  0.5926e-10,  0.5262e-10,  0.4212e-10,  0.2552e-10, &
      -0.6492e-12, -0.4180e-10, -0.1062e-09, -0.2063e-09, -0.3601e-09, &
      -0.5923e-09, -0.9330e-09, -0.1412e-08, -0.2043e-08, -0.2798e-08, &
      -0.3588e-08, -0.4286e-08, -0.4796e-08, -0.5106e-08, -0.5249e-08, &
      -0.5291e-08, -0.5296e-08, -0.5295e-08, -0.5294e-08, -0.5294e-08, &
      -0.5293e-08, -0.5292e-08, -0.1646e-09, -0.1774e-09, -0.1977e-09, &
      -0.2298e-09, -0.2805e-09, -0.3601e-09, -0.4847e-09, -0.6785e-09, &
      -0.9762e-09, -0.1426e-08, -0.2086e-08, -0.3014e-08, -0.4239e-08, &
      -0.5706e-08, -0.7244e-08, -0.8603e-08, -0.9599e-08, -0.1020e-07, &
      -0.1048e-07, -0.1056e-07, -0.1057e-07, -0.1057e-07, -0.1057e-07, &
      -0.1056e-07, -0.1056e-07, -0.1056e-07, -0.1454e-08, -0.1478e-08, &
      -0.1516e-08, -0.1576e-08, -0.1671e-08, -0.1820e-08, -0.2053e-08, &
      -0.2416e-08, -0.2973e-08, -0.3816e-08, -0.5054e-08, -0.6799e-08, &
      -0.9104e-08, -0.1187e-07, -0.1479e-07, -0.1737e-07, -0.1927e-07, &
      -0.2043e-07, -0.2096e-07, -0.2110e-07, -0.2111e-07, -0.2110e-07, &
      -0.2109e-07, -0.2109e-07, -0.2108e-07, -0.2108e-07, -0.7376e-08, &
      -0.7416e-08, -0.7481e-08, -0.7579e-08, -0.7740e-08, -0.7993e-08, &
      -0.8389e-08, -0.9000e-08, -0.1014e-07, -0.1159e-07, -0.1373e-07, &
      -0.1675e-07, -0.2075e-07, -0.2564e-07, -0.3083e-07, -0.3548e-07, &
      -0.3892e-07, -0.4103e-07, -0.4198e-07, -0.4221e-07, -0.4219e-07, &
      -0.4215e-07, -0.4212e-07, -0.4210e-07, -0.4209e-07, -0.4208e-07, &
      -0.2968e-07, -0.2985e-07, -0.2995e-07, -0.3009e-07, -0.3032e-07, &
      -0.3068e-07, -0.3140e-07, -0.3243e-07, -0.3421e-07, -0.3654e-07, &
      -0.3971e-07, -0.4450e-07, -0.5096e-07, -0.5866e-07, -0.6671e-07, &
      -0.7410e-07, -0.7954e-07, -0.8293e-07, -0.8440e-07, -0.8462e-07, &
      -0.8445e-07, -0.8430e-07, -0.8420e-07, -0.8413e-07, -0.8409e-07, &
      -0.8406e-07, -0.1071e-06, -0.1071e-06, -0.1072e-06, -0.1074e-06, &
      -0.1076e-06, -0.1081e-06, -0.1089e-06, -0.1100e-06, -0.1121e-06, &
      -0.1143e-06, -0.1178e-06, -0.1235e-06, -0.1307e-06, -0.1398e-06, &
      -0.1497e-06, -0.1590e-06, -0.1661e-06, -0.1697e-06, -0.1710e-06, &
      -0.1705e-06, -0.1696e-06, -0.1690e-06, -0.1686e-06, -0.1684e-06, &
      -0.1682e-06, -0.1681e-06, -0.3584e-06, -0.3584e-06, -0.3583e-06, &
      -0.3581e-06, -0.3582e-06, -0.3580e-06, -0.3577e-06, -0.3574e-06, &
      -0.3569e-06, -0.3559e-06, -0.3546e-06, -0.3538e-06, -0.3520e-06, &
      -0.3516e-06, -0.3519e-06, -0.3537e-06, -0.3540e-06, -0.3531e-06, &
      -0.3513e-06, -0.3466e-06, -0.3428e-06, -0.3403e-06, -0.3388e-06, &
      -0.3379e-06, -0.3373e-06, -0.3369e-06, -0.1125e-05, -0.1124e-05, &
      -0.1123e-05, -0.1122e-05, -0.1120e-05, -0.1117e-05, -0.1112e-05, &
      -0.1104e-05, -0.1092e-05, -0.1074e-05, -0.1049e-05, -0.1014e-05, &
      -0.9671e-06, -0.9148e-06, -0.8607e-06, -0.8142e-06, -0.7780e-06, &
      -0.7531e-06, -0.7326e-06, -0.7155e-06, -0.7013e-06, -0.6919e-06, &
      -0.6858e-06, -0.6820e-06, -0.6797e-06, -0.6784e-06, -0.3289e-05, &
      -0.3287e-05, -0.3283e-05, -0.3278e-05, -0.3270e-05, -0.3257e-05, &
      -0.3236e-05, -0.3205e-05, -0.3156e-05, -0.3083e-05, -0.2976e-05, &
      -0.2827e-05, -0.2630e-05, -0.2398e-05, -0.2154e-05, -0.1935e-05, &
      -0.1763e-05, -0.1645e-05, -0.1562e-05, -0.1501e-05, -0.1458e-05, &
      -0.1427e-05, -0.1406e-05, -0.1393e-05, -0.1383e-05, -0.1378e-05, &
      -0.8760e-05, -0.8753e-05, -0.8744e-05, -0.8729e-05, -0.8704e-05, &
      -0.8667e-05, -0.8607e-05, -0.8516e-05, -0.8375e-05, -0.8159e-05, &
      -0.7847e-05, -0.7407e-05, -0.6825e-05, -0.6122e-05, -0.5364e-05, &
      -0.4658e-05, -0.4092e-05, -0.3690e-05, -0.3416e-05, -0.3223e-05, &
      -0.3084e-05, -0.2991e-05, -0.2928e-05, -0.2889e-05, -0.2862e-05, &
      -0.2843e-05, -0.2070e-04, -0.2069e-04, -0.2067e-04, -0.2063e-04, &
      -0.2058e-04, -0.2049e-04, -0.2035e-04, -0.2014e-04, -0.1981e-04, &
      -0.1932e-04, -0.1860e-04, -0.1759e-04, -0.1624e-04, -0.1459e-04, &
      -0.1276e-04, -0.1099e-04, -0.9512e-05, -0.8411e-05, -0.7637e-05, &
      -0.7079e-05, -0.6678e-05, -0.6399e-05, -0.6206e-05, -0.6080e-05, &
      -0.5993e-05, -0.5944e-05, -0.4259e-04, -0.4256e-04, -0.4252e-04, &
      -0.4245e-04, -0.4235e-04, -0.4218e-04, -0.4192e-04, -0.4151e-04, &
      -0.4090e-04, -0.3998e-04, -0.3864e-04, -0.3676e-04, -0.3429e-04, &
      -0.3125e-04, -0.2785e-04, -0.2444e-04, -0.2142e-04, -0.1902e-04, &
      -0.1719e-04, -0.1581e-04, -0.1476e-04, -0.1398e-04, -0.1344e-04, &
      -0.1307e-04, -0.1283e-04, -0.1269e-04, -0.7691e-04, -0.7686e-04, &
      -0.7679e-04, -0.7667e-04, -0.7649e-04, -0.7620e-04, -0.7576e-04, &
      -0.7508e-04, -0.7405e-04, -0.7253e-04, -0.7038e-04, -0.6744e-04, &
      -0.6369e-04, -0.5923e-04, -0.5435e-04, -0.4948e-04, -0.4502e-04, &
      -0.4118e-04, -0.3795e-04, -0.3517e-04, -0.3284e-04, -0.3099e-04, &
      -0.2961e-04, -0.2861e-04, -0.2795e-04, -0.2759e-04, -0.1264e-03, &
      -0.1264e-03, -0.1262e-03, -0.1260e-03, -0.1257e-03, -0.1253e-03, &
      -0.1245e-03, -0.1234e-03, -0.1218e-03, -0.1194e-03, -0.1162e-03, &
      -0.1120e-03, -0.1069e-03, -0.1013e-03, -0.9573e-04, -0.9067e-04, &
      -0.8640e-04, -0.8276e-04, -0.7926e-04, -0.7553e-04, -0.7173e-04, &
      -0.6824e-04, -0.6533e-04, -0.6310e-04, -0.6158e-04, -0.6078e-04, &
      -0.1957e-03, -0.1956e-03, -0.1953e-03, -0.1950e-03, -0.1945e-03, &
      -0.1937e-03, -0.1925e-03, -0.1907e-03, -0.1881e-03, -0.1845e-03, &
      -0.1798e-03, -0.1742e-03, -0.1680e-03, -0.1620e-03, -0.1570e-03, &
      -0.1538e-03, -0.1525e-03, -0.1525e-03, -0.1524e-03, -0.1510e-03, &
      -0.1481e-03, -0.1441e-03, -0.1399e-03, -0.1363e-03, -0.1338e-03, &
      -0.1326e-03, -0.2895e-03, -0.2893e-03, -0.2889e-03, -0.2883e-03, &
      -0.2874e-03, -0.2860e-03, -0.2840e-03, -0.2811e-03, -0.2770e-03, &
      -0.2718e-03, -0.2654e-03, -0.2585e-03, -0.2520e-03, -0.2473e-03, &
      -0.2455e-03, -0.2474e-03, -0.2526e-03, -0.2601e-03, -0.2680e-03, &
      -0.2746e-03, -0.2786e-03, -0.2795e-03, -0.2780e-03, -0.2758e-03, &
      -0.2743e-03, -0.2742e-03, -0.4107e-03, -0.4103e-03, -0.4096e-03, &
      -0.4086e-03, -0.4070e-03, -0.4047e-03, -0.4013e-03, -0.3966e-03, &
      -0.3906e-03, -0.3833e-03, -0.3754e-03, -0.3683e-03, -0.3635e-03, &
      -0.3631e-03, -0.3682e-03, -0.3793e-03, -0.3955e-03, -0.4147e-03, &
      -0.4344e-03, -0.4528e-03, -0.4688e-03, -0.4814e-03, -0.4904e-03, &
      -0.4969e-03, -0.5030e-03, -0.5088e-03, -0.5588e-03, -0.5580e-03, &
      -0.5567e-03, -0.5549e-03, -0.5521e-03, -0.5481e-03, -0.5427e-03, &
      -0.5355e-03, -0.5269e-03, -0.5176e-03, -0.5091e-03, -0.5034e-03, &
      -0.5029e-03, -0.5098e-03, -0.5253e-03, -0.5495e-03, -0.5805e-03, &
      -0.6149e-03, -0.6486e-03, -0.6789e-03, -0.7052e-03, -0.7282e-03, &
      -0.7488e-03, -0.7681e-03, -0.7863e-03, -0.8013e-03, -0.7300e-03, &
      -0.7285e-03, -0.7263e-03, -0.7229e-03, -0.7181e-03, -0.7115e-03, &
      -0.7029e-03, -0.6924e-03, -0.6810e-03, -0.6701e-03, -0.6621e-03, &
      -0.6594e-03, -0.6647e-03, -0.6800e-03, -0.7065e-03, -0.7439e-03, &
      -0.7897e-03, -0.8384e-03, -0.8838e-03, -0.9214e-03, -0.9506e-03, &
      -0.9739e-03, -0.9953e-03, -0.1017e-02, -0.1038e-02, -0.1054e-02, &
      -0.9199e-03, -0.9171e-03, -0.9130e-03, -0.9071e-03, -0.8990e-03, &
      -0.8885e-03, -0.8756e-03, -0.8613e-03, -0.8471e-03, -0.8354e-03, &
      -0.8286e-03, -0.8290e-03, -0.8390e-03, -0.8603e-03, -0.8938e-03, &
      -0.9383e-03, -0.9899e-03, -0.1042e-02, -0.1089e-02, -0.1124e-02, &
      -0.1148e-02, -0.1163e-02, -0.1175e-02, -0.1186e-02, -0.1196e-02, &
      -0.1202e-02],[26,21])

   real, dimension(26,21) :: oo3 = reshape([ &
      -0.2438e-10, -0.2436e-10, -0.2433e-10, -0.2428e-10, -0.2419e-10, &
      -0.2406e-10, -0.2385e-10, -0.2353e-10, -0.2304e-10, -0.2232e-10, &
      -0.2127e-10, -0.1985e-10, -0.1807e-10, -0.1610e-10, -0.1429e-10, &
      -0.1295e-10, -0.1220e-10, -0.1189e-10, -0.1188e-10, -0.1193e-10, &
      -0.1195e-10, -0.1195e-10, -0.1195e-10, -0.1195e-10, -0.1195e-10, &
      -0.1194e-10, -0.4826e-10, -0.4822e-10, -0.4815e-10, -0.4805e-10, &
      -0.4788e-10, -0.4762e-10, -0.4722e-10, -0.4659e-10, -0.4564e-10, &
      -0.4421e-10, -0.4216e-10, -0.3937e-10, -0.3587e-10, -0.3200e-10, &
      -0.2843e-10, -0.2581e-10, -0.2432e-10, -0.2372e-10, -0.2369e-10, &
      -0.2380e-10, -0.2384e-10, -0.2384e-10, -0.2384e-10, -0.2384e-10, &
      -0.2383e-10, -0.2383e-10, -0.9474e-10, -0.9466e-10, -0.9453e-10, &
      -0.9433e-10, -0.9401e-10, -0.9351e-10, -0.9273e-10, -0.9153e-10, &
      -0.8969e-10, -0.8695e-10, -0.8300e-10, -0.7761e-10, -0.7085e-10, &
      -0.6337e-10, -0.5645e-10, -0.5136e-10, -0.4845e-10, -0.4729e-10, &
      -0.4725e-10, -0.4748e-10, -0.4755e-10, -0.4756e-10, -0.4756e-10, &
      -0.4756e-10, -0.4755e-10, -0.4754e-10, -0.1828e-09, -0.1827e-09, &
      -0.1825e-09, -0.1821e-09, -0.1815e-09, -0.1806e-09, -0.1791e-09, &
      -0.1769e-09, -0.1735e-09, -0.1684e-09, -0.1611e-09, -0.1511e-09, &
      -0.1385e-09, -0.1245e-09, -0.1115e-09, -0.1019e-09, -0.9640e-10, &
      -0.9421e-10, -0.9417e-10, -0.9465e-10, -0.9482e-10, -0.9485e-10, &
      -0.9485e-10, -0.9485e-10, -0.9484e-10, -0.9482e-10, -0.3406e-09, &
      -0.3404e-09, -0.3400e-09, -0.3394e-09, -0.3385e-09, -0.3370e-09, &
      -0.3348e-09, -0.3313e-09, -0.3224e-09, -0.3141e-09, -0.3019e-09, &
      -0.2855e-09, -0.2648e-09, -0.2408e-09, -0.2181e-09, -0.2011e-09, &
      -0.1912e-09, -0.1873e-09, -0.1875e-09, -0.1886e-09, -0.1890e-09, &
      -0.1891e-09, -0.1891e-09, -0.1891e-09, -0.1891e-09, -0.1891e-09, &
      -0.6223e-09, -0.6220e-09, -0.6215e-09, -0.6206e-09, -0.6192e-09, &
      -0.6170e-09, -0.6121e-09, -0.6054e-09, -0.5933e-09, -0.5765e-09, &
      -0.5597e-09, -0.5313e-09, -0.4958e-09, -0.4533e-09, -0.4200e-09, &
      -0.3916e-09, -0.3771e-09, -0.3713e-09, -0.3725e-09, -0.3751e-09, &
      -0.3761e-09, -0.3765e-09, -0.3767e-09, -0.3768e-09, -0.3768e-09, &
      -0.3768e-09, -0.1008e-08, -0.1008e-08, -0.1007e-08, -0.1008e-08, &
      -0.1006e-08, -0.1004e-08, -0.9974e-09, -0.9899e-09, -0.9756e-09, &
      -0.9606e-09, -0.9431e-09, -0.9251e-09, -0.8900e-09, -0.8405e-09, &
      -0.7916e-09, -0.7585e-09, -0.7392e-09, -0.7317e-09, -0.7365e-09, &
      -0.7436e-09, -0.7469e-09, -0.7483e-09, -0.7492e-09, -0.7497e-09, &
      -0.7499e-09, -0.7499e-09, -0.1412e-08, -0.1414e-08, -0.1415e-08, &
      -0.1416e-08, -0.1417e-08, -0.1417e-08, -0.1422e-08, -0.1430e-08, &
      -0.1428e-08, -0.1434e-08, -0.1450e-08, -0.1470e-08, -0.1473e-08, &
      -0.1464e-08, -0.1460e-08, -0.1439e-08, -0.1420e-08, -0.1437e-08, &
      -0.1445e-08, -0.1466e-08, -0.1476e-08, -0.1481e-08, -0.1485e-08, &
      -0.1487e-08, -0.1489e-08, -0.1489e-08, -0.1244e-08, -0.1247e-08, &
      -0.1253e-08, -0.1261e-08, -0.1273e-08, -0.1297e-08, -0.1326e-08, &
      -0.1375e-08, -0.1446e-08, -0.1551e-08, -0.1694e-08, -0.1898e-08, &
      -0.2112e-08, -0.2337e-08, -0.2542e-08, -0.2648e-08, -0.2702e-08, &
      -0.2764e-08, -0.2814e-08, -0.2872e-08, -0.2892e-08, -0.2908e-08, &
      -0.2924e-08, -0.2933e-08, -0.2939e-08, -0.2941e-08,  0.8485e-09, &
       0.8360e-09,  0.8143e-09,  0.7860e-09,  0.7404e-09,  0.6738e-09, &
       0.5603e-09,  0.3874e-09,  0.1156e-09, -0.2663e-09, -0.7913e-09, &
      -0.1519e-08, -0.2399e-08, -0.3341e-08, -0.4168e-08, -0.4747e-08, &
      -0.5049e-08, -0.5243e-08, -0.5384e-08, -0.5508e-08, -0.5603e-08, &
      -0.5660e-08, -0.5671e-08, -0.5710e-08, -0.5741e-08, -0.5752e-08, &
       0.6343e-08,  0.6312e-08,  0.6269e-08,  0.6188e-08,  0.6068e-08, &
       0.5895e-08,  0.5604e-08,  0.5171e-08,  0.4499e-08,  0.3515e-08, &
       0.2144e-08,  0.2914e-09, -0.2002e-08, -0.4467e-08, -0.6703e-08, &
      -0.8301e-08, -0.9214e-08, -0.9691e-08, -0.1008e-07, -0.1038e-07, &
      -0.1060e-07, -0.1075e-07, -0.1084e-07, -0.1089e-07, -0.1100e-07, &
      -0.1104e-07,  0.1201e-07,  0.1194e-07,  0.1186e-07,  0.1171e-07, &
       0.1148e-07,  0.1113e-07,  0.1061e-07,  0.9807e-08,  0.8469e-08, &
       0.6549e-08,  0.3990e-08,  0.5675e-09, -0.3646e-08, -0.8154e-08, &
      -0.1215e-07, -0.1499e-07, -0.1659e-07, -0.1751e-07, -0.1816e-07, &
      -0.1891e-07, -0.1942e-07, -0.1980e-07, -0.2009e-07, -0.2037e-07, &
      -0.2066e-07, -0.2069e-07,  0.2838e-08,  0.2753e-08,  0.2604e-08, &
       0.2389e-08,  0.2021e-08,  0.1466e-08,  0.6106e-09, -0.7345e-09, &
      -0.2720e-08, -0.5479e-08, -0.9282e-08, -0.1405e-07, -0.1931e-07, &
      -0.2436e-07, -0.2821e-07, -0.3024e-07, -0.3101e-07, -0.3122e-07, &
      -0.3179e-07, -0.3279e-07, -0.3393e-07, -0.3472e-07, -0.3549e-07, &
      -0.3616e-07, -0.3660e-07, -0.3661e-07, -0.4024e-07, -0.4040e-07, &
      -0.4067e-07, -0.4109e-07, -0.4165e-07, -0.4265e-07, -0.4398e-07, &
      -0.4604e-07, -0.4904e-07, -0.5312e-07, -0.5810e-07, -0.6359e-07, &
      -0.6852e-07, -0.7128e-07, -0.7073e-07, -0.6702e-07, -0.6162e-07, &
      -0.5693e-07, -0.5453e-07, -0.5420e-07, -0.5508e-07, -0.5626e-07, &
      -0.5773e-07, -0.5907e-07, -0.6002e-07, -0.6012e-07, -0.1257e-06, &
      -0.1260e-06, -0.1264e-06, -0.1271e-06, -0.1281e-06, -0.1298e-06, &
      -0.1321e-06, -0.1356e-06, -0.1401e-06, -0.1460e-06, -0.1525e-06, &
      -0.1584e-06, -0.1618e-06, -0.1604e-06, -0.1530e-06, -0.1399e-06, &
      -0.1235e-06, -0.1076e-06, -0.9500e-07, -0.8711e-07, -0.8290e-07, &
      -0.8149e-07, -0.8208e-07, -0.8351e-07, -0.8431e-07, -0.8399e-07, &
      -0.2566e-06, -0.2571e-06, -0.2579e-06, -0.2591e-06, -0.2609e-06, &
      -0.2636e-06, -0.2676e-06, -0.2731e-06, -0.2801e-06, -0.2883e-06, &
      -0.2965e-06, -0.3020e-06, -0.3021e-06, -0.2945e-06, -0.2791e-06, &
      -0.2564e-06, -0.2287e-06, -0.1981e-06, -0.1679e-06, -0.1403e-06, &
      -0.1182e-06, -0.1027e-06, -0.9394e-07, -0.8925e-07, -0.8556e-07, &
      -0.8183e-07, -0.4298e-06, -0.4307e-06, -0.4321e-06, -0.4344e-06, &
      -0.4375e-06, -0.4423e-06, -0.4490e-06, -0.4577e-06, -0.4681e-06, &
      -0.4787e-06, -0.4869e-06, -0.4893e-06, -0.4828e-06, -0.4666e-06, &
      -0.4426e-06, -0.4117e-06, -0.3755e-06, -0.3324e-06, -0.2819e-06, &
      -0.2248e-06, -0.1657e-06, -0.1136e-06, -0.7270e-07, -0.4122e-07, &
      -0.1674e-07,  0.1930e-08, -0.6184e-06, -0.6202e-06, -0.6229e-06, &
      -0.6267e-06, -0.6323e-06, -0.6402e-06, -0.6507e-06, -0.6632e-06, &
      -0.6761e-06, -0.6863e-06, -0.6894e-06, -0.6821e-06, -0.6634e-06, &
      -0.6357e-06, -0.6027e-06, -0.5669e-06, -0.5274e-06, -0.4785e-06, &
      -0.4109e-06, -0.3221e-06, -0.2170e-06, -0.1071e-06, -0.3947e-08, &
       0.8779e-07,  0.1638e-06,  0.2167e-06, -0.7657e-06, -0.7687e-06, &
      -0.7732e-06, -0.7797e-06, -0.7887e-06, -0.8005e-06, -0.8145e-06, &
      -0.8284e-06, -0.8387e-06, -0.8399e-06, -0.8281e-06, -0.8021e-06, &
      -0.7643e-06, -0.7187e-06, -0.6707e-06, -0.6239e-06, -0.5790e-06, &
      -0.5280e-06, -0.4555e-06, -0.3459e-06, -0.1997e-06, -0.2991e-07, &
       0.1456e-06,  0.3143e-06,  0.4525e-06,  0.5434e-06, -0.8153e-06, &
      -0.8204e-06, -0.8277e-06, -0.8378e-06, -0.8508e-06, -0.8658e-06, &
      -0.8801e-06, -0.8894e-06, -0.8879e-06, -0.8703e-06, -0.8350e-06, &
      -0.7834e-06, -0.7177e-06, -0.6419e-06, -0.5591e-06, -0.4748e-06, &
      -0.3947e-06, -0.3174e-06, -0.2283e-06, -0.1066e-06,  0.6227e-07, &
       0.2743e-06,  0.5083e-06,  0.7281e-06,  0.8949e-06,  0.9990e-06, &
      -0.7552e-06, -0.7636e-06, -0.7752e-06, -0.7901e-06, -0.8067e-06, &
      -0.8222e-06, -0.8311e-06, -0.8267e-06, -0.8040e-06, -0.7602e-06, &
      -0.6956e-06, -0.6105e-06, -0.5054e-06, -0.3795e-06, -0.2328e-06, &
      -0.7013e-07,  0.1003e-06,  0.2672e-06,  0.4283e-06,  0.5938e-06, &
       0.7847e-06,  0.1017e-05,  0.1270e-05,  0.1500e-05,  0.1669e-05, &
       0.1787e-05],[26,21])

   real, dimension(26,31) :: h11 = reshape([ &
       0.99993843, 0.99993837, 0.99993825, 0.99993813, 0.99993789, &
       0.99993753, 0.99993700, 0.99993622, 0.99993503, 0.99993336, &
       0.99993110, 0.99992824, 0.99992472, 0.99992090, 0.99991709, &
       0.99991363, 0.99991077, 0.99990851, 0.99990678, 0.99990559, &
       0.99990469, 0.99990410, 0.99990374, 0.99990344, 0.99990326, &
       0.99990320, 0.99990183, 0.99990171, 0.99990153, 0.99990118, &
       0.99990070, 0.99989992, 0.99989867, 0.99989682, 0.99989408, &
       0.99989021, 0.99988490, 0.99987793, 0.99986941, 0.99985969, &
       0.99984968, 0.99984020, 0.99983180, 0.99982500, 0.99981970, &
       0.99981570, 0.99981278, 0.99981070, 0.99980932, 0.99980831, &
       0.99980772, 0.99980718, 0.99985260, 0.99985230, 0.99985188, &
       0.99985123, 0.99985009, 0.99984848, 0.99984592, 0.99984211, &
       0.99983650, 0.99982840, 0.99981719, 0.99980247, 0.99978399, &
       0.99976218, 0.99973857, 0.99971467, 0.99969262, 0.99967349, &
       0.99965781, 0.99964547, 0.99963617, 0.99962938, 0.99962449, &
       0.99962109, 0.99961871, 0.99961710, 0.99979079, 0.99979031, &
       0.99978942, 0.99978811, 0.99978602, 0.99978292, 0.99977797, &
       0.99977070, 0.99975997, 0.99974459, 0.99972337, 0.99969512, &
       0.99965900, 0.99961531, 0.99956548, 0.99951237, 0.99945968, &
       0.99941093, 0.99936831, 0.99933308, 0.99930513, 0.99928379, &
       0.99926788, 0.99925637, 0.99924821, 0.99924242, 0.99971771, &
       0.99971670, 0.99971509, 0.99971271, 0.99970889, 0.99970299, &
       0.99969423, 0.99968100, 0.99966192, 0.99963468, 0.99959719, &
       0.99954712, 0.99948251, 0.99940270, 0.99930853, 0.99920303, &
       0.99909151, 0.99897999, 0.99887598, 0.99878299, 0.99870503, &
       0.99864298, 0.99859399, 0.99855798, 0.99853098, 0.99851102, &
       0.99963379, 0.99963200, 0.99962920, 0.99962479, 0.99961799, &
       0.99960762, 0.99959219, 0.99956948, 0.99953687, 0.99949121, &
       0.99942869, 0.99934530, 0.99923742, 0.99910218, 0.99893898, &
       0.99874902, 0.99853700, 0.99831200, 0.99808502, 0.99786699, &
       0.99766999, 0.99750000, 0.99736100, 0.99725199, 0.99716800, &
       0.99710602, 0.99953848, 0.99953520, 0.99953020, 0.99952239, &
       0.99951053, 0.99949282, 0.99946660, 0.99942881, 0.99937540, &
       0.99930137, 0.99920130, 0.99906880, 0.99889702, 0.99868101, &
       0.99841601, 0.99809903, 0.99773198, 0.99732101, 0.99687898, &
       0.99642301, 0.99597800, 0.99556601, 0.99520397, 0.99489999, &
       0.99465698, 0.99446702, 0.99942899, 0.99942321, 0.99941432, &
       0.99940068, 0.99938041, 0.99935049, 0.99930722, 0.99924588, &
       0.99916059, 0.99904430, 0.99888903, 0.99868500, 0.99842298, &
       0.99809098, 0.99768001, 0.99717999, 0.99658400, 0.99589097, &
       0.99510998, 0.99425799, 0.99336702, 0.99247700, 0.99163198, &
       0.99087203, 0.99022102, 0.98969001, 0.99930018, 0.99928987, &
       0.99927431, 0.99925101, 0.99921662, 0.99916708, 0.99909681, &
       0.99899900, 0.99886602, 0.99868703, 0.99845201, 0.99814498, &
       0.99775398, 0.99725902, 0.99664098, 0.99588197, 0.99496001, &
       0.99386197, 0.99257898, 0.99111998, 0.98951000, 0.98780000, &
       0.98606002, 0.98436999, 0.98281002, 0.98144001, 0.99914461, &
       0.99912637, 0.99909937, 0.99905968, 0.99900270, 0.99892199, &
       0.99880999, 0.99865800, 0.99845397, 0.99818403, 0.99783301, &
       0.99738002, 0.99680400, 0.99607700, 0.99516898, 0.99404502, &
       0.99266702, 0.99099803, 0.98900002, 0.98667002, 0.98399001, &
       0.98100001, 0.97779000, 0.97447002, 0.97118002, 0.96805000, &
       0.99895102, 0.99892002, 0.99887401, 0.99880803, 0.99871498, &
       0.99858701, 0.99841303, 0.99818099, 0.99787402, 0.99747300, &
       0.99695599, 0.99629498, 0.99545598, 0.99440002, 0.99308002, &
       0.99144298, 0.98943001, 0.98695999, 0.98398000, 0.98041999, &
       0.97622001, 0.97140002, 0.96600002, 0.96012998, 0.95393997, &
       0.94762999, 0.99870503, 0.99865198, 0.99857497, 0.99846900, &
       0.99832201, 0.99812400, 0.99786001, 0.99751103, 0.99705601, &
       0.99646801, 0.99571502, 0.99475700, 0.99354500, 0.99202299, &
       0.99012297, 0.98776001, 0.98484999, 0.98128998, 0.97693998, &
       0.97170001, 0.96543998, 0.95810002, 0.94963002, 0.94006002, &
       0.92948997, 0.91812998, 0.99838799, 0.99830002, 0.99817699, &
       0.99800998, 0.99778402, 0.99748403, 0.99708802, 0.99657297, &
       0.99590701, 0.99505299, 0.99396503, 0.99258602, 0.99084800, &
       0.98866999, 0.98594999, 0.98258001, 0.97842997, 0.97333002, &
       0.96711999, 0.95960999, 0.95059001, 0.93984997, 0.92720997, &
       0.91254002, 0.89579999, 0.87730002, 0.99797899, 0.99783802, &
       0.99764699, 0.99738997, 0.99704897, 0.99660099, 0.99601799, &
       0.99526602, 0.99430102, 0.99307102, 0.99150997, 0.98953998, &
       0.98706001, 0.98395997, 0.98009998, 0.97533000, 0.96945000, &
       0.96227002, 0.95353001, 0.94295001, 0.93019998, 0.91491997, &
       0.89670002, 0.87540001, 0.85070002, 0.82290000, 0.99745202, &
       0.99723297, 0.99694097, 0.99655402, 0.99604702, 0.99538797, &
       0.99453998, 0.99345201, 0.99206603, 0.99030602, 0.98808002, &
       0.98527998, 0.98176998, 0.97737998, 0.97194999, 0.96524000, &
       0.95703000, 0.94700998, 0.93484998, 0.92012000, 0.90235001, &
       0.88110000, 0.85580003, 0.82609999, 0.79189998, 0.75319999, &
       0.99677002, 0.99643701, 0.99599802, 0.99542397, 0.99468100, &
       0.99372399, 0.99250001, 0.99094099, 0.98896003, 0.98645997, &
       0.98329997, 0.97934997, 0.97439998, 0.96825999, 0.96066999, &
       0.95135999, 0.93998998, 0.92614001, 0.90934002, 0.88900000, &
       0.86470002, 0.83570004, 0.80170000, 0.76240003, 0.71759999, &
       0.66789997, 0.99587703, 0.99537897, 0.99473000, 0.99389100, &
       0.99281400, 0.99143797, 0.98969001, 0.98746002, 0.98465002, &
       0.98111999, 0.97667003, 0.97112000, 0.96423000, 0.95570999, &
       0.94523001, 0.93241000, 0.91676998, 0.89779997, 0.87479997, &
       0.84740001, 0.81480002, 0.77670002, 0.73269999, 0.68299997, &
       0.62800002, 0.56879997, 0.99469399, 0.99396098, 0.99301600, &
       0.99180400, 0.99025702, 0.98829001, 0.98580003, 0.98264998, &
       0.97869003, 0.97372001, 0.96750998, 0.95981002, 0.95029002, &
       0.93857002, 0.92421001, 0.90667999, 0.88540000, 0.85969996, &
       0.82900000, 0.79280001, 0.75059998, 0.70239997, 0.64840001, &
       0.58930004, 0.52639997, 0.46160001, 0.99311298, 0.99204701, &
       0.99068397, 0.98895001, 0.98673999, 0.98395002, 0.98041999, &
       0.97599000, 0.97044003, 0.96353000, 0.95494002, 0.94433999, &
       0.93129998, 0.91531003, 0.89579999, 0.87199998, 0.84350002, &
       0.80949998, 0.76960003, 0.72360003, 0.67129999, 0.61350000, &
       0.55110002, 0.48589998, 0.41970003, 0.35450000, 0.99097902, &
       0.98944002, 0.98749000, 0.98501998, 0.98189002, 0.97794998, &
       0.97299999, 0.96682000, 0.95911002, 0.94957000, 0.93779999, &
       0.92332000, 0.90557003, 0.88389999, 0.85769999, 0.82620001, &
       0.78890002, 0.74540001, 0.69550002, 0.63960004, 0.57840002, &
       0.51349998, 0.44669998, 0.38020003, 0.31559998, 0.25370002, &
       0.98807001, 0.98588002, 0.98311001, 0.97961003, 0.97521001, &
       0.96968001, 0.96279001, 0.95423001, 0.94363999, 0.93058997, &
       0.91453999, 0.89490002, 0.87099999, 0.84210002, 0.80760002, &
       0.76700002, 0.71990001, 0.66649997, 0.60720003, 0.54330003, &
       0.47659999, 0.40910000, 0.34280002, 0.27920002, 0.21899998, &
       0.16280001, 0.98409998, 0.98098999, 0.97707999, 0.97215003, &
       0.96600002, 0.95832998, 0.94881999, 0.93708003, 0.92260998, &
       0.90486002, 0.88319999, 0.85680002, 0.82520002, 0.78759998, &
       0.74360001, 0.69309998, 0.63639998, 0.57420003, 0.50819999, &
       0.44029999, 0.37279999, 0.30750000, 0.24529999, 0.18699998, &
       0.13370001, 0.08740002, 0.97864997, 0.97425997, 0.96877003, &
       0.96191001, 0.95337999, 0.94283003, 0.92980999, 0.91380000, &
       0.89419997, 0.87029999, 0.84130001, 0.80680001, 0.76600003, &
       0.71869999, 0.66490000, 0.60510004, 0.54060000, 0.47310001, &
       0.40490001, 0.33800000, 0.27389997, 0.21340001, 0.15750003, &
       0.10769999, 0.06610000, 0.03479999, 0.97114998, 0.96502000, &
       0.95738000, 0.94791001, 0.93620998, 0.92179000, 0.90407002, &
       0.88239998, 0.85609996, 0.82449996, 0.78689998, 0.74290001, &
       0.69220001, 0.63530004, 0.57290000, 0.50650001, 0.43820000, &
       0.37029999, 0.30440003, 0.24190003, 0.18339998, 0.13040000, &
       0.08469999, 0.04830003, 0.02280003, 0.00809997, 0.96086001, &
       0.95236999, 0.94186002, 0.92887998, 0.91292000, 0.89330000, &
       0.86949998, 0.84060001, 0.80610001, 0.76530004, 0.71799999, &
       0.66420001, 0.60440004, 0.53970003, 0.47200000, 0.40359998, &
       0.33639997, 0.27200001, 0.21130002, 0.15530002, 0.10570002, &
       0.06449997, 0.03369999, 0.01400000, 0.00400001, 0.00059998, &
       0.94682997, 0.93515998, 0.92079002, 0.90311998, 0.88150001, &
       0.85530001, 0.82370001, 0.78610003, 0.74220002, 0.69159997, &
       0.63470000, 0.57220000, 0.50580001, 0.43750000, 0.36940002, &
       0.30350000, 0.24080002, 0.18220001, 0.12910002, 0.08350003, &
       0.04740000, 0.02219999, 0.00779998, 0.00169998, 0.00010002, &
       0.00000000, 0.92777002, 0.91184998, 0.89230001, 0.86849999, &
       0.83969998, 0.80519998, 0.76459998, 0.71730000, 0.66359997, &
       0.60380000, 0.53909999, 0.47149998, 0.40310001, 0.33590001, &
       0.27139997, 0.21069998, 0.15460002, 0.10500002, 0.06389999, &
       0.03320003, 0.01370001, 0.00389999, 0.00050002, 0.00000000, &
       0.00000000, 0.00000000, 0.90200001, 0.88040000, 0.85420001, &
       0.82270002, 0.78530002, 0.74140000, 0.69089997, 0.63400000, &
       0.57169998, 0.50529999, 0.43699998, 0.36900002, 0.30299997, &
       0.24040002, 0.18180001, 0.12870002, 0.08310002, 0.04710001, &
       0.02200001, 0.00770003, 0.00169998, 0.00010002, 0.00000000, &
       0.00000000, 0.00000000, 0.00000000, 0.86739999, 0.83859998, &
       0.80430001, 0.76370001, 0.71650004, 0.66280001, 0.60310000, &
       0.53859997, 0.47100002, 0.40259999, 0.33550000, 0.27109998, &
       0.21039999, 0.15439999, 0.10479999, 0.06370002, 0.03310001, &
       0.01359999, 0.00389999, 0.00050002, 0.00000000, 0.00000000, &
       0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.82169998, &
       0.78429997, 0.74049997, 0.69000000, 0.63330001, 0.57099998, &
       0.50479996, 0.43660003, 0.36860001, 0.30269998, 0.24010003, &
       0.18159997, 0.12860000, 0.08300000, 0.04699999, 0.02200001, &
       0.00770003, 0.00169998, 0.00010002, 0.00000000, 0.00000000, &
       0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
       0.76270002, 0.71560001, 0.66200000, 0.60240000, 0.53799999, &
       0.47049999, 0.40219998, 0.33510000, 0.27079999, 0.21020001, &
       0.15420002, 0.10460001, 0.06360000, 0.03299999, 0.01359999, &
       0.00389999, 0.00050002, 0.00000000, 0.00000000, 0.00000000, &
       0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
       0.00000000],[26,31])

   real, dimension(26,31) :: h12 = reshape([ &
      -0.2021e-06, -0.2017e-06, -0.2011e-06, -0.2001e-06, -0.1987e-06, &
      -0.1964e-06, -0.1932e-06, -0.1885e-06, -0.1822e-06, -0.1742e-06, &
      -0.1647e-06, -0.1548e-06, -0.1461e-06, -0.1402e-06, -0.1378e-06, &
      -0.1383e-06, -0.1405e-06, -0.1431e-06, -0.1454e-06, -0.1472e-06, &
      -0.1487e-06, -0.1496e-06, -0.1503e-06, -0.1508e-06, -0.1511e-06, &
      -0.1513e-06, -0.3628e-06, -0.3620e-06, -0.3609e-06, -0.3592e-06, &
      -0.3565e-06, -0.3526e-06, -0.3467e-06, -0.3385e-06, -0.3274e-06, &
      -0.3134e-06, -0.2974e-06, -0.2808e-06, -0.2663e-06, -0.2569e-06, &
      -0.2542e-06, -0.2577e-06, -0.2649e-06, -0.2731e-06, -0.2805e-06, &
      -0.2866e-06, -0.2912e-06, -0.2947e-06, -0.2971e-06, -0.2989e-06, &
      -0.3001e-06, -0.3009e-06, -0.5891e-06, -0.5878e-06, -0.5859e-06, &
      -0.5829e-06, -0.5784e-06, -0.5717e-06, -0.5623e-06, -0.5493e-06, &
      -0.5325e-06, -0.5121e-06, -0.4900e-06, -0.4683e-06, -0.4512e-06, &
      -0.4428e-06, -0.4461e-06, -0.4608e-06, -0.4829e-06, -0.5072e-06, &
      -0.5296e-06, -0.5485e-06, -0.5636e-06, -0.5749e-06, -0.5832e-06, &
      -0.5892e-06, -0.5934e-06, -0.5966e-06, -0.8735e-06, -0.8713e-06, &
      -0.8680e-06, -0.8631e-06, -0.8557e-06, -0.8451e-06, -0.8306e-06, &
      -0.8114e-06, -0.7881e-06, -0.7619e-06, -0.7358e-06, -0.7142e-06, &
      -0.7027e-06, -0.7076e-06, -0.7333e-06, -0.7793e-06, -0.8398e-06, &
      -0.9057e-06, -0.9685e-06, -0.1024e-05, -0.1069e-05, -0.1105e-05, &
      -0.1131e-05, -0.1151e-05, -0.1166e-05, -0.1176e-05, -0.1204e-05, &
      -0.1201e-05, -0.1195e-05, -0.1187e-05, -0.1175e-05, -0.1158e-05, &
      -0.1136e-05, -0.1109e-05, -0.1079e-05, -0.1048e-05, -0.1022e-05, &
      -0.1008e-05, -0.1014e-05, -0.1051e-05, -0.1125e-05, -0.1237e-05, &
      -0.1379e-05, -0.1537e-05, -0.1695e-05, -0.1842e-05, -0.1969e-05, &
      -0.2074e-05, -0.2154e-05, -0.2216e-05, -0.2263e-05, -0.2299e-05, &
      -0.1579e-05, -0.1572e-05, -0.1563e-05, -0.1549e-05, -0.1530e-05, &
      -0.1504e-05, -0.1472e-05, -0.1436e-05, -0.1398e-05, -0.1364e-05, &
      -0.1344e-05, -0.1347e-05, -0.1387e-05, -0.1478e-05, -0.1630e-05, &
      -0.1850e-05, -0.2132e-05, -0.2460e-05, -0.2812e-05, -0.3160e-05, &
      -0.3483e-05, -0.3763e-05, -0.3992e-05, -0.4175e-05, -0.4319e-05, &
      -0.4430e-05, -0.2002e-05, -0.1991e-05, -0.1975e-05, -0.1953e-05, &
      -0.1923e-05, -0.1886e-05, -0.1842e-05, -0.1796e-05, -0.1754e-05, &
      -0.1725e-05, -0.1721e-05, -0.1758e-05, -0.1851e-05, -0.2019e-05, &
      -0.2281e-05, -0.2652e-05, -0.3138e-05, -0.3733e-05, -0.4412e-05, &
      -0.5136e-05, -0.5858e-05, -0.6531e-05, -0.7122e-05, -0.7619e-05, &
      -0.8028e-05, -0.8352e-05, -0.2494e-05, -0.2476e-05, -0.2450e-05, &
      -0.2415e-05, -0.2372e-05, -0.2322e-05, -0.2269e-05, -0.2219e-05, &
      -0.2184e-05, -0.2177e-05, -0.2212e-05, -0.2306e-05, -0.2478e-05, &
      -0.2752e-05, -0.3159e-05, -0.3728e-05, -0.4487e-05, -0.5449e-05, &
      -0.6606e-05, -0.7922e-05, -0.9334e-05, -0.1076e-04, -0.1211e-04, &
      -0.1333e-04, -0.1438e-04, -0.1526e-04, -0.3093e-05, -0.3063e-05, &
      -0.3024e-05, -0.2975e-05, -0.2919e-05, -0.2861e-05, -0.2807e-05, &
      -0.2770e-05, -0.2763e-05, -0.2801e-05, -0.2901e-05, -0.3083e-05, &
      -0.3373e-05, -0.3802e-05, -0.4410e-05, -0.5244e-05, -0.6353e-05, &
      -0.7786e-05, -0.9573e-05, -0.1171e-04, -0.1416e-04, -0.1682e-04, &
      -0.1954e-04, -0.2217e-04, -0.2460e-04, -0.2674e-04, -0.3852e-05, &
      -0.3808e-05, -0.3755e-05, -0.3694e-05, -0.3631e-05, -0.3576e-05, &
      -0.3539e-05, -0.3535e-05, -0.3581e-05, -0.3694e-05, -0.3896e-05, &
      -0.4214e-05, -0.4682e-05, -0.5343e-05, -0.6246e-05, -0.7451e-05, &
      -0.9026e-05, -0.1106e-04, -0.1363e-04, -0.1682e-04, -0.2067e-04, &
      -0.2509e-04, -0.2995e-04, -0.3497e-04, -0.3991e-04, -0.4454e-04, &
      -0.4835e-05, -0.4776e-05, -0.4711e-05, -0.4645e-05, -0.4587e-05, &
      -0.4552e-05, -0.4553e-05, -0.4609e-05, -0.4739e-05, -0.4969e-05, &
      -0.5327e-05, -0.5851e-05, -0.6588e-05, -0.7594e-05, -0.8933e-05, &
      -0.1067e-04, -0.1290e-04, -0.1574e-04, -0.1932e-04, -0.2381e-04, &
      -0.2936e-04, -0.3605e-04, -0.4380e-04, -0.5238e-04, -0.6138e-04, &
      -0.7042e-04, -0.6082e-05, -0.6011e-05, -0.5941e-05, -0.5882e-05, &
      -0.5848e-05, -0.5856e-05, -0.5925e-05, -0.6077e-05, -0.6341e-05, &
      -0.6748e-05, -0.7342e-05, -0.8175e-05, -0.9311e-05, -0.1082e-04, &
      -0.1280e-04, -0.1532e-04, -0.1851e-04, -0.2249e-04, -0.2743e-04, &
      -0.3355e-04, -0.4113e-04, -0.5049e-04, -0.6183e-04, -0.7513e-04, &
      -0.9005e-04, -0.1062e-03, -0.7591e-05, -0.7516e-05, -0.7455e-05, &
      -0.7425e-05, -0.7442e-05, -0.7529e-05, -0.7710e-05, -0.8016e-05, &
      -0.8484e-05, -0.9161e-05, -0.1011e-04, -0.1140e-04, -0.1311e-04, &
      -0.1536e-04, -0.1826e-04, -0.2193e-04, -0.2650e-04, -0.3212e-04, &
      -0.3897e-04, -0.4729e-04, -0.5750e-04, -0.7012e-04, -0.8577e-04, &
      -0.1049e-03, -0.1278e-03, -0.1540e-03, -0.9332e-05, -0.9272e-05, &
      -0.9248e-05, -0.9279e-05, -0.9391e-05, -0.9609e-05, -0.9968e-05, &
      -0.1051e-04, -0.1128e-04, -0.1236e-04, -0.1382e-04, -0.1577e-04, &
      -0.1834e-04, -0.2166e-04, -0.2589e-04, -0.3119e-04, -0.3772e-04, &
      -0.4564e-04, -0.5520e-04, -0.6673e-04, -0.8072e-04, -0.9787e-04, &
      -0.1191e-03, -0.1455e-03, -0.1778e-03, -0.2163e-03, -0.1128e-04, &
      -0.1127e-04, -0.1132e-04, -0.1147e-04, -0.1173e-04, -0.1216e-04, &
      -0.1278e-04, -0.1367e-04, -0.1490e-04, -0.1655e-04, -0.1875e-04, &
      -0.2166e-04, -0.2544e-04, -0.3028e-04, -0.3639e-04, -0.4395e-04, &
      -0.5319e-04, -0.6438e-04, -0.7787e-04, -0.9417e-04, -0.1139e-03, &
      -0.1378e-03, -0.1668e-03, -0.2021e-03, -0.2447e-03, -0.2951e-03, &
      -0.1347e-04, -0.1355e-04, -0.1373e-04, -0.1406e-04, -0.1455e-04, &
      -0.1528e-04, -0.1629e-04, -0.1768e-04, -0.1955e-04, -0.2203e-04, &
      -0.2530e-04, -0.2955e-04, -0.3502e-04, -0.4195e-04, -0.5059e-04, &
      -0.6126e-04, -0.7431e-04, -0.9019e-04, -0.1094e-03, -0.1327e-03, &
      -0.1606e-03, -0.1939e-03, -0.2333e-03, -0.2790e-03, -0.3313e-03, &
      -0.3899e-03, -0.1596e-04, -0.1620e-04, -0.1659e-04, -0.1717e-04, &
      -0.1801e-04, -0.1916e-04, -0.2073e-04, -0.2283e-04, -0.2561e-04, &
      -0.2927e-04, -0.3403e-04, -0.4014e-04, -0.4789e-04, -0.5761e-04, &
      -0.6970e-04, -0.8466e-04, -0.1031e-03, -0.1256e-03, -0.1529e-03, &
      -0.1858e-03, -0.2246e-03, -0.2695e-03, -0.3203e-03, -0.3757e-03, &
      -0.4342e-03, -0.4948e-03, -0.1890e-04, -0.1936e-04, -0.2004e-04, &
      -0.2100e-04, -0.2232e-04, -0.2408e-04, -0.2644e-04, -0.2955e-04, &
      -0.3364e-04, -0.3894e-04, -0.4573e-04, -0.5434e-04, -0.6515e-04, &
      -0.7867e-04, -0.9552e-04, -0.1164e-03, -0.1422e-03, -0.1737e-03, &
      -0.2117e-03, -0.2564e-03, -0.3076e-03, -0.3641e-03, -0.4237e-03, &
      -0.4839e-03, -0.5424e-03, -0.5983e-03, -0.2241e-04, -0.2321e-04, &
      -0.2431e-04, -0.2580e-04, -0.2779e-04, -0.3043e-04, -0.3392e-04, &
      -0.3849e-04, -0.4438e-04, -0.5192e-04, -0.6145e-04, -0.7343e-04, &
      -0.8846e-04, -0.1072e-03, -0.1307e-03, -0.1596e-03, -0.1951e-03, &
      -0.2378e-03, -0.2880e-03, -0.3449e-03, -0.4067e-03, -0.4703e-03, &
      -0.5324e-03, -0.5902e-03, -0.6416e-03, -0.6846e-03, -0.2672e-04, &
      -0.2797e-04, -0.2966e-04, -0.3191e-04, -0.3489e-04, -0.3880e-04, &
      -0.4390e-04, -0.5046e-04, -0.5881e-04, -0.6936e-04, -0.8264e-04, &
      -0.9931e-04, -0.1202e-03, -0.1462e-03, -0.1784e-03, -0.2177e-03, &
      -0.2648e-03, -0.3196e-03, -0.3809e-03, -0.4463e-03, -0.5121e-03, &
      -0.5750e-03, -0.6318e-03, -0.6794e-03, -0.7146e-03, -0.7332e-03, &
      -0.3208e-04, -0.3399e-04, -0.3653e-04, -0.3989e-04, -0.4428e-04, &
      -0.4997e-04, -0.5727e-04, -0.6653e-04, -0.7822e-04, -0.9294e-04, &
      -0.1114e-03, -0.1346e-03, -0.1635e-03, -0.1990e-03, -0.2422e-03, &
      -0.2933e-03, -0.3519e-03, -0.4163e-03, -0.4834e-03, -0.5495e-03, &
      -0.6110e-03, -0.6648e-03, -0.7075e-03, -0.7344e-03, -0.7399e-03, &
      -0.7182e-03, -0.3884e-04, -0.4171e-04, -0.4549e-04, -0.5042e-04, &
      -0.5678e-04, -0.6488e-04, -0.7516e-04, -0.8813e-04, -0.1045e-03, &
      -0.1250e-03, -0.1507e-03, -0.1826e-03, -0.2217e-03, -0.2687e-03, &
      -0.3237e-03, -0.3855e-03, -0.4518e-03, -0.5191e-03, -0.5836e-03, &
      -0.6420e-03, -0.6909e-03, -0.7264e-03, -0.7429e-03, -0.7341e-03, &
      -0.6932e-03, -0.6142e-03, -0.4747e-04, -0.5172e-04, -0.5724e-04, &
      -0.6432e-04, -0.7333e-04, -0.8474e-04, -0.9916e-04, -0.1173e-03, &
      -0.1401e-03, -0.1686e-03, -0.2039e-03, -0.2467e-03, -0.2975e-03, &
      -0.3559e-03, -0.4203e-03, -0.4874e-03, -0.5537e-03, -0.6154e-03, &
      -0.6692e-03, -0.7116e-03, -0.7378e-03, -0.7419e-03, -0.7168e-03, &
      -0.6557e-03, -0.5551e-03, -0.4209e-03, -0.5854e-04, -0.6471e-04, &
      -0.7259e-04, -0.8261e-04, -0.9530e-04, -0.1113e-03, -0.1315e-03, &
      -0.1569e-03, -0.1884e-03, -0.2271e-03, -0.2737e-03, -0.3283e-03, &
      -0.3897e-03, -0.4558e-03, -0.5227e-03, -0.5870e-03, -0.6449e-03, &
      -0.6931e-03, -0.7275e-03, -0.7427e-03, -0.7321e-03, -0.6889e-03, &
      -0.6071e-03, -0.4874e-03, -0.3432e-03, -0.2014e-03, -0.7272e-04, &
      -0.8150e-04, -0.9265e-04, -0.1068e-03, -0.1246e-03, -0.1471e-03, &
      -0.1752e-03, -0.2100e-03, -0.2523e-03, -0.3027e-03, -0.3607e-03, &
      -0.4246e-03, -0.4913e-03, -0.5572e-03, -0.6184e-03, -0.6718e-03, &
      -0.7133e-03, -0.7384e-03, -0.7408e-03, -0.7139e-03, -0.6509e-03, &
      -0.5488e-03, -0.4139e-03, -0.2674e-03, -0.1398e-03, -0.5530e-04, &
      -0.9092e-04, -0.1034e-03, -0.1191e-03, -0.1389e-03, -0.1639e-03, &
      -0.1950e-03, -0.2333e-03, -0.2794e-03, -0.3335e-03, -0.3944e-03, &
      -0.4599e-03, -0.5264e-03, -0.5902e-03, -0.6476e-03, -0.6953e-03, &
      -0.7290e-03, -0.7432e-03, -0.7313e-03, -0.6865e-03, -0.6031e-03, &
      -0.4825e-03, -0.3382e-03, -0.1976e-03, -0.9059e-04, -0.3010e-04, &
      -0.6418e-05, -0.1146e-03, -0.1321e-03, -0.1543e-03, -0.1820e-03, &
      -0.2164e-03, -0.2583e-03, -0.3082e-03, -0.3656e-03, -0.4289e-03, &
      -0.4951e-03, -0.5604e-03, -0.6211e-03, -0.6740e-03, -0.7150e-03, &
      -0.7395e-03, -0.7411e-03, -0.7133e-03, -0.6492e-03, -0.5459e-03, &
      -0.4104e-03, -0.2641e-03, -0.1375e-03, -0.5410e-04, -0.1455e-04, &
      -0.2229e-05, -0.1439e-06, -0.1458e-03, -0.1705e-03, -0.2013e-03, &
      -0.2391e-03, -0.2848e-03, -0.3384e-03, -0.3988e-03, -0.4637e-03, &
      -0.5296e-03, -0.5928e-03, -0.6497e-03, -0.6970e-03, -0.7302e-03, &
      -0.7439e-03, -0.7315e-03, -0.6859e-03, -0.6018e-03, -0.4805e-03, &
      -0.3360e-03, -0.1957e-03, -0.8936e-04, -0.2951e-04, -0.6215e-05, &
      -0.5986e-06,  0.0000e+00,  0.0000e+00, -0.1877e-03, -0.2217e-03, &
      -0.2633e-03, -0.3127e-03, -0.3697e-03, -0.4326e-03, -0.4982e-03, &
      -0.5629e-03, -0.6231e-03, -0.6755e-03, -0.7161e-03, -0.7402e-03, &
      -0.7415e-03, -0.7133e-03, -0.6487e-03, -0.5450e-03, -0.4092e-03, &
      -0.2629e-03, -0.1365e-03, -0.5358e-04, -0.1436e-04, -0.2174e-05, &
      -0.1343e-06,  0.0000e+00,  0.0000e+00,  0.0000e+00, -0.2435e-03, &
      -0.2889e-03, -0.3421e-03, -0.4021e-03, -0.4665e-03, -0.5319e-03, &
      -0.5947e-03, -0.6512e-03, -0.6980e-03, -0.7309e-03, -0.7443e-03, &
      -0.7316e-03, -0.6858e-03, -0.6015e-03, -0.4799e-03, -0.3353e-03, &
      -0.1951e-03, -0.8897e-04, -0.2935e-04, -0.6176e-05, -0.5966e-06, &
       0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00, &
      -0.3159e-03, -0.3726e-03, -0.4350e-03, -0.5002e-03, -0.5646e-03, &
      -0.6244e-03, -0.6764e-03, -0.7167e-03, -0.7406e-03, -0.7417e-03, &
      -0.7133e-03, -0.6486e-03, -0.5447e-03, -0.4089e-03, -0.2625e-03, &
      -0.1363e-03, -0.5345e-04, -0.1432e-04, -0.2173e-05, -0.1347e-06, &
       0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00, &
       0.0000e+00],[26,31]) 

   real, dimension(26,31) :: h13 = reshape([ &
       0.5907e-09,  0.5894e-09,  0.5872e-09,  0.5838e-09,  0.5785e-09, &
       0.5713e-09,  0.5612e-09,  0.5477e-09,  0.5334e-09,  0.5179e-09, &
       0.5073e-09,  0.5078e-09,  0.5236e-09,  0.5531e-09,  0.5891e-09, &
       0.6217e-09,  0.6457e-09,  0.6607e-09,  0.6693e-09,  0.6750e-09, &
       0.6777e-09,  0.6798e-09,  0.6809e-09,  0.6812e-09,  0.6815e-09, &
       0.6817e-09,  0.8541e-09,  0.8519e-09,  0.8484e-09,  0.8426e-09, &
       0.8338e-09,  0.8263e-09,  0.8116e-09,  0.8000e-09,  0.7859e-09, &
       0.7789e-09,  0.7906e-09,  0.8244e-09,  0.8873e-09,  0.9757e-09, &
       0.1074e-08,  0.1165e-08,  0.1235e-08,  0.1282e-08,  0.1312e-08, &
       0.1332e-08,  0.1344e-08,  0.1350e-08,  0.1356e-08,  0.1356e-08, &
       0.1358e-08,  0.1359e-08,  0.1095e-08,  0.1092e-08,  0.1087e-08, &
       0.1081e-08,  0.1071e-08,  0.1060e-08,  0.1048e-08,  0.1039e-08, &
       0.1043e-08,  0.1071e-08,  0.1134e-08,  0.1255e-08,  0.1426e-08, &
       0.1644e-08,  0.1885e-08,  0.2116e-08,  0.2303e-08,  0.2441e-08, &
       0.2538e-08,  0.2602e-08,  0.2643e-08,  0.2667e-08,  0.2683e-08, &
       0.2693e-08,  0.2698e-08,  0.2702e-08,  0.1272e-08,  0.1267e-08, &
       0.1259e-08,  0.1249e-08,  0.1239e-08,  0.1226e-08,  0.1222e-08, &
       0.1234e-08,  0.1279e-08,  0.1382e-08,  0.1560e-08,  0.1826e-08, &
       0.2193e-08,  0.2650e-08,  0.3167e-08,  0.3685e-08,  0.4149e-08, &
       0.4522e-08,  0.4802e-08,  0.5003e-08,  0.5138e-08,  0.5226e-08, &
       0.5287e-08,  0.5328e-08,  0.5355e-08,  0.5374e-08,  0.1297e-08, &
       0.1289e-08,  0.1279e-08,  0.1267e-08,  0.1256e-08,  0.1252e-08, &
       0.1270e-08,  0.1331e-08,  0.1460e-08,  0.1690e-08,  0.2046e-08, &
       0.2550e-08,  0.3230e-08,  0.4074e-08,  0.5051e-08,  0.6101e-08, &
       0.7120e-08,  0.8027e-08,  0.8778e-08,  0.9367e-08,  0.9798e-08, &
       0.1010e-07,  0.1030e-07,  0.1045e-07,  0.1054e-07,  0.1061e-07, &
       0.1105e-08,  0.1093e-08,  0.1077e-08,  0.1062e-08,  0.1057e-08, &
       0.1076e-08,  0.1141e-08,  0.1295e-08,  0.1560e-08,  0.1979e-08, &
       0.2589e-08,  0.3438e-08,  0.4555e-08,  0.5957e-08,  0.7631e-08, &
       0.9523e-08,  0.1152e-07,  0.1348e-07,  0.1528e-07,  0.1684e-07, &
       0.1809e-07,  0.1903e-07,  0.1971e-07,  0.2021e-07,  0.2056e-07, &
       0.2079e-07,  0.6788e-09,  0.6601e-09,  0.6413e-09,  0.6313e-09, &
       0.6480e-09,  0.7149e-09,  0.8732e-09,  0.1160e-08,  0.1618e-08, &
       0.2297e-08,  0.3254e-08,  0.4532e-08,  0.6200e-08,  0.8314e-08, &
       0.1092e-07,  0.1400e-07,  0.1749e-07,  0.2122e-07,  0.2501e-07, &
       0.2863e-07,  0.3185e-07,  0.3455e-07,  0.3665e-07,  0.3826e-07, &
       0.3942e-07,  0.4022e-07, -0.5585e-10, -0.7831e-10, -0.9334e-10, &
      -0.8241e-10, -0.1793e-10,  0.1379e-09,  0.4336e-09,  0.9178e-09, &
       0.1657e-08,  0.2704e-08,  0.4107e-08,  0.5949e-08,  0.8298e-08, &
       0.1128e-07,  0.1500e-07,  0.1959e-07,  0.2508e-07,  0.3139e-07, &
       0.3836e-07,  0.4566e-07,  0.5285e-07,  0.5951e-07,  0.6528e-07, &
       0.6994e-07,  0.7349e-07,  0.7610e-07, -0.1147e-08, -0.1167e-08, &
      -0.1161e-08, -0.1094e-08, -0.9278e-09, -0.6043e-09, -0.6548e-10, &
       0.7535e-09,  0.1912e-08,  0.3466e-08,  0.5481e-08,  0.8041e-08, &
       0.1126e-07,  0.1528e-07,  0.2032e-07,  0.2668e-07,  0.3462e-07, &
       0.4435e-07,  0.5578e-07,  0.6865e-07,  0.8249e-07,  0.9658e-07, &
       0.1100e-06,  0.1218e-06,  0.1315e-06,  0.1392e-06, -0.2746e-08, &
      -0.2732e-08, -0.2644e-08, -0.2436e-08, -0.2051e-08, -0.1417e-08, &
      -0.4774e-09,  0.8301e-09,  0.2569e-08,  0.4794e-08,  0.7602e-08, &
       0.1110e-07,  0.1544e-07,  0.2087e-07,  0.2769e-07,  0.3629e-07, &
       0.4718e-07,  0.6095e-07,  0.7806e-07,  0.9861e-07,  0.1222e-06, &
       0.1479e-06,  0.1744e-06,  0.1997e-06,  0.2226e-06,  0.2428e-06, &
      -0.5001e-08, -0.4864e-08, -0.4588e-08, -0.4100e-08, -0.3337e-08, &
      -0.2241e-08, -0.7556e-09,  0.1184e-08,  0.3654e-08,  0.6746e-08, &
       0.1059e-07,  0.1534e-07,  0.2130e-07,  0.2874e-07,  0.3810e-07, &
       0.4982e-07,  0.6452e-07,  0.8319e-07,  0.1069e-06,  0.1368e-06, &
       0.1730e-06,  0.2146e-06,  0.2599e-06,  0.3069e-06,  0.3537e-06, &
       0.3992e-06, -0.7715e-08, -0.7334e-08, -0.6709e-08, -0.5786e-08, &
      -0.4514e-08, -0.2830e-08, -0.6577e-09,  0.2082e-08,  0.5509e-08, &
       0.9739e-08,  0.1501e-07,  0.2157e-07,  0.2978e-07,  0.4002e-07, &
       0.5279e-07,  0.6876e-07,  0.8874e-07,  0.1139e-06,  0.1456e-06, &
       0.1856e-06,  0.2351e-06,  0.2951e-06,  0.3650e-06,  0.4428e-06, &
       0.5266e-06,  0.6149e-06, -0.1037e-07, -0.9581e-08, -0.8474e-08, &
      -0.6992e-08, -0.5067e-08, -0.2627e-08,  0.4377e-09,  0.4253e-08, &
       0.8964e-08,  0.1481e-07,  0.2210e-07,  0.3116e-07,  0.4239e-07, &
       0.5631e-07,  0.7361e-07,  0.9523e-07,  0.1222e-06,  0.1557e-06, &
       0.1970e-06,  0.2479e-06,  0.3111e-06,  0.3903e-06,  0.4887e-06, &
       0.6064e-06,  0.7407e-06,  0.8893e-06, -0.1227e-07, -0.1097e-07, &
      -0.9263e-08, -0.7083e-08, -0.4328e-08, -0.8950e-09,  0.3359e-08, &
       0.8646e-08,  0.1518e-07,  0.2331e-07,  0.3334e-07,  0.4570e-07, &
       0.6096e-07,  0.7981e-07,  0.1032e-06,  0.1321e-06,  0.1675e-06, &
       0.2107e-06,  0.2631e-06,  0.3274e-06,  0.4078e-06,  0.5101e-06, &
       0.6398e-06,  0.8015e-06,  0.9958e-06,  0.1220e-05, -0.1287e-07, &
      -0.1094e-07, -0.8489e-08, -0.5405e-08, -0.1545e-08,  0.3231e-08, &
       0.9159e-08,  0.1650e-07,  0.2560e-07,  0.3679e-07,  0.5055e-07, &
       0.6747e-07,  0.8829e-07,  0.1139e-06,  0.1450e-06,  0.1825e-06, &
       0.2276e-06,  0.2819e-06,  0.3485e-06,  0.4315e-06,  0.5366e-06, &
       0.6693e-06,  0.8358e-06,  0.1043e-05,  0.1296e-05,  0.1599e-05, &
      -0.1175e-07, -0.8999e-08, -0.5553e-08, -0.1259e-08,  0.4100e-08, &
       0.1075e-07,  0.1901e-07,  0.2920e-07,  0.4178e-07,  0.5726e-07, &
       0.7629e-07,  0.9961e-07,  0.1280e-06,  0.1621e-06,  0.2026e-06, &
       0.2505e-06,  0.3076e-06,  0.3773e-06,  0.4642e-06,  0.5739e-06, &
       0.7117e-06,  0.8830e-06,  0.1095e-05,  0.1351e-05,  0.1657e-05, &
       0.2015e-05, -0.8517e-08, -0.4669e-08,  0.1203e-09,  0.6099e-08, &
       0.1354e-07,  0.2278e-07,  0.3422e-07,  0.4834e-07,  0.6574e-07, &
       0.8716e-07,  0.1134e-06,  0.1451e-06,  0.1830e-06,  0.2275e-06, &
       0.2798e-06,  0.3420e-06,  0.4174e-06,  0.5107e-06,  0.6268e-06, &
       0.7710e-06,  0.9495e-06,  0.1168e-05,  0.1429e-05,  0.1733e-05, &
       0.2077e-05,  0.2453e-05, -0.2920e-08,  0.2391e-08,  0.9035e-08, &
       0.1732e-07,  0.2762e-07,  0.4037e-07,  0.5616e-07,  0.7564e-07, &
       0.9958e-07,  0.1289e-06,  0.1642e-06,  0.2061e-06,  0.2555e-06, &
       0.3136e-06,  0.3832e-06,  0.4677e-06,  0.5714e-06,  0.6982e-06, &
       0.8526e-06,  0.1040e-05,  0.1266e-05,  0.1532e-05,  0.1836e-05, &
       0.2168e-05,  0.2512e-05,  0.2853e-05,  0.4786e-08,  0.1215e-07, &
       0.2135e-07,  0.3276e-07,  0.4690e-07,  0.6439e-07,  0.8598e-07, &
       0.1125e-06,  0.1449e-06,  0.1837e-06,  0.2298e-06,  0.2843e-06, &
       0.3493e-06,  0.4280e-06,  0.5242e-06,  0.6416e-06,  0.7837e-06, &
       0.9542e-06,  0.1157e-05,  0.1394e-05,  0.1667e-05,  0.1968e-05, &
       0.2286e-05,  0.2598e-05,  0.2893e-05,  0.3173e-05,  0.1407e-07, &
       0.2424e-07,  0.3689e-07,  0.5256e-07,  0.7190e-07,  0.9576e-07, &
       0.1251e-06,  0.1606e-06,  0.2031e-06,  0.2534e-06,  0.3133e-06, &
       0.3855e-06,  0.4740e-06,  0.5829e-06,  0.7159e-06,  0.8760e-06, &
       0.1067e-05,  0.1290e-05,  0.1545e-05,  0.1829e-05,  0.2132e-05, &
       0.2435e-05,  0.2716e-05,  0.2968e-05,  0.3216e-05,  0.3488e-05, &
       0.2476e-07,  0.3877e-07,  0.5610e-07,  0.7756e-07,  0.1040e-06, &
       0.1363e-06,  0.1752e-06,  0.2216e-06,  0.2766e-06,  0.3424e-06, &
       0.4225e-06,  0.5213e-06,  0.6431e-06,  0.7917e-06,  0.9706e-06, &
       0.1183e-05,  0.1428e-05,  0.1703e-05,  0.2002e-05,  0.2309e-05, &
       0.2600e-05,  0.2859e-05,  0.3088e-05,  0.3316e-05,  0.3562e-05, &
       0.3792e-05,  0.3781e-07,  0.5711e-07,  0.8097e-07,  0.1103e-06, &
       0.1459e-06,  0.1886e-06,  0.2392e-06,  0.2992e-06,  0.3718e-06, &
       0.4609e-06,  0.5709e-06,  0.7060e-06,  0.8701e-06,  0.1067e-05, &
       0.1299e-05,  0.1565e-05,  0.1859e-05,  0.2170e-05,  0.2478e-05, &
       0.2759e-05,  0.3001e-05,  0.3222e-05,  0.3444e-05,  0.3662e-05, &
       0.3811e-05,  0.3800e-05,  0.5633e-07,  0.8295e-07,  0.1155e-06, &
       0.1547e-06,  0.2014e-06,  0.2567e-06,  0.3228e-06,  0.4031e-06, &
       0.5022e-06,  0.6245e-06,  0.7739e-06,  0.9544e-06,  0.1169e-05, &
       0.1419e-05,  0.1701e-05,  0.2010e-05,  0.2327e-05,  0.2628e-05, &
       0.2897e-05,  0.3131e-05,  0.3354e-05,  0.3572e-05,  0.3748e-05, &
       0.3801e-05,  0.3644e-05,  0.3210e-05,  0.8578e-07,  0.1218e-06, &
       0.1649e-06,  0.2159e-06,  0.2764e-06,  0.3494e-06,  0.4389e-06, &
       0.5493e-06,  0.6849e-06,  0.8495e-06,  0.1047e-05,  0.1280e-05, &
       0.1547e-05,  0.1844e-05,  0.2159e-05,  0.2472e-05,  0.2760e-05, &
       0.3013e-05,  0.3245e-05,  0.3472e-05,  0.3679e-05,  0.3797e-05, &
       0.3740e-05,  0.3433e-05,  0.2841e-05,  0.2002e-05,  0.1322e-06, &
       0.1793e-06,  0.2350e-06,  0.3016e-06,  0.3824e-06,  0.4821e-06, &
       0.6049e-06,  0.7549e-06,  0.9360e-06,  0.1151e-05,  0.1401e-05, &
       0.1684e-05,  0.1992e-05,  0.2310e-05,  0.2612e-05,  0.2882e-05, &
       0.3122e-05,  0.3352e-05,  0.3578e-05,  0.3755e-05,  0.3796e-05, &
       0.3615e-05,  0.3157e-05,  0.2422e-05,  0.1524e-05,  0.7234e-06, &
       0.2013e-06,  0.2621e-06,  0.3353e-06,  0.4251e-06,  0.5359e-06, &
       0.6719e-06,  0.8370e-06,  0.1035e-05,  0.1268e-05,  0.1536e-05, &
       0.1833e-05,  0.2148e-05,  0.2460e-05,  0.2747e-05,  0.2998e-05, &
       0.3229e-05,  0.3458e-05,  0.3669e-05,  0.3789e-05,  0.3730e-05, &
       0.3414e-05,  0.2811e-05,  0.1966e-05,  0.1081e-05,  0.4276e-06, &
       0.1068e-06,  0.3006e-06,  0.3812e-06,  0.4806e-06,  0.6033e-06, &
       0.7532e-06,  0.9343e-06,  0.1150e-05,  0.1400e-05,  0.1683e-05, &
       0.1991e-05,  0.2308e-05,  0.2609e-05,  0.2877e-05,  0.3113e-05, &
       0.3341e-05,  0.3564e-05,  0.3739e-05,  0.3780e-05,  0.3598e-05, &
       0.3138e-05,  0.2399e-05,  0.1500e-05,  0.7064e-06,  0.2256e-06, &
       0.3960e-07,  0.2646e-08,  0.4409e-06,  0.5508e-06,  0.6858e-06, &
       0.8499e-06,  0.1047e-05,  0.1280e-05,  0.1547e-05,  0.1843e-05, &
       0.2157e-05,  0.2468e-05,  0.2753e-05,  0.3002e-05,  0.3230e-05, &
       0.3455e-05,  0.3661e-05,  0.3777e-05,  0.3715e-05,  0.3397e-05, &
       0.2792e-05,  0.1948e-05,  0.1067e-05,  0.4185e-06,  0.1030e-06, &
       0.1082e-07,  0.0000e+00,  0.0000e+00,  0.6343e-06,  0.7824e-06, &
       0.9617e-06,  0.1175e-05,  0.1424e-05,  0.1705e-05,  0.2012e-05, &
       0.2327e-05,  0.2625e-05,  0.2891e-05,  0.3125e-05,  0.3349e-05, &
       0.3569e-05,  0.3739e-05,  0.3775e-05,  0.3589e-05,  0.3126e-05, &
       0.2386e-05,  0.1489e-05,  0.6994e-06,  0.2222e-06,  0.3850e-07, &
       0.2456e-08,  0.0000e+00,  0.0000e+00,  0.0000e+00,  0.8896e-06, &
       0.1085e-05,  0.1315e-05,  0.1579e-05,  0.1873e-05,  0.2184e-05, &
       0.2493e-05,  0.2774e-05,  0.3020e-05,  0.3245e-05,  0.3467e-05, &
       0.3670e-05,  0.3782e-05,  0.3715e-05,  0.3393e-05,  0.2786e-05, &
       0.1942e-05,  0.1062e-05,  0.4160e-06,  0.1022e-06,  0.1075e-07, &
       0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00, &
       0.1216e-05,  0.1462e-05,  0.1741e-05,  0.2044e-05,  0.2356e-05, &
       0.2651e-05,  0.2913e-05,  0.3143e-05,  0.3364e-05,  0.3580e-05, &
       0.3748e-05,  0.3780e-05,  0.3591e-05,  0.3125e-05,  0.2384e-05, &
       0.1487e-05,  0.6977e-06,  0.2216e-06,  0.3843e-07,  0.2459e-08, &
       0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00,  0.0000e+00, &
       0.0000e+00],[26,31]) 

   real, dimension(26,31) :: h21 = reshape([ &
       0.99999607, 0.99999607, 0.99999607, 0.99999607, 0.99999607, &
       0.99999607, 0.99999607, 0.99999607, 0.99999607, 0.99999607, &
       0.99999607, 0.99999607, 0.99999607, 0.99999607, 0.99999607, &
       0.99999791, 0.99999756, 0.99999714, 0.99999672, 0.99999636, &
       0.99999619, 0.99999607, 0.99999601, 0.99999601, 0.99999601, &
       0.99999601, 0.99999237, 0.99999237, 0.99999237, 0.99999237, &
       0.99999237, 0.99999237, 0.99999237, 0.99999237, 0.99999237, &
       0.99999237, 0.99999237, 0.99999237, 0.99999231, 0.99999231, &
       0.99999225, 0.99999589, 0.99999511, 0.99999428, 0.99999344, &
       0.99999279, 0.99999237, 0.99999213, 0.99999207, 0.99999207, &
       0.99999207, 0.99999207, 0.99998546, 0.99998546, 0.99998546, &
       0.99998546, 0.99998546, 0.99998546, 0.99998546, 0.99998540, &
       0.99998540, 0.99998540, 0.99998534, 0.99998528, 0.99998522, &
       0.99998510, 0.99998498, 0.99999183, 0.99999028, 0.99998862, &
       0.99998701, 0.99998569, 0.99998480, 0.99998438, 0.99998420, &
       0.99998420, 0.99998420, 0.99998420, 0.99997294, 0.99997294, &
       0.99997294, 0.99997294, 0.99997294, 0.99997288, 0.99997288, &
       0.99997282, 0.99997276, 0.99997264, 0.99997252, 0.99997234, &
       0.99997205, 0.99997163, 0.99997115, 0.99998391, 0.99998081, &
       0.99997741, 0.99997419, 0.99997163, 0.99996990, 0.99996895, &
       0.99996859, 0.99996853, 0.99996847, 0.99996847, 0.99995142, &
       0.99995142, 0.99995142, 0.99995142, 0.99995136, 0.99995130, &
       0.99995124, 0.99995112, 0.99995089, 0.99995059, 0.99995011, &
       0.99994951, 0.99994856, 0.99994737, 0.99994600, 0.99996853, &
       0.99996233, 0.99995553, 0.99994916, 0.99994397, 0.99994045, &
       0.99993849, 0.99993771, 0.99993742, 0.99993724, 0.99993718, &
       0.99991685, 0.99991679, 0.99991679, 0.99991673, 0.99991661, &
       0.99991649, 0.99991626, 0.99991590, 0.99991536, 0.99991453, &
       0.99991328, 0.99991143, 0.99990892, 0.99990571, 0.99990171, &
       0.99993920, 0.99992681, 0.99991333, 0.99990064, 0.99989033, &
       0.99988312, 0.99987900, 0.99987692, 0.99987602, 0.99987543, &
       0.99987501, 0.99986511, 0.99986511, 0.99986500, 0.99986482, &
       0.99986458, 0.99986428, 0.99986368, 0.99986279, 0.99986148, &
       0.99985939, 0.99985629, 0.99985188, 0.99984580, 0.99983770, &
       0.99982780, 0.99988472, 0.99986011, 0.99983358, 0.99980861, &
       0.99978799, 0.99977320, 0.99976391, 0.99975860, 0.99975550, &
       0.99975342, 0.99975210, 0.99979371, 0.99979353, 0.99979341, &
       0.99979299, 0.99979252, 0.99979180, 0.99979049, 0.99978858, &
       0.99978572, 0.99978119, 0.99977452, 0.99976480, 0.99975121, &
       0.99973333, 0.99971092, 0.99978709, 0.99973929, 0.99968803, &
       0.99963921, 0.99959832, 0.99956751, 0.99954629, 0.99953198, &
       0.99952233, 0.99951530, 0.99951041, 0.99970162, 0.99970138, &
       0.99970102, 0.99970031, 0.99969929, 0.99969780, 0.99969530, &
       0.99969149, 0.99968570, 0.99967682, 0.99966347, 0.99964428, &
       0.99961728, 0.99958128, 0.99953562, 0.99961978, 0.99953061, &
       0.99943441, 0.99934143, 0.99926043, 0.99919540, 0.99914569, &
       0.99910772, 0.99907869, 0.99905682, 0.99904078, 0.99958909, &
       0.99958861, 0.99958777, 0.99958658, 0.99958479, 0.99958187, &
       0.99957728, 0.99957019, 0.99955928, 0.99954277, 0.99951839, &
       0.99948311, 0.99943388, 0.99936771, 0.99928278, 0.99934620, &
       0.99918979, 0.99901879, 0.99884701, 0.99868900, 0.99855101, &
       0.99843502, 0.99833697, 0.99825698, 0.99819201, 0.99814302, &
       0.99945778, 0.99945688, 0.99945557, 0.99945343, 0.99945003, &
       0.99944460, 0.99943632, 0.99942350, 0.99940401, 0.99937469, &
       0.99933177, 0.99927050, 0.99918568, 0.99907219, 0.99892598, &
       0.99892199, 0.99866599, 0.99837899, 0.99807602, 0.99777400, &
       0.99748802, 0.99722600, 0.99698901, 0.99678302, 0.99660802, &
       0.99646801, 0.99931037, 0.99930882, 0.99930632, 0.99930239, &
       0.99929619, 0.99928659, 0.99927181, 0.99924922, 0.99921501, &
       0.99916458, 0.99909180, 0.99899000, 0.99884999, 0.99866599, &
       0.99842799, 0.99830103, 0.99790198, 0.99744099, 0.99692601, &
       0.99637598, 0.99581498, 0.99526101, 0.99473202, 0.99424398, &
       0.99381101, 0.99344200, 0.99914628, 0.99914342, 0.99913889, &
       0.99913180, 0.99912071, 0.99910372, 0.99907762, 0.99903822, &
       0.99897999, 0.99889499, 0.99877602, 0.99861199, 0.99839199, &
       0.99810302, 0.99773300, 0.99742401, 0.99681997, 0.99609798, &
       0.99525797, 0.99431503, 0.99329299, 0.99221897, 0.99113101, &
       0.99007100, 0.98908001, 0.98819000, 0.99895900, 0.99895400, &
       0.99894601, 0.99893302, 0.99891400, 0.99888301, 0.99883801, &
       0.99877101, 0.99867398, 0.99853599, 0.99834698, 0.99809098, &
       0.99775398, 0.99731499, 0.99675500, 0.99619502, 0.99528998, &
       0.99418801, 0.99287403, 0.99134803, 0.98961997, 0.98771000, &
       0.98566002, 0.98356003, 0.98148000, 0.97952002, 0.99873799, &
       0.99872798, 0.99871302, 0.99869001, 0.99865502, 0.99860299, &
       0.99852502, 0.99841398, 0.99825603, 0.99804002, 0.99774700, &
       0.99735999, 0.99685299, 0.99620003, 0.99536800, 0.99445999, &
       0.99312103, 0.99147803, 0.98948997, 0.98714000, 0.98439002, &
       0.98123002, 0.97770000, 0.97387999, 0.96991003, 0.96597999, &
       0.99846601, 0.99844801, 0.99842101, 0.99838102, 0.99831998, &
       0.99822998, 0.99810201, 0.99792302, 0.99767601, 0.99734300, &
       0.99690098, 0.99632198, 0.99557197, 0.99461198, 0.99339402, &
       0.99199599, 0.99004799, 0.98764998, 0.98474002, 0.98122001, &
       0.97702003, 0.97209001, 0.96640998, 0.96004999, 0.95317000, &
       0.94600999, 0.99813002, 0.99809802, 0.99805099, 0.99798000, &
       0.99787700, 0.99773002, 0.99752498, 0.99724299, 0.99686497, &
       0.99636298, 0.99570400, 0.99484903, 0.99375200, 0.99235398, &
       0.99058902, 0.98851001, 0.98571002, 0.98227000, 0.97804999, &
       0.97290999, 0.96671999, 0.95936000, 0.95076001, 0.94090003, &
       0.92992002, 0.91812003, 0.99771398, 0.99765801, 0.99757600, &
       0.99745703, 0.99728799, 0.99705303, 0.99673301, 0.99630302, &
       0.99573302, 0.99498600, 0.99401599, 0.99276900, 0.99117702, &
       0.98916000, 0.98662001, 0.98360002, 0.97961998, 0.97469997, &
       0.96867001, 0.96131998, 0.95245999, 0.94187999, 0.92943001, &
       0.91503000, 0.89880002, 0.88099998, 0.99719697, 0.99710101, &
       0.99696302, 0.99676800, 0.99650002, 0.99613500, 0.99564600, &
       0.99500000, 0.99415499, 0.99305803, 0.99164802, 0.98984998, &
       0.98755997, 0.98466998, 0.98104000, 0.97671002, 0.97105998, &
       0.96410000, 0.95559001, 0.94528997, 0.93291998, 0.91820002, &
       0.90092003, 0.88099998, 0.85839999, 0.83359998, 0.99655598, &
       0.99639499, 0.99617100, 0.99586397, 0.99544799, 0.99489301, &
       0.99416101, 0.99320602, 0.99196899, 0.99037802, 0.98834997, &
       0.98576999, 0.98250002, 0.97839999, 0.97325999, 0.96710002, &
       0.95915002, 0.94941998, 0.93761998, 0.92346001, 0.90660000, &
       0.88679999, 0.86370003, 0.83740002, 0.80799997, 0.77569997, &
       0.99575800, 0.99549901, 0.99514598, 0.99467200, 0.99404198, &
       0.99321300, 0.99213398, 0.99074000, 0.98895001, 0.98667002, &
       0.98377001, 0.98009998, 0.97548002, 0.96969002, 0.96249002, &
       0.95378000, 0.94278002, 0.92940998, 0.91336000, 0.89429998, &
       0.87199998, 0.84609997, 0.81659997, 0.78350002, 0.74689996, &
       0.70669997, 0.99475598, 0.99435198, 0.99381000, 0.99309403, &
       0.99215603, 0.99093801, 0.98936999, 0.98736000, 0.98479998, &
       0.98154002, 0.97742999, 0.97224998, 0.96575999, 0.95769000, &
       0.94773000, 0.93559003, 0.92061001, 0.90263999, 0.88139999, &
       0.85650003, 0.82780004, 0.79530001, 0.75889999, 0.71869999, &
       0.67420000, 0.62529999, 0.99348903, 0.99287099, 0.99205798, &
       0.99099600, 0.98961997, 0.98785001, 0.98559999, 0.98272002, &
       0.97907001, 0.97447002, 0.96868002, 0.96144003, 0.95244002, &
       0.94133997, 0.92778003, 0.91112000, 0.89120001, 0.86769998, &
       0.84029996, 0.80879998, 0.77329999, 0.73379999, 0.69000000, &
       0.64170003, 0.58850002, 0.53049999, 0.99186200, 0.99093699, &
       0.98974001, 0.98817998, 0.98619002, 0.98365998, 0.98043001, &
       0.97635001, 0.97119999, 0.96473998, 0.95666999, 0.94667000, &
       0.93436003, 0.91935998, 0.90125000, 0.87900001, 0.85320002, &
       0.82330000, 0.78920001, 0.75080001, 0.70819998, 0.66090000, &
       0.60870004, 0.55149996, 0.48979998, 0.42449999, 0.98973000, &
       0.98837000, 0.98662001, 0.98438001, 0.98153001, 0.97790998, &
       0.97333997, 0.96758002, 0.96038002, 0.95141000, 0.94032001, &
       0.92672002, 0.91018999, 0.89029998, 0.86680001, 0.83780003, &
       0.80550003, 0.76880002, 0.72770000, 0.68190002, 0.63119996, &
       0.57529998, 0.51440001, 0.44950002, 0.38200003, 0.31419998, &
       0.98688000, 0.98491001, 0.98238999, 0.97918999, 0.97513002, &
       0.97000998, 0.96359003, 0.95555997, 0.94559997, 0.93333000, &
       0.91833997, 0.90020001, 0.87849998, 0.85290003, 0.82319999, &
       0.78680003, 0.74759996, 0.70379996, 0.65499997, 0.60100001, &
       0.54159999, 0.47740000, 0.40990001, 0.34100002, 0.27329999, &
       0.20969999, 0.98303002, 0.98019999, 0.97659999, 0.97206002, &
       0.96634001, 0.95916998, 0.95025003, 0.93919998, 0.92565000, &
       0.90916002, 0.88929999, 0.86570001, 0.83810002, 0.80620003, &
       0.77010000, 0.72549999, 0.67900002, 0.62720001, 0.56999999, &
       0.50740004, 0.44059998, 0.37129998, 0.30190003, 0.23540002, &
       0.17479998, 0.12269998, 0.97777998, 0.97373998, 0.96866000, &
       0.96227002, 0.95428002, 0.94437003, 0.93216002, 0.91722000, &
       0.89910001, 0.87750000, 0.85189998, 0.82220000, 0.78820002, &
       0.74989998, 0.70730001, 0.65300000, 0.59829998, 0.53810000, &
       0.47280002, 0.40399998, 0.33380002, 0.26490003, 0.20060003, &
       0.14380002, 0.09700000, 0.06089997, 0.97059000, 0.96490002, &
       0.95776999, 0.94888997, 0.93791002, 0.92440999, 0.90798998, &
       0.88819999, 0.86470002, 0.83710003, 0.80530000, 0.76919997, &
       0.72870004, 0.68369997, 0.63400000, 0.56830001, 0.50520003, &
       0.43769997, 0.36760002, 0.29729998, 0.23000002, 0.16890001, &
       0.11680001, 0.07550001, 0.04500002, 0.02420002, 0.96077001, &
       0.95283002, 0.94296998, 0.93080997, 0.91593999, 0.89789999, &
       0.87639999, 0.85089999, 0.82130003, 0.78729999, 0.74909997, &
       0.70640004, 0.65910000, 0.60679996, 0.54960001, 0.47140002, &
       0.40219998, 0.33149999, 0.26220000, 0.19730002, 0.14029998, &
       0.09340000, 0.05760002, 0.03240001, 0.01620001, 0.00660002, &
       0.94742000, 0.93649000, 0.92306000, 0.90671003, 0.88700002, &
       0.86360002, 0.83609998, 0.80439997, 0.76830000, 0.72790003, &
       0.68299997, 0.63330001, 0.57850003, 0.51899999, 0.45560002, &
       0.36650002, 0.29600000, 0.22839999, 0.16700000, 0.11479998, &
       0.07340002, 0.04310000, 0.02270001, 0.01029998, 0.00349998, &
       0.00040001],[26,31])

   real, dimension(26,31) :: h22 = reshape([ &
      -0.5622e-07, -0.5622e-07, -0.5622e-07, -0.5623e-07, -0.5623e-07, &
      -0.5624e-07, -0.5626e-07, -0.5628e-07, -0.5630e-07, -0.5636e-07, &
      -0.5645e-07, -0.5658e-07, -0.5677e-07, -0.5703e-07, -0.5736e-07, &
      -0.3122e-07, -0.3547e-07, -0.4064e-07, -0.4629e-07, -0.5164e-07, &
      -0.5584e-07, -0.5833e-07, -0.5929e-07, -0.5950e-07, -0.5953e-07, &
      -0.5954e-07, -0.1071e-06, -0.1071e-06, -0.1071e-06, -0.1071e-06, &
      -0.1071e-06, -0.1072e-06, -0.1072e-06, -0.1073e-06, -0.1074e-06, &
      -0.1076e-06, -0.1079e-06, -0.1083e-06, -0.1090e-06, -0.1098e-06, &
      -0.1109e-06, -0.6175e-07, -0.7029e-07, -0.8066e-07, -0.9195e-07, &
      -0.1026e-06, -0.1110e-06, -0.1160e-06, -0.1180e-06, -0.1185e-06, &
      -0.1187e-06, -0.1187e-06, -0.1983e-06, -0.1983e-06, -0.1983e-06, &
      -0.1984e-06, -0.1985e-06, -0.1986e-06, -0.1987e-06, -0.1990e-06, &
      -0.1994e-06, -0.2000e-06, -0.2009e-06, -0.2023e-06, -0.2043e-06, &
      -0.2071e-06, -0.2106e-06, -0.1214e-06, -0.1386e-06, -0.1593e-06, &
      -0.1819e-06, -0.2031e-06, -0.2198e-06, -0.2300e-06, -0.2344e-06, &
      -0.2358e-06, -0.2363e-06, -0.2366e-06, -0.3533e-06, -0.3534e-06, &
      -0.3535e-06, -0.3536e-06, -0.3538e-06, -0.3541e-06, -0.3545e-06, &
      -0.3553e-06, -0.3564e-06, -0.3582e-06, -0.3610e-06, -0.3650e-06, &
      -0.3709e-06, -0.3788e-06, -0.3890e-06, -0.2361e-06, -0.2709e-06, &
      -0.3124e-06, -0.3572e-06, -0.3994e-06, -0.4329e-06, -0.4540e-06, &
      -0.4638e-06, -0.4678e-06, -0.4697e-06, -0.4709e-06, -0.5991e-06, &
      -0.5992e-06, -0.5994e-06, -0.5997e-06, -0.6002e-06, -0.6010e-06, &
      -0.6022e-06, -0.6042e-06, -0.6072e-06, -0.6119e-06, -0.6190e-06, &
      -0.6295e-06, -0.6448e-06, -0.6657e-06, -0.6928e-06, -0.4518e-06, &
      -0.5218e-06, -0.6049e-06, -0.6936e-06, -0.7771e-06, -0.8444e-06, &
      -0.8885e-06, -0.9118e-06, -0.9235e-06, -0.9304e-06, -0.9349e-06, &
      -0.9592e-06, -0.9594e-06, -0.9599e-06, -0.9606e-06, -0.9618e-06, &
      -0.9636e-06, -0.9665e-06, -0.9710e-06, -0.9779e-06, -0.9888e-06, &
      -0.1005e-05, -0.1030e-05, -0.1066e-05, -0.1116e-05, -0.1181e-05, &
      -0.8438e-06, -0.9840e-06, -0.1148e-05, -0.1323e-05, -0.1488e-05, &
      -0.1623e-05, -0.1718e-05, -0.1775e-05, -0.1810e-05, -0.1833e-05, &
      -0.1849e-05, -0.1444e-05, -0.1445e-05, -0.1446e-05, -0.1447e-05, &
      -0.1450e-05, -0.1453e-05, -0.1460e-05, -0.1469e-05, -0.1484e-05, &
      -0.1507e-05, -0.1541e-05, -0.1593e-05, -0.1669e-05, -0.1776e-05, &
      -0.1917e-05, -0.1524e-05, -0.1799e-05, -0.2118e-05, -0.2456e-05, &
      -0.2776e-05, -0.3049e-05, -0.3256e-05, -0.3401e-05, -0.3503e-05, &
      -0.3578e-05, -0.3632e-05, -0.2049e-05, -0.2050e-05, -0.2052e-05, &
      -0.2055e-05, -0.2059e-05, -0.2067e-05, -0.2078e-05, -0.2096e-05, &
      -0.2124e-05, -0.2168e-05, -0.2235e-05, -0.2334e-05, -0.2480e-05, &
      -0.2687e-05, -0.2965e-05, -0.2643e-05, -0.3156e-05, -0.3751e-05, &
      -0.4385e-05, -0.5001e-05, -0.5551e-05, -0.6010e-05, -0.6375e-05, &
      -0.6664e-05, -0.6889e-05, -0.7058e-05, -0.2764e-05, -0.2766e-05, &
      -0.2769e-05, -0.2775e-05, -0.2783e-05, -0.2796e-05, -0.2817e-05, &
      -0.2849e-05, -0.2900e-05, -0.2978e-05, -0.3096e-05, -0.3273e-05, &
      -0.3532e-05, -0.3898e-05, -0.4396e-05, -0.4380e-05, -0.5272e-05, &
      -0.6314e-05, -0.7453e-05, -0.8610e-05, -0.9714e-05, -0.1072e-04, &
      -0.1160e-04, -0.1236e-04, -0.1299e-04, -0.1350e-04, -0.3577e-05, &
      -0.3580e-05, -0.3586e-05, -0.3596e-05, -0.3611e-05, -0.3634e-05, &
      -0.3671e-05, -0.3728e-05, -0.3817e-05, -0.3952e-05, -0.4155e-05, &
      -0.4455e-05, -0.4887e-05, -0.5493e-05, -0.6315e-05, -0.6922e-05, &
      -0.8357e-05, -0.1006e-04, -0.1200e-04, -0.1411e-04, -0.1627e-04, &
      -0.1838e-04, -0.2039e-04, -0.2223e-04, -0.2384e-04, -0.2521e-04, &
      -0.4469e-05, -0.4476e-05, -0.4487e-05, -0.4504e-05, -0.4531e-05, &
      -0.4572e-05, -0.4637e-05, -0.4738e-05, -0.4891e-05, -0.5122e-05, &
      -0.5463e-05, -0.5955e-05, -0.6650e-05, -0.7607e-05, -0.8891e-05, &
      -0.1042e-04, -0.1260e-04, -0.1526e-04, -0.1843e-04, -0.2209e-04, &
      -0.2609e-04, -0.3026e-04, -0.3444e-04, -0.3849e-04, -0.4227e-04, &
      -0.4564e-04, -0.5467e-05, -0.5479e-05, -0.5499e-05, -0.5529e-05, &
      -0.5577e-05, -0.5652e-05, -0.5767e-05, -0.5942e-05, -0.6205e-05, &
      -0.6592e-05, -0.7150e-05, -0.7935e-05, -0.9017e-05, -0.1048e-04, &
      -0.1242e-04, -0.1504e-04, -0.1827e-04, -0.2232e-04, -0.2731e-04, &
      -0.3328e-04, -0.4015e-04, -0.4772e-04, -0.5575e-04, -0.6396e-04, &
      -0.7201e-04, -0.7958e-04, -0.6654e-05, -0.6677e-05, -0.6712e-05, &
      -0.6768e-05, -0.6855e-05, -0.6987e-05, -0.7188e-05, -0.7490e-05, &
      -0.7931e-05, -0.8565e-05, -0.9453e-05, -0.1067e-04, -0.1232e-04, &
      -0.1450e-04, -0.1736e-04, -0.2125e-04, -0.2598e-04, -0.3196e-04, &
      -0.3943e-04, -0.4860e-04, -0.5955e-04, -0.7223e-04, -0.8641e-04, &
      -0.1017e-03, -0.1174e-03, -0.1329e-03, -0.8137e-05, -0.8179e-05, &
      -0.8244e-05, -0.8345e-05, -0.8499e-05, -0.8733e-05, -0.9080e-05, &
      -0.9586e-05, -0.1031e-04, -0.1132e-04, -0.1269e-04, -0.1455e-04, &
      -0.1701e-04, -0.2024e-04, -0.2442e-04, -0.2987e-04, -0.3667e-04, &
      -0.4525e-04, -0.5606e-04, -0.6954e-04, -0.8603e-04, -0.1057e-03, &
      -0.1287e-03, -0.1545e-03, -0.1825e-03, -0.2114e-03, -0.1002e-04, &
      -0.1009e-04, -0.1021e-04, -0.1039e-04, -0.1066e-04, -0.1107e-04, &
      -0.1165e-04, -0.1247e-04, -0.1362e-04, -0.1518e-04, -0.1728e-04, &
      -0.2007e-04, -0.2372e-04, -0.2845e-04, -0.3454e-04, -0.4200e-04, &
      -0.5169e-04, -0.6394e-04, -0.7936e-04, -0.9861e-04, -0.1223e-03, &
      -0.1512e-03, -0.1856e-03, -0.2257e-03, -0.2710e-03, -0.3200e-03, &
      -0.1237e-04, -0.1251e-04, -0.1272e-04, -0.1304e-04, -0.1351e-04, &
      -0.1418e-04, -0.1513e-04, -0.1644e-04, -0.1821e-04, -0.2060e-04, &
      -0.2375e-04, -0.2788e-04, -0.3325e-04, -0.4014e-04, -0.4892e-04, &
      -0.5923e-04, -0.7312e-04, -0.9058e-04, -0.1123e-03, -0.1393e-03, &
      -0.1724e-03, -0.2128e-03, -0.2615e-03, -0.3192e-03, -0.3861e-03, &
      -0.4611e-03, -0.1528e-04, -0.1553e-04, -0.1591e-04, -0.1645e-04, &
      -0.1723e-04, -0.1832e-04, -0.1981e-04, -0.2184e-04, -0.2454e-04, &
      -0.2811e-04, -0.3279e-04, -0.3885e-04, -0.4664e-04, -0.5658e-04, &
      -0.6916e-04, -0.8383e-04, -0.1037e-03, -0.1284e-03, -0.1588e-03, &
      -0.1961e-03, -0.2413e-03, -0.2961e-03, -0.3618e-03, -0.4399e-03, &
      -0.5313e-03, -0.6353e-03, -0.1884e-04, -0.1928e-04, -0.1992e-04, &
      -0.2082e-04, -0.2207e-04, -0.2378e-04, -0.2609e-04, -0.2916e-04, &
      -0.3320e-04, -0.3848e-04, -0.4531e-04, -0.5409e-04, -0.6528e-04, &
      -0.7947e-04, -0.9735e-04, -0.1186e-03, -0.1467e-03, -0.1812e-03, &
      -0.2231e-03, -0.2738e-03, -0.3346e-03, -0.4070e-03, -0.4928e-03, &
      -0.5933e-03, -0.7095e-03, -0.8409e-03, -0.2310e-04, -0.2384e-04, &
      -0.2489e-04, -0.2633e-04, -0.2829e-04, -0.3092e-04, -0.3441e-04, &
      -0.3898e-04, -0.4493e-04, -0.5261e-04, -0.6246e-04, -0.7503e-04, &
      -0.9095e-04, -0.1110e-03, -0.1362e-03, -0.1670e-03, -0.2060e-03, &
      -0.2533e-03, -0.3101e-03, -0.3778e-03, -0.4578e-03, -0.5514e-03, &
      -0.6594e-03, -0.7824e-03, -0.9203e-03, -0.1072e-02, -0.2809e-04, &
      -0.2930e-04, -0.3097e-04, -0.3322e-04, -0.3621e-04, -0.4017e-04, &
      -0.4534e-04, -0.5205e-04, -0.6068e-04, -0.7173e-04, -0.8579e-04, &
      -0.1036e-03, -0.1260e-03, -0.1541e-03, -0.1891e-03, -0.2328e-03, &
      -0.2857e-03, -0.3493e-03, -0.4247e-03, -0.5132e-03, -0.6155e-03, &
      -0.7320e-03, -0.8621e-03, -0.1005e-02, -0.1158e-02, -0.1324e-02, &
      -0.3396e-04, -0.3588e-04, -0.3845e-04, -0.4187e-04, -0.4636e-04, &
      -0.5221e-04, -0.5978e-04, -0.6948e-04, -0.8186e-04, -0.9758e-04, &
      -0.1175e-03, -0.1425e-03, -0.1737e-03, -0.2125e-03, -0.2602e-03, &
      -0.3204e-03, -0.3907e-03, -0.4740e-03, -0.5713e-03, -0.6831e-03, &
      -0.8087e-03, -0.9467e-03, -0.1095e-02, -0.1251e-02, -0.1417e-02, &
      -0.1592e-02, -0.4098e-04, -0.4393e-04, -0.4782e-04, -0.5292e-04, &
      -0.5954e-04, -0.6806e-04, -0.7897e-04, -0.9285e-04, -0.1104e-03, &
      -0.1326e-03, -0.1604e-03, -0.1951e-03, -0.2381e-03, -0.2907e-03, &
      -0.3545e-03, -0.4347e-03, -0.5257e-03, -0.6315e-03, -0.7522e-03, &
      -0.8868e-03, -0.1033e-02, -0.1187e-02, -0.1349e-02, -0.1516e-02, &
      -0.1691e-02, -0.1871e-02, -0.4960e-04, -0.5403e-04, -0.5982e-04, &
      -0.6730e-04, -0.7690e-04, -0.8916e-04, -0.1047e-03, -0.1244e-03, &
      -0.1491e-03, -0.1801e-03, -0.2186e-03, -0.2660e-03, -0.3238e-03, &
      -0.3936e-03, -0.4768e-03, -0.5802e-03, -0.6940e-03, -0.8228e-03, &
      -0.9651e-03, -0.1118e-02, -0.1279e-02, -0.1446e-02, -0.1618e-02, &
      -0.1794e-02, -0.1968e-02, -0.2127e-02, -0.6058e-04, -0.6714e-04, &
      -0.7558e-04, -0.8640e-04, -0.1002e-03, -0.1176e-03, -0.1396e-03, &
      -0.1672e-03, -0.2016e-03, -0.2442e-03, -0.2964e-03, -0.3598e-03, &
      -0.4359e-03, -0.5261e-03, -0.6310e-03, -0.7595e-03, -0.8954e-03, &
      -0.1044e-02, -0.1202e-02, -0.1368e-02, -0.1540e-02, -0.1717e-02, &
      -0.1894e-02, -0.2060e-02, -0.2200e-02, -0.2297e-02, -0.7506e-04, &
      -0.8458e-04, -0.9674e-04, -0.1122e-03, -0.1317e-03, -0.1562e-03, &
      -0.1870e-03, -0.2251e-03, -0.2722e-03, -0.3296e-03, -0.3990e-03, &
      -0.4817e-03, -0.5789e-03, -0.6912e-03, -0.8179e-03, -0.9703e-03, &
      -0.1124e-02, -0.1286e-02, -0.1456e-02, -0.1632e-02, -0.1811e-02, &
      -0.1985e-02, -0.2140e-02, -0.2257e-02, -0.2320e-02, -0.2312e-02, &
      -0.9451e-04, -0.1082e-03, -0.1254e-03, -0.1472e-03, -0.1746e-03, &
      -0.2087e-03, -0.2510e-03, -0.3028e-03, -0.3658e-03, -0.4415e-03, &
      -0.5311e-03, -0.6355e-03, -0.7549e-03, -0.8880e-03, -0.1032e-02, &
      -0.1205e-02, -0.1371e-02, -0.1544e-02, -0.1721e-02, -0.1899e-02, &
      -0.2065e-02, -0.2203e-02, -0.2293e-02, -0.2318e-02, -0.2263e-02, &
      -0.2123e-02, -0.1207e-03, -0.1400e-03, -0.1644e-03, -0.1948e-03, &
      -0.2326e-03, -0.2793e-03, -0.3363e-03, -0.4051e-03, -0.4873e-03, &
      -0.5840e-03, -0.6957e-03, -0.8218e-03, -0.9607e-03, -0.1109e-02, &
      -0.1265e-02, -0.1457e-02, -0.1632e-02, -0.1810e-02, -0.1983e-02, &
      -0.2136e-02, -0.2251e-02, -0.2307e-02, -0.2290e-02, -0.2186e-02, &
      -0.1998e-02, -0.1738e-02, -0.1558e-03, -0.1829e-03, -0.2167e-03, &
      -0.2585e-03, -0.3099e-03, -0.3724e-03, -0.4475e-03, -0.5365e-03, &
      -0.6404e-03, -0.7591e-03, -0.8916e-03, -0.1035e-02, -0.1188e-02, &
      -0.1346e-02, -0.1508e-02, -0.1720e-02, -0.1897e-02, -0.2061e-02, &
      -0.2196e-02, -0.2282e-02, -0.2301e-02, -0.2237e-02, -0.2085e-02, &
      -0.1853e-02, -0.1563e-02, -0.1247e-02, -0.2026e-03, -0.2401e-03, &
      -0.2863e-03, -0.3428e-03, -0.4111e-03, -0.4928e-03, -0.5888e-03, &
      -0.6998e-03, -0.8253e-03, -0.9636e-03, -0.1112e-02, -0.1267e-02, &
      -0.1427e-02, -0.1591e-02, -0.1757e-02, -0.1980e-02, -0.2131e-02, &
      -0.2243e-02, -0.2296e-02, -0.2273e-02, -0.2163e-02, -0.1965e-02, &
      -0.1696e-02, -0.1386e-02, -0.1068e-02, -0.7744e-03, -0.2648e-03, &
      -0.3157e-03, -0.3777e-03, -0.4523e-03, -0.5407e-03, -0.6440e-03, &
      -0.7621e-03, -0.8940e-03, -0.1037e-02, -0.1189e-02, -0.1346e-02, &
      -0.1508e-02, -0.1674e-02, -0.1837e-02, -0.1989e-02, -0.2191e-02, &
      -0.2275e-02, -0.2291e-02, -0.2224e-02, -0.2067e-02, -0.1828e-02, &
      -0.1532e-02, -0.1212e-02, -0.9021e-03, -0.6300e-03, -0.4117e-03, &
      -0.3468e-03, -0.4147e-03, -0.4959e-03, -0.5915e-03, -0.7020e-03, &
      -0.8270e-03, -0.9647e-03, -0.1112e-02, -0.1267e-02, -0.1427e-02, &
      -0.1590e-02, -0.1755e-02, -0.1914e-02, -0.2054e-02, -0.2159e-02, &
      -0.2290e-02, -0.2265e-02, -0.2152e-02, -0.1952e-02, -0.1679e-02, &
      -0.1365e-02, -0.1044e-02, -0.7506e-03, -0.5050e-03, -0.3174e-03, &
      -0.1850e-03],[26,31]) 

   real, dimension(26,31) :: h23 = reshape([ &
      -0.2195e-09, -0.2195e-09, -0.2196e-09, -0.2196e-09, -0.2197e-09, &
      -0.2198e-09, -0.2200e-09, -0.2204e-09, -0.2207e-09, -0.2214e-09, &
      -0.2225e-09, -0.2241e-09, -0.2262e-09, -0.2288e-09, -0.2321e-09, &
      -0.1376e-09, -0.1482e-09, -0.1630e-09, -0.1827e-09, -0.2058e-09, &
      -0.2274e-09, -0.2426e-09, -0.2496e-09, -0.2515e-09, -0.2520e-09, &
      -0.2522e-09, -0.4031e-09, -0.4032e-09, -0.4033e-09, -0.4034e-09, &
      -0.4037e-09, -0.4040e-09, -0.4045e-09, -0.4052e-09, -0.4061e-09, &
      -0.4080e-09, -0.4104e-09, -0.4142e-09, -0.4191e-09, -0.4265e-09, &
      -0.4350e-09, -0.2699e-09, -0.2910e-09, -0.3213e-09, -0.3607e-09, &
      -0.4066e-09, -0.4498e-09, -0.4805e-09, -0.4954e-09, -0.5001e-09, &
      -0.5016e-09, -0.5025e-09, -0.7043e-09, -0.7046e-09, -0.7048e-09, &
      -0.7050e-09, -0.7054e-09, -0.7061e-09, -0.7071e-09, -0.7088e-09, &
      -0.7117e-09, -0.7156e-09, -0.7217e-09, -0.7312e-09, -0.7441e-09, &
      -0.7627e-09, -0.7861e-09, -0.5220e-09, -0.5667e-09, -0.6266e-09, &
      -0.7057e-09, -0.7967e-09, -0.8814e-09, -0.9447e-09, -0.9780e-09, &
      -0.9904e-09, -0.9963e-09, -0.9997e-09, -0.1153e-08, -0.1153e-08, &
      -0.1154e-08, -0.1154e-08, -0.1155e-08, -0.1156e-08, -0.1159e-08, &
      -0.1162e-08, -0.1169e-08, -0.1178e-08, -0.1192e-08, -0.1214e-08, &
      -0.1244e-08, -0.1289e-08, -0.1347e-08, -0.9897e-09, -0.1081e-08, &
      -0.1201e-08, -0.1359e-08, -0.1539e-08, -0.1708e-08, -0.1841e-08, &
      -0.1915e-08, -0.1951e-08, -0.1971e-08, -0.1983e-08, -0.1737e-08, &
      -0.1738e-08, -0.1739e-08, -0.1740e-08, -0.1741e-08, -0.1744e-08, &
      -0.1748e-08, -0.1755e-08, -0.1767e-08, -0.1784e-08, -0.1811e-08, &
      -0.1854e-08, -0.1916e-08, -0.2011e-08, -0.2144e-08, -0.1819e-08, &
      -0.2005e-08, -0.2248e-08, -0.2552e-08, -0.2904e-08, -0.3247e-08, &
      -0.3519e-08, -0.3697e-08, -0.3800e-08, -0.3867e-08, -0.3912e-08, &
      -0.2395e-08, -0.2395e-08, -0.2396e-08, -0.2398e-08, -0.2401e-08, &
      -0.2405e-08, -0.2411e-08, -0.2422e-08, -0.2439e-08, -0.2466e-08, &
      -0.2509e-08, -0.2578e-08, -0.2687e-08, -0.2861e-08, -0.3120e-08, &
      -0.3186e-08, -0.3554e-08, -0.4030e-08, -0.4615e-08, -0.5293e-08, &
      -0.5972e-08, -0.6565e-08, -0.6991e-08, -0.7288e-08, -0.7500e-08, &
      -0.7650e-08, -0.3020e-08, -0.3021e-08, -0.3022e-08, -0.3024e-08, &
      -0.3027e-08, -0.3032e-08, -0.3040e-08, -0.3053e-08, -0.3074e-08, &
      -0.3105e-08, -0.3155e-08, -0.3250e-08, -0.3407e-08, -0.3673e-08, &
      -0.4107e-08, -0.5224e-08, -0.5902e-08, -0.6770e-08, -0.7854e-08, &
      -0.9116e-08, -0.1045e-07, -0.1172e-07, -0.1279e-07, -0.1362e-07, &
      -0.1427e-07, -0.1474e-07, -0.3549e-08, -0.3550e-08, -0.3551e-08, &
      -0.3552e-08, -0.3553e-08, -0.3556e-08, -0.3561e-08, -0.3572e-08, &
      -0.3588e-08, -0.3617e-08, -0.3668e-08, -0.3765e-08, -0.3947e-08, &
      -0.4288e-08, -0.4892e-08, -0.7896e-08, -0.8925e-08, -0.1033e-07, &
      -0.1218e-07, -0.1447e-07, -0.1707e-07, -0.1979e-07, -0.2231e-07, &
      -0.2452e-07, -0.2634e-07, -0.2777e-07, -0.4034e-08, -0.4035e-08, &
      -0.4036e-08, -0.4037e-08, -0.4039e-08, -0.4040e-08, -0.4046e-08, &
      -0.4052e-08, -0.4062e-08, -0.4087e-08, -0.4138e-08, -0.4238e-08, &
      -0.4432e-08, -0.4812e-08, -0.5511e-08, -0.1090e-07, -0.1209e-07, &
      -0.1392e-07, -0.1670e-07, -0.2058e-07, -0.2545e-07, -0.3095e-07, &
      -0.3653e-07, -0.4184e-07, -0.4656e-07, -0.5055e-07, -0.4421e-08, &
      -0.4423e-08, -0.4425e-08, -0.4428e-08, -0.4431e-08, -0.4444e-08, &
      -0.4455e-08, -0.4474e-08, -0.4510e-08, -0.4563e-08, -0.4650e-08, &
      -0.4809e-08, -0.5059e-08, -0.5475e-08, -0.6164e-08, -0.1349e-07, &
      -0.1448e-07, -0.1640e-07, -0.2008e-07, -0.2608e-07, -0.3440e-07, &
      -0.4443e-07, -0.5541e-07, -0.6663e-07, -0.7753e-07, -0.8745e-07, &
      -0.4736e-08, -0.4740e-08, -0.4746e-08, -0.4756e-08, -0.4775e-08, &
      -0.4800e-08, -0.4839e-08, -0.4898e-08, -0.4983e-08, -0.5110e-08, &
      -0.5296e-08, -0.5553e-08, -0.5896e-08, -0.6365e-08, -0.7054e-08, &
      -0.1443e-07, -0.1536e-07, -0.1768e-07, -0.2241e-07, -0.3053e-07, &
      -0.4259e-07, -0.5821e-07, -0.7688e-07, -0.9770e-07, -0.1196e-06, &
      -0.1414e-06, -0.5681e-08, -0.5692e-08, -0.5710e-08, -0.5741e-08, &
      -0.5784e-08, -0.5848e-08, -0.5941e-08, -0.6082e-08, -0.6261e-08, &
      -0.6492e-08, -0.6785e-08, -0.7132e-08, -0.7538e-08, -0.8052e-08, &
      -0.8811e-08, -0.1374e-07, -0.1565e-07, -0.1932e-07, -0.2516e-07, &
      -0.3418e-07, -0.4822e-07, -0.6868e-07, -0.9614e-07, -0.1299e-06, &
      -0.1683e-06, -0.2095e-06, -0.8289e-08, -0.8314e-08, -0.8354e-08, &
      -0.8418e-08, -0.8506e-08, -0.8640e-08, -0.8815e-08, -0.9046e-08, &
      -0.9324e-08, -0.9643e-08, -0.9991e-08, -0.1035e-07, -0.1079e-07, &
      -0.1142e-07, -0.1240e-07, -0.1386e-07, -0.1763e-07, -0.2229e-07, &
      -0.2796e-07, -0.3619e-07, -0.5004e-07, -0.7282e-07, -0.1069e-06, &
      -0.1533e-06, -0.2113e-06, -0.2790e-06, -0.1287e-07, -0.1292e-07, &
      -0.1300e-07, -0.1310e-07, -0.1326e-07, -0.1346e-07, -0.1371e-07, &
      -0.1400e-07, -0.1430e-07, -0.1461e-07, -0.1494e-07, -0.1538e-07, &
      -0.1606e-07, -0.1711e-07, -0.1862e-07, -0.1673e-07, -0.2088e-07, &
      -0.2508e-07, -0.3015e-07, -0.3766e-07, -0.5061e-07, -0.7208e-07, &
      -0.1065e-06, -0.1584e-06, -0.2309e-06, -0.3241e-06, -0.1873e-07, &
      -0.1882e-07, -0.1894e-07, -0.1910e-07, -0.1931e-07, -0.1957e-07, &
      -0.1983e-07, -0.2009e-07, -0.2036e-07, -0.2069e-07, -0.2122e-07, &
      -0.2211e-07, -0.2346e-07, -0.2533e-07, -0.2773e-07, -0.2237e-07, &
      -0.2564e-07, -0.2940e-07, -0.3506e-07, -0.4313e-07, -0.5485e-07, &
      -0.7176e-07, -0.9866e-07, -0.1425e-06, -0.2119e-06, -0.3135e-06, &
      -0.2523e-07, -0.2536e-07, -0.2554e-07, -0.2575e-07, -0.2600e-07, &
      -0.2627e-07, -0.2652e-07, -0.2683e-07, -0.2725e-07, -0.2796e-07, &
      -0.2911e-07, -0.3079e-07, -0.3305e-07, -0.3597e-07, -0.3957e-07, &
      -0.3248e-07, -0.3635e-07, -0.4200e-07, -0.4958e-07, -0.5817e-07, &
      -0.6687e-07, -0.7562e-07, -0.8740e-07, -0.1093e-06, -0.1518e-06, &
      -0.2269e-06, -0.3223e-07, -0.3242e-07, -0.3265e-07, -0.3293e-07, &
      -0.3324e-07, -0.3357e-07, -0.3400e-07, -0.3463e-07, -0.3561e-07, &
      -0.3702e-07, -0.3895e-07, -0.4142e-07, -0.4459e-07, -0.4862e-07, &
      -0.5371e-07, -0.5050e-07, -0.5791e-07, -0.6717e-07, -0.7627e-07, &
      -0.8299e-07, -0.8483e-07, -0.8110e-07, -0.7192e-07, -0.5972e-07, &
      -0.5200e-07, -0.5896e-07, -0.3902e-07, -0.3927e-07, -0.3958e-07, &
      -0.3998e-07, -0.4048e-07, -0.4114e-07, -0.4207e-07, -0.4334e-07, &
      -0.4505e-07, -0.4717e-07, -0.4979e-07, -0.5303e-07, -0.5720e-07, &
      -0.6259e-07, -0.6939e-07, -0.7743e-07, -0.8907e-07, -0.1002e-06, &
      -0.1070e-06, -0.1072e-06, -0.9896e-07, -0.7934e-07, -0.4304e-07, &
       0.1426e-07,  0.9274e-07,  0.1875e-06, -0.4409e-07, -0.4449e-07, &
      -0.4502e-07, -0.4572e-07, -0.4666e-07, -0.4793e-07, -0.4955e-07, &
      -0.5153e-07, -0.5384e-07, -0.5662e-07, -0.6002e-07, -0.6437e-07, &
      -0.6999e-07, -0.7708e-07, -0.8564e-07, -0.1097e-06, -0.1213e-06, &
      -0.1286e-06, -0.1289e-06, -0.1195e-06, -0.9646e-07, -0.5365e-07, &
       0.1982e-07,  0.1347e-06,  0.2973e-06,  0.4996e-06, -0.4699e-07, &
      -0.4767e-07, -0.4859e-07, -0.4980e-07, -0.5137e-07, -0.5330e-07, &
      -0.5554e-07, -0.5811e-07, -0.6111e-07, -0.6484e-07, -0.6964e-07, &
      -0.7566e-07, -0.8300e-07, -0.9150e-07, -0.1006e-06, -0.1369e-06, &
      -0.1418e-06, -0.1402e-06, -0.1286e-06, -0.1031e-06, -0.5557e-07, &
       0.2483e-07,  0.1525e-06,  0.3364e-06,  0.5714e-06,  0.8299e-06, &
      -0.4782e-07, -0.4889e-07, -0.5030e-07, -0.5211e-07, -0.5428e-07, &
      -0.5676e-07, -0.5966e-07, -0.6305e-07, -0.6731e-07, -0.7271e-07, &
      -0.7935e-07, -0.8703e-07, -0.9536e-07, -0.1035e-06, -0.1100e-06, &
      -0.1463e-06, -0.1397e-06, -0.1216e-06, -0.8843e-07, -0.3275e-07, &
       0.5765e-07,  0.1959e-06,  0.3873e-06,  0.6209e-06,  0.8687e-06, &
       0.1115e-05, -0.4705e-07, -0.4857e-07, -0.5053e-07, -0.5287e-07, &
      -0.5558e-07, -0.5873e-07, -0.6261e-07, -0.6749e-07, -0.7355e-07, &
      -0.8079e-07, -0.8887e-07, -0.9700e-07, -0.1039e-06, -0.1079e-06, &
      -0.1066e-06, -0.1268e-06, -0.1000e-06, -0.5487e-07,  0.1492e-07, &
       0.1215e-06,  0.2752e-06,  0.4731e-06,  0.6947e-06,  0.9169e-06, &
       0.1152e-05,  0.1467e-05, -0.4657e-07, -0.4860e-07, -0.5104e-07, &
      -0.5390e-07, -0.5730e-07, -0.6152e-07, -0.6688e-07, -0.7346e-07, &
      -0.8112e-07, -0.8928e-07, -0.9699e-07, -0.1025e-06, -0.1036e-06, &
      -0.9742e-07, -0.8018e-07, -0.6424e-07, -0.4427e-08,  0.8418e-07, &
       0.2118e-06,  0.3835e-06,  0.5870e-06,  0.7954e-06,  0.1000e-05, &
       0.1243e-05,  0.1621e-05,  0.2236e-05, -0.4885e-07, -0.5132e-07, &
      -0.5427e-07, -0.5782e-07, -0.6228e-07, -0.6783e-07, -0.7454e-07, &
      -0.8208e-07, -0.8978e-07, -0.9634e-07, -0.9967e-07, -0.9718e-07, &
      -0.8526e-07, -0.5928e-07, -0.1228e-07,  0.5941e-07,  0.1713e-06, &
       0.3246e-06,  0.5155e-06,  0.7220e-06,  0.9188e-06,  0.1123e-05, &
       0.1409e-05,  0.1883e-05,  0.2634e-05,  0.3672e-05, -0.5550e-07, &
      -0.5847e-07, -0.6204e-07, -0.6650e-07, -0.7197e-07, -0.7834e-07, &
      -0.8521e-07, -0.9173e-07, -0.9616e-07, -0.9625e-07, -0.8883e-07, &
      -0.6973e-07, -0.3316e-07,  0.2892e-07,  0.1263e-06,  0.2742e-06, &
       0.4536e-06,  0.6610e-06,  0.8665e-06,  0.1062e-05,  0.1291e-05, &
       0.1652e-05,  0.2253e-05,  0.3145e-05,  0.4310e-05,  0.5668e-05, &
      -0.6619e-07, -0.6968e-07, -0.7388e-07, -0.7892e-07, -0.8455e-07, &
      -0.9023e-07, -0.9470e-07, -0.9603e-07, -0.9157e-07, -0.7776e-07, &
      -0.4988e-07, -0.5265e-09,  0.7909e-07,  0.1998e-06,  0.3678e-06, &
       0.5924e-06,  0.8086e-06,  0.1013e-05,  0.1220e-05,  0.1504e-05, &
       0.1971e-05,  0.2711e-05,  0.3739e-05,  0.5011e-05,  0.6418e-05, &
       0.7772e-05, -0.7656e-07, -0.8037e-07, -0.8477e-07, -0.8940e-07, &
      -0.9347e-07, -0.9530e-07, -0.9275e-07, -0.8264e-07, -0.6114e-07, &
      -0.2242e-07,  0.4156e-07,  0.1413e-06,  0.2865e-06,  0.4789e-06, &
       0.7022e-06,  0.9445e-06,  0.1153e-05,  0.1394e-05,  0.1765e-05, &
       0.2367e-05,  0.3251e-05,  0.4402e-05,  0.5744e-05,  0.7136e-05, &
       0.8347e-05,  0.9094e-05, -0.8027e-07, -0.8400e-07, -0.8760e-07, &
      -0.8980e-07, -0.8867e-07, -0.8162e-07, -0.6525e-07, -0.3505e-07, &
       0.1622e-07,  0.9745e-07,  0.2197e-06,  0.3895e-06,  0.6013e-06, &
       0.8298e-06,  0.1049e-05,  0.1286e-05,  0.1588e-05,  0.2073e-05, &
       0.2825e-05,  0.3854e-05,  0.5115e-05,  0.6498e-05,  0.7812e-05, &
       0.8785e-05,  0.9162e-05,  0.8827e-05, -0.7261e-07, -0.7521e-07, &
      -0.7545e-07, -0.7119e-07, -0.5945e-07, -0.3634e-07,  0.3686e-08, &
       0.6878e-07,  0.1694e-06,  0.3152e-06,  0.5081e-06,  0.7321e-06, &
       0.9580e-06,  0.1172e-05,  0.1411e-05,  0.1819e-05,  0.2437e-05, &
       0.3337e-05,  0.4498e-05,  0.5842e-05,  0.7221e-05,  0.8392e-05, &
       0.9067e-05,  0.9048e-05,  0.8319e-05,  0.7041e-05, -0.4983e-07, &
      -0.4830e-07, -0.4099e-07, -0.2452e-07,  0.5512e-08,  0.5638e-07, &
       0.1371e-06,  0.2586e-06,  0.4277e-06,  0.6388e-06,  0.8667e-06, &
       0.1085e-05,  0.1303e-05,  0.1583e-05,  0.2015e-05,  0.2867e-05, &
       0.3905e-05,  0.5175e-05,  0.6563e-05,  0.7875e-05,  0.8825e-05, &
       0.9154e-05,  0.8746e-05,  0.7686e-05,  0.6209e-05,  0.4638e-05, &
      -0.1101e-07, -0.7562e-09,  0.2046e-07,  0.5823e-07,  0.1209e-06, &
       0.2189e-06,  0.3623e-06,  0.5530e-06,  0.7751e-06,  0.9992e-06, &
       0.1212e-05,  0.1449e-05,  0.1792e-05,  0.2329e-05,  0.3099e-05, &
       0.4527e-05,  0.5874e-05,  0.7255e-05,  0.8422e-05,  0.9082e-05, &
       0.9032e-05,  0.8261e-05,  0.6940e-05,  0.5368e-05,  0.3844e-05, &
       0.2539e-05],[26,31])

   real, dimension(26,31) :: h81 = reshape([ &
       0.99998659, 0.99998659, 0.99998659, 0.99998659, 0.99998659, &
       0.99998659, 0.99998659, 0.99998659, 0.99998659, 0.99998659, &
       0.99998659, 0.99998659, 0.99998653, 0.99998653, 0.99998653, &
       0.99998647, 0.99998647, 0.99998647, 0.99998641, 0.99998641, &
       0.99998641, 0.99998635, 0.99998635, 0.99998635, 0.99998635, &
       0.99998635, 0.99997360, 0.99997360, 0.99997360, 0.99997360, &
       0.99997360, 0.99997360, 0.99997360, 0.99997360, 0.99997360, &
       0.99997360, 0.99997354, 0.99997354, 0.99997348, 0.99997348, &
       0.99997336, 0.99997330, 0.99997318, 0.99997312, 0.99997300, &
       0.99997294, 0.99997288, 0.99997288, 0.99997282, 0.99997282, &
       0.99997282, 0.99997282, 0.99994862, 0.99994862, 0.99994862, &
       0.99994862, 0.99994862, 0.99994862, 0.99994862, 0.99994856, &
       0.99994856, 0.99994850, 0.99994850, 0.99994838, 0.99994826, &
       0.99994808, 0.99994785, 0.99994755, 0.99994719, 0.99994683, &
       0.99994648, 0.99994624, 0.99994606, 0.99994594, 0.99994588, &
       0.99994582, 0.99994582, 0.99994576, 0.99990171, 0.99990171, &
       0.99990171, 0.99990171, 0.99990165, 0.99990165, 0.99990165, &
       0.99990159, 0.99990153, 0.99990141, 0.99990124, 0.99990094, &
       0.99990052, 0.99989992, 0.99989909, 0.99989808, 0.99989688, &
       0.99989569, 0.99989462, 0.99989372, 0.99989301, 0.99989259, &
       0.99989229, 0.99989212, 0.99989200, 0.99989188, 0.99981678, &
       0.99981678, 0.99981678, 0.99981678, 0.99981672, 0.99981672, &
       0.99981660, 0.99981642, 0.99981618, 0.99981582, 0.99981529, &
       0.99981439, 0.99981320, 0.99981129, 0.99980879, 0.99980563, &
       0.99980187, 0.99979800, 0.99979430, 0.99979132, 0.99978900, &
       0.99978727, 0.99978608, 0.99978542, 0.99978489, 0.99978459, &
       0.99967158, 0.99967158, 0.99967152, 0.99967140, 0.99967128, &
       0.99967122, 0.99967092, 0.99967051, 0.99966979, 0.99966878, &
       0.99966723, 0.99966472, 0.99966109, 0.99965578, 0.99964851, &
       0.99963909, 0.99962789, 0.99961591, 0.99960452, 0.99959481, &
       0.99958712, 0.99958128, 0.99957722, 0.99957442, 0.99957252, &
       0.99957132, 0.99944150, 0.99944139, 0.99944133, 0.99944109, &
       0.99944091, 0.99944037, 0.99943972, 0.99943858, 0.99943691, &
       0.99943417, 0.99942988, 0.99942350, 0.99941391, 0.99939990, &
       0.99938041, 0.99935490, 0.99932390, 0.99928999, 0.99925661, &
       0.99922693, 0.99920273, 0.99918407, 0.99917048, 0.99916071, &
       0.99915391, 0.99914938, 0.99910933, 0.99910921, 0.99910891, &
       0.99910849, 0.99910778, 0.99910682, 0.99910510, 0.99910247, &
       0.99909842, 0.99909198, 0.99908209, 0.99906689, 0.99904412, &
       0.99901080, 0.99896401, 0.99890202, 0.99882400, 0.99873698, &
       0.99864697, 0.99856299, 0.99849200, 0.99843502, 0.99839097, &
       0.99835902, 0.99833602, 0.99831998, 0.99867302, 0.99867302, &
       0.99867201, 0.99867100, 0.99866998, 0.99866802, 0.99866402, &
       0.99865901, 0.99865001, 0.99863601, 0.99861503, 0.99858302, &
       0.99853402, 0.99846399, 0.99836302, 0.99822801, 0.99805701, &
       0.99785602, 0.99763900, 0.99742502, 0.99723101, 0.99706697, &
       0.99693698, 0.99683702, 0.99676299, 0.99670899, 0.99814397, &
       0.99814397, 0.99814302, 0.99814099, 0.99813801, 0.99813402, &
       0.99812698, 0.99811602, 0.99809903, 0.99807203, 0.99803102, &
       0.99796802, 0.99787498, 0.99773800, 0.99754399, 0.99728203, &
       0.99694502, 0.99653602, 0.99607199, 0.99558598, 0.99511403, &
       0.99468601, 0.99432403, 0.99403203, 0.99380499, 0.99363601, &
       0.99753898, 0.99753797, 0.99753499, 0.99753201, 0.99752700, &
       0.99751902, 0.99750602, 0.99748600, 0.99745399, 0.99740499, &
       0.99732900, 0.99721497, 0.99704498, 0.99680001, 0.99645603, &
       0.99599099, 0.99538797, 0.99464101, 0.99376297, 0.99278802, &
       0.99177098, 0.99077803, 0.98987001, 0.98908001, 0.98843998, &
       0.98794001, 0.99686199, 0.99686003, 0.99685597, 0.99685001, &
       0.99684101, 0.99682599, 0.99680197, 0.99676597, 0.99670798, &
       0.99662101, 0.99648702, 0.99628800, 0.99599600, 0.99558002, &
       0.99500400, 0.99423301, 0.99323398, 0.99198103, 0.99046898, &
       0.98872000, 0.98677999, 0.98474997, 0.98273998, 0.98084998, &
       0.97920001, 0.97781998, 0.99610198, 0.99609798, 0.99609101, &
       0.99607998, 0.99606299, 0.99603701, 0.99599499, 0.99592900, &
       0.99582899, 0.99567503, 0.99544603, 0.99510801, 0.99462402, &
       0.99394703, 0.99302697, 0.99181002, 0.99023998, 0.98825997, &
       0.98584002, 0.98295999, 0.97962999, 0.97593999, 0.97201002, &
       0.96805000, 0.96427000, 0.96087998, 0.99523401, 0.99522603, &
       0.99521297, 0.99519402, 0.99516302, 0.99511498, 0.99504000, &
       0.99492502, 0.99475002, 0.99448699, 0.99409997, 0.99354398, &
       0.99276501, 0.99169999, 0.99027801, 0.98842001, 0.98604000, &
       0.98306000, 0.97937000, 0.97491002, 0.96961999, 0.96350998, &
       0.95668000, 0.94933999, 0.94182003, 0.93456000, 0.99421698, &
       0.99420297, 0.99418002, 0.99414498, 0.99408901, 0.99400300, &
       0.99387002, 0.99366802, 0.99336600, 0.99292302, 0.99228698, &
       0.99139601, 0.99017602, 0.98853999, 0.98640001, 0.98364002, &
       0.98013997, 0.97574002, 0.97031999, 0.96368998, 0.95573002, &
       0.94633001, 0.93548000, 0.92330998, 0.91018999, 0.89670002, &
       0.99299300, 0.99296701, 0.99292499, 0.99286002, 0.99276000, &
       0.99260598, 0.99237198, 0.99202400, 0.99151403, 0.99078500, &
       0.98977000, 0.98838001, 0.98651999, 0.98408002, 0.98092002, &
       0.97689003, 0.97182000, 0.96548998, 0.95766997, 0.94812000, &
       0.93658000, 0.92282999, 0.90671998, 0.88830000, 0.86769998, &
       0.84560001, 0.99147898, 0.99142998, 0.99135399, 0.99123698, &
       0.99105698, 0.99078500, 0.99038202, 0.98979002, 0.98896003, &
       0.98780000, 0.98620999, 0.98409998, 0.98133999, 0.97776002, &
       0.97319001, 0.96740001, 0.96016002, 0.95117003, 0.94010001, &
       0.92662001, 0.91036999, 0.89100003, 0.86830002, 0.84219998, &
       0.81260002, 0.78020000, 0.98958999, 0.98949999, 0.98935997, &
       0.98914999, 0.98882997, 0.98835999, 0.98768002, 0.98672003, &
       0.98540002, 0.98360002, 0.98120999, 0.97807997, 0.97403997, &
       0.96888000, 0.96234000, 0.95414001, 0.94391000, 0.93129998, &
       0.91588002, 0.89719999, 0.87500000, 0.84860003, 0.81800002, &
       0.78270000, 0.74300003, 0.69920003, 0.98721999, 0.98706001, &
       0.98681003, 0.98644000, 0.98588997, 0.98510998, 0.98400998, &
       0.98249000, 0.98044997, 0.97773999, 0.97421998, 0.96967000, &
       0.96386999, 0.95652002, 0.94727999, 0.93575001, 0.92149997, &
       0.90407002, 0.88300002, 0.85780001, 0.82800001, 0.79330003, &
       0.75330001, 0.70809996, 0.65770000, 0.60299999, 0.98430002, &
       0.98400998, 0.98356998, 0.98293000, 0.98202002, 0.98075998, &
       0.97903001, 0.97671002, 0.97364998, 0.96968001, 0.96458000, &
       0.95806998, 0.94984001, 0.93949002, 0.92657000, 0.91060001, &
       0.89100003, 0.86739999, 0.83920002, 0.80599999, 0.76730001, &
       0.72299999, 0.67299998, 0.61759996, 0.55750000, 0.49400002, &
       0.98071998, 0.98021001, 0.97947001, 0.97842002, 0.97696000, &
       0.97499001, 0.97236001, 0.96890998, 0.96445000, 0.95872998, &
       0.95146000, 0.94226003, 0.93071002, 0.91631001, 0.89850003, &
       0.87680000, 0.85049999, 0.81910002, 0.78230000, 0.73969996, &
       0.69110000, 0.63670003, 0.57720000, 0.51330000, 0.44660002, &
       0.37910002, 0.97639000, 0.97552001, 0.97430998, 0.97263998, &
       0.97039002, 0.96741998, 0.96354002, 0.95854002, 0.95213997, &
       0.94401997, 0.93378001, 0.92093998, 0.90495998, 0.88529998, &
       0.86119998, 0.83219999, 0.79769999, 0.75720000, 0.71060002, &
       0.65779996, 0.59930003, 0.53600001, 0.46920002, 0.40079999, &
       0.33310002, 0.26889998, 0.97115999, 0.96976000, 0.96784997, &
       0.96529001, 0.96192998, 0.95757002, 0.95196998, 0.94483000, &
       0.93579000, 0.92440999, 0.91017002, 0.89249998, 0.87080002, &
       0.84439999, 0.81260002, 0.77490002, 0.73089999, 0.68040001, &
       0.62360001, 0.56130004, 0.49479997, 0.42580003, 0.35659999, &
       0.29000002, 0.22860003, 0.17460001, 0.96480000, 0.96262002, &
       0.95972002, 0.95592999, 0.95104003, 0.94476998, 0.93681002, &
       0.92675000, 0.91412002, 0.89840001, 0.87889999, 0.85510004, &
       0.82620001, 0.79159999, 0.75080001, 0.70330000, 0.64919996, &
       0.58880001, 0.52320004, 0.45410001, 0.38370001, 0.31470001, &
       0.25010002, 0.19239998, 0.14319998, 0.10280001, 0.95695001, &
       0.95367002, 0.94941002, 0.94392002, 0.93691999, 0.92804998, &
       0.91688001, 0.90289998, 0.88550001, 0.86409998, 0.83810002, &
       0.80659997, 0.76910001, 0.72510004, 0.67429996, 0.61689997, &
       0.55350000, 0.48530000, 0.41450000, 0.34369999, 0.27590001, &
       0.21410000, 0.16049999, 0.11619997, 0.08090001, 0.05379999, &
       0.94713998, 0.94234002, 0.93620002, 0.92839003, 0.91851997, &
       0.90613002, 0.89069998, 0.87160003, 0.84810001, 0.81959999, &
       0.78549999, 0.74510002, 0.69790000, 0.64390004, 0.58350003, &
       0.51750004, 0.44760001, 0.37610000, 0.30589998, 0.24030000, &
       0.18210000, 0.13300002, 0.09350002, 0.06300002, 0.04030001, &
       0.02429998, 0.93469000, 0.92781997, 0.91912001, 0.90815997, &
       0.89440000, 0.87739998, 0.85640001, 0.83069998, 0.79970002, &
       0.76279998, 0.71930003, 0.66909999, 0.61199999, 0.54890001, &
       0.48089999, 0.40990001, 0.33870000, 0.27029997, 0.20789999, &
       0.15390003, 0.10949999, 0.07470000, 0.04850000, 0.02980000, &
       0.01719999, 0.00929999, 0.91873002, 0.90903997, 0.89690000, &
       0.88169998, 0.86290002, 0.83990002, 0.81190002, 0.77829999, &
       0.73850000, 0.69190001, 0.63859999, 0.57870001, 0.51320004, &
       0.44379997, 0.37250000, 0.30239999, 0.23670000, 0.17830002, &
       0.12900001, 0.08950001, 0.05919999, 0.03710002, 0.02179998, &
       0.01200002, 0.00620002, 0.00300002, 0.89810002, 0.88459998, &
       0.86790001, 0.84720004, 0.82200003, 0.79159999, 0.75520003, &
       0.71239996, 0.66280001, 0.60650003, 0.54409999, 0.47680002, &
       0.40640002, 0.33560002, 0.26760000, 0.20539999, 0.15149999, &
       0.10720003, 0.07239997, 0.04640001, 0.02800000, 0.01580000, &
       0.00840002, 0.00410002, 0.00190002, 0.00080001, 0.87129998, &
       0.85290003, 0.83020002, 0.80269998, 0.76969999, 0.73049998, &
       0.68470001, 0.63209999, 0.57309997, 0.50839996, 0.43970001, &
       0.36919999, 0.29970002, 0.23449999, 0.17650002, 0.12750000, &
       0.08810002, 0.05790001, 0.03590000, 0.02090001, 0.01130003, &
       0.00580001, 0.00269997, 0.00120002, 0.00040001, 0.00010002, &
       0.83679998, 0.81200004, 0.78210002, 0.74629998, 0.70420003, &
       0.65540004, 0.59990001, 0.53839999, 0.47189999, 0.40249997, &
       0.33249998, 0.26520002, 0.20359999, 0.15009999, 0.10610002, &
       0.07150000, 0.04570001, 0.02740002, 0.01539999, 0.00800002, &
       0.00389999, 0.00169998, 0.00070000, 0.00019997, 0.00000000, &
       0.00000000],[26,31])

   real, dimension(26,31) :: h82 = reshape([ &
      -0.5685e-08, -0.5684e-08, -0.5682e-08, -0.5680e-08, -0.5675e-08, &
      -0.5671e-08, -0.5665e-08, -0.5652e-08, -0.5629e-08, -0.5597e-08, &
      -0.5538e-08, -0.5476e-08, -0.5362e-08, -0.5210e-08, -0.5045e-08, &
      -0.4850e-08, -0.4673e-08, -0.4532e-08, -0.4448e-08, -0.4403e-08, &
      -0.4379e-08, -0.4366e-08, -0.4359e-08, -0.4354e-08, -0.4352e-08, &
      -0.4351e-08, -0.1331e-07, -0.1331e-07, -0.1330e-07, -0.1329e-07, &
      -0.1328e-07, -0.1326e-07, -0.1322e-07, -0.1318e-07, -0.1310e-07, &
      -0.1300e-07, -0.1280e-07, -0.1257e-07, -0.1223e-07, -0.1172e-07, &
      -0.1113e-07, -0.1045e-07, -0.9862e-08, -0.9395e-08, -0.9085e-08, &
      -0.8896e-08, -0.8801e-08, -0.8749e-08, -0.8720e-08, -0.8703e-08, &
      -0.8693e-08, -0.8688e-08, -0.3249e-07, -0.3248e-07, -0.3247e-07, &
      -0.3243e-07, -0.3239e-07, -0.3234e-07, -0.3224e-07, -0.3210e-07, &
      -0.3186e-07, -0.3148e-07, -0.3089e-07, -0.3008e-07, -0.2895e-07, &
      -0.2731e-07, -0.2540e-07, -0.2334e-07, -0.2135e-07, -0.1978e-07, &
      -0.1877e-07, -0.1818e-07, -0.1782e-07, -0.1761e-07, -0.1749e-07, &
      -0.1742e-07, -0.1738e-07, -0.1736e-07, -0.8137e-07, -0.8133e-07, &
      -0.8129e-07, -0.8121e-07, -0.8110e-07, -0.8091e-07, -0.8063e-07, &
      -0.8018e-07, -0.7948e-07, -0.7838e-07, -0.7667e-07, -0.7418e-07, &
      -0.7071e-07, -0.6598e-07, -0.6008e-07, -0.5367e-07, -0.4753e-07, &
      -0.4272e-07, -0.3946e-07, -0.3751e-07, -0.3642e-07, -0.3578e-07, &
      -0.3527e-07, -0.3499e-07, -0.3483e-07, -0.3473e-07, -0.2048e-06, &
      -0.2047e-06, -0.2046e-06, -0.2044e-06, -0.2040e-06, -0.2035e-06, &
      -0.2027e-06, -0.2014e-06, -0.1995e-06, -0.1964e-06, -0.1917e-06, &
      -0.1848e-06, -0.1748e-06, -0.1615e-06, -0.1449e-06, -0.1265e-06, &
      -0.1087e-06, -0.9442e-07, -0.8472e-07, -0.7880e-07, -0.7536e-07, &
      -0.7322e-07, -0.7175e-07, -0.7074e-07, -0.7006e-07, -0.6966e-07, &
      -0.4973e-06, -0.4971e-06, -0.4968e-06, -0.4963e-06, -0.4954e-06, &
      -0.4941e-06, -0.4921e-06, -0.4888e-06, -0.4837e-06, -0.4759e-06, &
      -0.4642e-06, -0.4468e-06, -0.4219e-06, -0.3880e-06, -0.3457e-06, &
      -0.2980e-06, -0.2512e-06, -0.2124e-06, -0.1852e-06, -0.1683e-06, &
      -0.1581e-06, -0.1517e-06, -0.1473e-06, -0.1441e-06, -0.1423e-06, &
      -0.1405e-06, -0.1118e-05, -0.1117e-05, -0.1117e-05, -0.1115e-05, &
      -0.1114e-05, -0.1111e-05, -0.1106e-05, -0.1099e-05, -0.1088e-05, &
      -0.1071e-05, -0.1045e-05, -0.1006e-05, -0.9516e-06, -0.8769e-06, &
      -0.7826e-06, -0.6750e-06, -0.5671e-06, -0.4747e-06, -0.4074e-06, &
      -0.3640e-06, -0.3366e-06, -0.3189e-06, -0.3062e-06, -0.2971e-06, &
      -0.2905e-06, -0.2857e-06, -0.2246e-05, -0.2245e-05, -0.2244e-05, &
      -0.2242e-05, -0.2238e-05, -0.2232e-05, -0.2223e-05, -0.2210e-05, &
      -0.2188e-05, -0.2155e-05, -0.2106e-05, -0.2032e-05, -0.1928e-05, &
      -0.1787e-05, -0.1609e-05, -0.1406e-05, -0.1199e-05, -0.1017e-05, &
      -0.8791e-06, -0.7852e-06, -0.7227e-06, -0.6785e-06, -0.6451e-06, &
      -0.6195e-06, -0.6008e-06, -0.5867e-06, -0.3982e-05, -0.3981e-05, &
      -0.3978e-05, -0.3974e-05, -0.3968e-05, -0.3958e-05, -0.3942e-05, &
      -0.3918e-05, -0.3880e-05, -0.3822e-05, -0.3736e-05, -0.3611e-05, &
      -0.3436e-05, -0.3204e-05, -0.2920e-05, -0.2601e-05, -0.2281e-05, &
      -0.2003e-05, -0.1789e-05, -0.1640e-05, -0.1532e-05, -0.1446e-05, &
      -0.1372e-05, -0.1309e-05, -0.1258e-05, -0.1218e-05, -0.6290e-05, &
      -0.6287e-05, -0.6283e-05, -0.6276e-05, -0.6265e-05, -0.6247e-05, &
      -0.6220e-05, -0.6179e-05, -0.6115e-05, -0.6019e-05, -0.5878e-05, &
      -0.5679e-05, -0.5409e-05, -0.5066e-05, -0.4665e-05, -0.4239e-05, &
      -0.3842e-05, -0.3524e-05, -0.3314e-05, -0.3191e-05, -0.3106e-05, &
      -0.3014e-05, -0.2902e-05, -0.2780e-05, -0.2663e-05, -0.2563e-05, &
      -0.9040e-05, -0.9035e-05, -0.9027e-05, -0.9015e-05, -0.8996e-05, &
      -0.8966e-05, -0.8920e-05, -0.8849e-05, -0.8743e-05, -0.8586e-05, &
      -0.8363e-05, -0.8058e-05, -0.7666e-05, -0.7197e-05, -0.6691e-05, &
      -0.6201e-05, -0.5804e-05, -0.5567e-05, -0.5521e-05, -0.5634e-05, &
      -0.5810e-05, -0.5933e-05, -0.5936e-05, -0.5823e-05, -0.5638e-05, &
      -0.5435e-05, -0.1215e-04, -0.1215e-04, -0.1213e-04, -0.1211e-04, &
      -0.1208e-04, -0.1202e-04, -0.1194e-04, -0.1182e-04, -0.1165e-04, &
      -0.1139e-04, -0.1104e-04, -0.1059e-04, -0.1005e-04, -0.9451e-05, &
      -0.8868e-05, -0.8389e-05, -0.8110e-05, -0.8108e-05, -0.8425e-05, &
      -0.9046e-05, -0.9862e-05, -0.1069e-04, -0.1133e-04, -0.1165e-04, &
      -0.1165e-04, -0.1144e-04, -0.1567e-04, -0.1565e-04, -0.1563e-04, &
      -0.1559e-04, -0.1553e-04, -0.1544e-04, -0.1530e-04, -0.1509e-04, &
      -0.1480e-04, -0.1439e-04, -0.1387e-04, -0.1324e-04, -0.1254e-04, &
      -0.1185e-04, -0.1127e-04, -0.1091e-04, -0.1088e-04, -0.1127e-04, &
      -0.1215e-04, -0.1355e-04, -0.1540e-04, -0.1755e-04, -0.1971e-04, &
      -0.2152e-04, -0.2270e-04, -0.2321e-04, -0.1970e-04, -0.1967e-04, &
      -0.1963e-04, -0.1956e-04, -0.1945e-04, -0.1929e-04, -0.1905e-04, &
      -0.1871e-04, -0.1824e-04, -0.1764e-04, -0.1692e-04, -0.1612e-04, &
      -0.1533e-04, -0.1465e-04, -0.1422e-04, -0.1413e-04, -0.1452e-04, &
      -0.1547e-04, -0.1711e-04, -0.1953e-04, -0.2279e-04, -0.2683e-04, &
      -0.3143e-04, -0.3616e-04, -0.4044e-04, -0.4379e-04, -0.2449e-04, &
      -0.2444e-04, -0.2436e-04, -0.2423e-04, -0.2404e-04, -0.2377e-04, &
      -0.2337e-04, -0.2284e-04, -0.2216e-04, -0.2134e-04, -0.2044e-04, &
      -0.1956e-04, -0.1880e-04, -0.1831e-04, -0.1820e-04, -0.1859e-04, &
      -0.1961e-04, -0.2138e-04, -0.2407e-04, -0.2786e-04, -0.3292e-04, &
      -0.3936e-04, -0.4715e-04, -0.5604e-04, -0.6554e-04, -0.7487e-04, &
      -0.3046e-04, -0.3036e-04, -0.3021e-04, -0.2999e-04, -0.2966e-04, &
      -0.2921e-04, -0.2860e-04, -0.2782e-04, -0.2691e-04, -0.2591e-04, &
      -0.2493e-04, -0.2411e-04, -0.2358e-04, -0.2346e-04, -0.2389e-04, &
      -0.2500e-04, -0.2696e-04, -0.2996e-04, -0.3421e-04, -0.3995e-04, &
      -0.4738e-04, -0.5675e-04, -0.6833e-04, -0.8230e-04, -0.9855e-04, &
      -0.1163e-03, -0.3798e-04, -0.3780e-04, -0.3754e-04, -0.3716e-04, &
      -0.3663e-04, -0.3593e-04, -0.3505e-04, -0.3403e-04, -0.3293e-04, &
      -0.3188e-04, -0.3101e-04, -0.3046e-04, -0.3038e-04, -0.3088e-04, &
      -0.3213e-04, -0.3432e-04, -0.3768e-04, -0.4251e-04, -0.4905e-04, &
      -0.5752e-04, -0.6817e-04, -0.8137e-04, -0.9759e-04, -0.1173e-03, &
      -0.1407e-03, -0.1670e-03, -0.4725e-04, -0.4694e-04, -0.4649e-04, &
      -0.4588e-04, -0.4508e-04, -0.4409e-04, -0.4296e-04, -0.4177e-04, &
      -0.4067e-04, -0.3978e-04, -0.3926e-04, -0.3925e-04, -0.3988e-04, &
      -0.4132e-04, -0.4380e-04, -0.4761e-04, -0.5311e-04, -0.6059e-04, &
      -0.7032e-04, -0.8256e-04, -0.9765e-04, -0.1160e-03, -0.1379e-03, &
      -0.1635e-03, -0.1928e-03, -0.2250e-03, -0.5831e-04, -0.5779e-04, &
      -0.5709e-04, -0.5618e-04, -0.5508e-04, -0.5385e-04, -0.5259e-04, &
      -0.5145e-04, -0.5057e-04, -0.5011e-04, -0.5020e-04, -0.5098e-04, &
      -0.5264e-04, -0.5545e-04, -0.5975e-04, -0.6595e-04, -0.7444e-04, &
      -0.8563e-04, -0.9985e-04, -0.1174e-03, -0.1384e-03, -0.1630e-03, &
      -0.1907e-03, -0.2211e-03, -0.2534e-03, -0.2876e-03, -0.7123e-04, &
      -0.7042e-04, -0.6940e-04, -0.6818e-04, -0.6686e-04, -0.6555e-04, &
      -0.6439e-04, -0.6354e-04, -0.6314e-04, -0.6334e-04, -0.6429e-04, &
      -0.6619e-04, -0.6934e-04, -0.7410e-04, -0.8092e-04, -0.9030e-04, &
      -0.1028e-03, -0.1190e-03, -0.1394e-03, -0.1638e-03, -0.1918e-03, &
      -0.2223e-03, -0.2542e-03, -0.2868e-03, -0.3197e-03, -0.3535e-03, &
      -0.8605e-04, -0.8491e-04, -0.8359e-04, -0.8218e-04, -0.8082e-04, &
      -0.7965e-04, -0.7884e-04, -0.7853e-04, -0.7885e-04, -0.7998e-04, &
      -0.8213e-04, -0.8562e-04, -0.9083e-04, -0.9820e-04, -0.1083e-03, &
      -0.1219e-03, -0.1397e-03, -0.1623e-03, -0.1897e-03, -0.2211e-03, &
      -0.2551e-03, -0.2899e-03, -0.3239e-03, -0.3567e-03, -0.3890e-03, &
      -0.4215e-03, -0.1028e-03, -0.1013e-03, -0.9986e-04, -0.9847e-04, &
      -0.9732e-04, -0.9656e-04, -0.9635e-04, -0.9681e-04, -0.9813e-04, &
      -0.1006e-03, -0.1044e-03, -0.1100e-03, -0.1179e-03, -0.1288e-03, &
      -0.1433e-03, -0.1624e-03, -0.1865e-03, -0.2156e-03, -0.2491e-03, &
      -0.2854e-03, -0.3226e-03, -0.3589e-03, -0.3935e-03, -0.4260e-03, &
      -0.4563e-03, -0.4826e-03, -0.1212e-03, -0.1196e-03, -0.1182e-03, &
      -0.1171e-03, -0.1165e-03, -0.1163e-03, -0.1170e-03, -0.1185e-03, &
      -0.1212e-03, -0.1253e-03, -0.1314e-03, -0.1399e-03, -0.1515e-03, &
      -0.1670e-03, -0.1873e-03, -0.2126e-03, -0.2427e-03, -0.2767e-03, &
      -0.3132e-03, -0.3507e-03, -0.3876e-03, -0.4230e-03, -0.4559e-03, &
      -0.4844e-03, -0.5040e-03, -0.5082e-03, -0.1413e-03, -0.1399e-03, &
      -0.1388e-03, -0.1382e-03, -0.1382e-03, -0.1390e-03, -0.1407e-03, &
      -0.1437e-03, -0.1482e-03, -0.1547e-03, -0.1637e-03, -0.1761e-03, &
      -0.1927e-03, -0.2140e-03, -0.2402e-03, -0.2708e-03, -0.3047e-03, &
      -0.3403e-03, -0.3763e-03, -0.4116e-03, -0.4452e-03, -0.4755e-03, &
      -0.4991e-03, -0.5097e-03, -0.4998e-03, -0.4649e-03, -0.1635e-03, &
      -0.1625e-03, -0.1620e-03, -0.1621e-03, -0.1630e-03, -0.1649e-03, &
      -0.1681e-03, -0.1729e-03, -0.1799e-03, -0.1895e-03, -0.2027e-03, &
      -0.2202e-03, -0.2424e-03, -0.2692e-03, -0.2997e-03, -0.3327e-03, &
      -0.3667e-03, -0.4006e-03, -0.4332e-03, -0.4633e-03, -0.4883e-03, &
      -0.5031e-03, -0.5009e-03, -0.4750e-03, -0.4249e-03, -0.3564e-03, &
      -0.1884e-03, -0.1879e-03, -0.1882e-03, -0.1892e-03, -0.1913e-03, &
      -0.1947e-03, -0.1998e-03, -0.2072e-03, -0.2175e-03, -0.2315e-03, &
      -0.2498e-03, -0.2726e-03, -0.2994e-03, -0.3293e-03, -0.3607e-03, &
      -0.3926e-03, -0.4237e-03, -0.4530e-03, -0.4786e-03, -0.4966e-03, &
      -0.5005e-03, -0.4834e-03, -0.4414e-03, -0.3779e-03, -0.3025e-03, &
      -0.2264e-03, -0.2160e-03, -0.2163e-03, -0.2175e-03, -0.2197e-03, &
      -0.2234e-03, -0.2288e-03, -0.2366e-03, -0.2475e-03, -0.2622e-03, &
      -0.2811e-03, -0.3042e-03, -0.3306e-03, -0.3591e-03, -0.3886e-03, &
      -0.4178e-03, -0.4458e-03, -0.4712e-03, -0.4912e-03, -0.5005e-03, &
      -0.4921e-03, -0.4598e-03, -0.4036e-03, -0.3306e-03, -0.2522e-03, &
      -0.1794e-03, -0.1188e-03, -0.2461e-03, -0.2474e-03, -0.2498e-03, &
      -0.2535e-03, -0.2593e-03, -0.2675e-03, -0.2790e-03, -0.2942e-03, &
      -0.3135e-03, -0.3363e-03, -0.3617e-03, -0.3885e-03, -0.4155e-03, &
      -0.4417e-03, -0.4662e-03, -0.4871e-03, -0.5003e-03, -0.4995e-03, &
      -0.4775e-03, -0.4309e-03, -0.3633e-03, -0.2849e-03, -0.2077e-03, &
      -0.1409e-03, -0.8860e-04, -0.5128e-04, -0.2778e-03, -0.2803e-03, &
      -0.2843e-03, -0.2902e-03, -0.2989e-03, -0.3109e-03, -0.3265e-03, &
      -0.3457e-03, -0.3678e-03, -0.3917e-03, -0.4163e-03, -0.4404e-03, &
      -0.4634e-03, -0.4840e-03, -0.4994e-03, -0.5045e-03, -0.4921e-03, &
      -0.4563e-03, -0.3970e-03, -0.3215e-03, -0.2416e-03, -0.1687e-03, &
      -0.1093e-03, -0.6540e-04, -0.3575e-04, -0.1758e-04, -0.3098e-03, &
      -0.3140e-03, -0.3203e-03, -0.3293e-03, -0.3417e-03, -0.3575e-03, &
      -0.3763e-03, -0.3973e-03, -0.4193e-03, -0.4413e-03, -0.4625e-03, &
      -0.4820e-03, -0.4982e-03, -0.5073e-03, -0.5028e-03, -0.4777e-03, &
      -0.4286e-03, -0.3592e-03, -0.2794e-03, -0.2016e-03, -0.1349e-03, &
      -0.8356e-04, -0.4754e-04, -0.2449e-04, -0.1122e-04, -0.4431e-05, &
      -0.3411e-03, -0.3478e-03, -0.3573e-03, -0.3700e-03, -0.3857e-03, &
      -0.4039e-03, -0.4235e-03, -0.4434e-03, -0.4627e-03, -0.4809e-03, &
      -0.4969e-03, -0.5082e-03, -0.5096e-03, -0.4944e-03, -0.4563e-03, &
      -0.3954e-03, -0.3188e-03, -0.2383e-03, -0.1652e-03, -0.1061e-03, &
      -0.6278e-04, -0.3388e-04, -0.1642e-04, -0.6948e-05, -0.2506e-05, &
      -0.7275e-06],[26,31])

   real, dimension(26,31) :: h83 = reshape([ &
       0.2169e-10,  0.2168e-10,  0.2167e-10,  0.2166e-10,  0.2163e-10, &
       0.2155e-10,  0.2157e-10,  0.2153e-10,  0.2121e-10,  0.2109e-10, &
       0.2067e-10,  0.2041e-10,  0.1976e-10,  0.1880e-10,  0.1804e-10, &
       0.1717e-10,  0.1653e-10,  0.1593e-10,  0.1566e-10,  0.1551e-10, &
       0.1542e-10,  0.1536e-10,  0.1531e-10,  0.1529e-10,  0.1527e-10, &
       0.1525e-10,  0.5237e-10,  0.5242e-10,  0.5238e-10,  0.5229e-10, &
       0.5209e-10,  0.5188e-10,  0.5178e-10,  0.5151e-10,  0.5076e-10, &
       0.5017e-10,  0.4903e-10,  0.4771e-10,  0.4551e-10,  0.4271e-10, &
       0.3983e-10,  0.3723e-10,  0.3436e-10,  0.3276e-10,  0.3219e-10, &
       0.3147e-10,  0.3111e-10,  0.3086e-10,  0.3070e-10,  0.3060e-10, &
       0.3053e-10,  0.3048e-10,  0.1296e-09,  0.1295e-09,  0.1294e-09, &
       0.1294e-09,  0.1291e-09,  0.1288e-09,  0.1283e-09,  0.1273e-09, &
       0.1257e-09,  0.1235e-09,  0.1200e-09,  0.1149e-09,  0.1086e-09, &
       0.9966e-10,  0.9045e-10,  0.8093e-10,  0.7431e-10,  0.6896e-10, &
       0.6635e-10,  0.6419e-10,  0.6345e-10,  0.6248e-10,  0.6184e-10, &
       0.6142e-10,  0.6115e-10,  0.6097e-10,  0.3204e-09,  0.3201e-09, &
       0.3198e-09,  0.3193e-09,  0.3186e-09,  0.3175e-09,  0.3162e-09, &
       0.3136e-09,  0.3091e-09,  0.3021e-09,  0.2917e-09,  0.2782e-09, &
       0.2601e-09,  0.2352e-09,  0.2080e-09,  0.1817e-09,  0.1605e-09, &
       0.1476e-09,  0.1400e-09,  0.1356e-09,  0.1310e-09,  0.1288e-09, &
       0.1257e-09,  0.1241e-09,  0.1230e-09,  0.1223e-09,  0.7665e-09, &
       0.7662e-09,  0.7656e-09,  0.7644e-09,  0.7626e-09,  0.7599e-09, &
       0.7558e-09,  0.7488e-09,  0.7379e-09,  0.7217e-09,  0.6965e-09, &
       0.6614e-09,  0.6126e-09,  0.5497e-09,  0.4786e-09,  0.4100e-09, &
       0.3548e-09,  0.3190e-09,  0.2999e-09,  0.2860e-09,  0.2742e-09, &
       0.2664e-09,  0.2578e-09,  0.2535e-09,  0.2492e-09,  0.2466e-09, &
       0.1691e-08,  0.1690e-08,  0.1688e-08,  0.1686e-08,  0.1682e-08, &
       0.1675e-08,  0.1665e-08,  0.1649e-08,  0.1623e-08,  0.1585e-08, &
       0.1532e-08,  0.1451e-08,  0.1345e-08,  0.1205e-08,  0.1046e-08, &
       0.8932e-09,  0.7723e-09,  0.6944e-09,  0.6513e-09,  0.6178e-09, &
       0.5902e-09,  0.5637e-09,  0.5451e-09,  0.5259e-09,  0.5149e-09, &
       0.5021e-09,  0.3222e-08,  0.3220e-08,  0.3217e-08,  0.3213e-08, &
       0.3203e-08,  0.3190e-08,  0.3169e-08,  0.3142e-08,  0.3097e-08, &
       0.3028e-08,  0.2925e-08,  0.2778e-08,  0.2583e-08,  0.2334e-08, &
       0.2052e-08,  0.1791e-08,  0.1595e-08,  0.1474e-08,  0.1406e-08, &
       0.1353e-08,  0.1289e-08,  0.1222e-08,  0.1159e-08,  0.1107e-08, &
       0.1068e-08,  0.1032e-08,  0.5110e-08,  0.5106e-08,  0.5104e-08, &
       0.5092e-08,  0.5078e-08,  0.5059e-08,  0.5027e-08,  0.4980e-08, &
       0.4904e-08,  0.4796e-08,  0.4632e-08,  0.4401e-08,  0.4112e-08, &
       0.3765e-08,  0.3413e-08,  0.3126e-08,  0.2966e-08,  0.2935e-08, &
       0.2953e-08,  0.2934e-08,  0.2826e-08,  0.2680e-08,  0.2526e-08, &
       0.2383e-08,  0.2268e-08,  0.2195e-08,  0.6779e-08,  0.6776e-08, &
       0.6767e-08,  0.6753e-08,  0.6730e-08,  0.6699e-08,  0.6645e-08, &
       0.6559e-08,  0.6453e-08,  0.6285e-08,  0.6054e-08,  0.5736e-08, &
       0.5365e-08,  0.4993e-08,  0.4704e-08,  0.4634e-08,  0.4849e-08, &
       0.5300e-08,  0.5789e-08,  0.6095e-08,  0.6103e-08,  0.5899e-08, &
       0.5585e-08,  0.5243e-08,  0.4932e-08,  0.4688e-08,  0.7681e-08, &
       0.7673e-08,  0.7661e-08,  0.7640e-08,  0.7606e-08,  0.7551e-08, &
       0.7472e-08,  0.7346e-08,  0.7168e-08,  0.6910e-08,  0.6590e-08, &
       0.6189e-08,  0.5796e-08,  0.5532e-08,  0.5565e-08,  0.6095e-08, &
       0.7169e-08,  0.8697e-08,  0.1037e-07,  0.1174e-07,  0.1250e-07, &
       0.1262e-07,  0.1225e-07,  0.1161e-07,  0.1089e-07,  0.1027e-07, &
       0.7378e-08,  0.7362e-08,  0.7337e-08,  0.7302e-08,  0.7246e-08, &
       0.7154e-08,  0.7017e-08,  0.6813e-08,  0.6534e-08,  0.6178e-08, &
       0.5746e-08,  0.5315e-08,  0.5031e-08,  0.5148e-08,  0.5887e-08, &
       0.7497e-08,  0.1003e-07,  0.1336e-07,  0.1709e-07,  0.2067e-07, &
       0.2355e-07,  0.2527e-07,  0.2576e-07,  0.2523e-07,  0.2408e-07, &
       0.2279e-07,  0.5836e-08,  0.5808e-08,  0.5764e-08,  0.5696e-08, &
       0.5592e-08,  0.5435e-08,  0.5212e-08,  0.4884e-08,  0.4458e-08, &
       0.3945e-08,  0.3436e-08,  0.3087e-08,  0.3182e-08,  0.4055e-08, &
       0.5981e-08,  0.9170e-08,  0.1366e-07,  0.1946e-07,  0.2623e-07, &
       0.3346e-07,  0.4041e-07,  0.4621e-07,  0.5017e-07,  0.5188e-07, &
       0.5156e-07,  0.4999e-07,  0.3191e-08,  0.3138e-08,  0.3051e-08, &
       0.2917e-08,  0.2735e-08,  0.2452e-08,  0.2059e-08,  0.1533e-08, &
       0.8932e-09,  0.2436e-09, -0.2251e-09, -0.2518e-09,  0.5970e-09, &
       0.2650e-08,  0.6202e-08,  0.1136e-07,  0.1825e-07,  0.2707e-07, &
       0.3777e-07,  0.5014e-07,  0.6347e-07,  0.7678e-07,  0.8855e-07, &
       0.9757e-07,  0.1028e-06,  0.1046e-06, -0.1491e-08, -0.1595e-08, &
      -0.1752e-08, -0.1984e-08, -0.2325e-08, -0.2802e-08, -0.3443e-08, &
      -0.4209e-08, -0.5026e-08, -0.5632e-08, -0.5703e-08, -0.4806e-08, &
      -0.2547e-08,  0.1326e-08,  0.6998e-08,  0.1453e-07,  0.2419e-07, &
       0.3637e-07,  0.5159e-07,  0.7024e-07,  0.9217e-07,  0.1165e-06, &
       0.1417e-06,  0.1657e-06,  0.1859e-06,  0.2009e-06, -0.1022e-07, &
      -0.1041e-07, -0.1068e-07, -0.1108e-07, -0.1162e-07, -0.1235e-07, &
      -0.1321e-07, -0.1409e-07, -0.1469e-07, -0.1464e-07, -0.1344e-07, &
      -0.1071e-07, -0.6172e-08,  0.2019e-09,  0.8493e-08,  0.1892e-07, &
       0.3186e-07,  0.4800e-07,  0.6823e-07,  0.9377e-07,  0.1256e-06, &
       0.1640e-06,  0.2078e-06,  0.2553e-06,  0.3028e-06,  0.3460e-06, &
      -0.2359e-07, -0.2390e-07, -0.2436e-07, -0.2497e-07, -0.2576e-07, &
      -0.2668e-07, -0.2754e-07, -0.2801e-07, -0.2765e-07, -0.2596e-07, &
      -0.2256e-07, -0.1731e-07, -0.1017e-07, -0.1124e-08,  0.1002e-07, &
       0.2369e-07,  0.4068e-07,  0.6187e-07,  0.8864e-07,  0.1226e-06, &
       0.1658e-06,  0.2199e-06,  0.2858e-06,  0.3629e-06,  0.4476e-06, &
       0.5335e-06, -0.3957e-07, -0.4010e-07, -0.4081e-07, -0.4171e-07, &
      -0.4268e-07, -0.4353e-07, -0.4389e-07, -0.4320e-07, -0.4103e-07, &
      -0.3707e-07, -0.3120e-07, -0.2346e-07, -0.1388e-07, -0.2234e-08, &
       0.1184e-07,  0.2909e-07,  0.5064e-07,  0.7806e-07,  0.1134e-06, &
       0.1592e-06,  0.2175e-06,  0.2904e-06,  0.3802e-06,  0.4878e-06, &
       0.6124e-06,  0.7478e-06, -0.5553e-07, -0.5636e-07, -0.5740e-07, &
      -0.5849e-07, -0.5938e-07, -0.5962e-07, -0.5869e-07, -0.5614e-07, &
      -0.5169e-07, -0.4527e-07, -0.3690e-07, -0.2659e-07, -0.1430e-07, &
       0.2827e-09,  0.1780e-07,  0.3922e-07,  0.6618e-07,  0.1008e-06, &
       0.1461e-06,  0.2056e-06,  0.2824e-06,  0.3783e-06,  0.4946e-06, &
       0.6323e-06,  0.7932e-06,  0.9767e-06, -0.6927e-07, -0.7045e-07, &
      -0.7165e-07, -0.7254e-07, -0.7262e-07, -0.7134e-07, -0.6825e-07, &
      -0.6312e-07, -0.5585e-07, -0.4651e-07, -0.3520e-07, -0.2184e-07, &
      -0.6118e-08,  0.1247e-07,  0.3483e-07,  0.6232e-07,  0.9684e-07, &
       0.1404e-06,  0.1960e-06,  0.2678e-06,  0.3607e-06,  0.4787e-06, &
       0.6226e-06,  0.7923e-06,  0.9879e-06,  0.1216e-05, -0.7849e-07, &
      -0.7972e-07, -0.8046e-07, -0.8017e-07, -0.7827e-07, -0.7435e-07, &
      -0.6819e-07, -0.5976e-07, -0.4913e-07, -0.3644e-07, -0.2164e-07, &
      -0.4261e-08,  0.1624e-07,  0.4102e-07,  0.7122e-07,  0.1083e-06, &
       0.1536e-06,  0.2089e-06,  0.2761e-06,  0.3584e-06,  0.4614e-06, &
       0.5925e-06,  0.7572e-06,  0.9575e-06,  0.1194e-05,  0.1469e-05, &
      -0.8139e-07, -0.8178e-07, -0.8082e-07, -0.7802e-07, -0.7297e-07, &
      -0.6551e-07, -0.5570e-07, -0.4369e-07, -0.2954e-07, -0.1296e-07, &
       0.6510e-08,  0.2975e-07,  0.5791e-07,  0.9228e-07,  0.1341e-06, &
       0.1847e-06,  0.2450e-06,  0.3153e-06,  0.3962e-06,  0.4892e-06, &
       0.6004e-06,  0.7377e-06,  0.9137e-06,  0.1139e-05,  0.1417e-05, &
       0.1735e-05, -0.7853e-07, -0.7677e-07, -0.7289e-07, -0.6662e-07, &
      -0.5786e-07, -0.4676e-07, -0.3343e-07, -0.1775e-07,  0.6372e-09, &
       0.2250e-07,  0.4895e-07,  0.8112e-07,  0.1205e-06,  0.1682e-06, &
       0.2259e-06,  0.2943e-06,  0.3730e-06,  0.4613e-06,  0.5583e-06, &
       0.6651e-06,  0.7880e-06,  0.9389e-06,  0.1133e-05,  0.1381e-05, &
       0.1673e-05,  0.1977e-05, -0.7368e-07, -0.6876e-07, -0.6141e-07, &
      -0.5153e-07, -0.3930e-07, -0.2475e-07, -0.7592e-08,  0.1280e-07, &
       0.3738e-07,  0.6722e-07,  0.1037e-06,  0.1484e-06,  0.2025e-06, &
       0.2676e-06,  0.3446e-06,  0.4336e-06,  0.5328e-06,  0.6416e-06, &
       0.7580e-06,  0.8859e-06,  0.1034e-05,  0.1216e-05,  0.1438e-05, &
       0.1687e-05,  0.1929e-05,  0.2121e-05, -0.7220e-07, -0.6381e-07, &
      -0.5294e-07, -0.3961e-07, -0.2373e-07, -0.4876e-08,  0.1778e-07, &
       0.4534e-07,  0.7896e-07,  0.1202e-06,  0.1702e-06,  0.2308e-06, &
       0.3032e-06,  0.3885e-06,  0.4866e-06,  0.5970e-06,  0.7184e-06, &
       0.8506e-06,  0.9957e-06,  0.1160e-05,  0.1349e-05,  0.1560e-05, &
       0.1772e-05,  0.1952e-05,  0.2064e-05,  0.2103e-05, -0.7780e-07, &
      -0.6583e-07, -0.5134e-07, -0.3387e-07, -0.1295e-07,  0.1235e-07, &
       0.4322e-07,  0.8106e-07,  0.1272e-06,  0.1831e-06,  0.2502e-06, &
       0.3296e-06,  0.4225e-06,  0.5286e-06,  0.6486e-06,  0.7815e-06, &
       0.9291e-06,  0.1095e-05,  0.1282e-05,  0.1488e-05,  0.1698e-05, &
       0.1879e-05,  0.1994e-05,  0.2029e-05,  0.1997e-05,  0.1902e-05, &
      -0.9091e-07, -0.7486e-07, -0.5552e-07, -0.3219e-07, -0.3728e-08, &
       0.3092e-07,  0.7330e-07,  0.1246e-06,  0.1867e-06,  0.2605e-06, &
       0.3472e-06,  0.4475e-06,  0.5619e-06,  0.6904e-06,  0.8343e-06, &
       0.9959e-06,  0.1180e-05,  0.1387e-05,  0.1607e-05,  0.1814e-05, &
       0.1965e-05,  0.2025e-05,  0.1994e-05,  0.1890e-05,  0.1725e-05, &
       0.1495e-05, -0.1038e-06, -0.8229e-07, -0.5609e-07, -0.2426e-07, &
       0.1465e-07,  0.6192e-07,  0.1190e-06,  0.1874e-06,  0.2682e-06, &
       0.3627e-06,  0.4710e-06,  0.5942e-06,  0.7322e-06,  0.8871e-06, &
       0.1063e-05,  0.1263e-05,  0.1484e-05,  0.1708e-05,  0.1898e-05, &
       0.2010e-05,  0.2021e-05,  0.1940e-05,  0.1779e-05,  0.1552e-05, &
       0.1267e-05,  0.9541e-06, -0.9929e-07, -0.7017e-07, -0.3464e-07, &
       0.8700e-08,  0.6114e-07,  0.1243e-06,  0.1993e-06,  0.2873e-06, &
       0.3895e-06,  0.5062e-06,  0.6379e-06,  0.7859e-06,  0.9528e-06, &
       0.1142e-05,  0.1356e-05,  0.1583e-05,  0.1798e-05,  0.1956e-05, &
       0.2020e-05,  0.1984e-05,  0.1857e-05,  0.1650e-05,  0.1375e-05, &
       0.1062e-05,  0.7464e-06,  0.4681e-06, -0.5422e-07, -0.1497e-07, &
       0.3275e-07,  0.9027e-07,  0.1590e-06,  0.2400e-06,  0.3348e-06, &
       0.4433e-06,  0.5672e-06,  0.7064e-06,  0.8633e-06,  0.1041e-05, &
       0.1243e-05,  0.1466e-05,  0.1690e-05,  0.1880e-05,  0.1992e-05, &
       0.2003e-05,  0.1919e-05,  0.1748e-05,  0.1500e-05,  0.1194e-05, &
       0.8711e-06,  0.5728e-06,  0.3312e-06,  0.1672e-06,  0.5379e-07, &
       0.1051e-06,  0.1669e-06,  0.2400e-06,  0.3257e-06,  0.4247e-06, &
       0.5376e-06,  0.6651e-06,  0.8091e-06,  0.9725e-06,  0.1159e-05, &
       0.1369e-05,  0.1592e-05,  0.1800e-05,  0.1951e-05,  0.2009e-05, &
       0.1968e-05,  0.1836e-05,  0.1623e-05,  0.1338e-05,  0.1015e-05, &
       0.6981e-06,  0.4273e-06,  0.2280e-06,  0.1066e-06,  0.4496e-07, &
       0.2350e-06,  0.2990e-06,  0.3745e-06,  0.4623e-06,  0.5622e-06, &
       0.6755e-06,  0.8030e-06,  0.9477e-06,  0.1114e-05,  0.1304e-05, &
       0.1514e-05,  0.1726e-05,  0.1904e-05,  0.2004e-05,  0.2005e-05, &
       0.1914e-05,  0.1736e-05,  0.1483e-05,  0.1171e-05,  0.8445e-06, &
       0.5467e-06,  0.3103e-06,  0.1539e-06,  0.6762e-07,  0.2718e-07, &
       0.9859e-08],[26,31])

end module irrad_constants