rrtm_kgb9_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb9_a1

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
!     Reformatted for F90 by JJMorcrette, ECMWF
!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)

!     ------------------------------------------------------------------

#include "tsmbkind.h"

USE yoerrto9 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
           &fracrefbo, absn2oo
USE yoerrta9 , ONLY : n2oref  ,h2oref  ,ch4ref     ,etaref     ,strrat

!     ------------------------------------------------------------------


IMPLICIT NONE

!     ------------------------------------------------------------------

!     The array KAO contains absorption coefs at the 16 chosen g-values 
!     for a range of pressure levels> ~100mb, temperatures, and binary
!     species parameters (see taumol.f for definition).  The first 
!     index in the array, JS, runs from 1 to 11, and corresponds to 
!     different values of the binary species parameter.  For instance, 
!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
!     in the array, JT, which runs from 1 to 5, corresponds to different
!     temperatures.  More specifically, JT = 3 means that the data are for
!     the reference temperature TREF for this  pressure level, JT = 2 refers
!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
!     to the JPth reference pressure level (see taumol.f for these levels
!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
!     which g-interval the absorption coefficients are for.

kao( :, 1, 1, 1) = (/&
&1.8511e-03_jprb,2.1684e-03_jprb,1.9806e-03_jprb,1.7402e-03_jprb,1.4775e-03_jprb,1.1966e-03_jprb,&
&8.9433e-04_jprb,5.6221e-04_jprb,3.0428e-04_jprb,1.8439e-04_jprb,1.3102e-04_jprb/)
kao( :, 2, 1, 1) = (/&
&2.0894e-03_jprb,2.4523e-03_jprb,2.2500e-03_jprb,1.9818e-03_jprb,1.6875e-03_jprb,1.3729e-03_jprb,&
&1.0298e-03_jprb,6.5344e-04_jprb,3.5857e-04_jprb,2.2082e-04_jprb,1.5794e-04_jprb/)
kao( :, 3, 1, 1) = (/&
&2.3330e-03_jprb,2.7449e-03_jprb,2.5294e-03_jprb,2.2345e-03_jprb,1.9095e-03_jprb,1.5602e-03_jprb,&
&1.1757e-03_jprb,7.5512e-04_jprb,4.2015e-04_jprb,2.6222e-04_jprb,1.8993e-04_jprb/)
kao( :, 4, 1, 1) = (/&
&2.5835e-03_jprb,3.0490e-03_jprb,2.8221e-03_jprb,2.5018e-03_jprb,2.1465e-03_jprb,1.7595e-03_jprb,&
&1.3344e-03_jprb,8.6724e-04_jprb,4.8897e-04_jprb,3.0971e-04_jprb,2.2746e-04_jprb/)
kao( :, 5, 1, 1) = (/&
&2.8404e-03_jprb,3.3655e-03_jprb,3.1292e-03_jprb,2.7851e-03_jprb,2.3984e-03_jprb,1.9730e-03_jprb,&
&1.5065e-03_jprb,9.9023e-04_jprb,5.6589e-04_jprb,3.6410e-04_jprb,2.7116e-04_jprb/)
kao( :, 1, 2, 1) = (/&
&1.5469e-03_jprb,1.8260e-03_jprb,1.6779e-03_jprb,1.4743e-03_jprb,1.2523e-03_jprb,1.0146e-03_jprb,&
&7.5802e-04_jprb,4.7362e-04_jprb,2.5248e-04_jprb,1.4960e-04_jprb,1.0313e-04_jprb/)
kao( :, 2, 2, 1) = (/&
&1.7573e-03_jprb,2.0750e-03_jprb,1.9149e-03_jprb,1.6867e-03_jprb,1.4365e-03_jprb,1.1680e-03_jprb,&
&8.7632e-04_jprb,5.5250e-04_jprb,2.9879e-04_jprb,1.7951e-04_jprb,1.2466e-04_jprb/)
kao( :, 3, 2, 1) = (/&
&1.9736e-03_jprb,2.3350e-03_jprb,2.1627e-03_jprb,1.9104e-03_jprb,1.6322e-03_jprb,1.3324e-03_jprb,&
&1.0035e-03_jprb,6.4000e-04_jprb,3.5119e-04_jprb,2.1343e-04_jprb,1.4991e-04_jprb/)
kao( :, 4, 2, 1) = (/&
&2.1961e-03_jprb,2.6057e-03_jprb,2.4227e-03_jprb,2.1470e-03_jprb,1.8412e-03_jprb,1.5084e-03_jprb,&
&1.1417e-03_jprb,7.3666e-04_jprb,4.0980e-04_jprb,2.5228e-04_jprb,1.7955e-04_jprb/)
kao( :, 5, 2, 1) = (/&
&2.4226e-03_jprb,2.8887e-03_jprb,2.6975e-03_jprb,2.3995e-03_jprb,2.0641e-03_jprb,1.6967e-03_jprb,&
&1.2922e-03_jprb,8.4309e-04_jprb,4.7525e-04_jprb,2.9676e-04_jprb,2.1402e-04_jprb/)
kao( :, 1, 3, 1) = (/&
&1.2487e-03_jprb,1.4859e-03_jprb,1.3703e-03_jprb,1.2034e-03_jprb,1.0233e-03_jprb,8.2934e-04_jprb,&
&6.1870e-04_jprb,3.8491e-04_jprb,2.0061e-04_jprb,1.1644e-04_jprb,8.3034e-05_jprb/)
kao( :, 2, 3, 1) = (/&
&1.4306e-03_jprb,1.7008e-03_jprb,1.5762e-03_jprb,1.3877e-03_jprb,1.1829e-03_jprb,9.6138e-04_jprb,&
&7.2009e-04_jprb,4.5115e-04_jprb,2.3871e-04_jprb,1.4060e-04_jprb,1.0024e-04_jprb/)
kao( :, 3, 3, 1) = (/&
&1.6189e-03_jprb,1.9278e-03_jprb,1.7928e-03_jprb,1.5827e-03_jprb,1.3525e-03_jprb,1.1028e-03_jprb,&
&8.2939e-04_jprb,5.2453e-04_jprb,2.8190e-04_jprb,1.6789e-04_jprb,1.2022e-04_jprb/)
kao( :, 4, 3, 1) = (/&
&1.8135e-03_jprb,2.1671e-03_jprb,2.0211e-03_jprb,1.7891e-03_jprb,1.5341e-03_jprb,1.2544e-03_jprb,&
&9.4745e-04_jprb,6.0589e-04_jprb,3.3035e-04_jprb,1.9886e-04_jprb,1.4335e-04_jprb/)
kao( :, 5, 3, 1) = (/&
&2.0119e-03_jprb,2.4174e-03_jprb,2.2628e-03_jprb,2.0104e-03_jprb,1.7281e-03_jprb,1.4171e-03_jprb,&
&1.0763e-03_jprb,6.9556e-04_jprb,3.8485e-04_jprb,2.3413e-04_jprb,1.7025e-04_jprb/)
kao( :, 1, 4, 1) = (/&
&9.9332e-04_jprb,1.1937e-03_jprb,1.1041e-03_jprb,9.6868e-04_jprb,8.2360e-04_jprb,6.6725e-04_jprb,&
&4.9729e-04_jprb,3.0812e-04_jprb,1.5709e-04_jprb,8.9177e-05_jprb,7.0382e-05_jprb/)
kao( :, 2, 4, 1) = (/&
&1.1489e-03_jprb,1.3782e-03_jprb,1.2812e-03_jprb,1.1272e-03_jprb,9.6052e-04_jprb,7.8016e-04_jprb,&
&5.8305e-04_jprb,3.6333e-04_jprb,1.8801e-04_jprb,1.0835e-04_jprb,8.4949e-05_jprb/)
kao( :, 3, 4, 1) = (/&
&1.3111e-03_jprb,1.5738e-03_jprb,1.4685e-03_jprb,1.2957e-03_jprb,1.1067e-03_jprb,9.0126e-04_jprb,&
&6.7612e-04_jprb,4.2453e-04_jprb,2.2322e-04_jprb,1.3010e-04_jprb,1.0182e-04_jprb/)
kao( :, 4, 4, 1) = (/&
&1.4784e-03_jprb,1.7816e-03_jprb,1.6672e-03_jprb,1.4760e-03_jprb,1.2640e-03_jprb,1.0311e-03_jprb,&
&7.7663e-04_jprb,4.9254e-04_jprb,2.6274e-04_jprb,1.5479e-04_jprb,1.2151e-04_jprb/)
kao( :, 5, 4, 1) = (/&
&1.6498e-03_jprb,2.0005e-03_jprb,1.8776e-03_jprb,1.6682e-03_jprb,1.4321e-03_jprb,1.1713e-03_jprb,&
&8.8632e-04_jprb,5.6750e-04_jprb,3.0711e-04_jprb,1.8305e-04_jprb,1.4406e-04_jprb/)
kao( :, 1, 5, 1) = (/&
&7.8562e-04_jprb,9.5485e-04_jprb,8.8731e-04_jprb,7.7760e-04_jprb,6.6042e-04_jprb,5.3465e-04_jprb,&
&3.9818e-04_jprb,2.4507e-04_jprb,1.2280e-04_jprb,6.8024e-05_jprb,6.2892e-05_jprb/)
kao( :, 2, 5, 1) = (/&
&9.1788e-04_jprb,1.1130e-03_jprb,1.0387e-03_jprb,9.1348e-04_jprb,7.7739e-04_jprb,6.3079e-04_jprb,&
&4.7083e-04_jprb,2.9144e-04_jprb,1.4786e-04_jprb,8.3150e-05_jprb,7.5836e-05_jprb/)
kao( :, 3, 5, 1) = (/&
&1.0564e-03_jprb,1.2815e-03_jprb,1.1993e-03_jprb,1.0584e-03_jprb,9.0286e-04_jprb,7.3472e-04_jprb,&
&5.4988e-04_jprb,3.4257e-04_jprb,1.7646e-04_jprb,1.0042e-04_jprb,9.0784e-05_jprb/)
kao( :, 4, 5, 1) = (/&
&1.2000e-03_jprb,1.4607e-03_jprb,1.3706e-03_jprb,1.2143e-03_jprb,1.0385e-03_jprb,8.4626e-04_jprb,&
&6.3535e-04_jprb,3.9924e-04_jprb,2.0859e-04_jprb,1.2014e-04_jprb,1.0789e-04_jprb/)
kao( :, 5, 5, 1) = (/&
&1.3470e-03_jprb,1.6493e-03_jprb,1.5534e-03_jprb,1.3815e-03_jprb,1.1841e-03_jprb,9.6670e-04_jprb,&
&7.2902e-04_jprb,4.6176e-04_jprb,2.4472e-04_jprb,1.4262e-04_jprb,1.2760e-04_jprb/)
kao( :, 1, 6, 1) = (/&
&6.1309e-04_jprb,7.5529e-04_jprb,7.0573e-04_jprb,6.1814e-04_jprb,5.2423e-04_jprb,4.2388e-04_jprb,&
&3.1493e-04_jprb,1.9253e-04_jprb,9.5104e-05_jprb,5.1400e-05_jprb,5.8511e-05_jprb/)
kao( :, 2, 6, 1) = (/&
&7.2529e-04_jprb,8.9038e-04_jprb,8.3470e-04_jprb,7.3394e-04_jprb,6.2382e-04_jprb,5.0540e-04_jprb,&
&3.7640e-04_jprb,2.3131e-04_jprb,1.1537e-04_jprb,6.3305e-05_jprb,7.0591e-05_jprb/)
kao( :, 3, 6, 1) = (/&
&8.4334e-04_jprb,1.0336e-03_jprb,9.7184e-04_jprb,8.5812e-04_jprb,7.3092e-04_jprb,5.9381e-04_jprb,&
&4.4329e-04_jprb,2.7409e-04_jprb,1.3848e-04_jprb,7.6884e-05_jprb,8.4368e-05_jprb/)
kao( :, 4, 6, 1) = (/&
&9.6591e-04_jprb,1.1861e-03_jprb,1.1181e-03_jprb,9.9183e-04_jprb,8.4677e-04_jprb,6.8969e-04_jprb,&
&5.1579e-04_jprb,3.2112e-04_jprb,1.6446e-04_jprb,9.2420e-05_jprb,9.9996e-05_jprb/)
kao( :, 5, 6, 1) = (/&
&1.0919e-03_jprb,1.3468e-03_jprb,1.2743e-03_jprb,1.1355e-03_jprb,9.7181e-04_jprb,7.9286e-04_jprb,&
&5.9519e-04_jprb,3.7314e-04_jprb,1.9367e-04_jprb,1.1025e-04_jprb,1.1781e-04_jprb/)
kao( :, 1, 7, 1) = (/&
&4.7156e-04_jprb,5.8937e-04_jprb,5.5332e-04_jprb,4.8469e-04_jprb,4.1048e-04_jprb,3.3155e-04_jprb,&
&2.4554e-04_jprb,1.4938e-04_jprb,7.2895e-05_jprb,3.8595e-05_jprb,5.7264e-05_jprb/)
kao( :, 2, 7, 1) = (/&
&5.6495e-04_jprb,7.0294e-04_jprb,6.6167e-04_jprb,5.8245e-04_jprb,4.9439e-04_jprb,4.0002e-04_jprb,&
&2.9682e-04_jprb,1.8140e-04_jprb,8.9227e-05_jprb,4.7916e-05_jprb,6.9677e-05_jprb/)
kao( :, 3, 7, 1) = (/&
&6.6439e-04_jprb,8.2373e-04_jprb,7.7721e-04_jprb,6.8744e-04_jprb,5.8490e-04_jprb,4.7448e-04_jprb,&
&3.5318e-04_jprb,2.1689e-04_jprb,1.0783e-04_jprb,5.8667e-05_jprb,8.3618e-05_jprb/)
kao( :, 4, 7, 1) = (/&
&7.6901e-04_jprb,9.5239e-04_jprb,9.0133e-04_jprb,8.0079e-04_jprb,6.8276e-04_jprb,5.5536e-04_jprb,&
&4.1449e-04_jprb,2.5602e-04_jprb,1.2881e-04_jprb,7.0934e-05_jprb,9.9245e-05_jprb/)
kao( :, 5, 7, 1) = (/&
&8.7687e-04_jprb,1.0882e-03_jprb,1.0337e-03_jprb,9.2277e-04_jprb,7.8860e-04_jprb,6.4298e-04_jprb,&
&4.8152e-04_jprb,2.9917e-04_jprb,1.5235e-04_jprb,8.4990e-05_jprb,1.1668e-04_jprb/)
kao( :, 1, 8, 1) = (/&
&3.6149e-04_jprb,4.5739e-04_jprb,4.3172e-04_jprb,3.7856e-04_jprb,3.2005e-04_jprb,2.5782e-04_jprb,&
&1.9045e-04_jprb,1.1541e-04_jprb,5.5760e-05_jprb,2.8968e-05_jprb,6.3348e-05_jprb/)
kao( :, 2, 8, 1) = (/&
&4.3856e-04_jprb,5.5284e-04_jprb,5.2317e-04_jprb,4.6128e-04_jprb,3.9080e-04_jprb,3.1525e-04_jprb,&
&2.3332e-04_jprb,1.4196e-04_jprb,6.8893e-05_jprb,3.6257e-05_jprb,7.8227e-05_jprb/)
kao( :, 3, 8, 1) = (/&
&5.2180e-04_jprb,6.5495e-04_jprb,6.2122e-04_jprb,5.5050e-04_jprb,4.6739e-04_jprb,3.7783e-04_jprb,&
&2.8052e-04_jprb,1.7141e-04_jprb,8.3884e-05_jprb,4.4746e-05_jprb,9.4849e-05_jprb/)
kao( :, 4, 8, 1) = (/&
&6.1041e-04_jprb,7.6428e-04_jprb,7.2626e-04_jprb,6.4667e-04_jprb,5.5039e-04_jprb,4.4616e-04_jprb,&
&3.3220e-04_jprb,2.0388e-04_jprb,1.0087e-04_jprb,5.4479e-05_jprb,1.1299e-04_jprb/)
kao( :, 5, 8, 1) = (/&
&7.0263e-04_jprb,8.7961e-04_jprb,8.3866e-04_jprb,7.5024e-04_jprb,6.4012e-04_jprb,5.2015e-04_jprb,&
&3.8858e-04_jprb,2.3987e-04_jprb,1.1991e-04_jprb,6.5600e-05_jprb,1.3300e-04_jprb/)
kao( :, 1, 9, 1) = (/&
&2.7588e-04_jprb,3.5363e-04_jprb,3.3564e-04_jprb,2.9442e-04_jprb,2.4845e-04_jprb,1.9944e-04_jprb,&
&1.4687e-04_jprb,8.8846e-05_jprb,4.2564e-05_jprb,2.1694e-05_jprb,1.1635e-04_jprb/)
kao( :, 2, 9, 1) = (/&
&3.3926e-04_jprb,4.3331e-04_jprb,4.1256e-04_jprb,3.6456e-04_jprb,3.0818e-04_jprb,2.4781e-04_jprb,&
&1.8292e-04_jprb,1.1098e-04_jprb,5.3248e-05_jprb,2.7395e-05_jprb,1.4478e-04_jprb/)
kao( :, 3, 9, 1) = (/&
&4.0867e-04_jprb,5.1901e-04_jprb,4.9554e-04_jprb,4.4073e-04_jprb,3.7338e-04_jprb,3.0096e-04_jprb,&
&2.2284e-04_jprb,1.3558e-04_jprb,6.5394e-05_jprb,3.4106e-05_jprb,1.7665e-04_jprb/)
kao( :, 4, 9, 1) = (/&
&4.8311e-04_jprb,6.1155e-04_jprb,5.8496e-04_jprb,5.2319e-04_jprb,4.4421e-04_jprb,3.5901e-04_jprb,&
&2.6668e-04_jprb,1.6266e-04_jprb,7.9185e-05_jprb,4.1808e-05_jprb,2.1187e-04_jprb/)
kao( :, 5, 9, 1) = (/&
&5.6145e-04_jprb,7.0981e-04_jprb,6.8093e-04_jprb,6.1164e-04_jprb,5.2090e-04_jprb,4.2218e-04_jprb,&
&3.1451e-04_jprb,1.9257e-04_jprb,9.4690e-05_jprb,5.0644e-05_jprb,2.5097e-04_jprb/)
kao( :, 1,10, 1) = (/&
&2.1325e-04_jprb,2.7761e-04_jprb,2.6556e-04_jprb,2.3335e-04_jprb,1.9651e-04_jprb,1.5718e-04_jprb,&
&1.1525e-04_jprb,6.9475e-05_jprb,3.3064e-05_jprb,1.6594e-05_jprb,2.6093e-04_jprb/)
kao( :, 2,10, 1) = (/&
&2.6523e-04_jprb,3.4415e-04_jprb,3.3059e-04_jprb,2.9327e-04_jprb,2.4721e-04_jprb,1.9814e-04_jprb,&
&1.4562e-04_jprb,8.8015e-05_jprb,4.1956e-05_jprb,2.1115e-05_jprb,3.2387e-04_jprb/)
kao( :, 3,10, 1) = (/&
&3.2298e-04_jprb,4.1660e-04_jprb,4.0088e-04_jprb,3.5836e-04_jprb,3.0264e-04_jprb,2.4324e-04_jprb,&
&1.7951e-04_jprb,1.0893e-04_jprb,5.2077e-05_jprb,2.6475e-05_jprb,3.9665e-04_jprb/)
kao( :, 4,10, 1) = (/&
&3.8555e-04_jprb,4.9515e-04_jprb,4.7688e-04_jprb,4.2876e-04_jprb,3.6342e-04_jprb,2.9294e-04_jprb,&
&2.1704e-04_jprb,1.3203e-04_jprb,6.3508e-05_jprb,3.2669e-05_jprb,4.7888e-04_jprb/)
kao( :, 5,10, 1) = (/&
&4.5214e-04_jprb,5.7861e-04_jprb,5.5869e-04_jprb,5.0469e-04_jprb,4.2960e-04_jprb,3.4738e-04_jprb,&
&2.5818e-04_jprb,1.5755e-04_jprb,7.6353e-05_jprb,3.9767e-05_jprb,5.6953e-04_jprb/)
kao( :, 1,11, 1) = (/&
&1.8263e-04_jprb,2.4132e-04_jprb,2.3375e-04_jprb,2.0689e-04_jprb,1.7392e-04_jprb,1.3885e-04_jprb,&
&1.0153e-04_jprb,6.1012e-05_jprb,2.8844e-05_jprb,1.4318e-05_jprb,3.1500e-04_jprb/)
kao( :, 2,11, 1) = (/&
&2.2729e-04_jprb,2.9882e-04_jprb,2.9035e-04_jprb,2.5993e-04_jprb,2.1873e-04_jprb,1.7499e-04_jprb,&
&1.2837e-04_jprb,7.7411e-05_jprb,3.6724e-05_jprb,1.8248e-05_jprb,3.9075e-04_jprb/)
kao( :, 3,11, 1) = (/&
&2.7702e-04_jprb,3.6186e-04_jprb,3.5142e-04_jprb,3.1724e-04_jprb,2.6804e-04_jprb,2.1505e-04_jprb,&
&1.5840e-04_jprb,9.5897e-05_jprb,4.5698e-05_jprb,2.2869e-05_jprb,4.7807e-04_jprb/)
kao( :, 4,11, 1) = (/&
&3.3090e-04_jprb,4.2990e-04_jprb,4.1786e-04_jprb,3.7887e-04_jprb,3.2210e-04_jprb,2.5914e-04_jprb,&
&1.9166e-04_jprb,1.1648e-04_jprb,5.5756e-05_jprb,2.8227e-05_jprb,5.7397e-04_jprb/)
kao( :, 5,11, 1) = (/&
&3.8797e-04_jprb,5.0222e-04_jprb,4.8941e-04_jprb,4.4563e-04_jprb,3.8069e-04_jprb,3.0738e-04_jprb,&
&2.2816e-04_jprb,1.3917e-04_jprb,6.7021e-05_jprb,3.4339e-05_jprb,6.7669e-04_jprb/)
kao( :, 1,12, 1) = (/&
&1.5441e-04_jprb,2.0564e-04_jprb,2.0096e-04_jprb,1.7923e-04_jprb,1.5061e-04_jprb,1.2020e-04_jprb,&
&8.7841e-05_jprb,5.2718e-05_jprb,2.4841e-05_jprb,1.2247e-05_jprb,3.0779e-04_jprb/)
kao( :, 2,12, 1) = (/&
&1.9212e-04_jprb,2.5449e-04_jprb,2.4895e-04_jprb,2.2471e-04_jprb,1.8931e-04_jprb,1.5143e-04_jprb,&
&1.1103e-04_jprb,6.6933e-05_jprb,3.1660e-05_jprb,1.5617e-05_jprb,3.8209e-04_jprb/)
kao( :, 3,12, 1) = (/&
&2.3412e-04_jprb,3.0815e-04_jprb,3.0111e-04_jprb,2.7354e-04_jprb,2.3196e-04_jprb,1.8605e-04_jprb,&
&1.3699e-04_jprb,8.2969e-05_jprb,3.9466e-05_jprb,1.9595e-05_jprb,4.6727e-04_jprb/)
kao( :, 4,12, 1) = (/&
&2.7956e-04_jprb,3.6583e-04_jprb,3.5793e-04_jprb,3.2668e-04_jprb,2.7866e-04_jprb,2.2413e-04_jprb,&
&1.6571e-04_jprb,1.0083e-04_jprb,4.8187e-05_jprb,2.4182e-05_jprb,5.5911e-04_jprb/)
kao( :, 5,12, 1) = (/&
&3.2770e-04_jprb,4.2716e-04_jprb,4.1907e-04_jprb,3.8390e-04_jprb,3.2941e-04_jprb,2.6578e-04_jprb,&
&1.9722e-04_jprb,1.2047e-04_jprb,5.7910e-05_jprb,2.9402e-05_jprb,6.5729e-04_jprb/)
kao( :, 1,13, 1) = (/&
&1.2926e-04_jprb,1.7285e-04_jprb,1.6977e-04_jprb,1.5243e-04_jprb,1.2815e-04_jprb,1.0230e-04_jprb,&
&7.4794e-05_jprb,4.4876e-05_jprb,2.1143e-05_jprb,1.0395e-05_jprb,2.5481e-04_jprb/)
kao( :, 2,13, 1) = (/&
&1.6076e-04_jprb,2.1391e-04_jprb,2.1001e-04_jprb,1.9062e-04_jprb,1.6104e-04_jprb,1.2883e-04_jprb,&
&9.4499e-05_jprb,5.6968e-05_jprb,2.6983e-05_jprb,1.3259e-05_jprb,3.1628e-04_jprb/)
kao( :, 3,13, 1) = (/&
&1.9591e-04_jprb,2.5905e-04_jprb,2.5408e-04_jprb,2.3203e-04_jprb,1.9732e-04_jprb,1.5826e-04_jprb,&
&1.1655e-04_jprb,7.0656e-05_jprb,3.3658e-05_jprb,1.6638e-05_jprb,3.8652e-04_jprb/)
kao( :, 4,13, 1) = (/&
&2.3390e-04_jprb,3.0751e-04_jprb,3.0205e-04_jprb,2.7698e-04_jprb,2.3712e-04_jprb,1.9078e-04_jprb,&
&1.4104e-04_jprb,8.5929e-05_jprb,4.1109e-05_jprb,2.0532e-05_jprb,4.6199e-04_jprb/)
kao( :, 5,13, 1) = (/&
&2.7408e-04_jprb,3.5916e-04_jprb,3.5371e-04_jprb,3.2549e-04_jprb,2.8046e-04_jprb,2.2630e-04_jprb,&
&1.6790e-04_jprb,1.0268e-04_jprb,4.9402e-05_jprb,2.4960e-05_jprb,5.4289e-04_jprb/)
kao( :, 1, 1, 2) = (/&
&6.0407e-03_jprb,7.8065e-03_jprb,8.1846e-03_jprb,7.8906e-03_jprb,7.1910e-03_jprb,6.1108e-03_jprb,&
&4.6908e-03_jprb,3.0070e-03_jprb,1.6029e-03_jprb,8.9663e-04_jprb,5.4161e-04_jprb/)
kao( :, 2, 1, 2) = (/&
&6.8195e-03_jprb,8.6717e-03_jprb,9.0298e-03_jprb,8.7022e-03_jprb,7.9330e-03_jprb,6.7597e-03_jprb,&
&5.2275e-03_jprb,3.3989e-03_jprb,1.8520e-03_jprb,1.0477e-03_jprb,6.3833e-04_jprb/)
kao( :, 3, 1, 2) = (/&
&7.5788e-03_jprb,9.5388e-03_jprb,9.9036e-03_jprb,9.5604e-03_jprb,8.7254e-03_jprb,7.4504e-03_jprb,&
&5.8064e-03_jprb,3.8251e-03_jprb,2.1238e-03_jprb,1.2161e-03_jprb,7.5231e-04_jprb/)
kao( :, 4, 1, 2) = (/&
&8.3303e-03_jprb,1.0419e-02_jprb,1.0813e-02_jprb,1.0461e-02_jprb,9.5556e-03_jprb,8.1956e-03_jprb,&
&6.4324e-03_jprb,4.2921e-03_jprb,2.4115e-03_jprb,1.4052e-03_jprb,8.8294e-04_jprb/)
kao( :, 5, 1, 2) = (/&
&9.0559e-03_jprb,1.1320e-02_jprb,1.1753e-02_jprb,1.1384e-02_jprb,1.0421e-02_jprb,8.9932e-03_jprb,&
&7.1094e-03_jprb,4.8020e-03_jprb,2.7233e-03_jprb,1.6150e-03_jprb,1.0321e-03_jprb/)
kao( :, 1, 2, 2) = (/&
&5.2124e-03_jprb,6.6819e-03_jprb,6.9789e-03_jprb,6.7465e-03_jprb,6.1674e-03_jprb,5.2549e-03_jprb,&
&4.0193e-03_jprb,2.5539e-03_jprb,1.3468e-03_jprb,7.4621e-04_jprb,4.4731e-04_jprb/)
kao( :, 2, 2, 2) = (/&
&5.8769e-03_jprb,7.4300e-03_jprb,7.7105e-03_jprb,7.4546e-03_jprb,6.8169e-03_jprb,5.8241e-03_jprb,&
&4.4832e-03_jprb,2.8884e-03_jprb,1.5578e-03_jprb,8.7448e-04_jprb,5.2849e-04_jprb/)
kao( :, 3, 2, 2) = (/&
&6.5337e-03_jprb,8.1860e-03_jprb,8.4759e-03_jprb,8.2057e-03_jprb,7.5067e-03_jprb,6.4273e-03_jprb,&
&4.9857e-03_jprb,3.2553e-03_jprb,1.7880e-03_jprb,1.0185e-03_jprb,6.2321e-04_jprb/)
kao( :, 4, 2, 2) = (/&
&7.1816e-03_jprb,8.9552e-03_jprb,9.2749e-03_jprb,8.9993e-03_jprb,8.2303e-03_jprb,7.0662e-03_jprb,&
&5.5323e-03_jprb,3.6583e-03_jprb,2.0367e-03_jprb,1.1804e-03_jprb,7.3231e-04_jprb/)
kao( :, 5, 2, 2) = (/&
&7.8051e-03_jprb,9.7506e-03_jprb,1.0101e-02_jprb,9.8071e-03_jprb,8.9873e-03_jprb,7.7508e-03_jprb,&
&6.1243e-03_jprb,4.1022e-03_jprb,2.3063e-03_jprb,1.3585e-03_jprb,8.5647e-04_jprb/)
kao( :, 1, 3, 2) = (/&
&4.3523e-03_jprb,5.5520e-03_jprb,5.7775e-03_jprb,5.5913e-03_jprb,5.1223e-03_jprb,4.3826e-03_jprb,&
&3.3610e-03_jprb,2.1161e-03_jprb,1.0951e-03_jprb,5.9556e-04_jprb,3.7857e-04_jprb/)
kao( :, 2, 3, 2) = (/&
&4.9209e-03_jprb,6.2002e-03_jprb,6.4082e-03_jprb,6.1965e-03_jprb,5.6752e-03_jprb,4.8744e-03_jprb,&
&3.7636e-03_jprb,2.3985e-03_jprb,1.2700e-03_jprb,7.0291e-04_jprb,4.5096e-04_jprb/)
kao( :, 3, 3, 2) = (/&
&5.4868e-03_jprb,6.8502e-03_jprb,7.0667e-03_jprb,6.8427e-03_jprb,6.2712e-03_jprb,5.3957e-03_jprb,&
&4.1940e-03_jprb,2.7077e-03_jprb,1.4615e-03_jprb,8.2150e-04_jprb,5.3286e-04_jprb/)
kao( :, 4, 3, 2) = (/&
&6.0417e-03_jprb,7.5160e-03_jprb,7.7553e-03_jprb,7.5242e-03_jprb,6.9056e-03_jprb,5.9509e-03_jprb,&
&4.6578e-03_jprb,3.0477e-03_jprb,1.6703e-03_jprb,9.5611e-04_jprb,6.2579e-04_jprb/)
kao( :, 5, 3, 2) = (/&
&6.5818e-03_jprb,8.2045e-03_jprb,8.4687e-03_jprb,8.2290e-03_jprb,7.5712e-03_jprb,6.5448e-03_jprb,&
&5.1618e-03_jprb,3.4239e-03_jprb,1.8984e-03_jprb,1.1049e-03_jprb,7.3100e-04_jprb/)
kao( :, 1, 4, 2) = (/&
&3.6037e-03_jprb,4.5619e-03_jprb,4.7284e-03_jprb,4.5758e-03_jprb,4.1942e-03_jprb,3.5992e-03_jprb,&
&2.7695e-03_jprb,1.7380e-03_jprb,8.8220e-04_jprb,4.6885e-04_jprb,3.3625e-04_jprb/)
kao( :, 2, 4, 2) = (/&
&4.0887e-03_jprb,5.1148e-03_jprb,5.2710e-03_jprb,5.0898e-03_jprb,4.6632e-03_jprb,4.0157e-03_jprb,&
&3.1155e-03_jprb,1.9801e-03_jprb,1.0256e-03_jprb,5.5681e-04_jprb,4.0363e-04_jprb/)
kao( :, 3, 4, 2) = (/&
&4.5729e-03_jprb,5.6722e-03_jprb,5.8309e-03_jprb,5.6384e-03_jprb,5.1725e-03_jprb,4.4617e-03_jprb,&
&3.4837e-03_jprb,2.2420e-03_jprb,1.1837e-03_jprb,6.5451e-04_jprb,4.7814e-04_jprb/)
kao( :, 4, 4, 2) = (/&
&5.0500e-03_jprb,6.2435e-03_jprb,6.4200e-03_jprb,6.2178e-03_jprb,5.7168e-03_jprb,4.9415e-03_jprb,&
&3.8793e-03_jprb,2.5280e-03_jprb,1.3568e-03_jprb,7.6386e-04_jprb,5.6139e-04_jprb/)
kao( :, 5, 4, 2) = (/&
&5.5166e-03_jprb,6.8327e-03_jprb,7.0292e-03_jprb,6.8237e-03_jprb,6.2950e-03_jprb,5.4568e-03_jprb,&
&4.3128e-03_jprb,2.8421e-03_jprb,1.5485e-03_jprb,8.8605e-04_jprb,6.5402e-04_jprb/)
kao( :, 1, 5, 2) = (/&
&2.9853e-03_jprb,3.7407e-03_jprb,3.8556e-03_jprb,3.7312e-03_jprb,3.4190e-03_jprb,2.9428e-03_jprb,&
&2.2723e-03_jprb,1.4198e-03_jprb,7.1091e-04_jprb,3.6855e-04_jprb,3.1611e-04_jprb/)
kao( :, 2, 5, 2) = (/&
&3.4022e-03_jprb,4.2141e-03_jprb,4.3188e-03_jprb,4.1657e-03_jprb,3.8152e-03_jprb,3.2922e-03_jprb,&
&2.5629e-03_jprb,1.6244e-03_jprb,8.2914e-04_jprb,4.3956e-04_jprb,3.7920e-04_jprb/)
kao( :, 3, 5, 2) = (/&
&3.8163e-03_jprb,4.6908e-03_jprb,4.7976e-03_jprb,4.6281e-03_jprb,4.2450e-03_jprb,3.6719e-03_jprb,&
&2.8734e-03_jprb,1.8464e-03_jprb,9.6023e-04_jprb,5.1918e-04_jprb,4.5044e-04_jprb/)
kao( :, 4, 5, 2) = (/&
&4.2238e-03_jprb,5.1812e-03_jprb,5.2987e-03_jprb,5.1187e-03_jprb,4.7071e-03_jprb,4.0810e-03_jprb,&
&3.2111e-03_jprb,2.0883e-03_jprb,1.1042e-03_jprb,6.0901e-04_jprb,5.3057e-04_jprb/)
kao( :, 5, 5, 2) = (/&
&4.6242e-03_jprb,5.6849e-03_jprb,5.8163e-03_jprb,5.6316e-03_jprb,5.2005e-03_jprb,4.5233e-03_jprb,&
&3.5780e-03_jprb,2.3536e-03_jprb,1.2639e-03_jprb,7.0822e-04_jprb,6.1748e-04_jprb/)
kao( :, 1, 6, 2) = (/&
&2.4498e-03_jprb,3.0475e-03_jprb,3.1220e-03_jprb,3.0196e-03_jprb,2.7652e-03_jprb,2.3889e-03_jprb,&
&1.8491e-03_jprb,1.1489e-03_jprb,5.6714e-04_jprb,2.8783e-04_jprb,3.1080e-04_jprb/)
kao( :, 2, 6, 2) = (/&
&2.8080e-03_jprb,3.4520e-03_jprb,3.5157e-03_jprb,3.3870e-03_jprb,3.0980e-03_jprb,2.6793e-03_jprb,&
&2.0903e-03_jprb,1.3197e-03_jprb,6.6501e-04_jprb,3.4472e-04_jprb,3.7051e-04_jprb/)
kao( :, 3, 6, 2) = (/&
&3.1640e-03_jprb,3.8601e-03_jprb,3.9229e-03_jprb,3.7774e-03_jprb,3.4589e-03_jprb,2.9977e-03_jprb,&
&2.3510e-03_jprb,1.5040e-03_jprb,7.7398e-04_jprb,4.0896e-04_jprb,4.3796e-04_jprb/)
kao( :, 4, 6, 2) = (/&
&3.5132e-03_jprb,4.2794e-03_jprb,4.3478e-03_jprb,4.1882e-03_jprb,3.8474e-03_jprb,3.3403e-03_jprb,&
&2.6340e-03_jprb,1.7060e-03_jprb,8.9431e-04_jprb,4.8188e-04_jprb,5.1446e-04_jprb/)
kao( :, 5, 6, 2) = (/&
&3.8604e-03_jprb,4.7099e-03_jprb,4.7886e-03_jprb,4.6205e-03_jprb,4.2616e-03_jprb,3.7139e-03_jprb,&
&2.9438e-03_jprb,1.9283e-03_jprb,1.0272e-03_jprb,5.6324e-04_jprb,5.9978e-04_jprb/)
kao( :, 1, 7, 2) = (/&
&1.9828e-03_jprb,2.4555e-03_jprb,2.5089e-03_jprb,2.4265e-03_jprb,2.2222e-03_jprb,1.9219e-03_jprb,&
&1.4917e-03_jprb,9.2169e-04_jprb,4.4935e-04_jprb,2.2355e-04_jprb,3.2905e-04_jprb/)
kao( :, 2, 7, 2) = (/&
&2.2898e-03_jprb,2.8015e-03_jprb,2.8404e-03_jprb,2.7343e-03_jprb,2.4995e-03_jprb,2.1638e-03_jprb,&
&1.6905e-03_jprb,1.0629e-03_jprb,5.2977e-04_jprb,2.6953e-04_jprb,3.8642e-04_jprb/)
kao( :, 3, 7, 2) = (/&
&2.5950e-03_jprb,3.1495e-03_jprb,3.1847e-03_jprb,3.0608e-03_jprb,2.7988e-03_jprb,2.4271e-03_jprb,&
&1.9063e-03_jprb,1.2157e-03_jprb,6.1889e-04_jprb,3.2121e-04_jprb,4.5238e-04_jprb/)
kao( :, 4, 7, 2) = (/&
&2.8946e-03_jprb,3.5066e-03_jprb,3.5426e-03_jprb,3.4040e-03_jprb,3.1227e-03_jprb,2.7135e-03_jprb,&
&2.1417e-03_jprb,1.3825e-03_jprb,7.1739e-04_jprb,3.7957e-04_jprb,5.2784e-04_jprb/)
kao( :, 5, 7, 2) = (/&
&3.1931e-03_jprb,3.8740e-03_jprb,3.9151e-03_jprb,3.7654e-03_jprb,3.4684e-03_jprb,3.0255e-03_jprb,&
&2.3992e-03_jprb,1.5660e-03_jprb,8.2652e-04_jprb,4.4537e-04_jprb,6.1466e-04_jprb/)
kao( :, 1, 8, 2) = (/&
&1.5989e-03_jprb,1.9702e-03_jprb,2.0115e-03_jprb,1.9470e-03_jprb,1.7844e-03_jprb,1.5432e-03_jprb,&
&1.1995e-03_jprb,7.3709e-04_jprb,3.5460e-04_jprb,1.7239e-04_jprb,4.0077e-04_jprb/)
kao( :, 2, 8, 2) = (/&
&1.8612e-03_jprb,2.2667e-03_jprb,2.2904e-03_jprb,2.2044e-03_jprb,2.0147e-03_jprb,1.7439e-03_jprb,&
&1.3635e-03_jprb,8.5344e-04_jprb,4.2074e-04_jprb,2.0967e-04_jprb,4.6582e-04_jprb/)
kao( :, 3, 8, 2) = (/&
&2.1244e-03_jprb,2.5624e-03_jprb,2.5789e-03_jprb,2.4755e-03_jprb,2.2630e-03_jprb,1.9622e-03_jprb,&
&1.5425e-03_jprb,9.7987e-04_jprb,4.9319e-04_jprb,2.5142e-04_jprb,5.4055e-04_jprb/)
kao( :, 4, 8, 2) = (/&
&2.3819e-03_jprb,2.8649e-03_jprb,2.8813e-03_jprb,2.7618e-03_jprb,2.5306e-03_jprb,2.2005e-03_jprb,&
&1.7382e-03_jprb,1.1179e-03_jprb,5.7326e-04_jprb,2.9833e-04_jprb,6.2468e-04_jprb/)
kao( :, 5, 8, 2) = (/&
&2.6384e-03_jprb,3.1771e-03_jprb,3.1953e-03_jprb,3.0634e-03_jprb,2.8174e-03_jprb,2.4583e-03_jprb,&
&1.9520e-03_jprb,1.2696e-03_jprb,6.6233e-04_jprb,3.5121e-04_jprb,7.1932e-04_jprb/)
kao( :, 1, 9, 2) = (/&
&1.2874e-03_jprb,1.5807e-03_jprb,1.6105e-03_jprb,1.5596e-03_jprb,1.4331e-03_jprb,1.2409e-03_jprb,&
&9.6467e-04_jprb,5.8855e-04_jprb,2.7878e-04_jprb,1.3223e-04_jprb,7.1624e-04_jprb/)
kao( :, 2, 9, 2) = (/&
&1.5123e-03_jprb,1.8336e-03_jprb,1.8477e-03_jprb,1.7758e-03_jprb,1.6249e-03_jprb,1.4066e-03_jprb,&
&1.0996e-03_jprb,6.8448e-04_jprb,3.3322e-04_jprb,1.6247e-04_jprb,8.2651e-04_jprb/)
kao( :, 3, 9, 2) = (/&
&1.7405e-03_jprb,2.0860e-03_jprb,2.0902e-03_jprb,2.0023e-03_jprb,1.8310e-03_jprb,1.5864e-03_jprb,&
&1.2475e-03_jprb,7.8935e-04_jprb,3.9239e-04_jprb,1.9609e-04_jprb,9.5177e-04_jprb/)
kao( :, 4, 9, 2) = (/&
&1.9645e-03_jprb,2.3442e-03_jprb,2.3456e-03_jprb,2.2427e-03_jprb,2.0525e-03_jprb,1.7831e-03_jprb,&
&1.4096e-03_jprb,9.0343e-04_jprb,4.5751e-04_jprb,2.3374e-04_jprb,1.0933e-03_jprb/)
kao( :, 5, 9, 2) = (/&
&2.1858e-03_jprb,2.6097e-03_jprb,2.6113e-03_jprb,2.4953e-03_jprb,2.2897e-03_jprb,1.9950e-03_jprb,&
&1.5860e-03_jprb,1.0288e-03_jprb,5.2969e-04_jprb,2.7603e-04_jprb,1.2508e-03_jprb/)
kao( :, 1,10, 2) = (/&
&1.0529e-03_jprb,1.2869e-03_jprb,1.3057e-03_jprb,1.2641e-03_jprb,1.1629e-03_jprb,1.0080e-03_jprb,&
&7.8495e-04_jprb,4.7620e-04_jprb,2.2170e-04_jprb,1.0270e-04_jprb,1.3580e-03_jprb/)
kao( :, 2,10, 2) = (/&
&1.2490e-03_jprb,1.5074e-03_jprb,1.5131e-03_jprb,1.4495e-03_jprb,1.3257e-03_jprb,1.1471e-03_jprb,&
&8.9825e-04_jprb,5.5593e-04_jprb,2.6681e-04_jprb,1.2750e-04_jprb,1.5971e-03_jprb/)
kao( :, 3,10, 2) = (/&
&1.4492e-03_jprb,1.7260e-03_jprb,1.7215e-03_jprb,1.6426e-03_jprb,1.5005e-03_jprb,1.2985e-03_jprb,&
&1.0216e-03_jprb,6.4239e-04_jprb,3.1568e-04_jprb,1.5479e-04_jprb,1.8667e-03_jprb/)
kao( :, 4,10, 2) = (/&
&1.6458e-03_jprb,1.9481e-03_jprb,1.9385e-03_jprb,1.8468e-03_jprb,1.6872e-03_jprb,1.4625e-03_jprb,&
&1.1568e-03_jprb,7.3723e-04_jprb,3.6917e-04_jprb,1.8512e-04_jprb,2.1592e-03_jprb/)
kao( :, 5,10, 2) = (/&
&1.8388e-03_jprb,2.1768e-03_jprb,2.1658e-03_jprb,2.0613e-03_jprb,1.8866e-03_jprb,1.6398e-03_jprb,&
&1.3041e-03_jprb,8.4131e-04_jprb,4.2827e-04_jprb,2.1913e-04_jprb,2.4697e-03_jprb/)
kao( :, 1,11, 2) = (/&
&9.3652e-04_jprb,1.1385e-03_jprb,1.1471e-03_jprb,1.1044e-03_jprb,1.0133e-03_jprb,8.7645e-04_jprb,&
&6.8412e-04_jprb,4.1724e-04_jprb,1.9356e-04_jprb,8.8827e-05_jprb,1.5807e-03_jprb/)
kao( :, 2,11, 2) = (/&
&1.1100e-03_jprb,1.3322e-03_jprb,1.3282e-03_jprb,1.2667e-03_jprb,1.1577e-03_jprb,1.0002e-03_jprb,&
&7.8407e-04_jprb,4.8629e-04_jprb,2.3224e-04_jprb,1.1007e-04_jprb,1.8547e-03_jprb/)
kao( :, 3,11, 2) = (/&
&1.2856e-03_jprb,1.5232e-03_jprb,1.5121e-03_jprb,1.4368e-03_jprb,1.3117e-03_jprb,1.1334e-03_jprb,&
&8.9329e-04_jprb,5.6169e-04_jprb,2.7435e-04_jprb,1.3331e-04_jprb,2.1559e-03_jprb/)
kao( :, 4,11, 2) = (/&
&1.4549e-03_jprb,1.7175e-03_jprb,1.7035e-03_jprb,1.6171e-03_jprb,1.4759e-03_jprb,1.2781e-03_jprb,&
&1.0119e-03_jprb,6.4442e-04_jprb,3.2046e-04_jprb,1.5895e-04_jprb,2.4834e-03_jprb/)
kao( :, 5,11, 2) = (/&
&1.6224e-03_jprb,1.9187e-03_jprb,1.9023e-03_jprb,1.8058e-03_jprb,1.6504e-03_jprb,1.4334e-03_jprb,&
&1.1403e-03_jprb,7.3509e-04_jprb,3.7157e-04_jprb,1.8783e-04_jprb,2.8350e-03_jprb/)
kao( :, 1,12, 2) = (/&
&8.1827e-04_jprb,9.9361e-04_jprb,9.9598e-04_jprb,9.5548e-04_jprb,8.7645e-04_jprb,7.5891e-04_jprb,&
&5.9398e-04_jprb,3.6310e-04_jprb,1.6830e-04_jprb,7.6627e-05_jprb,1.5346e-03_jprb/)
kao( :, 2,12, 2) = (/&
&9.6798e-04_jprb,1.1604e-03_jprb,1.1525e-03_jprb,1.0960e-03_jprb,1.0027e-03_jprb,8.6748e-04_jprb,&
&6.8181e-04_jprb,4.2341e-04_jprb,2.0151e-04_jprb,9.4708e-05_jprb,1.7971e-03_jprb/)
kao( :, 3,12, 2) = (/&
&1.1161e-03_jprb,1.3239e-03_jprb,1.3118e-03_jprb,1.2444e-03_jprb,1.1369e-03_jprb,9.8346e-04_jprb,&
&7.7783e-04_jprb,4.8954e-04_jprb,2.3774e-04_jprb,1.1437e-04_jprb,2.0823e-03_jprb/)
kao( :, 4,12, 2) = (/&
&1.2595e-03_jprb,1.4901e-03_jprb,1.4761e-03_jprb,1.3996e-03_jprb,1.2792e-03_jprb,1.1092e-03_jprb,&
&8.8159e-04_jprb,5.6210e-04_jprb,2.7747e-04_jprb,1.3609e-04_jprb,2.3913e-03_jprb/)
kao( :, 5,12, 2) = (/&
&1.4015e-03_jprb,1.6631e-03_jprb,1.6469e-03_jprb,1.5633e-03_jprb,1.4309e-03_jprb,1.2447e-03_jprb,&
&9.9327e-04_jprb,6.4127e-04_jprb,3.2131e-04_jprb,1.6049e-04_jprb,2.7230e-03_jprb/)
kao( :, 1,13, 2) = (/&
&7.0404e-04_jprb,8.5653e-04_jprb,8.5583e-04_jprb,8.1887e-04_jprb,7.5123e-04_jprb,6.5123e-04_jprb,&
&5.1170e-04_jprb,3.1408e-04_jprb,1.4547e-04_jprb,6.5608e-05_jprb,1.2897e-03_jprb/)
kao( :, 2,13, 2) = (/&
&8.3008e-04_jprb,9.9639e-04_jprb,9.8845e-04_jprb,9.3911e-04_jprb,8.5990e-04_jprb,7.4464e-04_jprb,&
&5.8802e-04_jprb,3.6685e-04_jprb,1.7398e-04_jprb,8.0807e-05_jprb,1.5096e-03_jprb/)
kao( :, 3,13, 2) = (/&
&9.5290e-04_jprb,1.1338e-03_jprb,1.1232e-03_jprb,1.0653e-03_jprb,9.7462e-04_jprb,8.4434e-04_jprb,&
&6.7107e-04_jprb,4.2462e-04_jprb,2.0511e-04_jprb,9.7336e-05_jprb,1.7467e-03_jprb/)
kao( :, 4,13, 2) = (/&
&1.0727e-03_jprb,1.2739e-03_jprb,1.2624e-03_jprb,1.1971e-03_jprb,1.0958e-03_jprb,9.5214e-04_jprb,&
&7.5999e-04_jprb,4.8760e-04_jprb,2.3902e-04_jprb,1.1564e-04_jprb,2.0029e-03_jprb/)
kao( :, 5,13, 2) = (/&
&1.1912e-03_jprb,1.4186e-03_jprb,1.4067e-03_jprb,1.3365e-03_jprb,1.2243e-03_jprb,1.0674e-03_jprb,&
&8.5545e-04_jprb,5.5580e-04_jprb,2.7627e-04_jprb,1.3629e-04_jprb,2.2773e-03_jprb/)
kao( :, 1, 1, 3) = (/&
&1.5976e-02_jprb,1.8568e-02_jprb,1.8677e-02_jprb,1.8308e-02_jprb,1.7430e-02_jprb,1.5980e-02_jprb,&
&1.3794e-02_jprb,1.0032e-02_jprb,5.6593e-03_jprb,3.1315e-03_jprb,1.4725e-03_jprb/)
kao( :, 2, 1, 3) = (/&
&1.7009e-02_jprb,1.9983e-02_jprb,2.0158e-02_jprb,1.9765e-02_jprb,1.8846e-02_jprb,1.7308e-02_jprb,&
&1.4965e-02_jprb,1.0920e-02_jprb,6.2447e-03_jprb,3.5291e-03_jprb,1.7476e-03_jprb/)
kao( :, 3, 1, 3) = (/&
&1.8075e-02_jprb,2.1456e-02_jprb,2.1662e-02_jprb,2.1259e-02_jprb,2.0298e-02_jprb,1.8677e-02_jprb,&
&1.6168e-02_jprb,1.1845e-02_jprb,6.8970e-03_jprb,3.9734e-03_jprb,2.0647e-03_jprb/)
kao( :, 4, 1, 3) = (/&
&1.9173e-02_jprb,2.2980e-02_jprb,2.3194e-02_jprb,2.2786e-02_jprb,2.1822e-02_jprb,2.0115e-02_jprb,&
&1.7401e-02_jprb,1.2827e-02_jprb,7.6128e-03_jprb,4.4580e-03_jprb,2.4335e-03_jprb/)
kao( :, 5, 1, 3) = (/&
&2.0338e-02_jprb,2.4533e-02_jprb,2.4778e-02_jprb,2.4397e-02_jprb,2.3401e-02_jprb,2.1590e-02_jprb,&
&1.8677e-02_jprb,1.3858e-02_jprb,8.3792e-03_jprb,4.9858e-03_jprb,2.8649e-03_jprb/)
kao( :, 1, 2, 3) = (/&
&1.3803e-02_jprb,1.6030e-02_jprb,1.6037e-02_jprb,1.5594e-02_jprb,1.4756e-02_jprb,1.3459e-02_jprb,&
&1.1617e-02_jprb,8.5122e-03_jprb,4.8022e-03_jprb,2.6569e-03_jprb,1.3182e-03_jprb/)
kao( :, 2, 2, 3) = (/&
&1.4747e-02_jprb,1.7312e-02_jprb,1.7346e-02_jprb,1.6863e-02_jprb,1.5968e-02_jprb,1.4592e-02_jprb,&
&1.2613e-02_jprb,9.2706e-03_jprb,5.3102e-03_jprb,3.0023e-03_jprb,1.5460e-03_jprb/)
kao( :, 3, 2, 3) = (/&
&1.5720e-02_jprb,1.8638e-02_jprb,1.8676e-02_jprb,1.8166e-02_jprb,1.7228e-02_jprb,1.5775e-02_jprb,&
&1.3646e-02_jprb,1.0060e-02_jprb,5.8750e-03_jprb,3.3882e-03_jprb,1.8045e-03_jprb/)
kao( :, 4, 2, 3) = (/&
&1.6750e-02_jprb,1.9993e-02_jprb,2.0028e-02_jprb,1.9499e-02_jprb,1.8542e-02_jprb,1.7020e-02_jprb,&
&1.4712e-02_jprb,1.0896e-02_jprb,6.4908e-03_jprb,3.8125e-03_jprb,2.0990e-03_jprb/)
kao( :, 5, 2, 3) = (/&
&1.7833e-02_jprb,2.1360e-02_jprb,2.1424e-02_jprb,2.0911e-02_jprb,1.9906e-02_jprb,1.8307e-02_jprb,&
&1.5816e-02_jprb,1.1769e-02_jprb,7.1573e-03_jprb,4.2773e-03_jprb,2.4433e-03_jprb/)
kao( :, 1, 3, 3) = (/&
&1.1661e-02_jprb,1.3546e-02_jprb,1.3524e-02_jprb,1.3093e-02_jprb,1.2307e-02_jprb,1.1159e-02_jprb,&
&9.5780e-03_jprb,7.0484e-03_jprb,3.9675e-03_jprb,2.1846e-03_jprb,1.2406e-03_jprb/)
kao( :, 2, 3, 3) = (/&
&1.2503e-02_jprb,1.4707e-02_jprb,1.4691e-02_jprb,1.4206e-02_jprb,1.3360e-02_jprb,1.2110e-02_jprb,&
&1.0409e-02_jprb,7.6788e-03_jprb,4.3933e-03_jprb,2.4719e-03_jprb,1.4298e-03_jprb/)
kao( :, 3, 3, 3) = (/&
&1.3391e-02_jprb,1.5887e-02_jprb,1.5874e-02_jprb,1.5334e-02_jprb,1.4440e-02_jprb,1.3111e-02_jprb,&
&1.1280e-02_jprb,8.3388e-03_jprb,4.8688e-03_jprb,2.7958e-03_jprb,1.6523e-03_jprb/)
kao( :, 4, 3, 3) = (/&
&1.4336e-02_jprb,1.7085e-02_jprb,1.7069e-02_jprb,1.6495e-02_jprb,1.5553e-02_jprb,1.4166e-02_jprb,&
&1.2195e-02_jprb,9.0457e-03_jprb,5.3867e-03_jprb,3.1533e-03_jprb,1.9090e-03_jprb/)
kao( :, 5, 3, 3) = (/&
&1.5320e-02_jprb,1.8321e-02_jprb,1.8292e-02_jprb,1.7706e-02_jprb,1.6704e-02_jprb,1.5265e-02_jprb,&
&1.3148e-02_jprb,9.7836e-03_jprb,5.9483e-03_jprb,3.5492e-03_jprb,2.2059e-03_jprb/)
kao( :, 1, 4, 3) = (/&
&9.7449e-03_jprb,1.1294e-02_jprb,1.1258e-02_jprb,1.0884e-02_jprb,1.0199e-02_jprb,9.2227e-03_jprb,&
&7.8658e-03_jprb,5.7767e-03_jprb,3.2406e-03_jprb,1.7708e-03_jprb,1.2728e-03_jprb/)
kao( :, 2, 4, 3) = (/&
&1.0487e-02_jprb,1.2330e-02_jprb,1.2286e-02_jprb,1.1862e-02_jprb,1.1122e-02_jprb,1.0046e-02_jprb,&
&8.5629e-03_jprb,6.2952e-03_jprb,3.5929e-03_jprb,2.0093e-03_jprb,1.4326e-03_jprb/)
kao( :, 3, 4, 3) = (/&
&1.1282e-02_jprb,1.3369e-02_jprb,1.3332e-02_jprb,1.2857e-02_jprb,1.2064e-02_jprb,1.0901e-02_jprb,&
&9.2930e-03_jprb,6.8463e-03_jprb,3.9872e-03_jprb,2.2770e-03_jprb,1.6227e-03_jprb/)
kao( :, 4, 4, 3) = (/&
&1.2130e-02_jprb,1.4435e-02_jprb,1.4396e-02_jprb,1.3883e-02_jprb,1.3026e-02_jprb,1.1786e-02_jprb,&
&1.0067e-02_jprb,7.4371e-03_jprb,4.4153e-03_jprb,2.5725e-03_jprb,1.8437e-03_jprb/)
kao( :, 5, 4, 3) = (/&
&1.3022e-02_jprb,1.5544e-02_jprb,1.5501e-02_jprb,1.4941e-02_jprb,1.4007e-02_jprb,1.2708e-02_jprb,&
&1.0876e-02_jprb,8.0666e-03_jprb,4.8767e-03_jprb,2.9035e-03_jprb,2.1000e-03_jprb/)
kao( :, 1, 5, 3) = (/&
&8.1183e-03_jprb,9.3706e-03_jprb,9.3339e-03_jprb,9.0036e-03_jprb,8.4209e-03_jprb,7.5832e-03_jprb,&
&6.4445e-03_jprb,4.7331e-03_jprb,2.6371e-03_jprb,1.4269e-03_jprb,1.3512e-03_jprb/)
kao( :, 2, 5, 3) = (/&
&8.7619e-03_jprb,1.0271e-02_jprb,1.0226e-02_jprb,9.8533e-03_jprb,9.2177e-03_jprb,8.3034e-03_jprb,&
&7.0466e-03_jprb,5.1625e-03_jprb,2.9261e-03_jprb,1.6222e-03_jprb,1.4975e-03_jprb/)
kao( :, 3, 5, 3) = (/&
&9.4590e-03_jprb,1.1191e-02_jprb,1.1132e-02_jprb,1.0717e-02_jprb,1.0035e-02_jprb,9.0438e-03_jprb,&
&7.6825e-03_jprb,5.6186e-03_jprb,3.2487e-03_jprb,1.8419e-03_jprb,1.6628e-03_jprb/)
kao( :, 4, 5, 3) = (/&
&1.0214e-02_jprb,1.2129e-02_jprb,1.2065e-02_jprb,1.1613e-02_jprb,1.0874e-02_jprb,9.8104e-03_jprb,&
&8.3376e-03_jprb,6.1127e-03_jprb,3.6040e-03_jprb,2.0844e-03_jprb,1.8526e-03_jprb/)
kao( :, 5, 5, 3) = (/&
&1.1012e-02_jprb,1.3112e-02_jprb,1.3045e-02_jprb,1.2543e-02_jprb,1.1733e-02_jprb,1.0605e-02_jprb,&
&9.0222e-03_jprb,6.6408e-03_jprb,3.9796e-03_jprb,2.3572e-03_jprb,2.0770e-03_jprb/)
kao( :, 1, 6, 3) = (/&
&6.7387e-03_jprb,7.7194e-03_jprb,7.6902e-03_jprb,7.3986e-03_jprb,6.9016e-03_jprb,6.1800e-03_jprb,&
&5.2304e-03_jprb,3.8605e-03_jprb,2.1393e-03_jprb,1.1384e-03_jprb,1.3809e-03_jprb/)
kao( :, 2, 6, 3) = (/&
&7.2904e-03_jprb,8.4901e-03_jprb,8.4559e-03_jprb,8.1341e-03_jprb,7.5897e-03_jprb,6.8043e-03_jprb,&
&5.7497e-03_jprb,4.2219e-03_jprb,2.3703e-03_jprb,1.2951e-03_jprb,1.5336e-03_jprb/)
kao( :, 3, 6, 3) = (/&
&7.8883e-03_jprb,9.2955e-03_jprb,9.2345e-03_jprb,8.8797e-03_jprb,8.2936e-03_jprb,7.4421e-03_jprb,&
&6.2952e-03_jprb,4.6028e-03_jprb,2.6285e-03_jprb,1.4716e-03_jprb,1.6931e-03_jprb/)
kao( :, 4, 6, 3) = (/&
&8.5494e-03_jprb,1.0121e-02_jprb,1.0046e-02_jprb,9.6522e-03_jprb,9.0176e-03_jprb,8.1042e-03_jprb,&
&6.8613e-03_jprb,5.0179e-03_jprb,2.9165e-03_jprb,1.6693e-03_jprb,1.8690e-03_jprb/)
kao( :, 5, 6, 3) = (/&
&9.2455e-03_jprb,1.0989e-02_jprb,1.0902e-02_jprb,1.0465e-02_jprb,9.7689e-03_jprb,8.7913e-03_jprb,&
&7.4494e-03_jprb,5.4572e-03_jprb,3.2276e-03_jprb,1.8909e-03_jprb,2.0643e-03_jprb/)
kao( :, 1, 7, 3) = (/&
&5.5708e-03_jprb,6.3303e-03_jprb,6.2934e-03_jprb,6.0276e-03_jprb,5.6127e-03_jprb,5.0058e-03_jprb,&
&4.2172e-03_jprb,3.1142e-03_jprb,1.7288e-03_jprb,9.0214e-04_jprb,1.3580e-03_jprb/)
kao( :, 2, 7, 3) = (/&
&6.0396e-03_jprb,6.9771e-03_jprb,6.9412e-03_jprb,6.6559e-03_jprb,6.1993e-03_jprb,5.5301e-03_jprb,&
&4.6524e-03_jprb,3.4207e-03_jprb,1.9119e-03_jprb,1.0257e-03_jprb,1.5329e-03_jprb/)
kao( :, 3, 7, 3) = (/&
&6.5450e-03_jprb,7.6646e-03_jprb,7.6059e-03_jprb,7.3014e-03_jprb,6.8031e-03_jprb,6.0741e-03_jprb,&
&5.1130e-03_jprb,3.7412e-03_jprb,2.1172e-03_jprb,1.1666e-03_jprb,1.7255e-03_jprb/)
kao( :, 4, 7, 3) = (/&
&7.1105e-03_jprb,8.3764e-03_jprb,8.3038e-03_jprb,7.9705e-03_jprb,7.4282e-03_jprb,6.6393e-03_jprb,&
&5.5928e-03_jprb,4.0886e-03_jprb,2.3470e-03_jprb,1.3258e-03_jprb,1.9241e-03_jprb/)
kao( :, 5, 7, 3) = (/&
&7.7089e-03_jprb,9.1270e-03_jprb,9.0467e-03_jprb,8.6734e-03_jprb,8.0760e-03_jprb,7.2286e-03_jprb,&
&6.0941e-03_jprb,4.4574e-03_jprb,2.6042e-03_jprb,1.5049e-03_jprb,2.1289e-03_jprb/)
kao( :, 1, 8, 3) = (/&
&4.5931e-03_jprb,5.1838e-03_jprb,5.1398e-03_jprb,4.8986e-03_jprb,4.5439e-03_jprb,4.0450e-03_jprb,&
&3.3970e-03_jprb,2.5021e-03_jprb,1.3915e-03_jprb,7.1461e-04_jprb,1.4342e-03_jprb/)
kao( :, 2, 8, 3) = (/&
&4.9923e-03_jprb,5.7205e-03_jprb,5.6835e-03_jprb,5.4255e-03_jprb,5.0420e-03_jprb,4.4815e-03_jprb,&
&3.7569e-03_jprb,2.7595e-03_jprb,1.5378e-03_jprb,8.1223e-04_jprb,1.6265e-03_jprb/)
kao( :, 3, 8, 3) = (/&
&5.4187e-03_jprb,6.3059e-03_jprb,6.2512e-03_jprb,5.9779e-03_jprb,5.5552e-03_jprb,4.9397e-03_jprb,&
&4.1407e-03_jprb,3.0283e-03_jprb,1.7020e-03_jprb,9.2374e-04_jprb,1.8395e-03_jprb/)
kao( :, 4, 8, 3) = (/&
&5.8951e-03_jprb,6.9159e-03_jprb,6.8456e-03_jprb,6.5555e-03_jprb,6.0927e-03_jprb,5.4203e-03_jprb,&
&4.5434e-03_jprb,3.3140e-03_jprb,1.8874e-03_jprb,1.0500e-03_jprb,2.0723e-03_jprb/)
kao( :, 5, 8, 3) = (/&
&6.4067e-03_jprb,7.5583e-03_jprb,7.4822e-03_jprb,7.1624e-03_jprb,6.6529e-03_jprb,5.9218e-03_jprb,&
&4.9680e-03_jprb,3.6203e-03_jprb,2.0980e-03_jprb,1.1933e-03_jprb,2.3247e-03_jprb/)
kao( :, 1, 9, 3) = (/&
&3.7723e-03_jprb,4.2334e-03_jprb,4.1819e-03_jprb,3.9649e-03_jprb,3.6588e-03_jprb,3.2575e-03_jprb,&
&2.7305e-03_jprb,2.0072e-03_jprb,1.1193e-03_jprb,5.6741e-04_jprb,1.9860e-03_jprb/)
kao( :, 2, 9, 3) = (/&
&4.1112e-03_jprb,4.6764e-03_jprb,4.6357e-03_jprb,4.4068e-03_jprb,4.0793e-03_jprb,3.6198e-03_jprb,&
&3.0290e-03_jprb,2.2191e-03_jprb,1.2358e-03_jprb,6.4340e-04_jprb,2.2587e-03_jprb/)
kao( :, 3, 9, 3) = (/&
&4.4681e-03_jprb,5.1657e-03_jprb,5.1169e-03_jprb,4.8742e-03_jprb,4.5148e-03_jprb,4.0038e-03_jprb,&
&3.3466e-03_jprb,2.4441e-03_jprb,1.3675e-03_jprb,7.3070e-04_jprb,2.5668e-03_jprb/)
kao( :, 4, 9, 3) = (/&
&4.8668e-03_jprb,5.6866e-03_jprb,5.6264e-03_jprb,5.3677e-03_jprb,4.9748e-03_jprb,4.4113e-03_jprb,&
&3.6848e-03_jprb,2.6780e-03_jprb,1.5165e-03_jprb,8.3094e-04_jprb,2.9044e-03_jprb/)
kao( :, 5, 9, 3) = (/&
&5.3024e-03_jprb,6.2338e-03_jprb,6.1683e-03_jprb,5.8906e-03_jprb,5.4560e-03_jprb,4.8416e-03_jprb,&
&4.0418e-03_jprb,2.9316e-03_jprb,1.6868e-03_jprb,9.4494e-04_jprb,3.2758e-03_jprb/)
kao( :, 1,10, 3) = (/&
&3.1048e-03_jprb,3.4713e-03_jprb,3.4149e-03_jprb,3.2215e-03_jprb,2.9606e-03_jprb,2.6323e-03_jprb,&
&2.2040e-03_jprb,1.6183e-03_jprb,9.0511e-04_jprb,4.5442e-04_jprb,3.4066e-03_jprb/)
kao( :, 2,10, 3) = (/&
&3.3920e-03_jprb,3.8387e-03_jprb,3.7924e-03_jprb,3.5898e-03_jprb,3.3084e-03_jprb,2.9358e-03_jprb,&
&2.4507e-03_jprb,1.7915e-03_jprb,9.9919e-04_jprb,5.1342e-04_jprb,3.8889e-03_jprb/)
kao( :, 3,10, 3) = (/&
&3.6957e-03_jprb,4.2459e-03_jprb,4.1994e-03_jprb,3.9831e-03_jprb,3.6769e-03_jprb,3.2571e-03_jprb,&
&2.7157e-03_jprb,1.9778e-03_jprb,1.1048e-03_jprb,5.8256e-04_jprb,4.4355e-03_jprb/)
kao( :, 4,10, 3) = (/&
&4.0318e-03_jprb,4.6867e-03_jprb,4.6340e-03_jprb,4.4000e-03_jprb,4.0676e-03_jprb,3.6005e-03_jprb,&
&2.9971e-03_jprb,2.1730e-03_jprb,1.2259e-03_jprb,6.6297e-04_jprb,5.0564e-03_jprb/)
kao( :, 5,10, 3) = (/&
&4.4033e-03_jprb,5.1538e-03_jprb,5.0961e-03_jprb,4.8470e-03_jprb,4.4796e-03_jprb,3.9660e-03_jprb,&
&3.2977e-03_jprb,2.3839e-03_jprb,1.3631e-03_jprb,7.5476e-04_jprb,5.7516e-03_jprb/)
kao( :, 1,11, 3) = (/&
&2.6765e-03_jprb,2.9827e-03_jprb,2.9227e-03_jprb,2.7508e-03_jprb,2.5220e-03_jprb,2.2363e-03_jprb,&
&1.8676e-03_jprb,1.3675e-03_jprb,7.6612e-04_jprb,3.8447e-04_jprb,4.0480e-03_jprb/)
kao( :, 2,11, 3) = (/&
&2.9286e-03_jprb,3.3040e-03_jprb,3.2538e-03_jprb,3.0703e-03_jprb,2.8192e-03_jprb,2.4962e-03_jprb,&
&2.0772e-03_jprb,1.5146e-03_jprb,8.4625e-04_jprb,4.3409e-04_jprb,4.6666e-03_jprb/)
kao( :, 3,11, 3) = (/&
&3.2003e-03_jprb,3.6648e-03_jprb,3.6125e-03_jprb,3.4113e-03_jprb,3.1362e-03_jprb,2.7724e-03_jprb,&
&2.3029e-03_jprb,1.6722e-03_jprb,9.3679e-04_jprb,4.9229e-04_jprb,5.3654e-03_jprb/)
kao( :, 4,11, 3) = (/&
&3.5051e-03_jprb,4.0531e-03_jprb,3.9947e-03_jprb,3.7750e-03_jprb,3.4761e-03_jprb,3.0693e-03_jprb,&
&2.5452e-03_jprb,1.8406e-03_jprb,1.0404e-03_jprb,5.6079e-04_jprb,6.1512e-03_jprb/)
kao( :, 5,11, 3) = (/&
&3.8321e-03_jprb,4.4649e-03_jprb,4.4022e-03_jprb,4.1654e-03_jprb,3.8377e-03_jprb,3.3874e-03_jprb,&
&2.8053e-03_jprb,2.0226e-03_jprb,1.1574e-03_jprb,6.3974e-04_jprb,7.0160e-03_jprb/)
kao( :, 1,12, 3) = (/&
&2.3036e-03_jprb,2.5583e-03_jprb,2.4978e-03_jprb,2.3445e-03_jprb,2.1430e-03_jprb,1.8944e-03_jprb,&
&1.5761e-03_jprb,1.1517e-03_jprb,6.4556e-04_jprb,3.2349e-04_jprb,4.0392e-03_jprb/)
kao( :, 2,12, 3) = (/&
&2.5244e-03_jprb,2.8452e-03_jprb,2.7899e-03_jprb,2.6237e-03_jprb,2.3996e-03_jprb,2.1171e-03_jprb,&
&1.7537e-03_jprb,1.2751e-03_jprb,7.1384e-04_jprb,3.6513e-04_jprb,4.6690e-03_jprb/)
kao( :, 3,12, 3) = (/&
&2.7664e-03_jprb,3.1661e-03_jprb,3.1080e-03_jprb,2.9230e-03_jprb,2.6751e-03_jprb,2.3552e-03_jprb,&
&1.9462e-03_jprb,1.4075e-03_jprb,7.9075e-04_jprb,4.1435e-04_jprb,5.3798e-03_jprb/)
kao( :, 4,12, 3) = (/&
&3.0371e-03_jprb,3.5090e-03_jprb,3.4460e-03_jprb,3.2437e-03_jprb,2.9706e-03_jprb,2.6114e-03_jprb,&
&2.1543e-03_jprb,1.5507e-03_jprb,8.7926e-04_jprb,4.7250e-04_jprb,6.1711e-03_jprb/)
kao( :, 5,12, 3) = (/&
&3.3239e-03_jprb,3.8709e-03_jprb,3.8063e-03_jprb,3.5842e-03_jprb,3.2855e-03_jprb,2.8872e-03_jprb,&
&2.3774e-03_jprb,1.7073e-03_jprb,9.7951e-04_jprb,5.3974e-04_jprb,7.0329e-03_jprb/)
kao( :, 1,13, 3) = (/&
&1.9693e-03_jprb,2.1819e-03_jprb,2.1260e-03_jprb,1.9917e-03_jprb,1.8142e-03_jprb,1.5977e-03_jprb,&
&1.3230e-03_jprb,9.6163e-04_jprb,5.3722e-04_jprb,2.6914e-04_jprb,3.4457e-03_jprb/)
kao( :, 2,13, 3) = (/&
&2.1605e-03_jprb,2.4363e-03_jprb,2.3825e-03_jprb,2.2341e-03_jprb,2.0358e-03_jprb,1.7890e-03_jprb,&
&1.4743e-03_jprb,1.0637e-03_jprb,5.9461e-04_jprb,3.0420e-04_jprb,3.9859e-03_jprb/)
kao( :, 3,13, 3) = (/&
&2.3729e-03_jprb,2.7175e-03_jprb,2.6607e-03_jprb,2.4950e-03_jprb,2.2744e-03_jprb,1.9956e-03_jprb,&
&1.6383e-03_jprb,1.1739e-03_jprb,6.5958e-04_jprb,3.4564e-04_jprb,4.5954e-03_jprb/)
kao( :, 4,13, 3) = (/&
&2.6042e-03_jprb,3.0147e-03_jprb,2.9558e-03_jprb,2.7741e-03_jprb,2.5310e-03_jprb,2.2169e-03_jprb,&
&1.8165e-03_jprb,1.2954e-03_jprb,7.3516e-04_jprb,3.9462e-04_jprb,5.2719e-03_jprb/)
kao( :, 5,13, 3) = (/&
&2.8484e-03_jprb,3.3273e-03_jprb,3.2687e-03_jprb,3.0678e-03_jprb,2.8024e-03_jprb,2.4543e-03_jprb,&
&2.0064e-03_jprb,1.4291e-03_jprb,8.2095e-04_jprb,4.5105e-04_jprb,5.9980e-03_jprb/)
kao( :, 1, 1, 4) = (/&
&3.2206e-02_jprb,3.7616e-02_jprb,3.7442e-02_jprb,3.5602e-02_jprb,3.2848e-02_jprb,2.9212e-02_jprb,&
&2.4411e-02_jprb,1.8093e-02_jprb,1.1087e-02_jprb,6.4396e-03_jprb,4.1579e-03_jprb/)
kao( :, 2, 1, 4) = (/&
&3.3985e-02_jprb,4.0141e-02_jprb,4.0066e-02_jprb,3.8220e-02_jprb,3.5310e-02_jprb,3.1363e-02_jprb,&
&2.6274e-02_jprb,1.9563e-02_jprb,1.2137e-02_jprb,7.2344e-03_jprb,4.9421e-03_jprb/)
kao( :, 3, 1, 4) = (/&
&3.5840e-02_jprb,4.2657e-02_jprb,4.2657e-02_jprb,4.0828e-02_jprb,3.7715e-02_jprb,3.3592e-02_jprb,&
&2.8238e-02_jprb,2.1146e-02_jprb,1.3263e-02_jprb,8.1243e-03_jprb,5.8370e-03_jprb/)
kao( :, 4, 1, 4) = (/&
&3.7710e-02_jprb,4.5086e-02_jprb,4.5284e-02_jprb,4.3358e-02_jprb,4.0123e-02_jprb,3.5805e-02_jprb,&
&3.0308e-02_jprb,2.2810e-02_jprb,1.4502e-02_jprb,9.1329e-03_jprb,6.8906e-03_jprb/)
kao( :, 5, 1, 4) = (/&
&3.9546e-02_jprb,4.7465e-02_jprb,4.7884e-02_jprb,4.5873e-02_jprb,4.2558e-02_jprb,3.8078e-02_jprb,&
&3.2453e-02_jprb,2.4580e-02_jprb,1.5839e-02_jprb,1.0280e-02_jprb,8.0935e-03_jprb/)
kao( :, 1, 2, 4) = (/&
&2.8104e-02_jprb,3.2464e-02_jprb,3.2358e-02_jprb,3.0703e-02_jprb,2.8262e-02_jprb,2.5049e-02_jprb,&
&2.0887e-02_jprb,1.5371e-02_jprb,9.5321e-03_jprb,5.5766e-03_jprb,3.4128e-03_jprb/)
kao( :, 2, 2, 4) = (/&
&2.9709e-02_jprb,3.4733e-02_jprb,3.4706e-02_jprb,3.3029e-02_jprb,3.0407e-02_jprb,2.6975e-02_jprb,&
&2.2525e-02_jprb,1.6668e-02_jprb,1.0444e-02_jprb,6.2493e-03_jprb,4.0210e-03_jprb/)
kao( :, 3, 2, 4) = (/&
&3.1368e-02_jprb,3.6997e-02_jprb,3.7038e-02_jprb,3.5309e-02_jprb,3.2541e-02_jprb,2.8948e-02_jprb,&
&2.4248e-02_jprb,1.8078e-02_jprb,1.1429e-02_jprb,7.0025e-03_jprb,4.7234e-03_jprb/)
kao( :, 4, 2, 4) = (/&
&3.3025e-02_jprb,3.9194e-02_jprb,3.9406e-02_jprb,3.7566e-02_jprb,3.4724e-02_jprb,3.0907e-02_jprb,&
&2.6047e-02_jprb,1.9552e-02_jprb,1.2511e-02_jprb,7.8460e-03_jprb,5.5531e-03_jprb/)
kao( :, 5, 2, 4) = (/&
&3.4658e-02_jprb,4.1417e-02_jprb,4.1750e-02_jprb,3.9870e-02_jprb,3.6925e-02_jprb,3.2920e-02_jprb,&
&2.7922e-02_jprb,2.1122e-02_jprb,1.3687e-02_jprb,8.7925e-03_jprb,6.5017e-03_jprb/)
kao( :, 1, 3, 4) = (/&
&2.4251e-02_jprb,2.7585e-02_jprb,2.7414e-02_jprb,2.5896e-02_jprb,2.3769e-02_jprb,2.1015e-02_jprb,&
&1.7490e-02_jprb,1.2799e-02_jprb,7.9859e-03_jprb,4.6822e-03_jprb,3.0167e-03_jprb/)
kao( :, 2, 3, 4) = (/&
&2.5692e-02_jprb,2.9548e-02_jprb,2.9492e-02_jprb,2.7935e-02_jprb,2.5630e-02_jprb,2.2680e-02_jprb,&
&1.8918e-02_jprb,1.3904e-02_jprb,8.7584e-03_jprb,5.2529e-03_jprb,3.4804e-03_jprb/)
kao( :, 3, 3, 4) = (/&
&2.7159e-02_jprb,3.1559e-02_jprb,3.1551e-02_jprb,2.9932e-02_jprb,2.7503e-02_jprb,2.4395e-02_jprb,&
&2.0399e-02_jprb,1.5119e-02_jprb,9.5888e-03_jprb,5.8905e-03_jprb,4.0103e-03_jprb/)
kao( :, 4, 3, 4) = (/&
&2.8607e-02_jprb,3.3560e-02_jprb,3.3603e-02_jprb,3.1948e-02_jprb,2.9447e-02_jprb,2.6126e-02_jprb,&
&2.1928e-02_jprb,1.6399e-02_jprb,1.0499e-02_jprb,6.6008e-03_jprb,4.6200e-03_jprb/)
kao( :, 5, 3, 4) = (/&
&3.0051e-02_jprb,3.5562e-02_jprb,3.5683e-02_jprb,3.4039e-02_jprb,3.1430e-02_jprb,2.7908e-02_jprb,&
&2.3518e-02_jprb,1.7750e-02_jprb,1.1493e-02_jprb,7.3863e-03_jprb,5.3130e-03_jprb/)
kao( :, 1, 4, 4) = (/&
&2.0821e-02_jprb,2.3399e-02_jprb,2.3111e-02_jprb,2.1751e-02_jprb,1.9864e-02_jprb,1.7485e-02_jprb,&
&1.4530e-02_jprb,1.0587e-02_jprb,6.6174e-03_jprb,3.8560e-03_jprb,2.7540e-03_jprb/)
kao( :, 2, 4, 4) = (/&
&2.2145e-02_jprb,2.5108e-02_jprb,2.4937e-02_jprb,2.3519e-02_jprb,2.1458e-02_jprb,1.8898e-02_jprb,&
&1.5727e-02_jprb,1.1528e-02_jprb,7.2647e-03_jprb,4.3306e-03_jprb,3.1427e-03_jprb/)
kao( :, 3, 4, 4) = (/&
&2.3458e-02_jprb,2.6892e-02_jprb,2.6767e-02_jprb,2.5244e-02_jprb,2.3063e-02_jprb,2.0374e-02_jprb,&
&1.6989e-02_jprb,1.2556e-02_jprb,7.9663e-03_jprb,4.8678e-03_jprb,3.5922e-03_jprb/)
kao( :, 4, 4, 4) = (/&
&2.4742e-02_jprb,2.8684e-02_jprb,2.8567e-02_jprb,2.7002e-02_jprb,2.4744e-02_jprb,2.1891e-02_jprb,&
&1.8302e-02_jprb,1.3637e-02_jprb,8.7323e-03_jprb,5.4756e-03_jprb,4.1087e-03_jprb/)
kao( :, 5, 4, 4) = (/&
&2.6031e-02_jprb,3.0478e-02_jprb,3.0373e-02_jprb,2.8831e-02_jprb,2.6502e-02_jprb,2.3472e-02_jprb,&
&1.9656e-02_jprb,1.4775e-02_jprb,9.5721e-03_jprb,6.1469e-03_jprb,4.6820e-03_jprb/)
kao( :, 1, 5, 4) = (/&
&1.7749e-02_jprb,1.9809e-02_jprb,1.9474e-02_jprb,1.8308e-02_jprb,1.6656e-02_jprb,1.4612e-02_jprb,&
&1.2090e-02_jprb,8.7523e-03_jprb,5.4506e-03_jprb,3.1594e-03_jprb,2.6009e-03_jprb/)
kao( :, 2, 5, 4) = (/&
&1.8962e-02_jprb,2.1368e-02_jprb,2.1111e-02_jprb,1.9856e-02_jprb,1.8026e-02_jprb,1.5797e-02_jprb,&
&1.3087e-02_jprb,9.5480e-03_jprb,5.9920e-03_jprb,3.5465e-03_jprb,2.9383e-03_jprb/)
kao( :, 3, 5, 4) = (/&
&2.0156e-02_jprb,2.2955e-02_jprb,2.2766e-02_jprb,2.1370e-02_jprb,1.9402e-02_jprb,1.7036e-02_jprb,&
&1.4132e-02_jprb,1.0409e-02_jprb,6.5849e-03_jprb,3.9909e-03_jprb,3.3267e-03_jprb/)
kao( :, 4, 5, 4) = (/&
&2.1323e-02_jprb,2.4554e-02_jprb,2.4380e-02_jprb,2.2909e-02_jprb,2.0850e-02_jprb,1.8325e-02_jprb,&
&1.5252e-02_jprb,1.1317e-02_jprb,7.2332e-03_jprb,4.4966e-03_jprb,3.7667e-03_jprb/)
kao( :, 5, 5, 4) = (/&
&2.2499e-02_jprb,2.6158e-02_jprb,2.5975e-02_jprb,2.4497e-02_jprb,2.2360e-02_jprb,1.9686e-02_jprb,&
&1.6421e-02_jprb,1.2278e-02_jprb,7.9387e-03_jprb,5.0610e-03_jprb,4.2588e-03_jprb/)
kao( :, 1, 6, 4) = (/&
&1.5007e-02_jprb,1.6598e-02_jprb,1.6252e-02_jprb,1.5296e-02_jprb,1.3918e-02_jprb,1.2197e-02_jprb,&
&1.0070e-02_jprb,7.1973e-03_jprb,4.4418e-03_jprb,2.5632e-03_jprb,2.6270e-03_jprb/)
kao( :, 2, 6, 4) = (/&
&1.6096e-02_jprb,1.8008e-02_jprb,1.7715e-02_jprb,1.6668e-02_jprb,1.5117e-02_jprb,1.3217e-02_jprb,&
&1.0902e-02_jprb,7.8574e-03_jprb,4.8940e-03_jprb,2.8829e-03_jprb,2.9097e-03_jprb/)
kao( :, 3, 6, 4) = (/&
&1.7175e-02_jprb,1.9434e-02_jprb,1.9209e-02_jprb,1.8020e-02_jprb,1.6319e-02_jprb,1.4272e-02_jprb,&
&1.1772e-02_jprb,8.5712e-03_jprb,5.3927e-03_jprb,3.2482e-03_jprb,3.2462e-03_jprb/)
kao( :, 4, 6, 4) = (/&
&1.8239e-02_jprb,2.0847e-02_jprb,2.0666e-02_jprb,1.9382e-02_jprb,1.7575e-02_jprb,1.5371e-02_jprb,&
&1.2710e-02_jprb,9.3314e-03_jprb,5.9328e-03_jprb,3.6614e-03_jprb,3.6324e-03_jprb/)
kao( :, 5, 6, 4) = (/&
&1.9314e-02_jprb,2.2274e-02_jprb,2.2099e-02_jprb,2.0773e-02_jprb,1.8871e-02_jprb,1.6523e-02_jprb,&
&1.3707e-02_jprb,1.0147e-02_jprb,6.5230e-03_jprb,4.1212e-03_jprb,4.0664e-03_jprb/)
kao( :, 1, 7, 4) = (/&
&1.2562e-02_jprb,1.3749e-02_jprb,1.3412e-02_jprb,1.2652e-02_jprb,1.1501e-02_jprb,1.0078e-02_jprb,&
&8.3008e-03_jprb,5.8951e-03_jprb,3.5839e-03_jprb,2.0640e-03_jprb,2.8990e-03_jprb/)
kao( :, 2, 7, 4) = (/&
&1.3513e-02_jprb,1.4992e-02_jprb,1.4706e-02_jprb,1.3842e-02_jprb,1.2549e-02_jprb,1.0956e-02_jprb,&
&9.0265e-03_jprb,6.4348e-03_jprb,3.9618e-03_jprb,2.3233e-03_jprb,3.1544e-03_jprb/)
kao( :, 3, 7, 4) = (/&
&1.4463e-02_jprb,1.6248e-02_jprb,1.6003e-02_jprb,1.5021e-02_jprb,1.3588e-02_jprb,1.1865e-02_jprb,&
&9.7704e-03_jprb,7.0232e-03_jprb,4.3758e-03_jprb,2.6208e-03_jprb,3.4308e-03_jprb/)
kao( :, 4, 7, 4) = (/&
&1.5412e-02_jprb,1.7497e-02_jprb,1.7276e-02_jprb,1.6194e-02_jprb,1.4663e-02_jprb,1.2815e-02_jprb,&
&1.0574e-02_jprb,7.6491e-03_jprb,4.8284e-03_jprb,2.9535e-03_jprb,3.7526e-03_jprb/)
kao( :, 5, 7, 4) = (/&
&1.6381e-02_jprb,1.8748e-02_jprb,1.8546e-02_jprb,1.7402e-02_jprb,1.5774e-02_jprb,1.3800e-02_jprb,&
&1.1415e-02_jprb,8.3305e-03_jprb,5.3183e-03_jprb,3.3227e-03_jprb,4.1190e-03_jprb/)
kao( :, 1, 8, 4) = (/&
&1.0489e-02_jprb,1.1350e-02_jprb,1.1041e-02_jprb,1.0421e-02_jprb,9.4682e-03_jprb,8.2685e-03_jprb,&
&6.7870e-03_jprb,4.8019e-03_jprb,2.8904e-03_jprb,1.6552e-03_jprb,3.2034e-03_jprb/)
kao( :, 2, 8, 4) = (/&
&1.1308e-02_jprb,1.2427e-02_jprb,1.2159e-02_jprb,1.1459e-02_jprb,1.0373e-02_jprb,9.0374e-03_jprb,&
&7.4076e-03_jprb,5.2450e-03_jprb,3.1947e-03_jprb,1.8626e-03_jprb,3.5949e-03_jprb/)
kao( :, 3, 8, 4) = (/&
&1.2133e-02_jprb,1.3516e-02_jprb,1.3273e-02_jprb,1.2475e-02_jprb,1.1268e-02_jprb,9.8130e-03_jprb,&
&8.0528e-03_jprb,5.7311e-03_jprb,3.5370e-03_jprb,2.1011e-03_jprb,3.9889e-03_jprb/)
kao( :, 4, 8, 4) = (/&
&1.2965e-02_jprb,1.4611e-02_jprb,1.4368e-02_jprb,1.3473e-02_jprb,1.2174e-02_jprb,1.0625e-02_jprb,&
&8.7372e-03_jprb,6.2577e-03_jprb,3.9075e-03_jprb,2.3709e-03_jprb,4.3703e-03_jprb/)
kao( :, 5, 8, 4) = (/&
&1.3816e-02_jprb,1.5699e-02_jprb,1.5470e-02_jprb,1.4502e-02_jprb,1.3123e-02_jprb,1.1467e-02_jprb,&
&9.4537e-03_jprb,6.8298e-03_jprb,4.3093e-03_jprb,2.6663e-03_jprb,4.7512e-03_jprb/)
kao( :, 1, 9, 4) = (/&
&8.7568e-03_jprb,9.3693e-03_jprb,9.0975e-03_jprb,8.5800e-03_jprb,7.7896e-03_jprb,6.7645e-03_jprb,&
&5.5285e-03_jprb,3.9033e-03_jprb,2.3310e-03_jprb,1.3217e-03_jprb,4.5731e-03_jprb/)
kao( :, 2, 9, 4) = (/&
&9.4553e-03_jprb,1.0293e-02_jprb,1.0054e-02_jprb,9.4845e-03_jprb,8.5715e-03_jprb,7.4310e-03_jprb,&
&6.0526e-03_jprb,4.2651e-03_jprb,2.5747e-03_jprb,1.4878e-03_jprb,5.2597e-03_jprb/)
kao( :, 3, 9, 4) = (/&
&1.0173e-02_jprb,1.1238e-02_jprb,1.1012e-02_jprb,1.0364e-02_jprb,9.3410e-03_jprb,8.0964e-03_jprb,&
&6.6049e-03_jprb,4.6620e-03_jprb,2.8506e-03_jprb,1.6770e-03_jprb,5.9814e-03_jprb/)
kao( :, 4, 9, 4) = (/&
&1.0901e-02_jprb,1.2188e-02_jprb,1.1952e-02_jprb,1.1222e-02_jprb,1.0108e-02_jprb,8.7846e-03_jprb,&
&7.1864e-03_jprb,5.1051e-03_jprb,3.1528e-03_jprb,1.8913e-03_jprb,6.7372e-03_jprb/)
kao( :, 5, 9, 4) = (/&
&1.1643e-02_jprb,1.3136e-02_jprb,1.2896e-02_jprb,1.2091e-02_jprb,1.0918e-02_jprb,9.5045e-03_jprb,&
&7.7923e-03_jprb,5.5824e-03_jprb,3.4794e-03_jprb,2.1303e-03_jprb,7.5084e-03_jprb/)
kao( :, 1,10, 4) = (/&
&7.3210e-03_jprb,7.7682e-03_jprb,7.5348e-03_jprb,7.0910e-03_jprb,6.4276e-03_jprb,5.5555e-03_jprb,&
&4.5190e-03_jprb,3.1874e-03_jprb,1.8869e-03_jprb,1.0615e-03_jprb,8.5089e-03_jprb/)
kao( :, 2,10, 4) = (/&
&7.9160e-03_jprb,8.5578e-03_jprb,8.3513e-03_jprb,7.8702e-03_jprb,7.1056e-03_jprb,6.1307e-03_jprb,&
&4.9642e-03_jprb,3.4828e-03_jprb,2.0800e-03_jprb,1.1948e-03_jprb,9.8844e-03_jprb/)
kao( :, 3,10, 4) = (/&
&8.5286e-03_jprb,9.3757e-03_jprb,9.1726e-03_jprb,8.6301e-03_jprb,7.7707e-03_jprb,6.7003e-03_jprb,&
&5.4292e-03_jprb,3.8086e-03_jprb,2.3039e-03_jprb,1.3482e-03_jprb,1.1359e-02_jprb/)
kao( :, 4,10, 4) = (/&
&9.1631e-03_jprb,1.0191e-02_jprb,9.9769e-03_jprb,9.3788e-03_jprb,8.4243e-03_jprb,7.2793e-03_jprb,&
&5.9222e-03_jprb,4.1756e-03_jprb,2.5509e-03_jprb,1.5190e-03_jprb,1.2931e-02_jprb/)
kao( :, 5,10, 4) = (/&
&9.8113e-03_jprb,1.1015e-02_jprb,1.0788e-02_jprb,1.0124e-02_jprb,9.1153e-03_jprb,7.8926e-03_jprb,&
&6.4363e-03_jprb,4.5749e-03_jprb,2.8219e-03_jprb,1.7121e-03_jprb,1.4601e-02_jprb/)
kao( :, 1,11, 4) = (/&
&6.3238e-03_jprb,6.7320e-03_jprb,6.5341e-03_jprb,6.1432e-03_jprb,5.5500e-03_jprb,4.7770e-03_jprb,&
&3.8625e-03_jprb,2.7098e-03_jprb,1.5930e-03_jprb,8.9971e-04_jprb,1.0691e-02_jprb/)
kao( :, 2,11, 4) = (/&
&6.8377e-03_jprb,7.4132e-03_jprb,7.2351e-03_jprb,6.8044e-03_jprb,6.1328e-03_jprb,5.2698e-03_jprb,&
&4.2482e-03_jprb,2.9626e-03_jprb,1.7579e-03_jprb,1.0147e-03_jprb,1.2446e-02_jprb/)
kao( :, 3,11, 4) = (/&
&7.3680e-03_jprb,8.1117e-03_jprb,7.9281e-03_jprb,7.4556e-03_jprb,6.7022e-03_jprb,5.7552e-03_jprb,&
&4.6507e-03_jprb,3.2459e-03_jprb,1.9476e-03_jprb,1.1453e-03_jprb,1.4323e-02_jprb/)
kao( :, 4,11, 4) = (/&
&7.9250e-03_jprb,8.8100e-03_jprb,8.6199e-03_jprb,8.1042e-03_jprb,7.2716e-03_jprb,6.2615e-03_jprb,&
&5.0763e-03_jprb,3.5597e-03_jprb,2.1591e-03_jprb,1.2891e-03_jprb,1.6318e-02_jprb/)
kao( :, 5,11, 4) = (/&
&8.4995e-03_jprb,9.5310e-03_jprb,9.3303e-03_jprb,8.7684e-03_jprb,7.8755e-03_jprb,6.7950e-03_jprb,&
&5.5255e-03_jprb,3.9023e-03_jprb,2.3918e-03_jprb,1.4517e-03_jprb,1.8430e-02_jprb/)
kao( :, 1,12, 4) = (/&
&5.4239e-03_jprb,5.7942e-03_jprb,5.6254e-03_jprb,5.2775e-03_jprb,4.7538e-03_jprb,4.0783e-03_jprb,&
&3.2815e-03_jprb,2.2911e-03_jprb,1.3390e-03_jprb,7.5901e-04_jprb,1.1069e-02_jprb/)
kao( :, 2,12, 4) = (/&
&5.8650e-03_jprb,6.3756e-03_jprb,6.2146e-03_jprb,5.8301e-03_jprb,5.2465e-03_jprb,4.4949e-03_jprb,&
&3.6123e-03_jprb,2.5101e-03_jprb,1.4788e-03_jprb,8.5773e-04_jprb,1.2922e-02_jprb/)
kao( :, 3,12, 4) = (/&
&6.3326e-03_jprb,6.9605e-03_jprb,6.7926e-03_jprb,6.3822e-03_jprb,5.7295e-03_jprb,4.9116e-03_jprb,&
&3.9590e-03_jprb,2.7527e-03_jprb,1.6402e-03_jprb,9.6785e-04_jprb,1.4890e-02_jprb/)
kao( :, 4,12, 4) = (/&
&6.8197e-03_jprb,7.5612e-03_jprb,7.3901e-03_jprb,6.9407e-03_jprb,6.2248e-03_jprb,5.3513e-03_jprb,&
&4.3255e-03_jprb,3.0215e-03_jprb,1.8202e-03_jprb,1.0893e-03_jprb,1.6968e-02_jprb/)
kao( :, 5,12, 4) = (/&
&7.3239e-03_jprb,8.1869e-03_jprb,8.0102e-03_jprb,7.5305e-03_jprb,6.7534e-03_jprb,5.8184e-03_jprb,&
&4.7200e-03_jprb,3.3172e-03_jprb,2.0173e-03_jprb,1.2265e-03_jprb,1.9174e-02_jprb/)
kao( :, 1,13, 4) = (/&
&4.6050e-03_jprb,4.9342e-03_jprb,4.7817e-03_jprb,4.4662e-03_jprb,4.0147e-03_jprb,3.4350e-03_jprb,&
&2.7500e-03_jprb,1.9135e-03_jprb,1.1150e-03_jprb,6.3435e-04_jprb,9.6482e-03_jprb/)
kao( :, 2,13, 4) = (/&
&4.9867e-03_jprb,5.4199e-03_jprb,5.2643e-03_jprb,4.9240e-03_jprb,4.4219e-03_jprb,3.7782e-03_jprb,&
&3.0269e-03_jprb,2.1006e-03_jprb,1.2335e-03_jprb,7.1745e-04_jprb,1.1271e-02_jprb/)
kao( :, 3,13, 4) = (/&
&5.3971e-03_jprb,5.9114e-03_jprb,5.7510e-03_jprb,5.3855e-03_jprb,4.8287e-03_jprb,4.1310e-03_jprb,&
&3.3205e-03_jprb,2.3075e-03_jprb,1.3695e-03_jprb,8.0946e-04_jprb,1.2985e-02_jprb/)
kao( :, 4,13, 4) = (/&
&5.8203e-03_jprb,6.4262e-03_jprb,6.2609e-03_jprb,5.8661e-03_jprb,5.2552e-03_jprb,4.5068e-03_jprb,&
&3.6338e-03_jprb,2.5380e-03_jprb,1.5209e-03_jprb,9.1160e-04_jprb,1.4785e-02_jprb/)
kao( :, 5,13, 4) = (/&
&6.2608e-03_jprb,6.9642e-03_jprb,6.7991e-03_jprb,6.3791e-03_jprb,5.7139e-03_jprb,4.9101e-03_jprb,&
&3.9752e-03_jprb,2.7918e-03_jprb,1.6870e-03_jprb,1.0277e-03_jprb,1.6692e-02_jprb/)
kao( :, 1, 1, 5) = (/&
&6.9423e-02_jprb,7.4960e-02_jprb,7.2881e-02_jprb,6.7852e-02_jprb,6.0804e-02_jprb,5.2531e-02_jprb,&
&4.2824e-02_jprb,3.0610e-02_jprb,1.9045e-02_jprb,1.1972e-02_jprb,9.0656e-03_jprb/)
kao( :, 2, 1, 5) = (/&
&7.1301e-02_jprb,7.7925e-02_jprb,7.6064e-02_jprb,7.1198e-02_jprb,6.4170e-02_jprb,5.6008e-02_jprb,&
&4.6002e-02_jprb,3.3219e-02_jprb,2.0898e-02_jprb,1.3541e-02_jprb,1.0844e-02_jprb/)
kao( :, 3, 1, 5) = (/&
&7.2960e-02_jprb,8.0744e-02_jprb,7.9397e-02_jprb,7.4686e-02_jprb,6.7915e-02_jprb,5.9615e-02_jprb,&
&4.9205e-02_jprb,3.5928e-02_jprb,2.2906e-02_jprb,1.5284e-02_jprb,1.2853e-02_jprb/)
kao( :, 4, 1, 5) = (/&
&7.4482e-02_jprb,8.3568e-02_jprb,8.2751e-02_jprb,7.8370e-02_jprb,7.1840e-02_jprb,6.3241e-02_jprb,&
&5.2611e-02_jprb,3.8800e-02_jprb,2.5071e-02_jprb,1.7190e-02_jprb,1.5078e-02_jprb/)
kao( :, 5, 1, 5) = (/&
&7.5977e-02_jprb,8.6416e-02_jprb,8.6132e-02_jprb,8.2229e-02_jprb,7.5721e-02_jprb,6.7015e-02_jprb,&
&5.6188e-02_jprb,4.1791e-02_jprb,2.7379e-02_jprb,1.9319e-02_jprb,1.7544e-02_jprb/)
kao( :, 1, 2, 5) = (/&
&6.1428e-02_jprb,6.6243e-02_jprb,6.4016e-02_jprb,5.9686e-02_jprb,5.3408e-02_jprb,4.5905e-02_jprb,&
&3.7325e-02_jprb,2.6638e-02_jprb,1.6539e-02_jprb,1.0261e-02_jprb,7.2943e-03_jprb/)
kao( :, 2, 2, 5) = (/&
&6.3157e-02_jprb,6.8963e-02_jprb,6.7035e-02_jprb,6.2877e-02_jprb,5.6628e-02_jprb,4.9107e-02_jprb,&
&4.0147e-02_jprb,2.8970e-02_jprb,1.8198e-02_jprb,1.1562e-02_jprb,8.6747e-03_jprb/)
kao( :, 3, 2, 5) = (/&
&6.4729e-02_jprb,7.1653e-02_jprb,7.0183e-02_jprb,6.6237e-02_jprb,6.0087e-02_jprb,5.2347e-02_jprb,&
&4.3083e-02_jprb,3.1429e-02_jprb,1.9978e-02_jprb,1.2998e-02_jprb,1.0260e-02_jprb/)
kao( :, 4, 2, 5) = (/&
&6.6252e-02_jprb,7.4355e-02_jprb,7.3321e-02_jprb,6.9741e-02_jprb,6.3553e-02_jprb,5.5697e-02_jprb,&
&4.6228e-02_jprb,3.4024e-02_jprb,2.1871e-02_jprb,1.4556e-02_jprb,1.2034e-02_jprb/)
kao( :, 5, 2, 5) = (/&
&6.7782e-02_jprb,7.7009e-02_jprb,7.6503e-02_jprb,7.3173e-02_jprb,6.7016e-02_jprb,5.9180e-02_jprb,&
&4.9505e-02_jprb,3.6707e-02_jprb,2.3887e-02_jprb,1.6290e-02_jprb,1.4004e-02_jprb/)
kao( :, 1, 3, 5) = (/&
&5.3533e-02_jprb,5.7434e-02_jprb,5.5277e-02_jprb,5.1527e-02_jprb,4.6035e-02_jprb,3.9352e-02_jprb,&
&3.1746e-02_jprb,2.2523e-02_jprb,1.3908e-02_jprb,8.6490e-03_jprb,5.9287e-03_jprb/)
kao( :, 2, 3, 5) = (/&
&5.5137e-02_jprb,5.9969e-02_jprb,5.8097e-02_jprb,5.4502e-02_jprb,4.8980e-02_jprb,4.2173e-02_jprb,&
&3.4244e-02_jprb,2.4566e-02_jprb,1.5350e-02_jprb,9.6962e-03_jprb,6.9493e-03_jprb/)
kao( :, 3, 3, 5) = (/&
&5.6675e-02_jprb,6.2431e-02_jprb,6.0975e-02_jprb,5.7589e-02_jprb,5.2056e-02_jprb,4.5047e-02_jprb,&
&3.6855e-02_jprb,2.6729e-02_jprb,1.6909e-02_jprb,1.0855e-02_jprb,8.1206e-03_jprb/)
kao( :, 4, 3, 5) = (/&
&5.8200e-02_jprb,6.4923e-02_jprb,6.3882e-02_jprb,6.0753e-02_jprb,5.5077e-02_jprb,4.8037e-02_jprb,&
&3.9643e-02_jprb,2.9018e-02_jprb,1.8575e-02_jprb,1.2121e-02_jprb,9.4750e-03_jprb/)
kao( :, 5, 3, 5) = (/&
&5.9733e-02_jprb,6.7416e-02_jprb,6.6842e-02_jprb,6.3776e-02_jprb,5.8159e-02_jprb,5.1164e-02_jprb,&
&4.2585e-02_jprb,3.1380e-02_jprb,2.0348e-02_jprb,1.3514e-02_jprb,1.0998e-02_jprb/)
kao( :, 1, 4, 5) = (/&
&4.6353e-02_jprb,4.9264e-02_jprb,4.7316e-02_jprb,4.4016e-02_jprb,3.9303e-02_jprb,3.3446e-02_jprb,&
&2.6720e-02_jprb,1.8817e-02_jprb,1.1541e-02_jprb,7.2722e-03_jprb,5.4712e-03_jprb/)
kao( :, 2, 4, 5) = (/&
&4.7832e-02_jprb,5.1575e-02_jprb,4.9905e-02_jprb,4.6721e-02_jprb,4.1940e-02_jprb,3.5924e-02_jprb,&
&2.8909e-02_jprb,2.0563e-02_jprb,1.2756e-02_jprb,8.1360e-03_jprb,6.2894e-03_jprb/)
kao( :, 3, 4, 5) = (/&
&4.9292e-02_jprb,5.3845e-02_jprb,5.2477e-02_jprb,4.9511e-02_jprb,4.4682e-02_jprb,3.8438e-02_jprb,&
&3.1206e-02_jprb,2.2430e-02_jprb,1.4083e-02_jprb,9.0822e-03_jprb,7.2079e-03_jprb/)
kao( :, 4, 4, 5) = (/&
&5.0753e-02_jprb,5.6167e-02_jprb,5.5096e-02_jprb,5.2291e-02_jprb,4.7354e-02_jprb,4.1051e-02_jprb,&
&3.3627e-02_jprb,2.4418e-02_jprb,1.5508e-02_jprb,1.0111e-02_jprb,8.2258e-03_jprb/)
kao( :, 5, 4, 5) = (/&
&5.2237e-02_jprb,5.8453e-02_jprb,5.7807e-02_jprb,5.4969e-02_jprb,5.0043e-02_jprb,4.3750e-02_jprb,&
&3.6221e-02_jprb,2.6492e-02_jprb,1.7044e-02_jprb,1.1243e-02_jprb,9.3585e-03_jprb/)
kao( :, 1, 5, 5) = (/&
&4.0215e-02_jprb,4.2178e-02_jprb,4.0345e-02_jprb,3.7366e-02_jprb,3.3354e-02_jprb,2.8283e-02_jprb,&
&2.2446e-02_jprb,1.5692e-02_jprb,9.5378e-03_jprb,6.0574e-03_jprb,5.0927e-03_jprb/)
kao( :, 2, 5, 5) = (/&
&4.1564e-02_jprb,4.4223e-02_jprb,4.2656e-02_jprb,3.9744e-02_jprb,3.5712e-02_jprb,3.0486e-02_jprb,&
&2.4325e-02_jprb,1.7173e-02_jprb,1.0563e-02_jprb,6.7992e-03_jprb,5.7848e-03_jprb/)
kao( :, 3, 5, 5) = (/&
&4.2880e-02_jprb,4.6295e-02_jprb,4.4929e-02_jprb,4.2198e-02_jprb,3.8104e-02_jprb,3.2711e-02_jprb,&
&2.6325e-02_jprb,1.8758e-02_jprb,1.1674e-02_jprb,7.6073e-03_jprb,6.5722e-03_jprb/)
kao( :, 4, 5, 5) = (/&
&4.4250e-02_jprb,4.8374e-02_jprb,4.7253e-02_jprb,4.4669e-02_jprb,4.0477e-02_jprb,3.4961e-02_jprb,&
&2.8432e-02_jprb,2.0449e-02_jprb,1.2880e-02_jprb,8.4762e-03_jprb,7.4570e-03_jprb/)
kao( :, 5, 5, 5) = (/&
&4.5632e-02_jprb,5.0457e-02_jprb,4.9661e-02_jprb,4.7073e-02_jprb,4.2857e-02_jprb,3.7281e-02_jprb,&
&3.0645e-02_jprb,2.2241e-02_jprb,1.4179e-02_jprb,9.4224e-03_jprb,8.4289e-03_jprb/)
kao( :, 1, 6, 5) = (/&
&3.4853e-02_jprb,3.6094e-02_jprb,3.4340e-02_jprb,3.1567e-02_jprb,2.8074e-02_jprb,2.3747e-02_jprb,&
&1.8747e-02_jprb,1.3033e-02_jprb,7.8344e-03_jprb,4.9564e-03_jprb,4.7664e-03_jprb/)
kao( :, 2, 6, 5) = (/&
&3.6095e-02_jprb,3.7902e-02_jprb,3.6360e-02_jprb,3.3627e-02_jprb,3.0131e-02_jprb,2.5638e-02_jprb,&
&2.0371e-02_jprb,1.4275e-02_jprb,8.6972e-03_jprb,5.5735e-03_jprb,5.3896e-03_jprb/)
kao( :, 3, 6, 5) = (/&
&3.7297e-02_jprb,3.9745e-02_jprb,3.8353e-02_jprb,3.5764e-02_jprb,3.2219e-02_jprb,2.7550e-02_jprb,&
&2.2085e-02_jprb,1.5615e-02_jprb,9.6284e-03_jprb,6.2556e-03_jprb,6.0790e-03_jprb/)
kao( :, 4, 6, 5) = (/&
&3.8557e-02_jprb,4.1597e-02_jprb,4.0389e-02_jprb,3.7908e-02_jprb,3.4281e-02_jprb,2.9507e-02_jprb,&
&2.3870e-02_jprb,1.7046e-02_jprb,1.0643e-02_jprb,7.0034e-03_jprb,6.8484e-03_jprb/)
kao( :, 5, 6, 5) = (/&
&3.9824e-02_jprb,4.3464e-02_jprb,4.2478e-02_jprb,4.0047e-02_jprb,3.6382e-02_jprb,3.1522e-02_jprb,&
&2.5736e-02_jprb,1.8573e-02_jprb,1.1739e-02_jprb,7.8250e-03_jprb,7.7029e-03_jprb/)
kao( :, 1, 7, 5) = (/&
&2.9815e-02_jprb,3.0608e-02_jprb,2.8988e-02_jprb,2.6483e-02_jprb,2.3444e-02_jprb,1.9806e-02_jprb,&
&1.5587e-02_jprb,1.0729e-02_jprb,6.3834e-03_jprb,3.9988e-03_jprb,4.7710e-03_jprb/)
kao( :, 2, 7, 5) = (/&
&3.0946e-02_jprb,3.2211e-02_jprb,3.0727e-02_jprb,2.8262e-02_jprb,2.5215e-02_jprb,2.1406e-02_jprb,&
&1.6940e-02_jprb,1.1789e-02_jprb,7.0925e-03_jprb,4.5059e-03_jprb,5.3365e-03_jprb/)
kao( :, 3, 7, 5) = (/&
&3.2060e-02_jprb,3.3823e-02_jprb,3.2464e-02_jprb,3.0099e-02_jprb,2.7004e-02_jprb,2.3026e-02_jprb,&
&1.8369e-02_jprb,1.2921e-02_jprb,7.8758e-03_jprb,5.0685e-03_jprb,5.9857e-03_jprb/)
kao( :, 4, 7, 5) = (/&
&3.3198e-02_jprb,3.5483e-02_jprb,3.4283e-02_jprb,3.1964e-02_jprb,2.8781e-02_jprb,2.4689e-02_jprb,&
&1.9856e-02_jprb,1.4137e-02_jprb,8.7260e-03_jprb,5.6932e-03_jprb,6.6962e-03_jprb/)
kao( :, 5, 7, 5) = (/&
&3.4342e-02_jprb,3.7144e-02_jprb,3.6117e-02_jprb,3.3825e-02_jprb,3.0620e-02_jprb,2.6411e-02_jprb,&
&2.1416e-02_jprb,1.5421e-02_jprb,9.6443e-03_jprb,6.3905e-03_jprb,7.4882e-03_jprb/)
kao( :, 1, 8, 5) = (/&
&2.5283e-02_jprb,2.5751e-02_jprb,2.4270e-02_jprb,2.2079e-02_jprb,1.9496e-02_jprb,1.6496e-02_jprb,&
&1.2947e-02_jprb,8.8078e-03_jprb,5.1661e-03_jprb,3.1956e-03_jprb,5.6775e-03_jprb/)
kao( :, 2, 8, 5) = (/&
&2.6302e-02_jprb,2.7180e-02_jprb,2.5781e-02_jprb,2.3615e-02_jprb,2.1015e-02_jprb,1.7843e-02_jprb,&
&1.4097e-02_jprb,9.7060e-03_jprb,5.7494e-03_jprb,3.6083e-03_jprb,6.1622e-03_jprb/)
kao( :, 3, 8, 5) = (/&
&2.7320e-02_jprb,2.8593e-02_jprb,2.7305e-02_jprb,2.5195e-02_jprb,2.2546e-02_jprb,1.9223e-02_jprb,&
&1.5282e-02_jprb,1.0665e-02_jprb,6.3913e-03_jprb,4.0728e-03_jprb,6.7057e-03_jprb/)
kao( :, 4, 8, 5) = (/&
&2.8333e-02_jprb,3.0041e-02_jprb,2.8915e-02_jprb,2.6829e-02_jprb,2.4088e-02_jprb,2.0635e-02_jprb,&
&1.6522e-02_jprb,1.1685e-02_jprb,7.1066e-03_jprb,4.5896e-03_jprb,7.3455e-03_jprb/)
kao( :, 5, 8, 5) = (/&
&2.9349e-02_jprb,3.1526e-02_jprb,3.0540e-02_jprb,2.8464e-02_jprb,2.5707e-02_jprb,2.2109e-02_jprb,&
&1.7816e-02_jprb,1.2753e-02_jprb,7.8746e-03_jprb,5.1734e-03_jprb,8.0746e-03_jprb/)
kao( :, 1, 9, 5) = (/&
&2.1393e-02_jprb,2.1598e-02_jprb,2.0242e-02_jprb,1.8370e-02_jprb,1.6186e-02_jprb,1.3706e-02_jprb,&
&1.0722e-02_jprb,7.2195e-03_jprb,4.1746e-03_jprb,2.5439e-03_jprb,1.0113e-02_jprb/)
kao( :, 2, 9, 5) = (/&
&2.2301e-02_jprb,2.2863e-02_jprb,2.1562e-02_jprb,1.9670e-02_jprb,1.7466e-02_jprb,1.4848e-02_jprb,&
&1.1705e-02_jprb,7.9781e-03_jprb,4.6436e-03_jprb,2.8718e-03_jprb,1.1342e-02_jprb/)
kao( :, 3, 9, 5) = (/&
&2.3221e-02_jprb,2.4089e-02_jprb,2.2883e-02_jprb,2.1022e-02_jprb,1.8774e-02_jprb,1.6030e-02_jprb,&
&1.2717e-02_jprb,8.7854e-03_jprb,5.1730e-03_jprb,3.2515e-03_jprb,1.2507e-02_jprb/)
kao( :, 4, 9, 5) = (/&
&2.4120e-02_jprb,2.5343e-02_jprb,2.4280e-02_jprb,2.2425e-02_jprb,2.0119e-02_jprb,1.7244e-02_jprb,&
&1.3767e-02_jprb,9.6361e-03_jprb,5.7611e-03_jprb,3.6765e-03_jprb,1.3554e-02_jprb/)
kao( :, 5, 9, 5) = (/&
&2.5016e-02_jprb,2.6638e-02_jprb,2.5702e-02_jprb,2.3865e-02_jprb,2.1516e-02_jprb,1.8508e-02_jprb,&
&1.4864e-02_jprb,1.0529e-02_jprb,6.4045e-03_jprb,4.1546e-03_jprb,1.4572e-02_jprb/)
kao( :, 1,10, 5) = (/&
&1.8113e-02_jprb,1.8138e-02_jprb,1.6915e-02_jprb,1.5326e-02_jprb,1.3493e-02_jprb,1.1404e-02_jprb,&
&8.8894e-03_jprb,5.9161e-03_jprb,3.3974e-03_jprb,2.0400e-03_jprb,2.3155e-02_jprb/)
kao( :, 2,10, 5) = (/&
&1.8911e-02_jprb,1.9233e-02_jprb,1.8049e-02_jprb,1.6433e-02_jprb,1.4556e-02_jprb,1.2371e-02_jprb,&
&9.7152e-03_jprb,6.5645e-03_jprb,3.7859e-03_jprb,2.2984e-03_jprb,2.6502e-02_jprb/)
kao( :, 3,10, 5) = (/&
&1.9728e-02_jprb,2.0295e-02_jprb,1.9188e-02_jprb,1.7578e-02_jprb,1.5660e-02_jprb,1.3378e-02_jprb,&
&1.0586e-02_jprb,7.2492e-03_jprb,4.2176e-03_jprb,2.6036e-03_jprb,2.9732e-02_jprb/)
kao( :, 4,10, 5) = (/&
&2.0511e-02_jprb,2.1373e-02_jprb,2.0386e-02_jprb,1.8762e-02_jprb,1.6821e-02_jprb,1.4424e-02_jprb,&
&1.1488e-02_jprb,7.9631e-03_jprb,4.7001e-03_jprb,2.9535e-03_jprb,3.2827e-02_jprb/)
kao( :, 5,10, 5) = (/&
&2.1304e-02_jprb,2.2491e-02_jprb,2.1602e-02_jprb,2.0004e-02_jprb,1.8011e-02_jprb,1.5518e-02_jprb,&
&1.2440e-02_jprb,8.7186e-03_jprb,5.2306e-03_jprb,3.3445e-03_jprb,3.5819e-02_jprb/)
kao( :, 1,11, 5) = (/&
&1.5695e-02_jprb,1.5702e-02_jprb,1.4638e-02_jprb,1.3267e-02_jprb,1.1679e-02_jprb,9.8503e-03_jprb,&
&7.6677e-03_jprb,5.0761e-03_jprb,2.9053e-03_jprb,1.7228e-03_jprb,2.9993e-02_jprb/)
kao( :, 2,11, 5) = (/&
&1.6401e-02_jprb,1.6637e-02_jprb,1.5599e-02_jprb,1.4214e-02_jprb,1.2583e-02_jprb,1.0686e-02_jprb,&
&8.3766e-03_jprb,5.6416e-03_jprb,3.2428e-03_jprb,1.9419e-03_jprb,3.4197e-02_jprb/)
kao( :, 3,11, 5) = (/&
&1.7106e-02_jprb,1.7559e-02_jprb,1.6602e-02_jprb,1.5204e-02_jprb,1.3537e-02_jprb,1.1563e-02_jprb,&
&9.1295e-03_jprb,6.2308e-03_jprb,3.6142e-03_jprb,2.2018e-03_jprb,3.8237e-02_jprb/)
kao( :, 4,11, 5) = (/&
&1.7783e-02_jprb,1.8504e-02_jprb,1.7628e-02_jprb,1.6229e-02_jprb,1.4542e-02_jprb,1.2483e-02_jprb,&
&9.9207e-03_jprb,6.8466e-03_jprb,4.0263e-03_jprb,2.5043e-03_jprb,4.2149e-02_jprb/)
kao( :, 5,11, 5) = (/&
&1.8493e-02_jprb,1.9485e-02_jprb,1.8676e-02_jprb,1.7295e-02_jprb,1.5575e-02_jprb,1.3438e-02_jprb,&
&1.0754e-02_jprb,7.5058e-03_jprb,4.4801e-03_jprb,2.8413e-03_jprb,4.5923e-02_jprb/)
kao( :, 1,12, 5) = (/&
&1.3506e-02_jprb,1.3529e-02_jprb,1.2628e-02_jprb,1.1452e-02_jprb,1.0063e-02_jprb,8.4685e-03_jprb,&
&6.5828e-03_jprb,4.3370e-03_jprb,2.4676e-03_jprb,1.4501e-03_jprb,3.1379e-02_jprb/)
kao( :, 2,12, 5) = (/&
&1.4125e-02_jprb,1.4325e-02_jprb,1.3451e-02_jprb,1.2271e-02_jprb,1.0846e-02_jprb,9.1944e-03_jprb,&
&7.1930e-03_jprb,4.8218e-03_jprb,2.7588e-03_jprb,1.6351e-03_jprb,3.5598e-02_jprb/)
kao( :, 3,12, 5) = (/&
&1.4721e-02_jprb,1.5127e-02_jprb,1.4318e-02_jprb,1.3125e-02_jprb,1.1678e-02_jprb,9.9571e-03_jprb,&
&7.8415e-03_jprb,5.3248e-03_jprb,3.0763e-03_jprb,1.8570e-03_jprb,3.9752e-02_jprb/)
kao( :, 4,12, 5) = (/&
&1.5317e-02_jprb,1.5950e-02_jprb,1.5202e-02_jprb,1.4009e-02_jprb,1.2540e-02_jprb,1.0752e-02_jprb,&
&8.5246e-03_jprb,5.8565e-03_jprb,3.4251e-03_jprb,2.1158e-03_jprb,4.3744e-02_jprb/)
kao( :, 5,12, 5) = (/&
&1.5969e-02_jprb,1.6812e-02_jprb,1.6124e-02_jprb,1.4932e-02_jprb,1.3442e-02_jprb,1.1579e-02_jprb,&
&9.2378e-03_jprb,6.4203e-03_jprb,3.8147e-03_jprb,2.4036e-03_jprb,4.7604e-02_jprb/)
kao( :, 1,13, 5) = (/&
&1.1399e-02_jprb,1.1449e-02_jprb,1.0710e-02_jprb,9.7174e-03_jprb,8.5323e-03_jprb,7.1730e-03_jprb,&
&5.5827e-03_jprb,3.6682e-03_jprb,2.0730e-03_jprb,1.2124e-03_jprb,2.7163e-02_jprb/)
kao( :, 2,13, 5) = (/&
&1.1916e-02_jprb,1.2118e-02_jprb,1.1410e-02_jprb,1.0424e-02_jprb,9.2099e-03_jprb,7.8054e-03_jprb,&
&6.1073e-03_jprb,4.0757e-03_jprb,2.3191e-03_jprb,1.3693e-03_jprb,3.0692e-02_jprb/)
kao( :, 3,13, 5) = (/&
&1.2413e-02_jprb,1.2810e-02_jprb,1.2156e-02_jprb,1.1166e-02_jprb,9.9300e-03_jprb,8.4666e-03_jprb,&
&6.6637e-03_jprb,4.5036e-03_jprb,2.5869e-03_jprb,1.5580e-03_jprb,3.4158e-02_jprb/)
kao( :, 4,13, 5) = (/&
&1.2945e-02_jprb,1.3524e-02_jprb,1.2930e-02_jprb,1.1934e-02_jprb,1.0680e-02_jprb,9.1538e-03_jprb,&
&7.2492e-03_jprb,4.9532e-03_jprb,2.8844e-03_jprb,1.7769e-03_jprb,3.7486e-02_jprb/)
kao( :, 5,13, 5) = (/&
&1.3534e-02_jprb,1.4296e-02_jprb,1.3748e-02_jprb,1.2750e-02_jprb,1.1472e-02_jprb,9.8678e-03_jprb,&
&7.8555e-03_jprb,5.4258e-03_jprb,3.2161e-03_jprb,2.0203e-03_jprb,4.0660e-02_jprb/)
kao( :, 1, 1, 6) = (/&
&1.3812e-01_jprb,1.3826e-01_jprb,1.3412e-01_jprb,1.2512e-01_jprb,1.1224e-01_jprb,9.5217e-02_jprb,&
&7.4976e-02_jprb,5.1336e-02_jprb,3.0614e-02_jprb,2.1696e-02_jprb,2.0374e-02_jprb/)
kao( :, 2, 1, 6) = (/&
&1.3941e-01_jprb,1.4212e-01_jprb,1.3899e-01_jprb,1.3015e-01_jprb,1.1723e-01_jprb,9.9705e-02_jprb,&
&7.9423e-02_jprb,5.5251e-02_jprb,3.3932e-02_jprb,2.4851e-02_jprb,2.3928e-02_jprb/)
kao( :, 3, 1, 6) = (/&
&1.4069e-01_jprb,1.4606e-01_jprb,1.4349e-01_jprb,1.3492e-01_jprb,1.2182e-01_jprb,1.0431e-01_jprb,&
&8.4373e-02_jprb,5.9330e-02_jprb,3.7520e-02_jprb,2.8503e-02_jprb,2.7981e-02_jprb/)
kao( :, 4, 1, 6) = (/&
&1.4204e-01_jprb,1.4980e-01_jprb,1.4773e-01_jprb,1.3955e-01_jprb,1.2635e-01_jprb,1.0953e-01_jprb,&
&8.9320e-02_jprb,6.3663e-02_jprb,4.1464e-02_jprb,3.2709e-02_jprb,3.2519e-02_jprb/)
kao( :, 5, 1, 6) = (/&
&1.4335e-01_jprb,1.5332e-01_jprb,1.5190e-01_jprb,1.4393e-01_jprb,1.3131e-01_jprb,1.1498e-01_jprb,&
&9.4231e-02_jprb,6.8373e-02_jprb,4.5718e-02_jprb,3.7379e-02_jprb,3.7561e-02_jprb/)
kao( :, 1, 2, 6) = (/&
&1.2540e-01_jprb,1.2569e-01_jprb,1.2163e-01_jprb,1.1284e-01_jprb,1.0119e-01_jprb,8.6267e-02_jprb,&
&6.7814e-02_jprb,4.6281e-02_jprb,2.7026e-02_jprb,1.8209e-02_jprb,1.6155e-02_jprb/)
kao( :, 2, 2, 6) = (/&
&1.2690e-01_jprb,1.2947e-01_jprb,1.2609e-01_jprb,1.1758e-01_jprb,1.0596e-01_jprb,9.0648e-02_jprb,&
&7.2085e-02_jprb,4.9891e-02_jprb,2.9876e-02_jprb,2.0766e-02_jprb,1.9045e-02_jprb/)
kao( :, 3, 2, 6) = (/&
&1.2845e-01_jprb,1.3318e-01_jprb,1.3033e-01_jprb,1.2211e-01_jprb,1.1052e-01_jprb,9.5256e-02_jprb,&
&7.6664e-02_jprb,5.3627e-02_jprb,3.2984e-02_jprb,2.3750e-02_jprb,2.2338e-02_jprb/)
kao( :, 4, 2, 6) = (/&
&1.2994e-01_jprb,1.3679e-01_jprb,1.3454e-01_jprb,1.2649e-01_jprb,1.1513e-01_jprb,1.0018e-01_jprb,&
&8.1132e-02_jprb,5.7623e-02_jprb,3.6417e-02_jprb,2.7177e-02_jprb,2.6047e-02_jprb/)
kao( :, 5, 2, 6) = (/&
&1.3135e-01_jprb,1.4032e-01_jprb,1.3874e-01_jprb,1.3096e-01_jprb,1.2020e-01_jprb,1.0521e-01_jprb,&
&8.5803e-02_jprb,6.1991e-02_jprb,4.0111e-02_jprb,3.0993e-02_jprb,3.0183e-02_jprb/)
kao( :, 1, 3, 6) = (/&
&1.1249e-01_jprb,1.1241e-01_jprb,1.0797e-01_jprb,9.9582e-02_jprb,8.8991e-02_jprb,7.6122e-02_jprb,&
&5.9776e-02_jprb,4.0423e-02_jprb,2.3381e-02_jprb,1.4989e-02_jprb,1.2392e-02_jprb/)
kao( :, 2, 3, 6) = (/&
&1.1410e-01_jprb,1.1606e-01_jprb,1.1205e-01_jprb,1.0392e-01_jprb,9.3538e-02_jprb,8.0374e-02_jprb,&
&6.3755e-02_jprb,4.3750e-02_jprb,2.5848e-02_jprb,1.7065e-02_jprb,1.4647e-02_jprb/)
kao( :, 3, 3, 6) = (/&
&1.1569e-01_jprb,1.1965e-01_jprb,1.1613e-01_jprb,1.0831e-01_jprb,9.7905e-02_jprb,8.4765e-02_jprb,&
&6.7839e-02_jprb,4.7191e-02_jprb,2.8514e-02_jprb,1.9425e-02_jprb,1.7233e-02_jprb/)
kao( :, 4, 3, 6) = (/&
&1.1726e-01_jprb,1.2309e-01_jprb,1.2032e-01_jprb,1.1259e-01_jprb,1.0247e-01_jprb,8.9387e-02_jprb,&
&7.1928e-02_jprb,5.0787e-02_jprb,3.1455e-02_jprb,2.2128e-02_jprb,2.0137e-02_jprb/)
kao( :, 5, 3, 6) = (/&
&1.1874e-01_jprb,1.2658e-01_jprb,1.2440e-01_jprb,1.1705e-01_jprb,1.0739e-01_jprb,9.3857e-02_jprb,&
&7.6244e-02_jprb,5.4771e-02_jprb,3.4624e-02_jprb,2.5158e-02_jprb,2.3398e-02_jprb/)
kao( :, 1, 4, 6) = (/&
&1.0010e-01_jprb,9.9685e-02_jprb,9.4787e-02_jprb,8.6882e-02_jprb,7.7198e-02_jprb,6.5934e-02_jprb,&
&5.1807e-02_jprb,3.4736e-02_jprb,1.9980e-02_jprb,1.2335e-02_jprb,1.0141e-02_jprb/)
kao( :, 2, 4, 6) = (/&
&1.0170e-01_jprb,1.0312e-01_jprb,9.8622e-02_jprb,9.0905e-02_jprb,8.1426e-02_jprb,6.9900e-02_jprb,&
&5.5494e-02_jprb,3.7661e-02_jprb,2.2134e-02_jprb,1.4013e-02_jprb,1.1758e-02_jprb/)
kao( :, 3, 4, 6) = (/&
&1.0335e-01_jprb,1.0651e-01_jprb,1.0245e-01_jprb,9.5068e-02_jprb,8.5570e-02_jprb,7.4056e-02_jprb,&
&5.9162e-02_jprb,4.0698e-02_jprb,2.4492e-02_jprb,1.5920e-02_jprb,1.3637e-02_jprb/)
kao( :, 4, 4, 6) = (/&
&1.0499e-01_jprb,1.0979e-01_jprb,1.0642e-01_jprb,9.9223e-02_jprb,8.9977e-02_jprb,7.8273e-02_jprb,&
&6.2815e-02_jprb,4.3991e-02_jprb,2.7037e-02_jprb,1.8072e-02_jprb,1.5828e-02_jprb/)
kao( :, 5, 4, 6) = (/&
&1.0648e-01_jprb,1.1320e-01_jprb,1.1032e-01_jprb,1.0355e-01_jprb,9.4621e-02_jprb,8.2442e-02_jprb,&
&6.6678e-02_jprb,4.7586e-02_jprb,2.9766e-02_jprb,2.0476e-02_jprb,1.8322e-02_jprb/)
kao( :, 1, 5, 6) = (/&
&8.8646e-02_jprb,8.7933e-02_jprb,8.2832e-02_jprb,7.5476e-02_jprb,6.6640e-02_jprb,5.6566e-02_jprb,&
&4.4409e-02_jprb,2.9574e-02_jprb,1.6904e-02_jprb,1.0272e-02_jprb,9.1351e-03_jprb/)
kao( :, 2, 5, 6) = (/&
&9.0277e-02_jprb,9.1081e-02_jprb,8.6318e-02_jprb,7.9229e-02_jprb,7.0495e-02_jprb,6.0192e-02_jprb,&
&4.7724e-02_jprb,3.2103e-02_jprb,1.8750e-02_jprb,1.1641e-02_jprb,1.0542e-02_jprb/)
kao( :, 3, 5, 6) = (/&
&9.1984e-02_jprb,9.4263e-02_jprb,8.9928e-02_jprb,8.3093e-02_jprb,7.4368e-02_jprb,6.3999e-02_jprb,&
&5.1030e-02_jprb,3.4755e-02_jprb,2.0780e-02_jprb,1.3171e-02_jprb,1.2136e-02_jprb/)
kao( :, 4, 5, 6) = (/&
&9.3576e-02_jprb,9.7447e-02_jprb,9.3654e-02_jprb,8.7006e-02_jprb,7.8424e-02_jprb,6.7877e-02_jprb,&
&5.4374e-02_jprb,3.7638e-02_jprb,2.3002e-02_jprb,1.4893e-02_jprb,1.3923e-02_jprb/)
kao( :, 5, 5, 6) = (/&
&9.5080e-02_jprb,1.0065e-01_jprb,9.7383e-02_jprb,9.1136e-02_jprb,8.2601e-02_jprb,7.1701e-02_jprb,&
&5.7863e-02_jprb,4.0796e-02_jprb,2.5412e-02_jprb,1.6809e-02_jprb,1.5908e-02_jprb/)
kao( :, 1, 6, 6) = (/&
&7.7960e-02_jprb,7.6934e-02_jprb,7.1843e-02_jprb,6.5156e-02_jprb,5.7207e-02_jprb,4.8156e-02_jprb,&
&3.7659e-02_jprb,2.4879e-02_jprb,1.4127e-02_jprb,8.5541e-03_jprb,8.3666e-03_jprb/)
kao( :, 2, 6, 6) = (/&
&7.9609e-02_jprb,7.9866e-02_jprb,7.5063e-02_jprb,6.8592e-02_jprb,6.0623e-02_jprb,5.1416e-02_jprb,&
&4.0604e-02_jprb,2.7099e-02_jprb,1.5685e-02_jprb,9.6918e-03_jprb,9.5572e-03_jprb/)
kao( :, 3, 6, 6) = (/&
&8.1302e-02_jprb,8.2836e-02_jprb,7.8445e-02_jprb,7.2127e-02_jprb,6.4136e-02_jprb,5.4857e-02_jprb,&
&4.3565e-02_jprb,2.9366e-02_jprb,1.7400e-02_jprb,1.0963e-02_jprb,1.0922e-02_jprb/)
kao( :, 4, 6, 6) = (/&
&8.2802e-02_jprb,8.5864e-02_jprb,8.1904e-02_jprb,7.5770e-02_jprb,6.7852e-02_jprb,5.8330e-02_jprb,&
&4.6522e-02_jprb,3.1837e-02_jprb,1.9277e-02_jprb,1.2364e-02_jprb,1.2452e-02_jprb/)
kao( :, 5, 6, 6) = (/&
&8.4221e-02_jprb,8.8823e-02_jprb,8.5384e-02_jprb,7.9630e-02_jprb,7.1590e-02_jprb,6.1823e-02_jprb,&
&4.9653e-02_jprb,3.4554e-02_jprb,2.1337e-02_jprb,1.3901e-02_jprb,1.4136e-02_jprb/)
kao( :, 1, 7, 6) = (/&
&6.7828e-02_jprb,6.6421e-02_jprb,6.1520e-02_jprb,5.5497e-02_jprb,4.8477e-02_jprb,4.0523e-02_jprb,&
&3.1519e-02_jprb,2.0723e-02_jprb,1.1684e-02_jprb,7.0442e-03_jprb,8.2153e-03_jprb/)
kao( :, 2, 7, 6) = (/&
&6.9386e-02_jprb,6.9084e-02_jprb,6.4466e-02_jprb,5.8621e-02_jprb,5.1513e-02_jprb,4.3404e-02_jprb,&
&3.4117e-02_jprb,2.2620e-02_jprb,1.3002e-02_jprb,8.0096e-03_jprb,9.3023e-03_jprb/)
kao( :, 3, 7, 6) = (/&
&7.0902e-02_jprb,7.1781e-02_jprb,6.7571e-02_jprb,6.1798e-02_jprb,5.4668e-02_jprb,4.6485e-02_jprb,&
&3.6722e-02_jprb,2.4596e-02_jprb,1.4441e-02_jprb,9.0791e-03_jprb,1.0528e-02_jprb/)
kao( :, 4, 7, 6) = (/&
&7.2282e-02_jprb,7.4474e-02_jprb,7.0674e-02_jprb,6.5102e-02_jprb,5.8020e-02_jprb,4.9583e-02_jprb,&
&3.9334e-02_jprb,2.6694e-02_jprb,1.6007e-02_jprb,1.0271e-02_jprb,1.1922e-02_jprb/)
kao( :, 5, 7, 6) = (/&
&7.3586e-02_jprb,7.7141e-02_jprb,7.3787e-02_jprb,6.8567e-02_jprb,6.1369e-02_jprb,5.2671e-02_jprb,&
&4.2103e-02_jprb,2.8979e-02_jprb,1.7736e-02_jprb,1.1572e-02_jprb,1.3447e-02_jprb/)
kao( :, 1, 8, 6) = (/&
&5.8712e-02_jprb,5.7043e-02_jprb,5.2438e-02_jprb,4.7021e-02_jprb,4.0853e-02_jprb,3.3895e-02_jprb,&
&2.6198e-02_jprb,1.7219e-02_jprb,9.5944e-03_jprb,5.7565e-03_jprb,9.7903e-03_jprb/)
kao( :, 2, 8, 6) = (/&
&6.0111e-02_jprb,5.9403e-02_jprb,5.5109e-02_jprb,4.9792e-02_jprb,4.3500e-02_jprb,3.6406e-02_jprb,&
&2.8441e-02_jprb,1.8832e-02_jprb,1.0715e-02_jprb,6.5565e-03_jprb,1.0886e-02_jprb/)
kao( :, 3, 8, 6) = (/&
&6.1464e-02_jprb,6.1765e-02_jprb,5.7839e-02_jprb,5.2591e-02_jprb,4.6276e-02_jprb,3.9078e-02_jprb,&
&3.0733e-02_jprb,2.0508e-02_jprb,1.1934e-02_jprb,7.4566e-03_jprb,1.2121e-02_jprb/)
kao( :, 4, 8, 6) = (/&
&6.2712e-02_jprb,6.4146e-02_jprb,6.0527e-02_jprb,5.5457e-02_jprb,4.9226e-02_jprb,4.1797e-02_jprb,&
&3.3031e-02_jprb,2.2300e-02_jprb,1.3252e-02_jprb,8.4625e-03_jprb,1.3482e-02_jprb/)
kao( :, 5, 8, 6) = (/&
&6.3914e-02_jprb,6.6490e-02_jprb,6.3234e-02_jprb,5.8457e-02_jprb,5.2124e-02_jprb,4.4504e-02_jprb,&
&3.5484e-02_jprb,2.4239e-02_jprb,1.4708e-02_jprb,9.5766e-03_jprb,1.4975e-02_jprb/)
kao( :, 1, 9, 6) = (/&
&5.0689e-02_jprb,4.8919e-02_jprb,4.4694e-02_jprb,3.9834e-02_jprb,3.4426e-02_jprb,2.8389e-02_jprb,&
&2.1819e-02_jprb,1.4302e-02_jprb,7.8127e-03_jprb,4.6620e-03_jprb,2.0696e-02_jprb/)
kao( :, 2, 9, 6) = (/&
&5.1946e-02_jprb,5.0973e-02_jprb,4.7056e-02_jprb,4.2253e-02_jprb,3.6737e-02_jprb,3.0544e-02_jprb,&
&2.3724e-02_jprb,1.5668e-02_jprb,8.7780e-03_jprb,5.3214e-03_jprb,2.1910e-02_jprb/)
kao( :, 3, 9, 6) = (/&
&5.3143e-02_jprb,5.3077e-02_jprb,4.9431e-02_jprb,4.4665e-02_jprb,3.9122e-02_jprb,3.2816e-02_jprb,&
&2.5692e-02_jprb,1.7096e-02_jprb,9.8039e-03_jprb,6.0656e-03_jprb,2.3234e-02_jprb/)
kao( :, 4, 9, 6) = (/&
&5.4267e-02_jprb,5.5157e-02_jprb,5.1739e-02_jprb,4.7167e-02_jprb,4.1644e-02_jprb,3.5136e-02_jprb,&
&2.7685e-02_jprb,1.8626e-02_jprb,1.0916e-02_jprb,6.9060e-03_jprb,2.4826e-02_jprb/)
kao( :, 5, 9, 6) = (/&
&5.5411e-02_jprb,5.7220e-02_jprb,5.4074e-02_jprb,4.9699e-02_jprb,4.4127e-02_jprb,3.7477e-02_jprb,&
&2.9785e-02_jprb,2.0273e-02_jprb,1.2148e-02_jprb,7.8411e-03_jprb,2.6607e-02_jprb/)
kao( :, 1,10, 6) = (/&
&4.3441e-02_jprb,4.1752e-02_jprb,3.7992e-02_jprb,3.3732e-02_jprb,2.9033e-02_jprb,2.3892e-02_jprb,&
&1.8315e-02_jprb,1.1925e-02_jprb,6.3650e-03_jprb,3.7730e-03_jprb,5.8980e-02_jprb/)
kao( :, 2,10, 6) = (/&
&4.4578e-02_jprb,4.3534e-02_jprb,4.0036e-02_jprb,3.5800e-02_jprb,3.1038e-02_jprb,2.5745e-02_jprb,&
&1.9928e-02_jprb,1.3095e-02_jprb,7.1901e-03_jprb,4.3268e-03_jprb,6.2127e-02_jprb/)
kao( :, 3,10, 6) = (/&
&4.5637e-02_jprb,4.5360e-02_jprb,4.2074e-02_jprb,3.7890e-02_jprb,3.3109e-02_jprb,2.7662e-02_jprb,&
&2.1605e-02_jprb,1.4318e-02_jprb,8.0717e-03_jprb,4.9441e-03_jprb,6.4930e-02_jprb/)
kao( :, 4,10, 6) = (/&
&4.6665e-02_jprb,4.7201e-02_jprb,4.4073e-02_jprb,4.0041e-02_jprb,3.5227e-02_jprb,2.9634e-02_jprb,&
&2.3310e-02_jprb,1.5630e-02_jprb,9.0074e-03_jprb,5.6431e-03_jprb,6.7490e-02_jprb/)
kao( :, 5,10, 6) = (/&
&4.7723e-02_jprb,4.9037e-02_jprb,4.6142e-02_jprb,4.2228e-02_jprb,3.7348e-02_jprb,3.1608e-02_jprb,&
&2.5075e-02_jprb,1.7036e-02_jprb,1.0045e-02_jprb,6.4268e-03_jprb,6.9977e-02_jprb/)
kao( :, 1,11, 6) = (/&
&3.7516e-02_jprb,3.6158e-02_jprb,3.2933e-02_jprb,2.9252e-02_jprb,2.5204e-02_jprb,2.0803e-02_jprb,&
&1.5990e-02_jprb,1.0375e-02_jprb,5.4827e-03_jprb,3.2361e-03_jprb,8.1016e-02_jprb/)
kao( :, 2,11, 6) = (/&
&3.8506e-02_jprb,3.7721e-02_jprb,3.4706e-02_jprb,3.1031e-02_jprb,2.6946e-02_jprb,2.2411e-02_jprb,&
&1.7386e-02_jprb,1.1409e-02_jprb,6.2003e-03_jprb,3.7210e-03_jprb,8.4685e-02_jprb/)
kao( :, 3,11, 6) = (/&
&3.9439e-02_jprb,3.9310e-02_jprb,3.6436e-02_jprb,3.2830e-02_jprb,2.8736e-02_jprb,2.4071e-02_jprb,&
&1.8831e-02_jprb,1.2487e-02_jprb,6.9722e-03_jprb,4.2623e-03_jprb,8.7980e-02_jprb/)
kao( :, 4,11, 6) = (/&
&4.0392e-02_jprb,4.0944e-02_jprb,3.8217e-02_jprb,3.4707e-02_jprb,3.0543e-02_jprb,2.5731e-02_jprb,&
&2.0303e-02_jprb,1.3646e-02_jprb,7.7970e-03_jprb,4.8703e-03_jprb,9.0981e-02_jprb/)
kao( :, 5,11, 6) = (/&
&4.1332e-02_jprb,4.2552e-02_jprb,4.0059e-02_jprb,3.6603e-02_jprb,3.2383e-02_jprb,2.7450e-02_jprb,&
&2.1833e-02_jprb,1.4887e-02_jprb,8.7084e-03_jprb,5.5527e-03_jprb,9.3973e-02_jprb/)
kao( :, 1,12, 6) = (/&
&3.2190e-02_jprb,3.1071e-02_jprb,2.8321e-02_jprb,2.5152e-02_jprb,2.1728e-02_jprb,1.7981e-02_jprb,&
&1.3822e-02_jprb,8.9602e-03_jprb,4.7106e-03_jprb,2.7564e-03_jprb,8.5402e-02_jprb/)
kao( :, 2,12, 6) = (/&
&3.3033e-02_jprb,3.2405e-02_jprb,2.9806e-02_jprb,2.6661e-02_jprb,2.3211e-02_jprb,1.9361e-02_jprb,&
&1.5025e-02_jprb,9.8641e-03_jprb,5.3297e-03_jprb,3.1770e-03_jprb,8.8737e-02_jprb/)
kao( :, 3,12, 6) = (/&
&3.3864e-02_jprb,3.3793e-02_jprb,3.1297e-02_jprb,2.8211e-02_jprb,2.4733e-02_jprb,2.0771e-02_jprb,&
&1.6265e-02_jprb,1.0821e-02_jprb,6.0022e-03_jprb,3.6467e-03_jprb,9.1670e-02_jprb/)
kao( :, 4,12, 6) = (/&
&3.4696e-02_jprb,3.5203e-02_jprb,3.2853e-02_jprb,2.9817e-02_jprb,2.6296e-02_jprb,2.2203e-02_jprb,&
&1.7545e-02_jprb,1.1834e-02_jprb,6.7302e-03_jprb,4.1679e-03_jprb,9.4574e-02_jprb/)
kao( :, 5,12, 6) = (/&
&3.5522e-02_jprb,3.6626e-02_jprb,3.4423e-02_jprb,3.1438e-02_jprb,2.7875e-02_jprb,2.3697e-02_jprb,&
&1.8905e-02_jprb,1.2927e-02_jprb,7.5191e-03_jprb,4.7590e-03_jprb,9.7614e-02_jprb/)
kao( :, 1,13, 6) = (/&
&2.7210e-02_jprb,2.6304e-02_jprb,2.3996e-02_jprb,2.1359e-02_jprb,1.8491e-02_jprb,1.5314e-02_jprb,&
&1.1755e-02_jprb,7.6170e-03_jprb,4.0095e-03_jprb,2.3275e-03_jprb,7.1211e-02_jprb/)
kao( :, 2,13, 6) = (/&
&2.7941e-02_jprb,2.7441e-02_jprb,2.5246e-02_jprb,2.2622e-02_jprb,1.9729e-02_jprb,1.6472e-02_jprb,&
&1.2765e-02_jprb,8.4034e-03_jprb,4.5447e-03_jprb,2.6861e-03_jprb,7.3769e-02_jprb/)
kao( :, 3,13, 6) = (/&
&2.8664e-02_jprb,2.8630e-02_jprb,2.6520e-02_jprb,2.3935e-02_jprb,2.1025e-02_jprb,1.7662e-02_jprb,&
&1.3821e-02_jprb,9.2359e-03_jprb,5.1273e-03_jprb,3.0871e-03_jprb,7.6136e-02_jprb/)
kao( :, 4,13, 6) = (/&
&2.9387e-02_jprb,2.9844e-02_jprb,2.7832e-02_jprb,2.5287e-02_jprb,2.2341e-02_jprb,1.8888e-02_jprb,&
&1.4940e-02_jprb,1.0117e-02_jprb,5.7529e-03_jprb,3.5334e-03_jprb,7.8673e-02_jprb/)
kao( :, 5,13, 6) = (/&
&3.0121e-02_jprb,3.1064e-02_jprb,2.9140e-02_jprb,2.6651e-02_jprb,2.3680e-02_jprb,2.0177e-02_jprb,&
&1.6134e-02_jprb,1.1077e-02_jprb,6.4283e-03_jprb,4.0402e-03_jprb,8.1505e-02_jprb/)
kao( :, 1, 1, 7) = (/&
&2.6926e-01_jprb,2.5612e-01_jprb,2.3950e-01_jprb,2.1903e-01_jprb,1.9378e-01_jprb,1.6501e-01_jprb,&
&1.2973e-01_jprb,8.7439e-02_jprb,5.3950e-02_jprb,4.2811e-02_jprb,4.3233e-02_jprb/)
kao( :, 2, 1, 7) = (/&
&2.6861e-01_jprb,2.5930e-01_jprb,2.4513e-01_jprb,2.2568e-01_jprb,2.0133e-01_jprb,1.7294e-01_jprb,&
&1.3711e-01_jprb,9.4464e-02_jprb,6.0595e-02_jprb,5.0710e-02_jprb,5.1677e-02_jprb/)
kao( :, 3, 1, 7) = (/&
&2.6820e-01_jprb,2.6238e-01_jprb,2.5102e-01_jprb,2.3240e-01_jprb,2.0913e-01_jprb,1.8091e-01_jprb,&
&1.4446e-01_jprb,1.0226e-01_jprb,6.8084e-02_jprb,5.9495e-02_jprb,6.1037e-02_jprb/)
kao( :, 4, 1, 7) = (/&
&2.6771e-01_jprb,2.6572e-01_jprb,2.5658e-01_jprb,2.3935e-01_jprb,2.1685e-01_jprb,1.8839e-01_jprb,&
&1.5222e-01_jprb,1.1069e-01_jprb,7.6279e-02_jprb,6.9108e-02_jprb,7.1213e-02_jprb/)
kao( :, 5, 1, 7) = (/&
&2.6714e-01_jprb,2.6936e-01_jprb,2.6194e-01_jprb,2.4642e-01_jprb,2.2450e-01_jprb,1.9571e-01_jprb,&
&1.6083e-01_jprb,1.1918e-01_jprb,8.5421e-02_jprb,7.9682e-02_jprb,8.2280e-02_jprb/)
kao( :, 1, 2, 7) = (/&
&2.5685e-01_jprb,2.4492e-01_jprb,2.2865e-01_jprb,2.0884e-01_jprb,1.8444e-01_jprb,1.5601e-01_jprb,&
&1.2319e-01_jprb,8.1747e-02_jprb,4.8230e-02_jprb,3.5409e-02_jprb,3.4615e-02_jprb/)
kao( :, 2, 2, 7) = (/&
&2.5657e-01_jprb,2.4834e-01_jprb,2.3445e-01_jprb,2.1551e-01_jprb,1.9182e-01_jprb,1.6377e-01_jprb,&
&1.3042e-01_jprb,8.8197e-02_jprb,5.3891e-02_jprb,4.1822e-02_jprb,4.1515e-02_jprb/)
kao( :, 3, 2, 7) = (/&
&2.5627e-01_jprb,2.5163e-01_jprb,2.4011e-01_jprb,2.2230e-01_jprb,1.9937e-01_jprb,1.7150e-01_jprb,&
&1.3758e-01_jprb,9.5254e-02_jprb,6.0018e-02_jprb,4.9025e-02_jprb,4.9189e-02_jprb/)
kao( :, 4, 2, 7) = (/&
&2.5591e-01_jprb,2.5517e-01_jprb,2.4558e-01_jprb,2.2928e-01_jprb,2.0702e-01_jprb,1.7899e-01_jprb,&
&1.4524e-01_jprb,1.0258e-01_jprb,6.6782e-02_jprb,5.7123e-02_jprb,5.7631e-02_jprb/)
kao( :, 5, 2, 7) = (/&
&2.5562e-01_jprb,2.5902e-01_jprb,2.5095e-01_jprb,2.3638e-01_jprb,2.1422e-01_jprb,1.8662e-01_jprb,&
&1.5329e-01_jprb,1.0996e-01_jprb,7.4405e-02_jprb,6.6142e-02_jprb,6.6949e-02_jprb/)
kao( :, 1, 3, 7) = (/&
&2.4108e-01_jprb,2.2965e-01_jprb,2.1361e-01_jprb,1.9446e-01_jprb,1.7133e-01_jprb,1.4401e-01_jprb,&
&1.1345e-01_jprb,7.5185e-02_jprb,4.2160e-02_jprb,2.8583e-02_jprb,2.6584e-02_jprb/)
kao( :, 2, 3, 7) = (/&
&2.4113e-01_jprb,2.3314e-01_jprb,2.1942e-01_jprb,2.0119e-01_jprb,1.7846e-01_jprb,1.5146e-01_jprb,&
&1.2063e-01_jprb,8.1173e-02_jprb,4.7044e-02_jprb,3.3533e-02_jprb,3.2019e-02_jprb/)
kao( :, 3, 3, 7) = (/&
&2.4094e-01_jprb,2.3663e-01_jprb,2.2501e-01_jprb,2.0773e-01_jprb,1.8580e-01_jprb,1.5907e-01_jprb,&
&1.2798e-01_jprb,8.7501e-02_jprb,5.2313e-02_jprb,3.9244e-02_jprb,3.8141e-02_jprb/)
kao( :, 4, 3, 7) = (/&
&2.4074e-01_jprb,2.4043e-01_jprb,2.3041e-01_jprb,2.1449e-01_jprb,1.9317e-01_jprb,1.6647e-01_jprb,&
&1.3556e-01_jprb,9.3949e-02_jprb,5.7980e-02_jprb,4.5777e-02_jprb,4.5020e-02_jprb/)
kao( :, 5, 3, 7) = (/&
&2.4071e-01_jprb,2.4430e-01_jprb,2.3591e-01_jprb,2.2137e-01_jprb,2.0017e-01_jprb,1.7425e-01_jprb,&
&1.4332e-01_jprb,1.0047e-01_jprb,6.4245e-02_jprb,5.3237e-02_jprb,5.2730e-02_jprb/)
kao( :, 1, 4, 7) = (/&
&2.2311e-01_jprb,2.1202e-01_jprb,1.9660e-01_jprb,1.7804e-01_jprb,1.5619e-01_jprb,1.3066e-01_jprb,&
&1.0239e-01_jprb,6.7996e-02_jprb,3.6908e-02_jprb,2.3235e-02_jprb,2.0397e-02_jprb/)
kao( :, 2, 4, 7) = (/&
&2.2321e-01_jprb,2.1552e-01_jprb,2.0209e-01_jprb,1.8449e-01_jprb,1.6284e-01_jprb,1.3774e-01_jprb,&
&1.0930e-01_jprb,7.3775e-02_jprb,4.1078e-02_jprb,2.7004e-02_jprb,2.4614e-02_jprb/)
kao( :, 3, 4, 7) = (/&
&2.2314e-01_jprb,2.1901e-01_jprb,2.0753e-01_jprb,1.9073e-01_jprb,1.6981e-01_jprb,1.4494e-01_jprb,&
&1.1634e-01_jprb,7.9807e-02_jprb,4.5483e-02_jprb,3.1405e-02_jprb,2.9481e-02_jprb/)
kao( :, 4, 4, 7) = (/&
&2.2327e-01_jprb,2.2287e-01_jprb,2.1284e-01_jprb,1.9716e-01_jprb,1.7693e-01_jprb,1.5226e-01_jprb,&
&1.2381e-01_jprb,8.5751e-02_jprb,5.0279e-02_jprb,3.6528e-02_jprb,3.5030e-02_jprb/)
kao( :, 5, 4, 7) = (/&
&2.2365e-01_jprb,2.2673e-01_jprb,2.1820e-01_jprb,2.0372e-01_jprb,1.8385e-01_jprb,1.5984e-01_jprb,&
&1.3133e-01_jprb,9.1593e-02_jprb,5.5615e-02_jprb,4.2459e-02_jprb,4.1306e-02_jprb/)
kao( :, 1, 5, 7) = (/&
&2.0367e-01_jprb,1.9330e-01_jprb,1.7867e-01_jprb,1.6084e-01_jprb,1.4027e-01_jprb,1.1693e-01_jprb,&
&9.0945e-02_jprb,6.0466e-02_jprb,3.2455e-02_jprb,1.9165e-02_jprb,1.7920e-02_jprb/)
kao( :, 2, 5, 7) = (/&
&2.0387e-01_jprb,1.9668e-01_jprb,1.8380e-01_jprb,1.6682e-01_jprb,1.4653e-01_jprb,1.2346e-01_jprb,&
&9.7443e-02_jprb,6.5962e-02_jprb,3.6138e-02_jprb,2.2169e-02_jprb,2.0934e-02_jprb/)
kao( :, 3, 5, 7) = (/&
&2.0408e-01_jprb,2.0015e-01_jprb,1.8885e-01_jprb,1.7264e-01_jprb,1.5303e-01_jprb,1.3023e-01_jprb,&
&1.0413e-01_jprb,7.1676e-02_jprb,3.9916e-02_jprb,2.5581e-02_jprb,2.4393e-02_jprb/)
kao( :, 4, 5, 7) = (/&
&2.0467e-01_jprb,2.0395e-01_jprb,1.9389e-01_jprb,1.7862e-01_jprb,1.5966e-01_jprb,1.3725e-01_jprb,&
&1.1106e-01_jprb,7.7287e-02_jprb,4.3976e-02_jprb,2.9567e-02_jprb,2.8440e-02_jprb/)
kao( :, 5, 5, 7) = (/&
&2.0538e-01_jprb,2.0784e-01_jprb,1.9895e-01_jprb,1.8474e-01_jprb,1.6635e-01_jprb,1.4459e-01_jprb,&
&1.1807e-01_jprb,8.2795e-02_jprb,4.8485e-02_jprb,3.4195e-02_jprb,3.3174e-02_jprb/)
kao( :, 1, 6, 7) = (/&
&1.8377e-01_jprb,1.7398e-01_jprb,1.6006e-01_jprb,1.4318e-01_jprb,1.2397e-01_jprb,1.0298e-01_jprb,&
&7.9521e-02_jprb,5.2397e-02_jprb,2.8050e-02_jprb,1.5934e-02_jprb,1.6791e-02_jprb/)
kao( :, 2, 6, 7) = (/&
&1.8406e-01_jprb,1.7717e-01_jprb,1.6474e-01_jprb,1.4853e-01_jprb,1.2984e-01_jprb,1.0898e-01_jprb,&
&8.5328e-02_jprb,5.7490e-02_jprb,3.1447e-02_jprb,1.8349e-02_jprb,1.9516e-02_jprb/)
kao( :, 3, 6, 7) = (/&
&1.8458e-01_jprb,1.8054e-01_jprb,1.6936e-01_jprb,1.5392e-01_jprb,1.3584e-01_jprb,1.1517e-01_jprb,&
&9.1409e-02_jprb,6.2836e-02_jprb,3.4889e-02_jprb,2.1106e-02_jprb,2.2611e-02_jprb/)
kao( :, 4, 6, 7) = (/&
&1.8542e-01_jprb,1.8421e-01_jprb,1.7403e-01_jprb,1.5942e-01_jprb,1.4196e-01_jprb,1.2162e-01_jprb,&
&9.7928e-02_jprb,6.8139e-02_jprb,3.8483e-02_jprb,2.4244e-02_jprb,2.6124e-02_jprb/)
kao( :, 5, 6, 7) = (/&
&1.8648e-01_jprb,1.8801e-01_jprb,1.7890e-01_jprb,1.6506e-01_jprb,1.4823e-01_jprb,1.2840e-01_jprb,&
&1.0438e-01_jprb,7.3304e-02_jprb,4.2378e-02_jprb,2.7839e-02_jprb,3.0053e-02_jprb/)
kao( :, 1, 7, 7) = (/&
&1.6272e-01_jprb,1.5372e-01_jprb,1.4080e-01_jprb,1.2519e-01_jprb,1.0771e-01_jprb,8.8984e-02_jprb,&
&6.8276e-02_jprb,4.4541e-02_jprb,2.3807e-02_jprb,1.3453e-02_jprb,1.6655e-02_jprb/)
kao( :, 2, 7, 7) = (/&
&1.6325e-01_jprb,1.5679e-01_jprb,1.4498e-01_jprb,1.2986e-01_jprb,1.1297e-01_jprb,9.4402e-02_jprb,&
&7.3383e-02_jprb,4.9046e-02_jprb,2.6845e-02_jprb,1.5405e-02_jprb,1.9132e-02_jprb/)
kao( :, 3, 7, 7) = (/&
&1.6400e-01_jprb,1.6007e-01_jprb,1.4916e-01_jprb,1.3473e-01_jprb,1.1836e-01_jprb,9.9949e-02_jprb,&
&7.8806e-02_jprb,5.3833e-02_jprb,2.9954e-02_jprb,1.7645e-02_jprb,2.1895e-02_jprb/)
kao( :, 4, 7, 7) = (/&
&1.6505e-01_jprb,1.6353e-01_jprb,1.5347e-01_jprb,1.3982e-01_jprb,1.2392e-01_jprb,1.0565e-01_jprb,&
&8.4634e-02_jprb,5.8597e-02_jprb,3.3207e-02_jprb,2.0171e-02_jprb,2.4986e-02_jprb/)
kao( :, 5, 7, 7) = (/&
&1.6641e-01_jprb,1.6726e-01_jprb,1.5808e-01_jprb,1.4506e-01_jprb,1.2973e-01_jprb,1.1182e-01_jprb,&
&9.0461e-02_jprb,6.3334e-02_jprb,3.6689e-02_jprb,2.3031e-02_jprb,2.8476e-02_jprb/)
kao( :, 1, 8, 7) = (/&
&1.4230e-01_jprb,1.3413e-01_jprb,1.2233e-01_jprb,1.0813e-01_jprb,9.2496e-02_jprb,7.5904e-02_jprb,&
&5.7906e-02_jprb,3.7394e-02_jprb,2.0019e-02_jprb,1.1310e-02_jprb,1.9019e-02_jprb/)
kao( :, 2, 8, 7) = (/&
&1.4305e-01_jprb,1.3708e-01_jprb,1.2596e-01_jprb,1.1218e-01_jprb,9.7109e-02_jprb,8.0704e-02_jprb,&
&6.2330e-02_jprb,4.1218e-02_jprb,2.2623e-02_jprb,1.3029e-02_jprb,2.1546e-02_jprb/)
kao( :, 3, 8, 7) = (/&
&1.4394e-01_jprb,1.4013e-01_jprb,1.2970e-01_jprb,1.1658e-01_jprb,1.0194e-01_jprb,8.5591e-02_jprb,&
&6.7043e-02_jprb,4.5347e-02_jprb,2.5359e-02_jprb,1.4903e-02_jprb,2.4327e-02_jprb/)
kao( :, 4, 8, 7) = (/&
&1.4525e-01_jprb,1.4339e-01_jprb,1.3373e-01_jprb,1.2126e-01_jprb,1.0690e-01_jprb,9.0683e-02_jprb,&
&7.2129e-02_jprb,4.9569e-02_jprb,2.8222e-02_jprb,1.6964e-02_jprb,2.7427e-02_jprb/)
kao( :, 5, 8, 7) = (/&
&1.4678e-01_jprb,1.4702e-01_jprb,1.3814e-01_jprb,1.2616e-01_jprb,1.1217e-01_jprb,9.6136e-02_jprb,&
&7.7253e-02_jprb,5.3800e-02_jprb,3.1285e-02_jprb,1.9274e-02_jprb,3.0890e-02_jprb/)
kao( :, 1, 9, 7) = (/&
&1.2368e-01_jprb,1.1615e-01_jprb,1.0547e-01_jprb,9.2730e-02_jprb,7.8890e-02_jprb,6.4288e-02_jprb,&
&4.8706e-02_jprb,3.1194e-02_jprb,1.6735e-02_jprb,9.3621e-03_jprb,3.9474e-02_jprb/)
kao( :, 2, 9, 7) = (/&
&1.2453e-01_jprb,1.1886e-01_jprb,1.0862e-01_jprb,9.6299e-02_jprb,8.2892e-02_jprb,6.8444e-02_jprb,&
&5.2534e-02_jprb,3.4360e-02_jprb,1.8949e-02_jprb,1.0875e-02_jprb,4.3185e-02_jprb/)
kao( :, 3, 9, 7) = (/&
&1.2562e-01_jprb,1.2177e-01_jprb,1.1199e-01_jprb,1.0025e-01_jprb,8.7157e-02_jprb,7.2734e-02_jprb,&
&5.6567e-02_jprb,3.7837e-02_jprb,2.1307e-02_jprb,1.2524e-02_jprb,4.7262e-02_jprb/)
kao( :, 4, 9, 7) = (/&
&1.2711e-01_jprb,1.2497e-01_jprb,1.1585e-01_jprb,1.0453e-01_jprb,9.1592e-02_jprb,7.7237e-02_jprb,&
&6.0927e-02_jprb,4.1474e-02_jprb,2.3783e-02_jprb,1.4321e-02_jprb,5.1601e-02_jprb/)
kao( :, 5, 9, 7) = (/&
&1.2877e-01_jprb,1.2842e-01_jprb,1.2005e-01_jprb,1.0911e-01_jprb,9.6384e-02_jprb,8.2052e-02_jprb,&
&6.5390e-02_jprb,4.5200e-02_jprb,2.6423e-02_jprb,1.6264e-02_jprb,5.6231e-02_jprb/)
kao( :, 1,10, 7) = (/&
&1.0692e-01_jprb,1.0005e-01_jprb,9.0502e-02_jprb,7.9216e-02_jprb,6.7057e-02_jprb,5.4323e-02_jprb,&
&4.0890e-02_jprb,2.6119e-02_jprb,1.4019e-02_jprb,7.7525e-03_jprb,1.2082e-01_jprb/)
kao( :, 2,10, 7) = (/&
&1.0785e-01_jprb,1.0257e-01_jprb,9.3251e-02_jprb,8.2316e-02_jprb,7.0515e-02_jprb,5.7848e-02_jprb,&
&4.4197e-02_jprb,2.8769e-02_jprb,1.5892e-02_jprb,9.0528e-03_jprb,1.2557e-01_jprb/)
kao( :, 3,10, 7) = (/&
&1.0912e-01_jprb,1.0534e-01_jprb,9.6345e-02_jprb,8.5888e-02_jprb,7.4218e-02_jprb,6.1590e-02_jprb,&
&4.7639e-02_jprb,3.1645e-02_jprb,1.7926e-02_jprb,1.0497e-02_jprb,1.3124e-01_jprb/)
kao( :, 4,10, 7) = (/&
&1.1068e-01_jprb,1.0836e-01_jprb,9.9964e-02_jprb,8.9810e-02_jprb,7.8244e-02_jprb,6.5593e-02_jprb,&
&5.1337e-02_jprb,3.4711e-02_jprb,2.0071e-02_jprb,1.2083e-02_jprb,1.3784e-01_jprb/)
kao( :, 5,10, 7) = (/&
&1.1237e-01_jprb,1.1161e-01_jprb,1.0388e-01_jprb,9.3947e-02_jprb,8.2580e-02_jprb,6.9883e-02_jprb,&
&5.5203e-02_jprb,3.7928e-02_jprb,2.2348e-02_jprb,1.3792e-02_jprb,1.4518e-01_jprb/)
kao( :, 1,11, 7) = (/&
&9.2754e-02_jprb,8.7072e-02_jprb,7.8639e-02_jprb,6.8755e-02_jprb,5.8275e-02_jprb,4.7245e-02_jprb,&
&3.5602e-02_jprb,2.2866e-02_jprb,1.2334e-02_jprb,6.8505e-03_jprb,1.6609e-01_jprb/)
kao( :, 2,11, 7) = (/&
&9.3939e-02_jprb,8.9571e-02_jprb,8.1238e-02_jprb,7.1711e-02_jprb,6.1381e-02_jprb,5.0306e-02_jprb,&
&3.8442e-02_jprb,2.5156e-02_jprb,1.3991e-02_jprb,8.0122e-03_jprb,1.7138e-01_jprb/)
kao( :, 3,11, 7) = (/&
&9.5412e-02_jprb,9.2282e-02_jprb,8.4324e-02_jprb,7.5102e-02_jprb,6.4785e-02_jprb,5.3640e-02_jprb,&
&4.1470e-02_jprb,2.7635e-02_jprb,1.5787e-02_jprb,9.3174e-03_jprb,1.7778e-01_jprb/)
kao( :, 4,11, 7) = (/&
&9.6996e-02_jprb,9.5142e-02_jprb,8.7745e-02_jprb,7.8708e-02_jprb,6.8483e-02_jprb,5.7282e-02_jprb,&
&4.4714e-02_jprb,3.0277e-02_jprb,1.7707e-02_jprb,1.0749e-02_jprb,1.8499e-01_jprb/)
kao( :, 5,11, 7) = (/&
&9.8658e-02_jprb,9.8284e-02_jprb,9.1388e-02_jprb,8.2534e-02_jprb,7.2404e-02_jprb,6.1041e-02_jprb,&
&4.8110e-02_jprb,3.3083e-02_jprb,1.9725e-02_jprb,1.2309e-02_jprb,1.9294e-01_jprb/)
kao( :, 1,12, 7) = (/&
&8.0002e-02_jprb,7.5395e-02_jprb,6.7953e-02_jprb,5.9467e-02_jprb,5.0458e-02_jprb,4.0919e-02_jprb,&
&3.0920e-02_jprb,1.9925e-02_jprb,1.0727e-02_jprb,5.9901e-03_jprb,1.7505e-01_jprb/)
kao( :, 2,12, 7) = (/&
&8.1332e-02_jprb,7.7813e-02_jprb,7.0567e-02_jprb,6.2307e-02_jprb,5.3303e-02_jprb,4.3618e-02_jprb,&
&3.3391e-02_jprb,2.1911e-02_jprb,1.2184e-02_jprb,7.0189e-03_jprb,1.8048e-01_jprb/)
kao( :, 3,12, 7) = (/&
&8.2791e-02_jprb,8.0324e-02_jprb,7.3485e-02_jprb,6.5420e-02_jprb,5.6352e-02_jprb,4.6610e-02_jprb,&
&3.6047e-02_jprb,2.4056e-02_jprb,1.3765e-02_jprb,8.1809e-03_jprb,1.8704e-01_jprb/)
kao( :, 4,12, 7) = (/&
&8.4300e-02_jprb,8.3063e-02_jprb,7.6637e-02_jprb,6.8671e-02_jprb,5.9646e-02_jprb,4.9774e-02_jprb,&
&3.8886e-02_jprb,2.6351e-02_jprb,1.5463e-02_jprb,9.4646e-03_jprb,1.9416e-01_jprb/)
kao( :, 5,12, 7) = (/&
&8.5799e-02_jprb,8.5928e-02_jprb,7.9923e-02_jprb,7.2138e-02_jprb,6.3097e-02_jprb,5.3071e-02_jprb,&
&4.1851e-02_jprb,2.8800e-02_jprb,1.7260e-02_jprb,1.0869e-02_jprb,2.0180e-01_jprb/)
kao( :, 1,13, 7) = (/&
&6.7746e-02_jprb,6.4117e-02_jprb,5.7794e-02_jprb,5.0687e-02_jprb,4.3091e-02_jprb,3.5063e-02_jprb,&
&2.6600e-02_jprb,1.7143e-02_jprb,9.2085e-03_jprb,5.1738e-03_jprb,1.4684e-01_jprb/)
kao( :, 2,13, 7) = (/&
&6.9040e-02_jprb,6.6326e-02_jprb,6.0272e-02_jprb,5.3267e-02_jprb,4.5640e-02_jprb,3.7446e-02_jprb,&
&2.8771e-02_jprb,1.8875e-02_jprb,1.0472e-02_jprb,6.0786e-03_jprb,1.5190e-01_jprb/)
kao( :, 3,13, 7) = (/&
&7.0402e-02_jprb,6.8674e-02_jprb,6.2930e-02_jprb,5.6044e-02_jprb,4.8322e-02_jprb,4.0046e-02_jprb,&
&3.1093e-02_jprb,2.0746e-02_jprb,1.1854e-02_jprb,7.0992e-03_jprb,1.5783e-01_jprb/)
kao( :, 4,13, 7) = (/&
&7.1727e-02_jprb,7.1116e-02_jprb,6.5698e-02_jprb,5.8955e-02_jprb,5.1188e-02_jprb,4.2780e-02_jprb,&
&3.3535e-02_jprb,2.2751e-02_jprb,1.3343e-02_jprb,8.2333e-03_jprb,1.6414e-01_jprb/)
kao( :, 5,13, 7) = (/&
&7.3153e-02_jprb,7.3694e-02_jprb,6.8621e-02_jprb,6.1933e-02_jprb,5.4168e-02_jprb,4.5648e-02_jprb,&
&3.6089e-02_jprb,2.4874e-02_jprb,1.4932e-02_jprb,9.4816e-03_jprb,1.7071e-01_jprb/)
kao( :, 1, 1, 8) = (/&
&4.9299e-01_jprb,4.5097e-01_jprb,4.1423e-01_jprb,3.7425e-01_jprb,3.3288e-01_jprb,2.8439e-01_jprb,&
&2.3129e-01_jprb,1.6724e-01_jprb,1.2209e-01_jprb,1.1839e-01_jprb,1.2231e-01_jprb/)
kao( :, 2, 1, 8) = (/&
&4.9158e-01_jprb,4.5413e-01_jprb,4.2130e-01_jprb,3.8574e-01_jprb,3.4556e-01_jprb,2.9862e-01_jprb,&
&2.4672e-01_jprb,1.8285e-01_jprb,1.4316e-01_jprb,1.4173e-01_jprb,1.4653e-01_jprb/)
kao( :, 3, 1, 8) = (/&
&4.8921e-01_jprb,4.5835e-01_jprb,4.2895e-01_jprb,3.9755e-01_jprb,3.5824e-01_jprb,3.1313e-01_jprb,&
&2.6208e-01_jprb,1.9974e-01_jprb,1.6634e-01_jprb,1.6696e-01_jprb,1.7273e-01_jprb/)
kao( :, 4, 1, 8) = (/&
&4.8664e-01_jprb,4.6279e-01_jprb,4.3774e-01_jprb,4.0881e-01_jprb,3.7103e-01_jprb,3.2868e-01_jprb,&
&2.7711e-01_jprb,2.1740e-01_jprb,1.9172e-01_jprb,1.9403e-01_jprb,2.0091e-01_jprb/)
kao( :, 5, 1, 8) = (/&
&4.8428e-01_jprb,4.6664e-01_jprb,4.4704e-01_jprb,4.1926e-01_jprb,3.8405e-01_jprb,3.4407e-01_jprb,&
&2.9186e-01_jprb,2.3664e-01_jprb,2.1906e-01_jprb,2.2276e-01_jprb,2.3078e-01_jprb/)
kao( :, 1, 2, 8) = (/&
&5.0098e-01_jprb,4.5838e-01_jprb,4.1902e-01_jprb,3.7538e-01_jprb,3.3034e-01_jprb,2.7973e-01_jprb,&
&2.2195e-01_jprb,1.5668e-01_jprb,1.0587e-01_jprb,9.8490e-02_jprb,1.0033e-01_jprb/)
kao( :, 2, 2, 8) = (/&
&4.9983e-01_jprb,4.6235e-01_jprb,4.2661e-01_jprb,3.8655e-01_jprb,3.4282e-01_jprb,2.9301e-01_jprb,&
&2.3610e-01_jprb,1.7056e-01_jprb,1.2318e-01_jprb,1.1876e-01_jprb,1.2114e-01_jprb/)
kao( :, 3, 2, 8) = (/&
&4.9812e-01_jprb,4.6732e-01_jprb,4.3492e-01_jprb,3.9791e-01_jprb,3.5518e-01_jprb,3.0663e-01_jprb,&
&2.5073e-01_jprb,1.8486e-01_jprb,1.4281e-01_jprb,1.4075e-01_jprb,1.4376e-01_jprb/)
kao( :, 4, 2, 8) = (/&
&4.9623e-01_jprb,4.7200e-01_jprb,4.4361e-01_jprb,4.0869e-01_jprb,3.6716e-01_jprb,3.2094e-01_jprb,&
&2.6503e-01_jprb,2.0038e-01_jprb,1.6450e-01_jprb,1.6447e-01_jprb,1.6812e-01_jprb/)
kao( :, 5, 2, 8) = (/&
&4.9443e-01_jprb,4.7565e-01_jprb,4.5245e-01_jprb,4.1884e-01_jprb,3.7991e-01_jprb,3.3502e-01_jprb,&
&2.7893e-01_jprb,2.1726e-01_jprb,1.8823e-01_jprb,1.8992e-01_jprb,1.9426e-01_jprb/)
kao( :, 1, 3, 8) = (/&
&5.0316e-01_jprb,4.6054e-01_jprb,4.1948e-01_jprb,3.7358e-01_jprb,3.2537e-01_jprb,2.7199e-01_jprb,&
&2.1201e-01_jprb,1.4405e-01_jprb,9.1061e-02_jprb,7.8216e-02_jprb,7.8431e-02_jprb/)
kao( :, 2, 3, 8) = (/&
&5.0250e-01_jprb,4.6508e-01_jprb,4.2753e-01_jprb,3.8448e-01_jprb,3.3743e-01_jprb,2.8477e-01_jprb,&
&2.2471e-01_jprb,1.5690e-01_jprb,1.0463e-01_jprb,9.5297e-02_jprb,9.5775e-02_jprb/)
kao( :, 3, 3, 8) = (/&
&5.0156e-01_jprb,4.7034e-01_jprb,4.3587e-01_jprb,3.9592e-01_jprb,3.4938e-01_jprb,2.9738e-01_jprb,&
&2.3781e-01_jprb,1.6990e-01_jprb,1.2021e-01_jprb,1.1406e-01_jprb,1.1481e-01_jprb/)
kao( :, 4, 3, 8) = (/&
&5.0040e-01_jprb,4.7526e-01_jprb,4.4463e-01_jprb,4.0641e-01_jprb,3.6112e-01_jprb,3.1063e-01_jprb,&
&2.5089e-01_jprb,1.8361e-01_jprb,1.3795e-01_jprb,1.3453e-01_jprb,1.3558e-01_jprb/)
kao( :, 5, 3, 8) = (/&
&4.9904e-01_jprb,4.7934e-01_jprb,4.5345e-01_jprb,4.1619e-01_jprb,3.7327e-01_jprb,3.2376e-01_jprb,&
&2.6376e-01_jprb,1.9847e-01_jprb,1.5778e-01_jprb,1.5659e-01_jprb,1.5798e-01_jprb/)
kao( :, 1, 4, 8) = (/&
&4.9806e-01_jprb,4.5577e-01_jprb,4.1390e-01_jprb,3.6716e-01_jprb,3.1756e-01_jprb,2.6347e-01_jprb,&
&2.0234e-01_jprb,1.3271e-01_jprb,7.8950e-02_jprb,6.0980e-02_jprb,6.0379e-02_jprb/)
kao( :, 2, 4, 8) = (/&
&4.9826e-01_jprb,4.6101e-01_jprb,4.2242e-01_jprb,3.7800e-01_jprb,3.3007e-01_jprb,2.7585e-01_jprb,&
&2.1397e-01_jprb,1.4413e-01_jprb,8.9794e-02_jprb,7.4947e-02_jprb,7.4639e-02_jprb/)
kao( :, 3, 4, 8) = (/&
&4.9811e-01_jprb,4.6681e-01_jprb,4.3096e-01_jprb,3.8962e-01_jprb,3.4219e-01_jprb,2.8784e-01_jprb,&
&2.2620e-01_jprb,1.5584e-01_jprb,1.0227e-01_jprb,9.0609e-02_jprb,9.0488e-02_jprb/)
kao( :, 4, 4, 8) = (/&
&4.9746e-01_jprb,4.7213e-01_jprb,4.3992e-01_jprb,4.0060e-01_jprb,3.5359e-01_jprb,3.0001e-01_jprb,&
&2.3826e-01_jprb,1.6835e-01_jprb,1.1655e-01_jprb,1.0791e-01_jprb,1.0795e-01_jprb/)
kao( :, 5, 4, 8) = (/&
&4.9635e-01_jprb,4.7672e-01_jprb,4.4914e-01_jprb,4.1061e-01_jprb,3.6511e-01_jprb,3.1218e-01_jprb,&
&2.5028e-01_jprb,1.8187e-01_jprb,1.3226e-01_jprb,1.2654e-01_jprb,1.2673e-01_jprb/)
kao( :, 1, 5, 8) = (/&
&4.8638e-01_jprb,4.4445e-01_jprb,4.0240e-01_jprb,3.5595e-01_jprb,3.0624e-01_jprb,2.5236e-01_jprb,&
&1.9246e-01_jprb,1.2312e-01_jprb,6.9001e-02_jprb,4.7715e-02_jprb,4.6683e-02_jprb/)
kao( :, 2, 5, 8) = (/&
&4.8710e-01_jprb,4.5014e-01_jprb,4.1145e-01_jprb,3.6700e-01_jprb,3.1862e-01_jprb,2.6463e-01_jprb,&
&2.0376e-01_jprb,1.3331e-01_jprb,7.8352e-02_jprb,5.8722e-02_jprb,5.8068e-02_jprb/)
kao( :, 3, 5, 8) = (/&
&4.8733e-01_jprb,4.5646e-01_jprb,4.2038e-01_jprb,3.7871e-01_jprb,3.3086e-01_jprb,2.7657e-01_jprb,&
&2.1509e-01_jprb,1.4382e-01_jprb,8.8703e-02_jprb,7.1451e-02_jprb,7.1075e-02_jprb/)
kao( :, 4, 5, 8) = (/&
&4.8688e-01_jprb,4.6221e-01_jprb,4.2956e-01_jprb,3.8977e-01_jprb,3.4249e-01_jprb,2.8843e-01_jprb,&
&2.2638e-01_jprb,1.5517e-01_jprb,1.0010e-01_jprb,8.5586e-02_jprb,8.5398e-02_jprb/)
kao( :, 5, 5, 8) = (/&
&4.8605e-01_jprb,4.6725e-01_jprb,4.3887e-01_jprb,4.0002e-01_jprb,3.5369e-01_jprb,3.0008e-01_jprb,&
&2.3780e-01_jprb,1.6738e-01_jprb,1.1249e-01_jprb,1.0093e-01_jprb,1.0091e-01_jprb/)
kao( :, 1, 6, 8) = (/&
&4.6671e-01_jprb,4.2600e-01_jprb,3.8466e-01_jprb,3.3926e-01_jprb,2.9061e-01_jprb,2.3768e-01_jprb,&
&1.7963e-01_jprb,1.1420e-01_jprb,6.0552e-02_jprb,3.7850e-02_jprb,4.1921e-02_jprb/)
kao( :, 2, 6, 8) = (/&
&4.6803e-01_jprb,4.3203e-01_jprb,3.9392e-01_jprb,3.5053e-01_jprb,3.0269e-01_jprb,2.4962e-01_jprb,&
&1.9077e-01_jprb,1.2351e-01_jprb,6.8512e-02_jprb,4.6284e-02_jprb,5.0049e-02_jprb/)
kao( :, 3, 6, 8) = (/&
&4.6842e-01_jprb,4.3840e-01_jprb,4.0304e-01_jprb,3.6198e-01_jprb,3.1472e-01_jprb,2.6142e-01_jprb,&
&2.0201e-01_jprb,1.3304e-01_jprb,7.7462e-02_jprb,5.6089e-02_jprb,5.9440e-02_jprb/)
kao( :, 4, 6, 8) = (/&
&4.6834e-01_jprb,4.4438e-01_jprb,4.1233e-01_jprb,3.7291e-01_jprb,3.2609e-01_jprb,2.7299e-01_jprb,&
&2.1298e-01_jprb,1.4322e-01_jprb,8.7054e-02_jprb,6.7233e-02_jprb,7.0024e-02_jprb/)
kao( :, 5, 6, 8) = (/&
&4.6792e-01_jprb,4.4990e-01_jprb,4.2136e-01_jprb,3.8305e-01_jprb,3.3708e-01_jprb,2.8431e-01_jprb,&
&2.2411e-01_jprb,1.5430e-01_jprb,9.7088e-02_jprb,7.9618e-02_jprb,8.1792e-02_jprb/)
kao( :, 1, 7, 8) = (/&
&4.3699e-01_jprb,3.9837e-01_jprb,3.5896e-01_jprb,3.1590e-01_jprb,2.6958e-01_jprb,2.1919e-01_jprb,&
&1.6418e-01_jprb,1.0344e-01_jprb,5.3382e-02_jprb,3.0831e-02_jprb,4.2953e-02_jprb/)
kao( :, 2, 7, 8) = (/&
&4.3843e-01_jprb,4.0448e-01_jprb,3.6812e-01_jprb,3.2701e-01_jprb,2.8124e-01_jprb,2.3050e-01_jprb,&
&1.7482e-01_jprb,1.1234e-01_jprb,6.0200e-02_jprb,3.7229e-02_jprb,5.0680e-02_jprb/)
kao( :, 3, 7, 8) = (/&
&4.3919e-01_jprb,4.1086e-01_jprb,3.7731e-01_jprb,3.3799e-01_jprb,2.9265e-01_jprb,2.4169e-01_jprb,&
&1.8565e-01_jprb,1.2131e-01_jprb,6.7916e-02_jprb,4.4736e-02_jprb,5.9303e-02_jprb/)
kao( :, 4, 7, 8) = (/&
&4.3964e-01_jprb,4.1709e-01_jprb,3.8642e-01_jprb,3.4844e-01_jprb,3.0343e-01_jprb,2.5289e-01_jprb,&
&1.9633e-01_jprb,1.3094e-01_jprb,7.6222e-02_jprb,5.3326e-02_jprb,6.8509e-02_jprb/)
kao( :, 5, 7, 8) = (/&
&4.3947e-01_jprb,4.2288e-01_jprb,3.9537e-01_jprb,3.5832e-01_jprb,3.1399e-01_jprb,2.6369e-01_jprb,&
&2.0720e-01_jprb,1.4134e-01_jprb,8.4840e-02_jprb,6.3000e-02_jprb,7.8182e-02_jprb/)
kao( :, 1, 8, 8) = (/&
&4.0095e-01_jprb,3.6508e-01_jprb,3.2839e-01_jprb,2.8828e-01_jprb,2.4526e-01_jprb,1.9846e-01_jprb,&
&1.4746e-01_jprb,9.1777e-02_jprb,4.6862e-02_jprb,2.5767e-02_jprb,4.9298e-02_jprb/)
kao( :, 2, 8, 8) = (/&
&4.0247e-01_jprb,3.7108e-01_jprb,3.3718e-01_jprb,2.9895e-01_jprb,2.5608e-01_jprb,2.0883e-01_jprb,&
&1.5736e-01_jprb,1.0019e-01_jprb,5.2944e-02_jprb,3.0729e-02_jprb,5.6721e-02_jprb/)
kao( :, 3, 8, 8) = (/&
&4.0379e-01_jprb,3.7769e-01_jprb,3.4624e-01_jprb,3.0913e-01_jprb,2.6652e-01_jprb,2.1917e-01_jprb,&
&1.6744e-01_jprb,1.0879e-01_jprb,5.9618e-02_jprb,3.6479e-02_jprb,6.5019e-02_jprb/)
kao( :, 4, 8, 8) = (/&
&4.0440e-01_jprb,3.8393e-01_jprb,3.5518e-01_jprb,3.1911e-01_jprb,2.7671e-01_jprb,2.2954e-01_jprb,&
&1.7755e-01_jprb,1.1776e-01_jprb,6.6811e-02_jprb,4.3078e-02_jprb,7.4113e-02_jprb/)
kao( :, 5, 8, 8) = (/&
&4.0446e-01_jprb,3.8965e-01_jprb,3.6366e-01_jprb,3.2844e-01_jprb,2.8667e-01_jprb,2.3995e-01_jprb,&
&1.8784e-01_jprb,1.2743e-01_jprb,7.4347e-02_jprb,5.0583e-02_jprb,8.3692e-02_jprb/)
kao( :, 1, 9, 8) = (/&
&3.6220e-01_jprb,3.2943e-01_jprb,2.9565e-01_jprb,2.5888e-01_jprb,2.1956e-01_jprb,1.7688e-01_jprb,&
&1.3053e-01_jprb,8.0073e-02_jprb,4.0469e-02_jprb,2.1839e-02_jprb,9.4199e-02_jprb/)
kao( :, 2, 9, 8) = (/&
&3.6411e-01_jprb,3.3547e-01_jprb,3.0414e-01_jprb,2.6872e-01_jprb,2.2935e-01_jprb,1.8612e-01_jprb,&
&1.3939e-01_jprb,8.7821e-02_jprb,4.5931e-02_jprb,2.5820e-02_jprb,1.0332e-01_jprb/)
kao( :, 3, 9, 8) = (/&
&3.6566e-01_jprb,3.4191e-01_jprb,3.1284e-01_jprb,2.7831e-01_jprb,2.3893e-01_jprb,1.9553e-01_jprb,&
&1.4849e-01_jprb,9.5850e-02_jprb,5.1870e-02_jprb,3.0419e-02_jprb,1.1365e-01_jprb/)
kao( :, 4, 9, 8) = (/&
&3.6634e-01_jprb,3.4783e-01_jprb,3.2112e-01_jprb,2.8747e-01_jprb,2.4838e-01_jprb,2.0518e-01_jprb,&
&1.5786e-01_jprb,1.0419e-01_jprb,5.8269e-02_jprb,3.5620e-02_jprb,1.2479e-01_jprb/)
kao( :, 5, 9, 8) = (/&
&3.6687e-01_jprb,3.5352e-01_jprb,3.2900e-01_jprb,2.9611e-01_jprb,2.5769e-01_jprb,2.1498e-01_jprb,&
&1.6749e-01_jprb,1.1307e-01_jprb,6.4929e-02_jprb,4.1475e-02_jprb,1.3690e-01_jprb/)
kao( :, 1,10, 8) = (/&
&3.2199e-01_jprb,2.9278e-01_jprb,2.6222e-01_jprb,2.2905e-01_jprb,1.9373e-01_jprb,1.5558e-01_jprb,&
&1.1424e-01_jprb,6.9413e-02_jprb,3.4798e-02_jprb,1.8896e-02_jprb,2.8335e-01_jprb/)
kao( :, 2,10, 8) = (/&
&3.2419e-01_jprb,2.9882e-01_jprb,2.7031e-01_jprb,2.3822e-01_jprb,2.0265e-01_jprb,1.6381e-01_jprb,&
&1.2203e-01_jprb,7.6200e-02_jprb,3.9653e-02_jprb,2.2203e-02_jprb,3.0010e-01_jprb/)
kao( :, 3,10, 8) = (/&
&3.2557e-01_jprb,3.0468e-01_jprb,2.7841e-01_jprb,2.4694e-01_jprb,2.1134e-01_jprb,1.7240e-01_jprb,&
&1.3024e-01_jprb,8.3423e-02_jprb,4.4862e-02_jprb,2.6006e-02_jprb,3.2041e-01_jprb/)
kao( :, 4,10, 8) = (/&
&3.2676e-01_jprb,3.1040e-01_jprb,2.8596e-01_jprb,2.5507e-01_jprb,2.1988e-01_jprb,1.8121e-01_jprb,&
&1.3879e-01_jprb,9.0984e-02_jprb,5.0519e-02_jprb,3.0296e-02_jprb,3.4283e-01_jprb/)
kao( :, 5,10, 8) = (/&
&3.2756e-01_jprb,3.1604e-01_jprb,2.9325e-01_jprb,2.6321e-01_jprb,2.2857e-01_jprb,1.9016e-01_jprb,&
&1.4762e-01_jprb,9.9000e-02_jprb,5.6488e-02_jprb,3.5105e-02_jprb,3.6677e-01_jprb/)
kao( :, 1,11, 8) = (/&
&2.8411e-01_jprb,2.5988e-01_jprb,2.3321e-01_jprb,2.0412e-01_jprb,1.7249e-01_jprb,1.3838e-01_jprb,&
&1.0172e-01_jprb,6.2178e-02_jprb,3.1646e-02_jprb,1.7506e-02_jprb,3.9917e-01_jprb/)
kao( :, 2,11, 8) = (/&
&2.8582e-01_jprb,2.6534e-01_jprb,2.4057e-01_jprb,2.1213e-01_jprb,1.8034e-01_jprb,1.4593e-01_jprb,&
&1.0888e-01_jprb,6.8210e-02_jprb,3.6011e-02_jprb,2.0567e-02_jprb,4.2270e-01_jprb/)
kao( :, 3,11, 8) = (/&
&2.8739e-01_jprb,2.7084e-01_jprb,2.4780e-01_jprb,2.1959e-01_jprb,1.8803e-01_jprb,1.5372e-01_jprb,&
&1.1636e-01_jprb,7.4695e-02_jprb,4.0724e-02_jprb,2.3986e-02_jprb,4.4934e-01_jprb/)
kao( :, 4,11, 8) = (/&
&2.8878e-01_jprb,2.7644e-01_jprb,2.5472e-01_jprb,2.2709e-01_jprb,1.9597e-01_jprb,1.6177e-01_jprb,&
&1.2408e-01_jprb,8.1642e-02_jprb,4.5765e-02_jprb,2.7772e-02_jprb,4.7717e-01_jprb/)
kao( :, 5,11, 8) = (/&
&2.8955e-01_jprb,2.8144e-01_jprb,2.6102e-01_jprb,2.3454e-01_jprb,2.0411e-01_jprb,1.7002e-01_jprb,&
&1.3228e-01_jprb,8.8823e-02_jprb,5.1141e-02_jprb,3.2010e-02_jprb,5.0557e-01_jprb/)
kao( :, 1,12, 8) = (/&
&2.4710e-01_jprb,2.2747e-01_jprb,2.0446e-01_jprb,1.7910e-01_jprb,1.5126e-01_jprb,1.2141e-01_jprb,&
&8.9466e-02_jprb,5.4973e-02_jprb,2.8499e-02_jprb,1.5999e-02_jprb,4.2800e-01_jprb/)
kao( :, 2,12, 8) = (/&
&2.4901e-01_jprb,2.3258e-01_jprb,2.1111e-01_jprb,1.8597e-01_jprb,1.5805e-01_jprb,1.2818e-01_jprb,&
&9.5808e-02_jprb,6.0321e-02_jprb,3.2343e-02_jprb,1.8809e-02_jprb,4.5340e-01_jprb/)
kao( :, 3,12, 8) = (/&
&2.5080e-01_jprb,2.3792e-01_jprb,2.1766e-01_jprb,1.9271e-01_jprb,1.6525e-01_jprb,1.3521e-01_jprb,&
&1.0253e-01_jprb,6.6046e-02_jprb,3.6536e-02_jprb,2.1931e-02_jprb,4.7921e-01_jprb/)
kao( :, 4,12, 8) = (/&
&2.5204e-01_jprb,2.4277e-01_jprb,2.2355e-01_jprb,1.9948e-01_jprb,1.7252e-01_jprb,1.4258e-01_jprb,&
&1.0952e-01_jprb,7.2180e-02_jprb,4.1025e-02_jprb,2.5368e-02_jprb,5.0641e-01_jprb/)
kao( :, 5,12, 8) = (/&
&2.5346e-01_jprb,2.4761e-01_jprb,2.2936e-01_jprb,2.0632e-01_jprb,1.7985e-01_jprb,1.5006e-01_jprb,&
&1.1690e-01_jprb,7.8517e-02_jprb,4.5825e-02_jprb,2.9158e-02_jprb,5.3542e-01_jprb/)
kao( :, 1,13, 8) = (/&
&2.1104e-01_jprb,1.9539e-01_jprb,1.7591e-01_jprb,1.5396e-01_jprb,1.2999e-01_jprb,1.0448e-01_jprb,&
&7.7298e-02_jprb,4.7962e-02_jprb,2.5275e-02_jprb,1.4360e-02_jprb,3.6245e-01_jprb/)
kao( :, 2,13, 8) = (/&
&2.1306e-01_jprb,2.0027e-01_jprb,1.8186e-01_jprb,1.6010e-01_jprb,1.3622e-01_jprb,1.1063e-01_jprb,&
&8.2888e-02_jprb,5.2545e-02_jprb,2.8685e-02_jprb,1.6930e-02_jprb,3.8275e-01_jprb/)
kao( :, 3,13, 8) = (/&
&2.1469e-01_jprb,2.0496e-01_jprb,1.8742e-01_jprb,1.6612e-01_jprb,1.4267e-01_jprb,1.1693e-01_jprb,&
&8.8832e-02_jprb,5.7525e-02_jprb,3.2378e-02_jprb,1.9762e-02_jprb,4.0424e-01_jprb/)
kao( :, 4,13, 8) = (/&
&2.1644e-01_jprb,2.0961e-01_jprb,1.9285e-01_jprb,1.7222e-01_jprb,1.4919e-01_jprb,1.2339e-01_jprb,&
&9.4996e-02_jprb,6.2832e-02_jprb,3.6346e-02_jprb,2.2885e-02_jprb,4.2761e-01_jprb/)
kao( :, 5,13, 8) = (/&
&2.1812e-01_jprb,2.1428e-01_jprb,1.9853e-01_jprb,1.7877e-01_jprb,1.5586e-01_jprb,1.3014e-01_jprb,&
&1.0138e-01_jprb,6.8371e-02_jprb,4.0590e-02_jprb,2.6305e-02_jprb,4.5224e-01_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb9_a1