rrtm_kgb4_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb4_a1

!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
!     Reformatted for F90 by JJMorcrette, ECMWF
!     Reformatted for NEC by H.Gallée   , LGGE  (splitting)

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

#include "tsmbkind.h"

USE yoerrto4 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,fracrefbo
USE yoerrta4 , ONLY : strrat1   ,strrat2

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


IMPLICIT NONE

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

!     The array KAO contains absorption coefs for each of the 16 g-intervals
!     for a range of pressure levels > ~100mb, temperatures, and ratios
!     of water vapor to CO2.  The first index in the array, JS, runs
!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
!     as expressed through the binary species parameter eta, defined as
!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
!     line strength in the band of co2 to that of h2o.  For instance,
!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
!     The 2nd 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 the temperature 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 reference pressure level (e.g. JP = 1 is for a
!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
!     and tells us which g-interval the absorption coefficients are for.

kao( :, 1, 1, 9) = (/&
&6.4733e-02_jprb,6.0521e-02_jprb,5.8252e-02_jprb,5.6866e-02_jprb,5.6526e-02_jprb,5.5742e-02_jprb,&
&5.2046e-02_jprb,6.4733e-02_jprb,5.6233e-02_jprb/)
kao( :, 2, 1, 9) = (/&
&6.5477e-02_jprb,6.3047e-02_jprb,6.3106e-02_jprb,6.4612e-02_jprb,6.6790e-02_jprb,6.7507e-02_jprb,&
&6.4723e-02_jprb,6.5477e-02_jprb,7.2720e-02_jprb/)
kao( :, 3, 1, 9) = (/&
&6.6216e-02_jprb,6.6108e-02_jprb,6.9181e-02_jprb,7.4268e-02_jprb,7.9047e-02_jprb,8.0497e-02_jprb,&
&7.8280e-02_jprb,6.6216e-02_jprb,9.1648e-02_jprb/)
kao( :, 4, 1, 9) = (/&
&6.6791e-02_jprb,6.9579e-02_jprb,7.6737e-02_jprb,8.5244e-02_jprb,9.1845e-02_jprb,9.4527e-02_jprb,&
&9.2441e-02_jprb,6.6791e-02_jprb,1.1307e-01_jprb/)
kao( :, 5, 1, 9) = (/&
&6.7298e-02_jprb,7.3839e-02_jprb,8.5356e-02_jprb,9.7147e-02_jprb,1.0554e-01_jprb,1.0978e-01_jprb,&
&1.0752e-01_jprb,6.7298e-02_jprb,1.3678e-01_jprb/)
kao( :, 1, 2, 9) = (/&
&7.0877e-02_jprb,6.5253e-02_jprb,6.1232e-02_jprb,5.7942e-02_jprb,5.5662e-02_jprb,5.3703e-02_jprb,&
&5.0251e-02_jprb,7.0877e-02_jprb,4.8550e-02_jprb/)
kao( :, 2, 2, 9) = (/&
&7.1555e-02_jprb,6.7492e-02_jprb,6.5473e-02_jprb,6.4551e-02_jprb,6.5054e-02_jprb,6.5264e-02_jprb,&
&6.3231e-02_jprb,7.1555e-02_jprb,6.3334e-02_jprb/)
kao( :, 3, 2, 9) = (/&
&7.2159e-02_jprb,7.0218e-02_jprb,7.0742e-02_jprb,7.3278e-02_jprb,7.6459e-02_jprb,7.8274e-02_jprb,&
&7.6836e-02_jprb,7.2159e-02_jprb,8.0528e-02_jprb/)
kao( :, 4, 2, 9) = (/&
&7.2672e-02_jprb,7.3326e-02_jprb,7.7456e-02_jprb,8.3314e-02_jprb,8.9061e-02_jprb,9.2382e-02_jprb,&
&9.1438e-02_jprb,7.2672e-02_jprb,1.0017e-01_jprb/)
kao( :, 5, 2, 9) = (/&
&7.3068e-02_jprb,7.7090e-02_jprb,8.5132e-02_jprb,9.4518e-02_jprb,1.0309e-01_jprb,1.0796e-01_jprb,&
&1.0651e-01_jprb,7.3067e-02_jprb,1.2229e-01_jprb/)
kao( :, 1, 3, 9) = (/&
&7.7836e-02_jprb,7.0551e-02_jprb,6.4559e-02_jprb,5.9167e-02_jprb,5.4414e-02_jprb,5.0314e-02_jprb,&
&4.5794e-02_jprb,7.7836e-02_jprb,3.8882e-02_jprb/)
kao( :, 2, 3, 9) = (/&
&7.8435e-02_jprb,7.2532e-02_jprb,6.8092e-02_jprb,6.4613e-02_jprb,6.2358e-02_jprb,6.0608e-02_jprb,&
&5.8276e-02_jprb,7.8435e-02_jprb,5.1370e-02_jprb/)
kao( :, 3, 3, 9) = (/&
&7.8932e-02_jprb,7.4825e-02_jprb,7.2527e-02_jprb,7.1989e-02_jprb,7.2471e-02_jprb,7.2873e-02_jprb,&
&7.1766e-02_jprb,7.8932e-02_jprb,6.6086e-02_jprb/)
kao( :, 4, 3, 9) = (/&
&7.9379e-02_jprb,7.7501e-02_jprb,7.8388e-02_jprb,8.0847e-02_jprb,8.4097e-02_jprb,8.6801e-02_jprb,&
&8.6568e-02_jprb,7.9379e-02_jprb,8.3141e-02_jprb/)
kao( :, 5, 3, 9) = (/&
&7.9699e-02_jprb,8.0691e-02_jprb,8.5121e-02_jprb,9.1008e-02_jprb,9.7441e-02_jprb,1.0226e-01_jprb,&
&1.0163e-01_jprb,7.9699e-02_jprb,1.0254e-01_jprb/)
kao( :, 1, 4, 9) = (/&
&8.4906e-02_jprb,7.6241e-02_jprb,6.8684e-02_jprb,6.1260e-02_jprb,5.4322e-02_jprb,4.8027e-02_jprb,&
&4.1411e-02_jprb,8.4906e-02_jprb,3.0325e-02_jprb/)
kao( :, 2, 4, 9) = (/&
&8.5698e-02_jprb,7.8243e-02_jprb,7.1748e-02_jprb,6.5778e-02_jprb,6.0935e-02_jprb,5.6719e-02_jprb,&
&5.2610e-02_jprb,8.5698e-02_jprb,4.0549e-02_jprb/)
kao( :, 3, 4, 9) = (/&
&8.6275e-02_jprb,8.0324e-02_jprb,7.5429e-02_jprb,7.2009e-02_jprb,6.9531e-02_jprb,6.7539e-02_jprb,&
&6.5470e-02_jprb,8.6275e-02_jprb,5.2700e-02_jprb/)
kao( :, 4, 4, 9) = (/&
&8.6713e-02_jprb,8.2575e-02_jprb,8.0462e-02_jprb,7.9748e-02_jprb,7.9735e-02_jprb,8.0326e-02_jprb,&
&7.9974e-02_jprb,8.6713e-02_jprb,6.7029e-02_jprb/)
kao( :, 5, 4, 9) = (/&
&8.7027e-02_jprb,8.5276e-02_jprb,8.6509e-02_jprb,8.8819e-02_jprb,9.1761e-02_jprb,9.4798e-02_jprb,&
&9.4801e-02_jprb,8.7027e-02_jprb,8.3508e-02_jprb/)
kao( :, 1, 5, 9) = (/&
&9.1507e-02_jprb,8.1620e-02_jprb,7.2828e-02_jprb,6.4142e-02_jprb,5.5568e-02_jprb,4.7251e-02_jprb,&
&3.8880e-02_jprb,9.1507e-02_jprb,2.3229e-02_jprb/)
kao( :, 2, 5, 9) = (/&
&9.2405e-02_jprb,8.3679e-02_jprb,7.5863e-02_jprb,6.8216e-02_jprb,6.1046e-02_jprb,5.4513e-02_jprb,&
&4.8261e-02_jprb,9.2405e-02_jprb,3.1508e-02_jprb/)
kao( :, 3, 5, 9) = (/&
&9.3115e-02_jprb,8.5700e-02_jprb,7.9335e-02_jprb,7.3579e-02_jprb,6.8420e-02_jprb,6.3872e-02_jprb,&
&5.9567e-02_jprb,9.3115e-02_jprb,4.1511e-02_jprb/)
kao( :, 4, 5, 9) = (/&
&9.3636e-02_jprb,8.7963e-02_jprb,8.3776e-02_jprb,8.0336e-02_jprb,7.7284e-02_jprb,7.5046e-02_jprb,&
&7.2882e-02_jprb,9.3636e-02_jprb,5.3333e-02_jprb/)
kao( :, 5, 5, 9) = (/&
&9.4011e-02_jprb,9.0504e-02_jprb,8.9128e-02_jprb,8.8247e-02_jprb,8.7824e-02_jprb,8.7979e-02_jprb,&
&8.7078e-02_jprb,9.4011e-02_jprb,6.7155e-02_jprb/)
kao( :, 1, 6, 9) = (/&
&9.7472e-02_jprb,8.6538e-02_jprb,7.6624e-02_jprb,6.6824e-02_jprb,5.7059e-02_jprb,4.7268e-02_jprb,&
&3.7138e-02_jprb,9.7472e-02_jprb,1.7221e-02_jprb/)
kao( :, 2, 6, 9) = (/&
&9.8451e-02_jprb,8.8518e-02_jprb,7.9536e-02_jprb,7.0737e-02_jprb,6.1956e-02_jprb,5.3328e-02_jprb,&
&4.4923e-02_jprb,9.8451e-02_jprb,2.3780e-02_jprb/)
kao( :, 3, 6, 9) = (/&
&9.9270e-02_jprb,9.0592e-02_jprb,8.2992e-02_jprb,7.5645e-02_jprb,6.8338e-02_jprb,6.1246e-02_jprb,&
&5.4647e-02_jprb,9.9270e-02_jprb,3.1821e-02_jprb/)
kao( :, 4, 6, 9) = (/&
&9.9874e-02_jprb,9.2825e-02_jprb,8.7145e-02_jprb,8.1713e-02_jprb,7.6024e-02_jprb,7.0895e-02_jprb,&
&6.6256e-02_jprb,9.9874e-02_jprb,4.1514e-02_jprb/)
kao( :, 5, 6, 9) = (/&
&1.0031e-01_jprb,9.5362e-02_jprb,9.2196e-02_jprb,8.8672e-02_jprb,8.5237e-02_jprb,8.2164e-02_jprb,&
&7.9017e-02_jprb,1.0031e-01_jprb,5.2892e-02_jprb/)
kao( :, 1, 7, 9) = (/&
&1.0232e-01_jprb,9.0553e-02_jprb,7.9624e-02_jprb,6.8906e-02_jprb,5.8070e-02_jprb,4.7256e-02_jprb,&
&3.6147e-02_jprb,1.0232e-01_jprb,1.2551e-02_jprb/)
kao( :, 2, 7, 9) = (/&
&1.0337e-01_jprb,9.2407e-02_jprb,8.2434e-02_jprb,7.2548e-02_jprb,6.2643e-02_jprb,5.2753e-02_jprb,&
&4.2581e-02_jprb,1.0337e-01_jprb,1.7575e-02_jprb/)
kao( :, 3, 7, 9) = (/&
&1.0428e-01_jprb,9.4463e-02_jprb,8.5756e-02_jprb,7.7103e-02_jprb,6.8472e-02_jprb,5.9711e-02_jprb,&
&5.0861e-02_jprb,1.0428e-01_jprb,2.3865e-02_jprb/)
kao( :, 4, 7, 9) = (/&
&1.0499e-01_jprb,9.6649e-02_jprb,8.9715e-02_jprb,8.2804e-02_jprb,7.5682e-02_jprb,6.8094e-02_jprb,&
&6.0862e-02_jprb,1.0499e-01_jprb,3.1546e-02_jprb/)
kao( :, 5, 7, 9) = (/&
&1.0547e-01_jprb,9.9180e-02_jprb,9.4519e-02_jprb,8.9479e-02_jprb,8.3717e-02_jprb,7.7813e-02_jprb,&
&7.1993e-02_jprb,1.0547e-01_jprb,4.0721e-02_jprb/)
kao( :, 1, 8, 9) = (/&
&1.0518e-01_jprb,9.2886e-02_jprb,8.1191e-02_jprb,6.9957e-02_jprb,5.8508e-02_jprb,4.6965e-02_jprb,&
&3.4947e-02_jprb,1.0518e-01_jprb,9.1670e-03_jprb/)
kao( :, 2, 8, 9) = (/&
&1.0636e-01_jprb,9.4674e-02_jprb,8.4036e-02_jprb,7.3413e-02_jprb,6.2776e-02_jprb,5.2007e-02_jprb,&
&4.0951e-02_jprb,1.0636e-01_jprb,1.2998e-02_jprb/)
kao( :, 3, 8, 9) = (/&
&1.0733e-01_jprb,9.6738e-02_jprb,8.7252e-02_jprb,7.7783e-02_jprb,6.8203e-02_jprb,5.8372e-02_jprb,&
&4.8034e-02_jprb,1.0733e-01_jprb,1.7878e-02_jprb/)
kao( :, 4, 8, 9) = (/&
&1.0812e-01_jprb,9.8911e-02_jprb,9.1152e-02_jprb,8.3173e-02_jprb,7.4963e-02_jprb,6.6116e-02_jprb,&
&5.6655e-02_jprb,1.0812e-01_jprb,2.3868e-02_jprb/)
kao( :, 5, 8, 9) = (/&
&1.0863e-01_jprb,1.0151e-01_jprb,9.5717e-02_jprb,8.9578e-02_jprb,8.2572e-02_jprb,7.4669e-02_jprb,&
&6.6397e-02_jprb,1.0863e-01_jprb,3.1082e-02_jprb/)
kao( :, 1, 9, 9) = (/&
&1.0589e-01_jprb,9.3378e-02_jprb,8.1320e-02_jprb,6.9699e-02_jprb,5.7939e-02_jprb,4.5963e-02_jprb,&
&3.3510e-02_jprb,1.0589e-01_jprb,1.5005e-02_jprb/)
kao( :, 2, 9, 9) = (/&
&1.0710e-01_jprb,9.5046e-02_jprb,8.3992e-02_jprb,7.2968e-02_jprb,6.1840e-02_jprb,5.0670e-02_jprb,&
&3.9172e-02_jprb,1.0710e-01_jprb,1.6687e-02_jprb/)
kao( :, 3, 9, 9) = (/&
&1.0811e-01_jprb,9.7025e-02_jprb,8.7062e-02_jprb,7.7135e-02_jprb,6.7008e-02_jprb,5.6693e-02_jprb,&
&4.5539e-02_jprb,1.0811e-01_jprb,1.9062e-02_jprb/)
kao( :, 4, 9, 9) = (/&
&1.0893e-01_jprb,9.9210e-02_jprb,9.0893e-02_jprb,8.2268e-02_jprb,7.3432e-02_jprb,6.3872e-02_jprb,&
&5.3354e-02_jprb,1.0893e-01_jprb,2.2517e-02_jprb/)
kao( :, 5, 9, 9) = (/&
&1.0951e-01_jprb,1.0180e-01_jprb,9.5328e-02_jprb,8.8533e-02_jprb,8.0777e-02_jprb,7.1933e-02_jprb,&
&6.1860e-02_jprb,1.0951e-01_jprb,2.7194e-02_jprb/)
kao( :, 1,10, 9) = (/&
&1.0463e-01_jprb,9.2191e-02_jprb,8.0132e-02_jprb,6.8413e-02_jprb,5.6641e-02_jprb,4.4619e-02_jprb,&
&3.2080e-02_jprb,1.0463e-01_jprb,8.3991e-02_jprb/)
kao( :, 2,10, 9) = (/&
&1.0582e-01_jprb,9.3770e-02_jprb,8.2627e-02_jprb,7.1539e-02_jprb,6.0265e-02_jprb,4.8989e-02_jprb,&
&3.7366e-02_jprb,1.0582e-01_jprb,8.5008e-02_jprb/)
kao( :, 3,10, 9) = (/&
&1.0683e-01_jprb,9.5651e-02_jprb,8.5587e-02_jprb,7.5429e-02_jprb,6.5154e-02_jprb,5.4715e-02_jprb,&
&4.3408e-02_jprb,1.0683e-01_jprb,8.6636e-02_jprb/)
kao( :, 4,10, 9) = (/&
&1.0759e-01_jprb,9.7764e-02_jprb,8.9220e-02_jprb,8.0336e-02_jprb,7.1349e-02_jprb,6.1576e-02_jprb,&
&5.0720e-02_jprb,1.0759e-01_jprb,8.8133e-02_jprb/)
kao( :, 5,10, 9) = (/&
&1.0814e-01_jprb,1.0027e-01_jprb,9.3476e-02_jprb,8.6461e-02_jprb,7.8470e-02_jprb,6.9232e-02_jprb,&
&5.8604e-02_jprb,1.0814e-01_jprb,8.9595e-02_jprb/)
kao( :, 1,11, 9) = (/&
&1.0192e-01_jprb,8.9934e-02_jprb,7.8442e-02_jprb,6.7206e-02_jprb,5.5807e-02_jprb,4.4274e-02_jprb,&
&3.2485e-02_jprb,1.0192e-01_jprb,2.1346e-01_jprb/)
kao( :, 2,11, 9) = (/&
&1.0294e-01_jprb,9.1474e-02_jprb,8.1001e-02_jprb,7.0324e-02_jprb,5.9618e-02_jprb,4.8890e-02_jprb,&
&3.7724e-02_jprb,1.0294e-01_jprb,2.1319e-01_jprb/)
kao( :, 3,11, 9) = (/&
&1.0376e-01_jprb,9.3370e-02_jprb,8.3962e-02_jprb,7.4435e-02_jprb,6.4795e-02_jprb,5.4795e-02_jprb,&
&4.3827e-02_jprb,1.0376e-01_jprb,2.1289e-01_jprb/)
kao( :, 4,11, 9) = (/&
&1.0437e-01_jprb,9.5489e-02_jprb,8.7682e-02_jprb,7.9614e-02_jprb,7.1102e-02_jprb,6.1619e-02_jprb,&
&5.1046e-02_jprb,1.0437e-01_jprb,2.1287e-01_jprb/)
kao( :, 5,11, 9) = (/&
&1.0475e-01_jprb,9.8083e-02_jprb,9.2124e-02_jprb,8.5743e-02_jprb,7.7946e-02_jprb,6.9048e-02_jprb,&
&5.8627e-02_jprb,1.0475e-01_jprb,2.1310e-01_jprb/)
kao( :, 1,12, 9) = (/&
&9.7261e-02_jprb,8.5991e-02_jprb,7.5324e-02_jprb,6.4737e-02_jprb,5.3989e-02_jprb,4.3184e-02_jprb,&
&3.2169e-02_jprb,9.7261e-02_jprb,3.5384e-01_jprb/)
kao( :, 2,12, 9) = (/&
&9.8101e-02_jprb,8.7528e-02_jprb,7.7838e-02_jprb,6.7921e-02_jprb,5.8031e-02_jprb,4.8011e-02_jprb,&
&3.7356e-02_jprb,9.8101e-02_jprb,3.5110e-01_jprb/)
kao( :, 3,12, 9) = (/&
&9.8721e-02_jprb,8.9358e-02_jprb,8.0844e-02_jprb,7.2156e-02_jprb,6.3303e-02_jprb,5.3812e-02_jprb,&
&4.3478e-02_jprb,9.8721e-02_jprb,3.4905e-01_jprb/)
kao( :, 4,12, 9) = (/&
&9.9073e-02_jprb,9.1448e-02_jprb,8.4556e-02_jprb,7.7373e-02_jprb,6.9369e-02_jprb,6.0482e-02_jprb,&
&5.0434e-02_jprb,9.9073e-02_jprb,3.4710e-01_jprb/)
kao( :, 5,12, 9) = (/&
&9.9229e-02_jprb,9.3917e-02_jprb,8.9028e-02_jprb,8.3070e-02_jprb,7.5795e-02_jprb,6.7464e-02_jprb,&
&5.7745e-02_jprb,9.9229e-02_jprb,3.4526e-01_jprb/)
kao( :, 1,13, 9) = (/&
&9.0938e-02_jprb,8.0633e-02_jprb,7.0954e-02_jprb,6.1198e-02_jprb,5.1349e-02_jprb,4.1513e-02_jprb,&
&3.1321e-02_jprb,9.0938e-02_jprb,4.7630e-01_jprb/)
kao( :, 2,13, 9) = (/&
&9.1524e-02_jprb,8.2076e-02_jprb,7.3333e-02_jprb,6.4427e-02_jprb,5.5526e-02_jprb,4.6304e-02_jprb,&
&3.6408e-02_jprb,9.1524e-02_jprb,4.7149e-01_jprb/)
kao( :, 3,13, 9) = (/&
&9.1870e-02_jprb,8.3785e-02_jprb,7.6354e-02_jprb,6.8726e-02_jprb,6.0650e-02_jprb,5.1878e-02_jprb,&
&4.2350e-02_jprb,9.1870e-02_jprb,4.6781e-01_jprb/)
kao( :, 4,13, 9) = (/&
&9.2057e-02_jprb,8.5864e-02_jprb,8.0053e-02_jprb,7.3650e-02_jprb,6.6361e-02_jprb,5.8175e-02_jprb,&
&4.8890e-02_jprb,9.2057e-02_jprb,4.6471e-01_jprb/)
kao( :, 5,13, 9) = (/&
&9.2051e-02_jprb,8.8153e-02_jprb,8.4238e-02_jprb,7.8829e-02_jprb,7.2224e-02_jprb,6.4662e-02_jprb,&
&5.5790e-02_jprb,9.2051e-02_jprb,4.6177e-01_jprb/)
kao( :, 1, 1,10) = (/&
&1.8970e-01_jprb,1.6722e-01_jprb,1.5940e-01_jprb,1.4654e-01_jprb,1.3412e-01_jprb,1.1990e-01_jprb,&
&1.0153e-01_jprb,1.8970e-01_jprb,1.2683e-01_jprb/)
kao( :, 2, 1,10) = (/&
&1.9310e-01_jprb,1.7584e-01_jprb,1.7032e-01_jprb,1.6287e-01_jprb,1.5198e-01_jprb,1.3637e-01_jprb,&
&1.1338e-01_jprb,1.9310e-01_jprb,1.6492e-01_jprb/)
kao( :, 3, 1,10) = (/&
&1.9644e-01_jprb,1.8616e-01_jprb,1.8463e-01_jprb,1.7853e-01_jprb,1.6686e-01_jprb,1.5307e-01_jprb,&
&1.3006e-01_jprb,1.9644e-01_jprb,2.0951e-01_jprb/)
kao( :, 4, 1,10) = (/&
&1.9909e-01_jprb,1.9510e-01_jprb,1.9794e-01_jprb,1.9455e-01_jprb,1.8814e-01_jprb,1.6970e-01_jprb,&
&1.4049e-01_jprb,1.9909e-01_jprb,2.6023e-01_jprb/)
kao( :, 5, 1,10) = (/&
&2.0141e-01_jprb,2.0423e-01_jprb,2.1198e-01_jprb,2.1359e-01_jprb,2.0320e-01_jprb,1.7839e-01_jprb,&
&1.6166e-01_jprb,2.0141e-01_jprb,3.1814e-01_jprb/)
kao( :, 1, 2,10) = (/&
&1.8513e-01_jprb,1.6417e-01_jprb,1.5570e-01_jprb,1.4299e-01_jprb,1.3028e-01_jprb,1.1558e-01_jprb,&
&9.7575e-02_jprb,1.8513e-01_jprb,1.2033e-01_jprb/)
kao( :, 2, 2,10) = (/&
&1.8950e-01_jprb,1.7381e-01_jprb,1.6710e-01_jprb,1.5962e-01_jprb,1.4697e-01_jprb,1.3061e-01_jprb,&
&1.0961e-01_jprb,1.8950e-01_jprb,1.5920e-01_jprb/)
kao( :, 3, 2,10) = (/&
&1.9362e-01_jprb,1.8395e-01_jprb,1.8195e-01_jprb,1.7419e-01_jprb,1.6167e-01_jprb,1.4828e-01_jprb,&
&1.2568e-01_jprb,1.9362e-01_jprb,2.0282e-01_jprb/)
kao( :, 4, 2,10) = (/&
&1.9721e-01_jprb,1.9348e-01_jprb,1.9530e-01_jprb,1.9112e-01_jprb,1.8284e-01_jprb,1.6500e-01_jprb,&
&1.3708e-01_jprb,1.9721e-01_jprb,2.5204e-01_jprb/)
kao( :, 5, 2,10) = (/&
&2.0023e-01_jprb,2.0320e-01_jprb,2.1020e-01_jprb,2.0819e-01_jprb,1.9741e-01_jprb,1.7466e-01_jprb,&
&1.5343e-01_jprb,2.0023e-01_jprb,3.0808e-01_jprb/)
kao( :, 1, 3,10) = (/&
&1.8001e-01_jprb,1.5918e-01_jprb,1.4957e-01_jprb,1.3634e-01_jprb,1.2400e-01_jprb,1.1052e-01_jprb,&
&9.3510e-02_jprb,1.8001e-01_jprb,1.0219e-01_jprb/)
kao( :, 2, 3,10) = (/&
&1.8528e-01_jprb,1.6901e-01_jprb,1.6096e-01_jprb,1.5327e-01_jprb,1.4061e-01_jprb,1.2481e-01_jprb,&
&1.0682e-01_jprb,1.8528e-01_jprb,1.3773e-01_jprb/)
kao( :, 3, 3,10) = (/&
&1.9023e-01_jprb,1.7929e-01_jprb,1.7582e-01_jprb,1.6700e-01_jprb,1.5430e-01_jprb,1.4161e-01_jprb,&
&1.2252e-01_jprb,1.9023e-01_jprb,1.7877e-01_jprb/)
kao( :, 4, 3,10) = (/&
&1.9469e-01_jprb,1.8893e-01_jprb,1.8906e-01_jprb,1.8314e-01_jprb,1.7449e-01_jprb,1.5948e-01_jprb,&
&1.3408e-01_jprb,1.9469e-01_jprb,2.2723e-01_jprb/)
kao( :, 5, 3,10) = (/&
&1.9821e-01_jprb,1.9946e-01_jprb,2.0415e-01_jprb,1.9922e-01_jprb,1.8972e-01_jprb,1.7229e-01_jprb,&
&1.5170e-01_jprb,1.9821e-01_jprb,2.8243e-01_jprb/)
kao( :, 1, 4,10) = (/&
&1.7916e-01_jprb,1.5693e-01_jprb,1.4317e-01_jprb,1.2970e-01_jprb,1.1820e-01_jprb,1.0542e-01_jprb,&
&8.8810e-02_jprb,1.7916e-01_jprb,8.1629e-02_jprb/)
kao( :, 2, 4,10) = (/&
&1.8393e-01_jprb,1.6496e-01_jprb,1.5408e-01_jprb,1.4656e-01_jprb,1.3470e-01_jprb,1.1968e-01_jprb,&
&1.0109e-01_jprb,1.8393e-01_jprb,1.1300e-01_jprb/)
kao( :, 3, 4,10) = (/&
&1.8829e-01_jprb,1.7395e-01_jprb,1.6912e-01_jprb,1.6090e-01_jprb,1.4836e-01_jprb,1.3533e-01_jprb,&
&1.1688e-01_jprb,1.8829e-01_jprb,1.5011e-01_jprb/)
kao( :, 4, 4,10) = (/&
&1.9238e-01_jprb,1.8364e-01_jprb,1.8242e-01_jprb,1.7617e-01_jprb,1.6761e-01_jprb,1.5430e-01_jprb,&
&1.3056e-01_jprb,1.9230e-01_jprb,1.9532e-01_jprb/)
kao( :, 5, 4,10) = (/&
&1.9574e-01_jprb,1.9463e-01_jprb,1.9705e-01_jprb,1.9264e-01_jprb,1.8511e-01_jprb,1.7157e-01_jprb,&
&1.5145e-01_jprb,1.9574e-01_jprb,2.4701e-01_jprb/)
kao( :, 1, 5,10) = (/&
&1.8797e-01_jprb,1.6453e-01_jprb,1.4533e-01_jprb,1.2686e-01_jprb,1.1219e-01_jprb,9.8719e-02_jprb,&
&8.1932e-02_jprb,1.8797e-01_jprb,6.5166e-02_jprb/)
kao( :, 2, 5,10) = (/&
&1.9160e-01_jprb,1.6925e-01_jprb,1.5218e-01_jprb,1.4014e-01_jprb,1.2917e-01_jprb,1.1302e-01_jprb,&
&9.4480e-02_jprb,1.9160e-01_jprb,9.2077e-02_jprb/)
kao( :, 3, 5,10) = (/&
&1.9446e-01_jprb,1.7578e-01_jprb,1.6402e-01_jprb,1.5506e-01_jprb,1.4235e-01_jprb,1.2780e-01_jprb,&
&1.1066e-01_jprb,1.9446e-01_jprb,1.2479e-01_jprb/)
kao( :, 4, 5,10) = (/&
&1.9736e-01_jprb,1.8183e-01_jprb,1.7664e-01_jprb,1.6999e-01_jprb,1.6179e-01_jprb,1.4826e-01_jprb,&
&1.2816e-01_jprb,1.9736e-01_jprb,1.6346e-01_jprb/)
kao( :, 5, 5,10) = (/&
&2.0011e-01_jprb,1.9074e-01_jprb,1.9082e-01_jprb,1.8829e-01_jprb,1.8080e-01_jprb,1.6858e-01_jprb,&
&1.5009e-01_jprb,2.0011e-01_jprb,2.0822e-01_jprb/)
kao( :, 1, 6,10) = (/&
&2.0223e-01_jprb,1.7699e-01_jprb,1.5322e-01_jprb,1.3128e-01_jprb,1.1092e-01_jprb,9.1561e-02_jprb,&
&7.3661e-02_jprb,2.0223e-01_jprb,5.1377e-02_jprb/)
kao( :, 2, 6,10) = (/&
&2.0512e-01_jprb,1.7967e-01_jprb,1.5788e-01_jprb,1.3938e-01_jprb,1.2268e-01_jprb,1.0543e-01_jprb,&
&8.7385e-02_jprb,2.0512e-01_jprb,7.3853e-02_jprb/)
kao( :, 3, 6,10) = (/&
&2.0790e-01_jprb,1.8450e-01_jprb,1.6529e-01_jprb,1.5112e-01_jprb,1.3529e-01_jprb,1.2022e-01_jprb,&
&1.0398e-01_jprb,2.0790e-01_jprb,1.0087e-01_jprb/)
kao( :, 4, 6,10) = (/&
&2.1004e-01_jprb,1.8823e-01_jprb,1.7509e-01_jprb,1.6284e-01_jprb,1.5386e-01_jprb,1.4155e-01_jprb,&
&1.2427e-01_jprb,2.1004e-01_jprb,1.3360e-01_jprb/)
kao( :, 5, 6,10) = (/&
&2.1183e-01_jprb,1.9428e-01_jprb,1.8513e-01_jprb,1.8177e-01_jprb,1.7498e-01_jprb,1.6423e-01_jprb,&
&1.4704e-01_jprb,2.1183e-01_jprb,1.7178e-01_jprb/)
kao( :, 1, 7,10) = (/&
&2.1966e-01_jprb,1.9223e-01_jprb,1.6487e-01_jprb,1.4075e-01_jprb,1.1743e-01_jprb,9.2352e-02_jprb,&
&6.7165e-02_jprb,2.1966e-01_jprb,3.9844e-02_jprb/)
kao( :, 2, 7,10) = (/&
&2.2289e-01_jprb,1.9505e-01_jprb,1.7012e-01_jprb,1.4711e-01_jprb,1.2482e-01_jprb,1.0166e-01_jprb,&
&8.1116e-02_jprb,2.2289e-01_jprb,5.8803e-02_jprb/)
kao( :, 3, 7,10) = (/&
&2.2562e-01_jprb,1.9918e-01_jprb,1.7558e-01_jprb,1.5579e-01_jprb,1.3361e-01_jprb,1.1381e-01_jprb,&
&9.8296e-02_jprb,2.2562e-01_jprb,8.2105e-02_jprb/)
kao( :, 4, 7,10) = (/&
&2.2798e-01_jprb,2.0283e-01_jprb,1.8393e-01_jprb,1.6360e-01_jprb,1.4672e-01_jprb,1.3482e-01_jprb,&
&1.1942e-01_jprb,2.2798e-01_jprb,1.1013e-01_jprb/)
kao( :, 5, 7,10) = (/&
&2.2965e-01_jprb,2.0713e-01_jprb,1.9045e-01_jprb,1.7711e-01_jprb,1.6890e-01_jprb,1.5875e-01_jprb,&
&1.4294e-01_jprb,2.2965e-01_jprb,1.4301e-01_jprb/)
kao( :, 1, 8,10) = (/&
&2.3927e-01_jprb,2.0940e-01_jprb,1.7953e-01_jprb,1.5074e-01_jprb,1.2505e-01_jprb,9.7338e-02_jprb,&
&6.8761e-02_jprb,2.3927e-01_jprb,3.1572e-02_jprb/)
kao( :, 2, 8,10) = (/&
&2.4243e-01_jprb,2.1216e-01_jprb,1.8359e-01_jprb,1.5756e-01_jprb,1.3069e-01_jprb,1.0456e-01_jprb,&
&7.7923e-02_jprb,2.4243e-01_jprb,4.5978e-02_jprb/)
kao( :, 3, 8,10) = (/&
&2.4547e-01_jprb,2.1534e-01_jprb,1.8853e-01_jprb,1.6503e-01_jprb,1.3896e-01_jprb,1.1377e-01_jprb,&
&9.3425e-02_jprb,2.4547e-01_jprb,6.4381e-02_jprb/)
kao( :, 4, 8,10) = (/&
&2.4802e-01_jprb,2.1966e-01_jprb,1.9648e-01_jprb,1.7197e-01_jprb,1.4872e-01_jprb,1.2967e-01_jprb,&
&1.1417e-01_jprb,2.4802e-01_jprb,8.7970e-02_jprb/)
kao( :, 5, 8,10) = (/&
&2.4998e-01_jprb,2.2309e-01_jprb,2.0261e-01_jprb,1.8232e-01_jprb,1.6517e-01_jprb,1.5264e-01_jprb,&
&1.3834e-01_jprb,2.4998e-01_jprb,1.1639e-01_jprb/)
kao( :, 1, 9,10) = (/&
&2.6148e-01_jprb,2.2882e-01_jprb,1.9618e-01_jprb,1.6370e-01_jprb,1.3448e-01_jprb,1.0395e-01_jprb,&
&7.1629e-02_jprb,2.6148e-01_jprb,2.8503e-02_jprb/)
kao( :, 2, 9,10) = (/&
&2.6519e-01_jprb,2.3210e-01_jprb,1.9937e-01_jprb,1.7015e-01_jprb,1.3964e-01_jprb,1.0892e-01_jprb,&
&7.8889e-02_jprb,2.6519e-01_jprb,3.8008e-02_jprb/)
kao( :, 3, 9,10) = (/&
&2.6824e-01_jprb,2.3478e-01_jprb,2.0449e-01_jprb,1.7562e-01_jprb,1.4652e-01_jprb,1.1674e-01_jprb,&
&9.2270e-02_jprb,2.6824e-01_jprb,5.2422e-02_jprb/)
kao( :, 4, 9,10) = (/&
&2.7078e-01_jprb,2.3877e-01_jprb,2.1054e-01_jprb,1.8264e-01_jprb,1.5412e-01_jprb,1.3041e-01_jprb,&
&1.0749e-01_jprb,2.7078e-01_jprb,7.0338e-02_jprb/)
kao( :, 5, 9,10) = (/&
&2.7264e-01_jprb,2.4161e-01_jprb,2.1662e-01_jprb,1.8978e-01_jprb,1.6860e-01_jprb,1.4804e-01_jprb,&
&1.3080e-01_jprb,2.7264e-01_jprb,9.2554e-02_jprb/)
kao( :, 1,10,10) = (/&
&2.8201e-01_jprb,2.4678e-01_jprb,2.1156e-01_jprb,1.7638e-01_jprb,1.4352e-01_jprb,1.1084e-01_jprb,&
&7.6972e-02_jprb,2.8201e-01_jprb,1.2471e-01_jprb/)
kao( :, 2,10,10) = (/&
&2.8576e-01_jprb,2.5006e-01_jprb,2.1438e-01_jprb,1.8231e-01_jprb,1.4961e-01_jprb,1.1549e-01_jprb,&
&8.2006e-02_jprb,2.8576e-01_jprb,1.2496e-01_jprb/)
kao( :, 3,10,10) = (/&
&2.8893e-01_jprb,2.5286e-01_jprb,2.1949e-01_jprb,1.8787e-01_jprb,1.5551e-01_jprb,1.2228e-01_jprb,&
&9.3406e-02_jprb,2.8893e-01_jprb,1.2857e-01_jprb/)
kao( :, 4,10,10) = (/&
&2.9143e-01_jprb,2.5653e-01_jprb,2.2518e-01_jprb,1.9466e-01_jprb,1.6197e-01_jprb,1.3409e-01_jprb,&
&1.0614e-01_jprb,2.9143e-01_jprb,1.3664e-01_jprb/)
kao( :, 5,10,10) = (/&
&2.9269e-01_jprb,2.5878e-01_jprb,2.3097e-01_jprb,1.9967e-01_jprb,1.7426e-01_jprb,1.4933e-01_jprb,&
&1.2477e-01_jprb,2.9269e-01_jprb,1.4648e-01_jprb/)
kao( :, 1,11,10) = (/&
&3.0003e-01_jprb,2.6255e-01_jprb,2.2506e-01_jprb,1.8819e-01_jprb,1.5371e-01_jprb,1.1851e-01_jprb,&
&8.1809e-02_jprb,3.0003e-01_jprb,3.1454e-01_jprb/)
kao( :, 2,11,10) = (/&
&3.0324e-01_jprb,2.6535e-01_jprb,2.2775e-01_jprb,1.9448e-01_jprb,1.5903e-01_jprb,1.2292e-01_jprb,&
&8.8865e-02_jprb,3.0324e-01_jprb,3.0861e-01_jprb/)
kao( :, 3,11,10) = (/&
&3.0493e-01_jprb,2.6686e-01_jprb,2.3266e-01_jprb,1.9918e-01_jprb,1.6490e-01_jprb,1.3153e-01_jprb,&
&1.0078e-01_jprb,3.0493e-01_jprb,3.0699e-01_jprb/)
kao( :, 4,11,10) = (/&
&3.0577e-01_jprb,2.6940e-01_jprb,2.3789e-01_jprb,2.0495e-01_jprb,1.7338e-01_jprb,1.4467e-01_jprb,&
&1.1314e-01_jprb,3.0577e-01_jprb,3.1082e-01_jprb/)
kao( :, 5,11,10) = (/&
&3.0551e-01_jprb,2.7044e-01_jprb,2.4227e-01_jprb,2.1229e-01_jprb,1.8801e-01_jprb,1.5979e-01_jprb,&
&1.3090e-01_jprb,3.0551e-01_jprb,3.1527e-01_jprb/)
kao( :, 1,12,10) = (/&
&3.1134e-01_jprb,2.7243e-01_jprb,2.3354e-01_jprb,1.9639e-01_jprb,1.6090e-01_jprb,1.2387e-01_jprb,&
&8.6052e-02_jprb,3.1134e-01_jprb,5.2978e-01_jprb/)
kao( :, 2,12,10) = (/&
&3.1359e-01_jprb,2.7441e-01_jprb,2.3677e-01_jprb,2.0238e-01_jprb,1.6552e-01_jprb,1.2901e-01_jprb,&
&9.5207e-02_jprb,3.1359e-01_jprb,5.2052e-01_jprb/)
kao( :, 3,12,10) = (/&
&3.1415e-01_jprb,2.7537e-01_jprb,2.4122e-01_jprb,2.0715e-01_jprb,1.7193e-01_jprb,1.3997e-01_jprb,&
&1.0720e-01_jprb,3.1415e-01_jprb,5.1560e-01_jprb/)
kao( :, 4,12,10) = (/&
&3.1372e-01_jprb,2.7678e-01_jprb,2.4609e-01_jprb,2.1256e-01_jprb,1.8335e-01_jprb,1.5322e-01_jprb,&
&1.2081e-01_jprb,3.1372e-01_jprb,5.1557e-01_jprb/)
kao( :, 5,12,10) = (/&
&3.1239e-01_jprb,2.7822e-01_jprb,2.4956e-01_jprb,2.2367e-01_jprb,1.9838e-01_jprb,1.6937e-01_jprb,&
&1.3606e-01_jprb,3.1239e-01_jprb,5.1667e-01_jprb/)
kao( :, 1,13,10) = (/&
&3.1638e-01_jprb,2.7683e-01_jprb,2.3750e-01_jprb,2.0114e-01_jprb,1.6456e-01_jprb,1.2632e-01_jprb,&
&8.9253e-02_jprb,3.1638e-01_jprb,7.3497e-01_jprb/)
kao( :, 2,13,10) = (/&
&3.1671e-01_jprb,2.7713e-01_jprb,2.4097e-01_jprb,2.0542e-01_jprb,1.6866e-01_jprb,1.3347e-01_jprb,&
&9.9658e-02_jprb,3.1671e-01_jprb,7.1891e-01_jprb/)
kao( :, 3,13,10) = (/&
&3.1659e-01_jprb,2.7824e-01_jprb,2.4448e-01_jprb,2.1048e-01_jprb,1.7715e-01_jprb,1.4549e-01_jprb,&
&1.1132e-01_jprb,3.1659e-01_jprb,7.1020e-01_jprb/)
kao( :, 4,13,10) = (/&
&3.1484e-01_jprb,2.7845e-01_jprb,2.4849e-01_jprb,2.1796e-01_jprb,1.8948e-01_jprb,1.5955e-01_jprb,&
&1.2635e-01_jprb,3.1484e-01_jprb,7.0756e-01_jprb/)
kao( :, 5,13,10) = (/&
&3.1186e-01_jprb,2.8054e-01_jprb,2.5362e-01_jprb,2.3086e-01_jprb,2.0496e-01_jprb,1.7512e-01_jprb,&
&1.4143e-01_jprb,3.1186e-01_jprb,7.0584e-01_jprb/)
kao( :, 1, 1,11) = (/&
&3.1327e-01_jprb,2.7438e-01_jprb,2.3864e-01_jprb,2.1648e-01_jprb,1.8690e-01_jprb,1.5673e-01_jprb,&
&1.2734e-01_jprb,3.1327e-01_jprb,1.4986e-01_jprb/)
kao( :, 2, 1,11) = (/&
&3.1392e-01_jprb,2.7491e-01_jprb,2.5200e-01_jprb,2.2734e-01_jprb,2.0303e-01_jprb,1.7541e-01_jprb,&
&1.4089e-01_jprb,3.1392e-01_jprb,1.9707e-01_jprb/)
kao( :, 3, 1,11) = (/&
&3.1383e-01_jprb,2.7650e-01_jprb,2.6109e-01_jprb,2.4195e-01_jprb,2.1927e-01_jprb,1.8650e-01_jprb,&
&1.4955e-01_jprb,3.1383e-01_jprb,2.5159e-01_jprb/)
kao( :, 4, 1,11) = (/&
&3.1272e-01_jprb,2.8403e-01_jprb,2.7223e-01_jprb,2.5585e-01_jprb,2.2854e-01_jprb,2.0092e-01_jprb,&
&1.8691e-01_jprb,3.1272e-01_jprb,3.1304e-01_jprb/)
kao( :, 5, 1,11) = (/&
&3.1090e-01_jprb,2.8955e-01_jprb,2.8191e-01_jprb,2.6664e-01_jprb,2.4121e-01_jprb,2.1301e-01_jprb,&
&2.4137e-01_jprb,3.1090e-01_jprb,3.8118e-01_jprb/)
kao( :, 1, 2,11) = (/&
&3.1324e-01_jprb,2.7422e-01_jprb,2.3920e-01_jprb,2.1500e-01_jprb,1.8495e-01_jprb,1.5528e-01_jprb,&
&1.2577e-01_jprb,3.1324e-01_jprb,1.5045e-01_jprb/)
kao( :, 2, 2,11) = (/&
&3.1470e-01_jprb,2.7557e-01_jprb,2.5223e-01_jprb,2.2657e-01_jprb,2.0210e-01_jprb,1.7421e-01_jprb,&
&1.3837e-01_jprb,3.1470e-01_jprb,1.9866e-01_jprb/)
kao( :, 3, 2,11) = (/&
&3.1536e-01_jprb,2.7926e-01_jprb,2.6141e-01_jprb,2.4214e-01_jprb,2.1888e-01_jprb,1.8478e-01_jprb,&
&1.5074e-01_jprb,3.1536e-01_jprb,2.5677e-01_jprb/)
kao( :, 4, 2,11) = (/&
&3.1504e-01_jprb,2.8779e-01_jprb,2.7376e-01_jprb,2.5633e-01_jprb,2.2942e-01_jprb,1.9993e-01_jprb,&
&1.7112e-01_jprb,3.1504e-01_jprb,3.2302e-01_jprb/)
kao( :, 5, 2,11) = (/&
&3.1381e-01_jprb,2.9324e-01_jprb,2.8519e-01_jprb,2.6951e-01_jprb,2.4055e-01_jprb,2.0793e-01_jprb,&
&2.1700e-01_jprb,3.1381e-01_jprb,3.9625e-01_jprb/)
kao( :, 1, 3,11) = (/&
&3.1204e-01_jprb,2.7315e-01_jprb,2.3704e-01_jprb,2.1094e-01_jprb,1.7966e-01_jprb,1.4896e-01_jprb,&
&1.2013e-01_jprb,3.1204e-01_jprb,1.3758e-01_jprb/)
kao( :, 2, 3,11) = (/&
&3.1466e-01_jprb,2.7547e-01_jprb,2.5029e-01_jprb,2.2183e-01_jprb,1.9651e-01_jprb,1.6912e-01_jprb,&
&1.3258e-01_jprb,3.1466e-01_jprb,1.8586e-01_jprb/)
kao( :, 3, 3,11) = (/&
&3.1617e-01_jprb,2.7992e-01_jprb,2.5948e-01_jprb,2.3884e-01_jprb,2.1445e-01_jprb,1.8030e-01_jprb,&
&1.4450e-01_jprb,3.1617e-01_jprb,2.4266e-01_jprb/)
kao( :, 4, 3,11) = (/&
&3.1681e-01_jprb,2.8890e-01_jprb,2.7221e-01_jprb,2.5334e-01_jprb,2.2580e-01_jprb,1.9471e-01_jprb,&
&1.5799e-01_jprb,3.1681e-01_jprb,3.0762e-01_jprb/)
kao( :, 5, 3,11) = (/&
&3.1660e-01_jprb,2.9490e-01_jprb,2.8472e-01_jprb,2.6817e-01_jprb,2.3814e-01_jprb,2.0506e-01_jprb,&
&1.8418e-01_jprb,3.1660e-01_jprb,3.8162e-01_jprb/)
kao( :, 1, 4,11) = (/&
&3.0866e-01_jprb,2.7016e-01_jprb,2.3341e-01_jprb,2.0592e-01_jprb,1.7365e-01_jprb,1.4152e-01_jprb,&
&1.1350e-01_jprb,3.0866e-01_jprb,1.1729e-01_jprb/)
kao( :, 2, 4,11) = (/&
&3.1261e-01_jprb,2.7364e-01_jprb,2.4679e-01_jprb,2.1687e-01_jprb,1.8912e-01_jprb,1.6227e-01_jprb,&
&1.2877e-01_jprb,3.1261e-01_jprb,1.6263e-01_jprb/)
kao( :, 3, 4,11) = (/&
&3.1517e-01_jprb,2.7866e-01_jprb,2.5633e-01_jprb,2.3322e-01_jprb,2.0818e-01_jprb,1.7524e-01_jprb,&
&1.4011e-01_jprb,3.1517e-01_jprb,2.1741e-01_jprb/)
kao( :, 4, 4,11) = (/&
&3.1718e-01_jprb,2.8802e-01_jprb,2.6947e-01_jprb,2.4866e-01_jprb,2.2061e-01_jprb,1.8942e-01_jprb,&
&1.5695e-01_jprb,3.1727e-01_jprb,2.8012e-01_jprb/)
kao( :, 5, 4,11) = (/&
&3.1858e-01_jprb,2.9479e-01_jprb,2.8190e-01_jprb,2.6309e-01_jprb,2.3448e-01_jprb,2.0068e-01_jprb,&
&1.6930e-01_jprb,3.1858e-01_jprb,3.4979e-01_jprb/)
kao( :, 1, 5,11) = (/&
&3.0359e-01_jprb,2.6572e-01_jprb,2.2874e-01_jprb,1.9974e-01_jprb,1.6826e-01_jprb,1.3653e-01_jprb,&
&1.0959e-01_jprb,3.0359e-01_jprb,9.5564e-02_jprb/)
kao( :, 2, 5,11) = (/&
&3.0961e-01_jprb,2.7098e-01_jprb,2.4191e-01_jprb,2.1172e-01_jprb,1.8197e-01_jprb,1.5688e-01_jprb,&
&1.2682e-01_jprb,3.0961e-01_jprb,1.3546e-01_jprb/)
kao( :, 3, 5,11) = (/&
&3.1431e-01_jprb,2.7737e-01_jprb,2.5231e-01_jprb,2.2743e-01_jprb,2.0217e-01_jprb,1.7268e-01_jprb,&
&1.3768e-01_jprb,3.1431e-01_jprb,1.8484e-01_jprb/)
kao( :, 4, 5,11) = (/&
&3.1787e-01_jprb,2.8734e-01_jprb,2.6579e-01_jprb,2.4308e-01_jprb,2.1533e-01_jprb,1.8679e-01_jprb,&
&1.5347e-01_jprb,3.1787e-01_jprb,2.4315e-01_jprb/)
kao( :, 5, 5,11) = (/&
&3.2027e-01_jprb,2.9468e-01_jprb,2.7870e-01_jprb,2.5695e-01_jprb,2.3189e-01_jprb,2.0016e-01_jprb,&
&1.6850e-01_jprb,3.2027e-01_jprb,3.1159e-01_jprb/)
kao( :, 1, 6,11) = (/&
&2.9865e-01_jprb,2.6139e-01_jprb,2.2417e-01_jprb,1.9237e-01_jprb,1.6261e-01_jprb,1.3306e-01_jprb,&
&1.0402e-01_jprb,2.9865e-01_jprb,7.4728e-02_jprb/)
kao( :, 2, 6,11) = (/&
&3.0619e-01_jprb,2.6800e-01_jprb,2.3652e-01_jprb,2.0579e-01_jprb,1.7684e-01_jprb,1.5168e-01_jprb,&
&1.2223e-01_jprb,3.0619e-01_jprb,1.0829e-01_jprb/)
kao( :, 3, 6,11) = (/&
&3.1241e-01_jprb,2.7514e-01_jprb,2.4815e-01_jprb,2.2081e-01_jprb,1.9720e-01_jprb,1.6917e-01_jprb,&
&1.3396e-01_jprb,3.1241e-01_jprb,1.5151e-01_jprb/)
kao( :, 4, 6,11) = (/&
&3.1661e-01_jprb,2.8538e-01_jprb,2.6104e-01_jprb,2.3841e-01_jprb,2.1165e-01_jprb,1.8243e-01_jprb,&
&1.4887e-01_jprb,3.1661e-01_jprb,2.0348e-01_jprb/)
kao( :, 5, 6,11) = (/&
&3.2000e-01_jprb,2.9293e-01_jprb,2.7479e-01_jprb,2.5146e-01_jprb,2.2881e-01_jprb,1.9893e-01_jprb,&
&1.6745e-01_jprb,3.2000e-01_jprb,2.6520e-01_jprb/)
kao( :, 1, 7,11) = (/&
&3.0081e-01_jprb,2.6324e-01_jprb,2.2567e-01_jprb,1.8947e-01_jprb,1.5824e-01_jprb,1.2934e-01_jprb,&
&9.9139e-02_jprb,3.0081e-01_jprb,5.8236e-02_jprb/)
kao( :, 2, 7,11) = (/&
&3.0785e-01_jprb,2.6938e-01_jprb,2.3362e-01_jprb,2.0225e-01_jprb,1.7197e-01_jprb,1.4526e-01_jprb,&
&1.1606e-01_jprb,3.0785e-01_jprb,8.6143e-02_jprb/)
kao( :, 3, 7,11) = (/&
&3.1355e-01_jprb,2.7471e-01_jprb,2.4475e-01_jprb,2.1558e-01_jprb,1.9203e-01_jprb,1.6359e-01_jprb,&
&1.2884e-01_jprb,3.1355e-01_jprb,1.2279e-01_jprb/)
kao( :, 4, 7,11) = (/&
&3.1773e-01_jprb,2.8339e-01_jprb,2.5534e-01_jprb,2.3396e-01_jprb,2.0755e-01_jprb,1.7658e-01_jprb,&
&1.4450e-01_jprb,3.1773e-01_jprb,1.6752e-01_jprb/)
kao( :, 5, 7,11) = (/&
&3.2073e-01_jprb,2.9018e-01_jprb,2.6952e-01_jprb,2.4697e-01_jprb,2.2381e-01_jprb,1.9623e-01_jprb,&
&1.6582e-01_jprb,3.2073e-01_jprb,2.2165e-01_jprb/)
kao( :, 1, 8,11) = (/&
&3.1629e-01_jprb,2.7676e-01_jprb,2.3728e-01_jprb,1.9776e-01_jprb,1.6109e-01_jprb,1.2901e-01_jprb,&
&9.4699e-02_jprb,3.1629e-01_jprb,4.5300e-02_jprb/)
kao( :, 2, 8,11) = (/&
&3.2227e-01_jprb,2.8203e-01_jprb,2.4214e-01_jprb,2.0636e-01_jprb,1.7262e-01_jprb,1.4016e-01_jprb,&
&1.0877e-01_jprb,3.2227e-01_jprb,6.8853e-02_jprb/)
kao( :, 3, 8,11) = (/&
&3.2688e-01_jprb,2.8607e-01_jprb,2.5069e-01_jprb,2.1556e-01_jprb,1.8748e-01_jprb,1.5661e-01_jprb,&
&1.2299e-01_jprb,3.2688e-01_jprb,1.0018e-01_jprb/)
kao( :, 4, 8,11) = (/&
&3.2981e-01_jprb,2.9140e-01_jprb,2.5712e-01_jprb,2.3078e-01_jprb,2.0158e-01_jprb,1.7058e-01_jprb,&
&1.4006e-01_jprb,3.2981e-01_jprb,1.3838e-01_jprb/)
kao( :, 5, 8,11) = (/&
&3.3188e-01_jprb,2.9618e-01_jprb,2.6784e-01_jprb,2.4209e-01_jprb,2.1696e-01_jprb,1.9240e-01_jprb,&
&1.6480e-01_jprb,3.3188e-01_jprb,1.8388e-01_jprb/)
kao( :, 1, 9,11) = (/&
&3.4054e-01_jprb,2.9798e-01_jprb,2.5543e-01_jprb,2.1287e-01_jprb,1.7079e-01_jprb,1.3421e-01_jprb,&
&9.5710e-02_jprb,3.4054e-01_jprb,3.8236e-02_jprb/)
kao( :, 2, 9,11) = (/&
&3.4633e-01_jprb,3.0305e-01_jprb,2.5976e-01_jprb,2.1890e-01_jprb,1.8147e-01_jprb,1.4225e-01_jprb,&
&1.0350e-01_jprb,3.4633e-01_jprb,5.6238e-02_jprb/)
kao( :, 3, 9,11) = (/&
&3.5037e-01_jprb,3.0657e-01_jprb,2.6602e-01_jprb,2.2678e-01_jprb,1.8994e-01_jprb,1.5344e-01_jprb,&
&1.1667e-01_jprb,3.5037e-01_jprb,8.1743e-02_jprb/)
kao( :, 4, 9,11) = (/&
&3.5228e-01_jprb,3.0944e-01_jprb,2.6992e-01_jprb,2.3660e-01_jprb,2.0123e-01_jprb,1.6487e-01_jprb,&
&1.3602e-01_jprb,3.5228e-01_jprb,1.1413e-01_jprb/)
kao( :, 5, 9,11) = (/&
&3.5225e-01_jprb,3.1211e-01_jprb,2.7731e-01_jprb,2.4493e-01_jprb,2.1160e-01_jprb,1.8738e-01_jprb,&
&1.6276e-01_jprb,3.5225e-01_jprb,1.5348e-01_jprb/)
kao( :, 1,10,11) = (/&
&3.6852e-01_jprb,3.2247e-01_jprb,2.7644e-01_jprb,2.3039e-01_jprb,1.8448e-01_jprb,1.4188e-01_jprb,&
&9.9757e-02_jprb,3.6852e-01_jprb,1.4040e-01_jprb/)
kao( :, 2,10,11) = (/&
&3.7315e-01_jprb,3.2652e-01_jprb,2.7989e-01_jprb,2.3366e-01_jprb,1.9261e-01_jprb,1.5003e-01_jprb,&
&1.0586e-01_jprb,3.7315e-01_jprb,1.4526e-01_jprb/)
kao( :, 3,10,11) = (/&
&3.7571e-01_jprb,3.2878e-01_jprb,2.8366e-01_jprb,2.4104e-01_jprb,1.9987e-01_jprb,1.5820e-01_jprb,&
&1.1578e-01_jprb,3.7571e-01_jprb,1.5497e-01_jprb/)
kao( :, 4,10,11) = (/&
&3.7705e-01_jprb,3.3024e-01_jprb,2.8735e-01_jprb,2.4933e-01_jprb,2.0907e-01_jprb,1.6748e-01_jprb,&
&1.3413e-01_jprb,3.7705e-01_jprb,1.6746e-01_jprb/)
kao( :, 5,10,11) = (/&
&3.7628e-01_jprb,3.3247e-01_jprb,2.9343e-01_jprb,2.5663e-01_jprb,2.1748e-01_jprb,1.8673e-01_jprb,&
&1.6058e-01_jprb,3.7628e-01_jprb,1.8275e-01_jprb/)
kao( :, 1,11,11) = (/&
&4.0038e-01_jprb,3.5035e-01_jprb,3.0034e-01_jprb,2.5030e-01_jprb,2.0116e-01_jprb,1.5522e-01_jprb,&
&1.0823e-01_jprb,4.0038e-01_jprb,3.5490e-01_jprb/)
kao( :, 2,11,11) = (/&
&4.0396e-01_jprb,3.5350e-01_jprb,3.0301e-01_jprb,2.5425e-01_jprb,2.0946e-01_jprb,1.6195e-01_jprb,&
&1.1374e-01_jprb,4.0396e-01_jprb,3.4856e-01_jprb/)
kao( :, 3,11,11) = (/&
&4.0565e-01_jprb,3.5496e-01_jprb,3.0665e-01_jprb,2.6112e-01_jprb,2.1551e-01_jprb,1.6958e-01_jprb,&
&1.2572e-01_jprb,4.0565e-01_jprb,3.5076e-01_jprb/)
kao( :, 4,11,11) = (/&
&4.0558e-01_jprb,3.5595e-01_jprb,3.0938e-01_jprb,2.6840e-01_jprb,2.2301e-01_jprb,1.8046e-01_jprb,&
&1.4403e-01_jprb,4.0558e-01_jprb,3.5722e-01_jprb/)
kao( :, 5,11,11) = (/&
&4.0446e-01_jprb,3.5712e-01_jprb,3.1553e-01_jprb,2.7323e-01_jprb,2.3366e-01_jprb,2.0210e-01_jprb,&
&1.6875e-01_jprb,4.0446e-01_jprb,3.6719e-01_jprb/)
kao( :, 1,12,11) = (/&
&4.3154e-01_jprb,3.7764e-01_jprb,3.2370e-01_jprb,2.6981e-01_jprb,2.1804e-01_jprb,1.6850e-01_jprb,&
&1.1669e-01_jprb,4.3154e-01_jprb,6.0134e-01_jprb/)
kao( :, 2,12,11) = (/&
&4.3374e-01_jprb,3.7956e-01_jprb,3.2536e-01_jprb,2.7466e-01_jprb,2.2555e-01_jprb,1.7385e-01_jprb,&
&1.2290e-01_jprb,4.3374e-01_jprb,5.8479e-01_jprb/)
kao( :, 3,12,11) = (/&
&4.3331e-01_jprb,3.7916e-01_jprb,3.2808e-01_jprb,2.8000e-01_jprb,2.3156e-01_jprb,1.8166e-01_jprb,&
&1.3630e-01_jprb,4.3331e-01_jprb,5.7701e-01_jprb/)
kao( :, 4,12,11) = (/&
&4.3216e-01_jprb,3.8009e-01_jprb,3.3136e-01_jprb,2.8692e-01_jprb,2.3835e-01_jprb,1.9569e-01_jprb,&
&1.5406e-01_jprb,4.3216e-01_jprb,5.7788e-01_jprb/)
kao( :, 5,12,11) = (/&
&4.2924e-01_jprb,3.7929e-01_jprb,3.3644e-01_jprb,2.9162e-01_jprb,2.5358e-01_jprb,2.1598e-01_jprb,&
&1.7801e-01_jprb,4.2924e-01_jprb,5.8590e-01_jprb/)
kao( :, 1,13,11) = (/&
&4.5507e-01_jprb,3.9820e-01_jprb,3.4134e-01_jprb,2.8486e-01_jprb,2.3199e-01_jprb,1.7908e-01_jprb,&
&1.2378e-01_jprb,4.5507e-01_jprb,8.3466e-01_jprb/)
kao( :, 2,13,11) = (/&
&4.5560e-01_jprb,3.9865e-01_jprb,3.4207e-01_jprb,2.9076e-01_jprb,2.3824e-01_jprb,1.8413e-01_jprb,&
&1.3231e-01_jprb,4.5560e-01_jprb,8.1743e-01_jprb/)
kao( :, 3,13,11) = (/&
&4.5408e-01_jprb,3.9738e-01_jprb,3.4508e-01_jprb,2.9494e-01_jprb,2.4447e-01_jprb,1.9400e-01_jprb,&
&1.4658e-01_jprb,4.5408e-01_jprb,8.0395e-01_jprb/)
kao( :, 4,13,11) = (/&
&4.5061e-01_jprb,3.9693e-01_jprb,3.4841e-01_jprb,3.0086e-01_jprb,2.5386e-01_jprb,2.0976e-01_jprb,&
&1.6407e-01_jprb,4.5061e-01_jprb,8.0112e-01_jprb/)
kao( :, 5,13,11) = (/&
&4.4632e-01_jprb,3.9509e-01_jprb,3.5179e-01_jprb,3.0910e-01_jprb,2.7153e-01_jprb,2.3030e-01_jprb,&
&1.8645e-01_jprb,4.4632e-01_jprb,8.0445e-01_jprb/)
kao( :, 1, 1,12) = (/&
&4.5134e-01_jprb,3.9508e-01_jprb,3.3890e-01_jprb,2.8825e-01_jprb,2.4778e-01_jprb,1.9924e-01_jprb,&
&1.4875e-01_jprb,4.5134e-01_jprb,1.8824e-01_jprb/)
kao( :, 2, 1,12) = (/&
&4.4302e-01_jprb,3.8780e-01_jprb,3.3477e-01_jprb,2.9793e-01_jprb,2.5163e-01_jprb,2.0880e-01_jprb,&
&1.6421e-01_jprb,4.4302e-01_jprb,2.4393e-01_jprb/)
kao( :, 3, 1,12) = (/&
&4.3442e-01_jprb,3.8027e-01_jprb,3.4110e-01_jprb,2.9993e-01_jprb,2.6022e-01_jprb,2.1949e-01_jprb,&
&2.0337e-01_jprb,4.3442e-01_jprb,3.1211e-01_jprb/)
kao( :, 4, 1,12) = (/&
&4.2548e-01_jprb,3.7248e-01_jprb,3.4001e-01_jprb,3.0363e-01_jprb,2.6872e-01_jprb,2.3529e-01_jprb,&
&2.6208e-01_jprb,4.2548e-01_jprb,4.0218e-01_jprb/)
kao( :, 5, 1,12) = (/&
&4.1637e-01_jprb,3.7184e-01_jprb,3.3956e-01_jprb,3.0702e-01_jprb,2.7666e-01_jprb,3.0048e-01_jprb,&
&3.3370e-01_jprb,4.1637e-01_jprb,5.1810e-01_jprb/)
kao( :, 1, 2,12) = (/&
&4.5993e-01_jprb,4.0257e-01_jprb,3.4522e-01_jprb,2.9460e-01_jprb,2.5120e-01_jprb,2.0075e-01_jprb,&
&1.4994e-01_jprb,4.5993e-01_jprb,1.8380e-01_jprb/)
kao( :, 2, 2,12) = (/&
&4.5214e-01_jprb,3.9569e-01_jprb,3.4306e-01_jprb,3.0314e-01_jprb,2.5542e-01_jprb,2.1170e-01_jprb,&
&1.6517e-01_jprb,4.5214e-01_jprb,2.4302e-01_jprb/)
kao( :, 3, 2,12) = (/&
&4.4392e-01_jprb,3.8859e-01_jprb,3.4836e-01_jprb,3.0544e-01_jprb,2.6499e-01_jprb,2.2418e-01_jprb,&
&1.8731e-01_jprb,4.4392e-01_jprb,3.1300e-01_jprb/)
kao( :, 4, 2,12) = (/&
&4.3542e-01_jprb,3.8194e-01_jprb,3.4769e-01_jprb,3.0985e-01_jprb,2.7291e-01_jprb,2.3160e-01_jprb,&
&2.4758e-01_jprb,4.3542e-01_jprb,3.9636e-01_jprb/)
kao( :, 5, 2,12) = (/&
&4.2659e-01_jprb,3.8102e-01_jprb,3.4597e-01_jprb,3.1267e-01_jprb,2.8101e-01_jprb,2.8559e-01_jprb,&
&3.2264e-01_jprb,4.2659e-01_jprb,5.0187e-01_jprb/)
kao( :, 1, 3,12) = (/&
&4.6833e-01_jprb,4.0988e-01_jprb,3.5146e-01_jprb,2.9725e-01_jprb,2.5255e-01_jprb,2.0071e-01_jprb,&
&1.4658e-01_jprb,4.6833e-01_jprb,1.7493e-01_jprb/)
kao( :, 2, 3,12) = (/&
&4.6121e-01_jprb,4.0366e-01_jprb,3.4878e-01_jprb,3.0682e-01_jprb,2.5668e-01_jprb,2.1030e-01_jprb,&
&1.6556e-01_jprb,4.6121e-01_jprb,2.3373e-01_jprb/)
kao( :, 3, 3,12) = (/&
&4.5378e-01_jprb,3.9716e-01_jprb,3.5415e-01_jprb,3.0895e-01_jprb,2.6677e-01_jprb,2.2483e-01_jprb,&
&1.7374e-01_jprb,4.5378e-01_jprb,3.0656e-01_jprb/)
kao( :, 4, 3,12) = (/&
&4.4576e-01_jprb,3.9132e-01_jprb,3.5375e-01_jprb,3.1409e-01_jprb,2.7473e-01_jprb,2.3114e-01_jprb,&
&2.1677e-01_jprb,4.4576e-01_jprb,3.9296e-01_jprb/)
kao( :, 5, 3,12) = (/&
&4.3705e-01_jprb,3.9046e-01_jprb,3.5326e-01_jprb,3.1679e-01_jprb,2.8502e-01_jprb,2.5712e-01_jprb,&
&2.8930e-01_jprb,4.3705e-01_jprb,4.9026e-01_jprb/)
kao( :, 1, 4,12) = (/&
&4.7595e-01_jprb,4.1655e-01_jprb,3.5714e-01_jprb,2.9920e-01_jprb,2.5213e-01_jprb,1.9982e-01_jprb,&
&1.4381e-01_jprb,4.7595e-01_jprb,1.5872e-01_jprb/)
kao( :, 2, 4,12) = (/&
&4.7033e-01_jprb,4.1161e-01_jprb,3.5414e-01_jprb,3.0922e-01_jprb,2.5846e-01_jprb,2.0731e-01_jprb,&
&1.6215e-01_jprb,4.7033e-01_jprb,2.1800e-01_jprb/)
kao( :, 3, 4,12) = (/&
&4.6352e-01_jprb,4.0565e-01_jprb,3.5971e-01_jprb,3.1204e-01_jprb,2.6678e-01_jprb,2.2292e-01_jprb,&
&1.7122e-01_jprb,4.6352e-01_jprb,2.9018e-01_jprb/)
kao( :, 4, 4,12) = (/&
&4.5585e-01_jprb,4.0027e-01_jprb,3.5920e-01_jprb,3.1814e-01_jprb,2.7571e-01_jprb,2.2988e-01_jprb,&
&1.8807e-01_jprb,4.5585e-01_jprb,3.7615e-01_jprb/)
kao( :, 5, 4,12) = (/&
&4.4747e-01_jprb,3.9994e-01_jprb,3.6045e-01_jprb,3.2102e-01_jprb,2.8482e-01_jprb,2.4194e-01_jprb,&
&2.4872e-01_jprb,4.4747e-01_jprb,4.7733e-01_jprb/)
kao( :, 1, 5,12) = (/&
&4.8332e-01_jprb,4.2296e-01_jprb,3.6260e-01_jprb,3.0235e-01_jprb,2.5042e-01_jprb,1.9864e-01_jprb,&
&1.4130e-01_jprb,4.8332e-01_jprb,1.3745e-01_jprb/)
kao( :, 2, 5,12) = (/&
&4.7867e-01_jprb,4.1890e-01_jprb,3.5947e-01_jprb,3.1127e-01_jprb,2.5927e-01_jprb,2.0493e-01_jprb,&
&1.5750e-01_jprb,4.7867e-01_jprb,1.9596e-01_jprb/)
kao( :, 3, 5,12) = (/&
&4.7259e-01_jprb,4.1358e-01_jprb,3.6520e-01_jprb,3.1459e-01_jprb,2.6723e-01_jprb,2.2048e-01_jprb,&
&1.7032e-01_jprb,4.7259e-01_jprb,2.6742e-01_jprb/)
kao( :, 4, 5,12) = (/&
&4.6538e-01_jprb,4.0850e-01_jprb,3.6518e-01_jprb,3.2176e-01_jprb,2.7688e-01_jprb,2.2777e-01_jprb,&
&1.8088e-01_jprb,4.6538e-01_jprb,3.5196e-01_jprb/)
kao( :, 5, 5,12) = (/&
&4.5769e-01_jprb,4.0896e-01_jprb,3.6726e-01_jprb,3.2571e-01_jprb,2.8321e-01_jprb,2.4098e-01_jprb,&
&2.1462e-01_jprb,4.5769e-01_jprb,4.5123e-01_jprb/)
kao( :, 1, 6,12) = (/&
&4.8993e-01_jprb,4.2877e-01_jprb,3.6756e-01_jprb,3.0637e-01_jprb,2.4861e-01_jprb,1.9592e-01_jprb,&
&1.4097e-01_jprb,4.8993e-01_jprb,1.1309e-01_jprb/)
kao( :, 2, 6,12) = (/&
&4.8623e-01_jprb,4.2551e-01_jprb,3.6480e-01_jprb,3.1259e-01_jprb,2.5937e-01_jprb,2.0293e-01_jprb,&
&1.5359e-01_jprb,4.8623e-01_jprb,1.6654e-01_jprb/)
kao( :, 3, 6,12) = (/&
&4.8158e-01_jprb,4.2145e-01_jprb,3.6981e-01_jprb,3.1811e-01_jprb,2.6579e-01_jprb,2.1805e-01_jprb,&
&1.7034e-01_jprb,4.8158e-01_jprb,2.3416e-01_jprb/)
kao( :, 4, 6,12) = (/&
&4.7580e-01_jprb,4.1675e-01_jprb,3.7108e-01_jprb,3.2456e-01_jprb,2.7803e-01_jprb,2.2833e-01_jprb,&
&1.8066e-01_jprb,4.7580e-01_jprb,3.1607e-01_jprb/)
kao( :, 5, 6,12) = (/&
&4.6758e-01_jprb,4.1652e-01_jprb,3.7367e-01_jprb,3.3147e-01_jprb,2.8380e-01_jprb,2.4223e-01_jprb,&
&1.9841e-01_jprb,4.6758e-01_jprb,4.1181e-01_jprb/)
kao( :, 1, 7,12) = (/&
&4.9556e-01_jprb,4.3365e-01_jprb,3.7175e-01_jprb,3.0985e-01_jprb,2.4854e-01_jprb,1.9277e-01_jprb,&
&1.4013e-01_jprb,4.9556e-01_jprb,8.9473e-02_jprb/)
kao( :, 2, 7,12) = (/&
&4.9363e-01_jprb,4.3195e-01_jprb,3.7029e-01_jprb,3.1256e-01_jprb,2.5963e-01_jprb,2.0328e-01_jprb,&
&1.5194e-01_jprb,4.9363e-01_jprb,1.3619e-01_jprb/)
kao( :, 3, 7,12) = (/&
&4.8988e-01_jprb,4.2866e-01_jprb,3.7265e-01_jprb,3.2073e-01_jprb,2.6549e-01_jprb,2.1787e-01_jprb,&
&1.7010e-01_jprb,4.8988e-01_jprb,1.9644e-01_jprb/)
kao( :, 4, 7,12) = (/&
&4.8356e-01_jprb,4.2335e-01_jprb,3.7640e-01_jprb,3.2648e-01_jprb,2.8045e-01_jprb,2.3190e-01_jprb,&
&1.7955e-01_jprb,4.8356e-01_jprb,2.7163e-01_jprb/)
kao( :, 5, 7,12) = (/&
&4.7613e-01_jprb,4.2343e-01_jprb,3.7941e-01_jprb,3.3677e-01_jprb,2.8839e-01_jprb,2.4416e-01_jprb,&
&1.9240e-01_jprb,4.7613e-01_jprb,3.6146e-01_jprb/)
kao( :, 1, 8,12) = (/&
&4.9952e-01_jprb,4.3713e-01_jprb,3.7469e-01_jprb,3.1228e-01_jprb,2.4992e-01_jprb,1.8992e-01_jprb,&
&1.3910e-01_jprb,4.9952e-01_jprb,7.0068e-02_jprb/)
kao( :, 2, 8,12) = (/&
&4.9876e-01_jprb,4.3647e-01_jprb,3.7415e-01_jprb,3.1359e-01_jprb,2.5898e-01_jprb,2.0365e-01_jprb,&
&1.5225e-01_jprb,4.9876e-01_jprb,1.0911e-01_jprb/)
kao( :, 3, 8,12) = (/&
&4.9561e-01_jprb,4.3367e-01_jprb,3.7478e-01_jprb,3.2253e-01_jprb,2.6652e-01_jprb,2.1802e-01_jprb,&
&1.6931e-01_jprb,4.9561e-01_jprb,1.6065e-01_jprb/)
kao( :, 4, 8,12) = (/&
&4.9132e-01_jprb,4.2995e-01_jprb,3.8056e-01_jprb,3.2825e-01_jprb,2.8313e-01_jprb,2.3561e-01_jprb,&
&1.7963e-01_jprb,4.9132e-01_jprb,2.2657e-01_jprb/)
kao( :, 5, 8,12) = (/&
&4.8493e-01_jprb,4.3037e-01_jprb,3.8392e-01_jprb,3.3999e-01_jprb,2.9506e-01_jprb,2.4592e-01_jprb,&
&1.9305e-01_jprb,4.8493e-01_jprb,3.0798e-01_jprb/)
kao( :, 1, 9,12) = (/&
&5.0297e-01_jprb,4.4011e-01_jprb,3.7727e-01_jprb,3.1445e-01_jprb,2.5164e-01_jprb,1.8923e-01_jprb,&
&1.3630e-01_jprb,5.0297e-01_jprb,5.5928e-02_jprb/)
kao( :, 2, 9,12) = (/&
&5.0280e-01_jprb,4.3999e-01_jprb,3.7719e-01_jprb,3.1439e-01_jprb,2.5596e-01_jprb,2.0387e-01_jprb,&
&1.5194e-01_jprb,5.0280e-01_jprb,8.7259e-02_jprb/)
kao( :, 3, 9,12) = (/&
&5.0165e-01_jprb,4.3899e-01_jprb,3.7733e-01_jprb,3.2316e-01_jprb,2.6815e-01_jprb,2.1765e-01_jprb,&
&1.6729e-01_jprb,5.0165e-01_jprb,1.3032e-01_jprb/)
kao( :, 4, 9,12) = (/&
&4.9775e-01_jprb,4.3558e-01_jprb,3.8325e-01_jprb,3.2898e-01_jprb,2.8348e-01_jprb,2.3696e-01_jprb,&
&1.7992e-01_jprb,4.9775e-01_jprb,1.8697e-01_jprb/)
kao( :, 5, 9,12) = (/&
&4.9256e-01_jprb,4.3533e-01_jprb,3.8600e-01_jprb,3.4285e-01_jprb,2.9917e-01_jprb,2.4757e-01_jprb,&
&1.9469e-01_jprb,4.9256e-01_jprb,2.5776e-01_jprb/)
kao( :, 1,10,12) = (/&
&5.1773e-01_jprb,4.5305e-01_jprb,3.8832e-01_jprb,3.2361e-01_jprb,2.5894e-01_jprb,1.9444e-01_jprb,&
&1.3626e-01_jprb,5.1773e-01_jprb,1.7143e-01_jprb/)
kao( :, 2,10,12) = (/&
&5.2014e-01_jprb,4.5518e-01_jprb,3.9014e-01_jprb,3.2511e-01_jprb,2.6137e-01_jprb,2.0558e-01_jprb,&
&1.5091e-01_jprb,5.2014e-01_jprb,1.7878e-01_jprb/)
kao( :, 3,10,12) = (/&
&5.1859e-01_jprb,4.5376e-01_jprb,3.8899e-01_jprb,3.2977e-01_jprb,2.7178e-01_jprb,2.1806e-01_jprb,&
&1.6450e-01_jprb,5.1859e-01_jprb,1.8778e-01_jprb/)
kao( :, 4,10,12) = (/&
&5.1464e-01_jprb,4.5036e-01_jprb,3.9278e-01_jprb,3.3429e-01_jprb,2.8520e-01_jprb,2.3593e-01_jprb,&
&1.7923e-01_jprb,5.1464e-01_jprb,2.0686e-01_jprb/)
kao( :, 5,10,12) = (/&
&5.1018e-01_jprb,4.4905e-01_jprb,3.9440e-01_jprb,3.4703e-01_jprb,3.0026e-01_jprb,2.4817e-01_jprb,&
&1.9727e-01_jprb,5.1018e-01_jprb,2.4342e-01_jprb/)
kao( :, 1,11,12) = (/&
&5.4832e-01_jprb,4.7977e-01_jprb,4.1126e-01_jprb,3.4274e-01_jprb,2.7420e-01_jprb,2.0703e-01_jprb,&
&1.4636e-01_jprb,5.4832e-01_jprb,4.2229e-01_jprb/)
kao( :, 2,11,12) = (/&
&5.4890e-01_jprb,4.8029e-01_jprb,4.1169e-01_jprb,3.4308e-01_jprb,2.7803e-01_jprb,2.1902e-01_jprb,&
&1.5675e-01_jprb,5.4890e-01_jprb,4.1304e-01_jprb/)
kao( :, 3,11,12) = (/&
&5.4760e-01_jprb,4.7912e-01_jprb,4.1148e-01_jprb,3.4845e-01_jprb,2.8802e-01_jprb,2.2864e-01_jprb,&
&1.6957e-01_jprb,5.4760e-01_jprb,4.1866e-01_jprb/)
kao( :, 4,11,12) = (/&
&5.4451e-01_jprb,4.7646e-01_jprb,4.1466e-01_jprb,3.5324e-01_jprb,3.0043e-01_jprb,2.4253e-01_jprb,&
&1.8588e-01_jprb,5.4451e-01_jprb,4.2963e-01_jprb/)
kao( :, 5,11,12) = (/&
&5.3844e-01_jprb,4.7499e-01_jprb,4.1514e-01_jprb,3.6472e-01_jprb,3.0977e-01_jprb,2.5655e-01_jprb,&
&2.1387e-01_jprb,5.3844e-01_jprb,4.4513e-01_jprb/)
kao( :, 1,12,12) = (/&
&5.9065e-01_jprb,5.1684e-01_jprb,4.4304e-01_jprb,3.6914e-01_jprb,2.9536e-01_jprb,2.2452e-01_jprb,&
&1.5812e-01_jprb,5.9065e-01_jprb,7.0088e-01_jprb/)
kao( :, 2,12,12) = (/&
&5.8872e-01_jprb,5.1516e-01_jprb,4.4157e-01_jprb,3.6818e-01_jprb,3.0050e-01_jprb,2.3470e-01_jprb,&
&1.6533e-01_jprb,5.8872e-01_jprb,6.8724e-01_jprb/)
kao( :, 3,12,12) = (/&
&5.8657e-01_jprb,5.1328e-01_jprb,4.4183e-01_jprb,3.7357e-01_jprb,3.0883e-01_jprb,2.4369e-01_jprb,&
&1.7720e-01_jprb,5.8657e-01_jprb,6.7692e-01_jprb/)
kao( :, 4,12,12) = (/&
&5.8202e-01_jprb,5.0954e-01_jprb,4.4287e-01_jprb,3.7996e-01_jprb,3.1901e-01_jprb,2.5355e-01_jprb,&
&1.9754e-01_jprb,5.8202e-01_jprb,6.8063e-01_jprb/)
kao( :, 5,12,12) = (/&
&5.7488e-01_jprb,5.0736e-01_jprb,4.4448e-01_jprb,3.8734e-01_jprb,3.2636e-01_jprb,2.7530e-01_jprb,&
&2.2896e-01_jprb,5.7488e-01_jprb,6.8864e-01_jprb/)
kao( :, 1,13,12) = (/&
&6.3330e-01_jprb,5.5414e-01_jprb,4.7500e-01_jprb,3.9585e-01_jprb,3.1697e-01_jprb,2.4329e-01_jprb,&
&1.7024e-01_jprb,6.3330e-01_jprb,9.6193e-01_jprb/)
kao( :, 2,13,12) = (/&
&6.3223e-01_jprb,5.5319e-01_jprb,4.7424e-01_jprb,3.9638e-01_jprb,3.2473e-01_jprb,2.5152e-01_jprb,&
&1.7599e-01_jprb,6.3223e-01_jprb,9.4444e-01_jprb/)
kao( :, 3,13,12) = (/&
&6.2744e-01_jprb,5.4905e-01_jprb,4.7373e-01_jprb,4.0076e-01_jprb,3.3050e-01_jprb,2.6025e-01_jprb,&
&1.8993e-01_jprb,6.2744e-01_jprb,9.2859e-01_jprb/)
kao( :, 4,13,12) = (/&
&6.2161e-01_jprb,5.4502e-01_jprb,4.7279e-01_jprb,4.0774e-01_jprb,3.3922e-01_jprb,2.7164e-01_jprb,&
&2.1216e-01_jprb,6.2161e-01_jprb,9.1983e-01_jprb/)
kao( :, 5,13,12) = (/&
&6.1416e-01_jprb,5.4190e-01_jprb,4.7545e-01_jprb,4.1094e-01_jprb,3.4988e-01_jprb,2.9767e-01_jprb,&
&2.4315e-01_jprb,6.1416e-01_jprb,9.2076e-01_jprb/)
kao( :, 1, 1,13) = (/&
&5.6801e-01_jprb,4.9753e-01_jprb,4.2614e-01_jprb,3.5562e-01_jprb,2.9784e-01_jprb,2.3762e-01_jprb,&
&1.7067e-01_jprb,5.6801e-01_jprb,2.8847e-01_jprb/)
kao( :, 2, 1,13) = (/&
&5.4506e-01_jprb,4.7713e-01_jprb,4.0945e-01_jprb,3.5614e-01_jprb,2.9906e-01_jprb,2.3687e-01_jprb,&
&2.1806e-01_jprb,5.4506e-01_jprb,3.9566e-01_jprb/)
kao( :, 3, 1,13) = (/&
&5.2208e-01_jprb,4.5704e-01_jprb,4.0103e-01_jprb,3.5099e-01_jprb,2.9640e-01_jprb,2.7382e-01_jprb,&
&2.9611e-01_jprb,5.2208e-01_jprb,5.3813e-01_jprb/)
kao( :, 4, 1,13) = (/&
&5.0009e-01_jprb,4.3777e-01_jprb,3.9424e-01_jprb,3.4743e-01_jprb,3.1380e-01_jprb,3.5655e-01_jprb,&
&3.8844e-01_jprb,5.0009e-01_jprb,7.1248e-01_jprb/)
kao( :, 5, 1,13) = (/&
&4.7842e-01_jprb,4.2067e-01_jprb,3.8681e-01_jprb,3.4438e-01_jprb,3.8224e-01_jprb,4.4874e-01_jprb,&
&4.9670e-01_jprb,4.7842e-01_jprb,9.2069e-01_jprb/)
kao( :, 1, 2,13) = (/&
&5.8929e-01_jprb,5.1576e-01_jprb,4.4253e-01_jprb,3.6899e-01_jprb,3.0866e-01_jprb,2.4593e-01_jprb,&
&1.7419e-01_jprb,5.8929e-01_jprb,2.7016e-01_jprb/)
kao( :, 2, 2,13) = (/&
&5.6495e-01_jprb,4.9446e-01_jprb,4.2405e-01_jprb,3.6956e-01_jprb,3.0941e-01_jprb,2.4584e-01_jprb,&
&2.0900e-01_jprb,5.6495e-01_jprb,3.6136e-01_jprb/)
kao( :, 3, 2,13) = (/&
&5.4068e-01_jprb,4.7328e-01_jprb,4.1750e-01_jprb,3.6380e-01_jprb,3.0869e-01_jprb,2.6782e-01_jprb,&
&2.8845e-01_jprb,5.4068e-01_jprb,4.8684e-01_jprb/)
kao( :, 4, 2,13) = (/&
&5.1706e-01_jprb,4.5259e-01_jprb,4.0848e-01_jprb,3.6075e-01_jprb,3.1658e-01_jprb,3.4323e-01_jprb,&
&3.8025e-01_jprb,5.1706e-01_jprb,6.5346e-01_jprb/)
kao( :, 5, 2,13) = (/&
&4.9404e-01_jprb,4.3831e-01_jprb,4.0091e-01_jprb,3.5604e-01_jprb,3.7274e-01_jprb,4.3563e-01_jprb,&
&4.8657e-01_jprb,4.9404e-01_jprb,8.5443e-01_jprb/)
kao( :, 1, 3,13) = (/&
&6.1460e-01_jprb,5.3792e-01_jprb,4.6119e-01_jprb,3.8446e-01_jprb,3.1580e-01_jprb,2.5245e-01_jprb,&
&1.8069e-01_jprb,6.1460e-01_jprb,2.4476e-01_jprb/)
kao( :, 2, 3,13) = (/&
&5.8902e-01_jprb,5.1550e-01_jprb,4.4201e-01_jprb,3.8201e-01_jprb,3.1981e-01_jprb,2.5246e-01_jprb,&
&1.9290e-01_jprb,5.8902e-01_jprb,3.2384e-01_jprb/)
kao( :, 3, 3,13) = (/&
&5.6359e-01_jprb,4.9325e-01_jprb,4.3340e-01_jprb,3.7717e-01_jprb,3.1924e-01_jprb,2.6085e-01_jprb,&
&2.6060e-01_jprb,5.6359e-01_jprb,4.2953e-01_jprb/)
kao( :, 4, 3,13) = (/&
&5.3858e-01_jprb,4.7139e-01_jprb,4.2433e-01_jprb,3.7392e-01_jprb,3.2043e-01_jprb,3.1006e-01_jprb,&
&3.4867e-01_jprb,5.3858e-01_jprb,5.6773e-01_jprb/)
kao( :, 5, 3,13) = (/&
&5.1490e-01_jprb,4.5696e-01_jprb,4.1592e-01_jprb,3.6991e-01_jprb,3.4822e-01_jprb,4.0122e-01_jprb,&
&4.5118e-01_jprb,5.1490e-01_jprb,7.4387e-01_jprb/)
kao( :, 1, 4,13) = (/&
&6.4145e-01_jprb,5.6134e-01_jprb,4.8123e-01_jprb,4.0119e-01_jprb,3.2332e-01_jprb,2.5778e-01_jprb,&
&1.8494e-01_jprb,6.4145e-01_jprb,2.1630e-01_jprb/)
kao( :, 2, 4,13) = (/&
&6.1419e-01_jprb,5.3750e-01_jprb,4.6079e-01_jprb,3.9241e-01_jprb,3.2922e-01_jprb,2.5906e-01_jprb,&
&1.8892e-01_jprb,6.1419e-01_jprb,2.9208e-01_jprb/)
kao( :, 3, 4,13) = (/&
&5.8813e-01_jprb,5.1468e-01_jprb,4.4799e-01_jprb,3.9004e-01_jprb,3.2671e-01_jprb,2.6510e-01_jprb,&
&2.2685e-01_jprb,5.8813e-01_jprb,3.9137e-01_jprb/)
kao( :, 4, 4,13) = (/&
&5.6273e-01_jprb,4.9248e-01_jprb,4.4059e-01_jprb,3.8556e-01_jprb,3.3060e-01_jprb,2.8625e-01_jprb,&
&3.0760e-01_jprb,5.6273e-01_jprb,5.0589e-01_jprb/)
kao( :, 5, 4,13) = (/&
&5.3804e-01_jprb,4.7588e-01_jprb,4.3067e-01_jprb,3.8369e-01_jprb,3.3395e-01_jprb,3.5921e-01_jprb,&
&4.0495e-01_jprb,5.3804e-01_jprb,6.5237e-01_jprb/)
kao( :, 1, 5,13) = (/&
&6.6759e-01_jprb,5.8420e-01_jprb,5.0082e-01_jprb,4.1745e-01_jprb,3.3417e-01_jprb,2.6101e-01_jprb,&
&1.8769e-01_jprb,6.6759e-01_jprb,1.9371e-01_jprb/)
kao( :, 2, 5,13) = (/&
&6.3993e-01_jprb,5.5998e-01_jprb,4.8009e-01_jprb,4.0342e-01_jprb,3.3762e-01_jprb,2.6493e-01_jprb,&
&1.8973e-01_jprb,6.3993e-01_jprb,2.6409e-01_jprb/)
kao( :, 3, 5,13) = (/&
&6.1332e-01_jprb,5.3667e-01_jprb,4.6314e-01_jprb,4.0266e-01_jprb,3.3397e-01_jprb,2.6941e-01_jprb,&
&2.0819e-01_jprb,6.1332e-01_jprb,3.5928e-01_jprb/)
kao( :, 4, 5,13) = (/&
&5.8743e-01_jprb,5.1406e-01_jprb,4.5644e-01_jprb,3.9637e-01_jprb,3.3947e-01_jprb,2.7620e-01_jprb,&
&2.6432e-01_jprb,5.8743e-01_jprb,4.7554e-01_jprb/)
kao( :, 5, 5,13) = (/&
&5.6212e-01_jprb,4.9526e-01_jprb,4.4574e-01_jprb,3.9617e-01_jprb,3.3572e-01_jprb,3.1407e-01_jprb,&
&3.5828e-01_jprb,5.6212e-01_jprb,6.0837e-01_jprb/)
kao( :, 1, 6,13) = (/&
&6.9473e-01_jprb,6.0793e-01_jprb,5.2119e-01_jprb,4.3440e-01_jprb,3.4764e-01_jprb,2.6336e-01_jprb,&
&1.8896e-01_jprb,6.9473e-01_jprb,1.7250e-01_jprb/)
kao( :, 2, 6,13) = (/&
&6.6721e-01_jprb,5.8382e-01_jprb,5.0053e-01_jprb,4.1719e-01_jprb,3.4561e-01_jprb,2.7121e-01_jprb,&
&1.9177e-01_jprb,6.6721e-01_jprb,2.4044e-01_jprb/)
kao( :, 3, 6,13) = (/&
&6.4000e-01_jprb,5.6004e-01_jprb,4.8024e-01_jprb,4.1554e-01_jprb,3.4402e-01_jprb,2.7206e-01_jprb,&
&2.0202e-01_jprb,6.4000e-01_jprb,3.3099e-01_jprb/)
kao( :, 4, 6,13) = (/&
&6.1394e-01_jprb,5.3727e-01_jprb,4.7423e-01_jprb,4.0811e-01_jprb,3.4656e-01_jprb,2.7984e-01_jprb,&
&2.2944e-01_jprb,6.1394e-01_jprb,4.4214e-01_jprb/)
kao( :, 5, 6,13) = (/&
&5.9084e-01_jprb,5.1879e-01_jprb,4.6252e-01_jprb,4.0758e-01_jprb,3.4602e-01_jprb,2.8751e-01_jprb,&
&3.0432e-01_jprb,5.9084e-01_jprb,5.7787e-01_jprb/)
kao( :, 1, 7,13) = (/&
&7.2249e-01_jprb,6.3225e-01_jprb,5.4192e-01_jprb,4.5166e-01_jprb,3.6141e-01_jprb,2.7115e-01_jprb,&
&1.8926e-01_jprb,7.2249e-01_jprb,1.4840e-01_jprb/)
kao( :, 2, 7,13) = (/&
&6.9569e-01_jprb,6.0876e-01_jprb,5.2183e-01_jprb,4.3493e-01_jprb,3.5253e-01_jprb,2.7700e-01_jprb,&
&1.9463e-01_jprb,6.9569e-01_jprb,2.1366e-01_jprb/)
kao( :, 3, 7,13) = (/&
&6.7030e-01_jprb,5.8656e-01_jprb,5.0282e-01_jprb,4.3054e-01_jprb,3.5472e-01_jprb,2.7582e-01_jprb,&
&2.0558e-01_jprb,6.7030e-01_jprb,3.0169e-01_jprb/)
kao( :, 4, 7,13) = (/&
&6.4750e-01_jprb,5.6659e-01_jprb,4.9555e-01_jprb,4.2297e-01_jprb,3.5382e-01_jprb,2.8571e-01_jprb,&
&2.1673e-01_jprb,6.4750e-01_jprb,4.1281e-01_jprb/)
kao( :, 5, 7,13) = (/&
&6.2512e-01_jprb,5.4760e-01_jprb,4.8374e-01_jprb,4.2116e-01_jprb,3.5619e-01_jprb,2.8468e-01_jprb,&
&2.6466e-01_jprb,6.2512e-01_jprb,5.4714e-01_jprb/)
kao( :, 1, 8,13) = (/&
&7.5294e-01_jprb,6.5887e-01_jprb,5.6474e-01_jprb,4.7064e-01_jprb,3.7654e-01_jprb,2.8248e-01_jprb,&
&1.8974e-01_jprb,7.5294e-01_jprb,1.2274e-01_jprb/)
kao( :, 2, 8,13) = (/&
&7.2891e-01_jprb,6.3781e-01_jprb,5.4671e-01_jprb,4.5563e-01_jprb,3.6498e-01_jprb,2.8342e-01_jprb,&
&1.9844e-01_jprb,7.2891e-01_jprb,1.8310e-01_jprb/)
kao( :, 3, 8,13) = (/&
&7.0557e-01_jprb,6.1744e-01_jprb,5.2928e-01_jprb,4.4666e-01_jprb,3.6716e-01_jprb,2.8351e-01_jprb,&
&2.0879e-01_jprb,7.0557e-01_jprb,2.6614e-01_jprb/)
kao( :, 4, 8,13) = (/&
&6.8244e-01_jprb,5.9719e-01_jprb,5.1867e-01_jprb,4.4210e-01_jprb,3.6383e-01_jprb,2.9223e-01_jprb,&
&2.1877e-01_jprb,6.8244e-01_jprb,3.7635e-01_jprb/)
kao( :, 5, 8,13) = (/&
&6.6089e-01_jprb,5.7833e-01_jprb,5.0944e-01_jprb,4.4005e-01_jprb,3.6857e-01_jprb,2.9676e-01_jprb,&
&2.4160e-01_jprb,6.6089e-01_jprb,5.0930e-01_jprb/)
kao( :, 1, 9,13) = (/&
&7.8582e-01_jprb,6.8762e-01_jprb,5.8934e-01_jprb,4.9123e-01_jprb,3.9298e-01_jprb,2.9487e-01_jprb,&
&1.9668e-01_jprb,7.8582e-01_jprb,9.8816e-02_jprb/)
kao( :, 2, 9,13) = (/&
&7.6340e-01_jprb,6.6798e-01_jprb,5.7260e-01_jprb,4.7718e-01_jprb,3.8186e-01_jprb,2.8922e-01_jprb,&
&2.0391e-01_jprb,7.6340e-01_jprb,1.5257e-01_jprb/)
kao( :, 3, 9,13) = (/&
&7.4083e-01_jprb,6.4825e-01_jprb,5.5561e-01_jprb,4.6459e-01_jprb,3.8180e-01_jprb,2.9456e-01_jprb,&
&2.1305e-01_jprb,7.4083e-01_jprb,2.2771e-01_jprb/)
kao( :, 4, 9,13) = (/&
&7.2071e-01_jprb,6.3065e-01_jprb,5.4414e-01_jprb,4.6459e-01_jprb,3.7956e-01_jprb,3.0226e-01_jprb,&
&2.2460e-01_jprb,7.2071e-01_jprb,3.3060e-01_jprb/)
kao( :, 5, 9,13) = (/&
&7.0101e-01_jprb,6.1340e-01_jprb,5.3848e-01_jprb,4.5996e-01_jprb,3.8516e-01_jprb,3.1030e-01_jprb,&
&2.3292e-01_jprb,7.0101e-01_jprb,4.5916e-01_jprb/)
kao( :, 1,10,13) = (/&
&8.1699e-01_jprb,7.1490e-01_jprb,6.1279e-01_jprb,5.1070e-01_jprb,4.0862e-01_jprb,3.0651e-01_jprb,&
&2.0447e-01_jprb,8.1699e-01_jprb,2.0223e-01_jprb/)
kao( :, 2,10,13) = (/&
&7.9680e-01_jprb,6.9725e-01_jprb,5.9768e-01_jprb,4.9808e-01_jprb,3.9857e-01_jprb,2.9954e-01_jprb,&
&2.1116e-01_jprb,7.9680e-01_jprb,2.1512e-01_jprb/)
kao( :, 3,10,13) = (/&
&7.7769e-01_jprb,6.8054e-01_jprb,5.8332e-01_jprb,4.8646e-01_jprb,3.9735e-01_jprb,3.0638e-01_jprb,&
&2.2182e-01_jprb,7.7769e-01_jprb,2.3973e-01_jprb/)
kao( :, 4,10,13) = (/&
&7.5760e-01_jprb,6.6294e-01_jprb,5.6993e-01_jprb,4.8571e-01_jprb,3.9617e-01_jprb,3.1482e-01_jprb,&
&2.3294e-01_jprb,7.5760e-01_jprb,3.0285e-01_jprb/)
kao( :, 5,10,13) = (/&
&7.3618e-01_jprb,6.4414e-01_jprb,5.6442e-01_jprb,4.8052e-01_jprb,4.0378e-01_jprb,3.2545e-01_jprb,&
&2.3666e-01_jprb,7.3618e-01_jprb,4.1601e-01_jprb/)
kao( :, 1,11,13) = (/&
&8.3942e-01_jprb,7.3450e-01_jprb,6.2963e-01_jprb,5.2471e-01_jprb,4.1987e-01_jprb,3.1499e-01_jprb,&
&2.1173e-01_jprb,8.3942e-01_jprb,5.1704e-01_jprb/)
kao( :, 2,11,13) = (/&
&8.2051e-01_jprb,7.1798e-01_jprb,6.1544e-01_jprb,5.1289e-01_jprb,4.1041e-01_jprb,3.1180e-01_jprb,&
&2.2477e-01_jprb,8.2051e-01_jprb,5.0715e-01_jprb/)
kao( :, 3,11,13) = (/&
&8.0104e-01_jprb,7.0099e-01_jprb,6.0089e-01_jprb,5.0362e-01_jprb,4.1222e-01_jprb,3.2198e-01_jprb,&
&2.3377e-01_jprb,8.0104e-01_jprb,5.0602e-01_jprb/)
kao( :, 4,11,13) = (/&
&7.7897e-01_jprb,6.8168e-01_jprb,5.9030e-01_jprb,5.0190e-01_jprb,4.1316e-01_jprb,3.3484e-01_jprb,&
&2.4521e-01_jprb,7.7897e-01_jprb,5.2719e-01_jprb/)
kao( :, 5,11,13) = (/&
&7.5657e-01_jprb,6.6294e-01_jprb,5.8168e-01_jprb,4.9940e-01_jprb,4.2397e-01_jprb,3.4229e-01_jprb,&
&2.5422e-01_jprb,7.5657e-01_jprb,5.6893e-01_jprb/)
kao( :, 1,12,13) = (/&
&8.6084e-01_jprb,7.5332e-01_jprb,6.4569e-01_jprb,5.3811e-01_jprb,4.3054e-01_jprb,3.2302e-01_jprb,&
&2.2089e-01_jprb,8.6084e-01_jprb,8.5915e-01_jprb/)
kao( :, 2,12,13) = (/&
&8.4383e-01_jprb,7.3849e-01_jprb,6.3296e-01_jprb,5.2757e-01_jprb,4.2272e-01_jprb,3.2652e-01_jprb,&
&2.3662e-01_jprb,8.4383e-01_jprb,8.4258e-01_jprb/)
kao( :, 3,12,13) = (/&
&8.2461e-01_jprb,7.2162e-01_jprb,6.1861e-01_jprb,5.2173e-01_jprb,4.2609e-01_jprb,3.3651e-01_jprb,&
&2.4602e-01_jprb,8.2461e-01_jprb,8.2424e-01_jprb/)
kao( :, 4,12,13) = (/&
&8.0362e-01_jprb,7.0330e-01_jprb,6.1076e-01_jprb,5.1642e-01_jprb,4.3196e-01_jprb,3.5024e-01_jprb,&
&2.5788e-01_jprb,8.0362e-01_jprb,8.1526e-01_jprb/)
kao( :, 5,12,13) = (/&
&7.8196e-01_jprb,6.8686e-01_jprb,5.9993e-01_jprb,5.1915e-01_jprb,4.4219e-01_jprb,3.5857e-01_jprb,&
&2.8318e-01_jprb,7.8196e-01_jprb,8.4417e-01_jprb/)
kao( :, 1,13,13) = (/&
&8.9885e-01_jprb,7.8652e-01_jprb,6.7417e-01_jprb,5.6190e-01_jprb,4.4957e-01_jprb,3.3736e-01_jprb,&
&2.3468e-01_jprb,8.9885e-01_jprb,1.1747e+00_jprb/)
kao( :, 2,13,13) = (/&
&8.8176e-01_jprb,7.7157e-01_jprb,6.6138e-01_jprb,5.5126e-01_jprb,4.4334e-01_jprb,3.4503e-01_jprb,&
&2.4591e-01_jprb,8.8176e-01_jprb,1.1474e+00_jprb/)
kao( :, 3,13,13) = (/&
&8.6445e-01_jprb,7.5644e-01_jprb,6.4871e-01_jprb,5.4797e-01_jprb,4.4798e-01_jprb,3.5260e-01_jprb,&
&2.5729e-01_jprb,8.6445e-01_jprb,1.1167e+00_jprb/)
kao( :, 4,13,13) = (/&
&8.4531e-01_jprb,7.3968e-01_jprb,6.4228e-01_jprb,5.4288e-01_jprb,4.5703e-01_jprb,3.6588e-01_jprb,&
&2.7546e-01_jprb,8.4531e-01_jprb,1.0937e+00_jprb/)
kao( :, 5,13,13) = (/&
&8.2636e-01_jprb,7.2791e-01_jprb,6.3427e-01_jprb,5.5035e-01_jprb,4.6456e-01_jprb,3.8210e-01_jprb,&
&3.1914e-01_jprb,8.2636e-01_jprb,1.1091e+00_jprb/)
kao( :, 1, 1,14) = (/&
&6.4697e-01_jprb,5.6581e-01_jprb,4.8619e-01_jprb,4.0514e-01_jprb,3.2628e-01_jprb,2.6560e-01_jprb,&
&2.6000e-01_jprb,6.4697e-01_jprb,5.4302e-01_jprb/)
kao( :, 2, 1,14) = (/&
&6.1615e-01_jprb,5.3934e-01_jprb,4.6216e-01_jprb,3.9067e-01_jprb,3.3456e-01_jprb,3.3408e-01_jprb,&
&3.5677e-01_jprb,6.1615e-01_jprb,7.5638e-01_jprb/)
kao( :, 3, 1,14) = (/&
&5.8533e-01_jprb,5.1238e-01_jprb,4.4004e-01_jprb,3.8617e-01_jprb,3.9537e-01_jprb,4.4466e-01_jprb,&
&4.7278e-01_jprb,5.8533e-01_jprb,1.0166e+00_jprb/)
kao( :, 4, 1,14) = (/&
&5.5669e-01_jprb,4.8735e-01_jprb,4.2781e-01_jprb,4.2678e-01_jprb,5.1253e-01_jprb,5.7332e-01_jprb,&
&6.0788e-01_jprb,5.5669e-01_jprb,1.3240e+00_jprb/)
kao( :, 5, 1,14) = (/&
&5.2879e-01_jprb,4.6247e-01_jprb,4.2802e-01_jprb,5.3254e-01_jprb,6.4936e-01_jprb,7.2566e-01_jprb,&
&7.6206e-01_jprb,5.2879e-01_jprb,1.6773e+00_jprb/)
kao( :, 1, 2,14) = (/&
&6.8303e-01_jprb,5.9781e-01_jprb,5.1220e-01_jprb,4.2706e-01_jprb,3.4379e-01_jprb,2.7382e-01_jprb,&
&2.5162e-01_jprb,6.8303e-01_jprb,5.1036e-01_jprb/)
kao( :, 2, 2,14) = (/&
&6.4954e-01_jprb,5.6917e-01_jprb,4.8810e-01_jprb,4.1304e-01_jprb,3.4632e-01_jprb,3.2639e-01_jprb,&
&3.5170e-01_jprb,6.4954e-01_jprb,7.2343e-01_jprb/)
kao( :, 3, 2,14) = (/&
&6.1641e-01_jprb,5.3958e-01_jprb,4.6497e-01_jprb,4.0263e-01_jprb,3.9007e-01_jprb,4.3907e-01_jprb,&
&4.7004e-01_jprb,6.1641e-01_jprb,9.8553e-01_jprb/)
kao( :, 4, 2,14) = (/&
&5.8470e-01_jprb,5.1185e-01_jprb,4.4927e-01_jprb,4.3064e-01_jprb,5.0846e-01_jprb,5.7765e-01_jprb,&
&6.1669e-01_jprb,5.8470e-01_jprb,1.2985e+00_jprb/)
kao( :, 5, 2,14) = (/&
&5.5467e-01_jprb,4.8565e-01_jprb,4.4367e-01_jprb,5.2819e-01_jprb,6.4947e-01_jprb,7.3873e-01_jprb,&
&7.8515e-01_jprb,5.5467e-01_jprb,1.6649e+00_jprb/)
kao( :, 1, 3,14) = (/&
&7.2604e-01_jprb,6.3550e-01_jprb,5.4494e-01_jprb,4.5437e-01_jprb,3.6385e-01_jprb,2.8334e-01_jprb,&
&2.2702e-01_jprb,7.2604e-01_jprb,4.3950e-01_jprb/)
kao( :, 2, 3,14) = (/&
&6.8954e-01_jprb,6.0362e-01_jprb,5.1760e-01_jprb,4.3356e-01_jprb,3.5873e-01_jprb,3.0878e-01_jprb,&
&3.1582e-01_jprb,6.8954e-01_jprb,6.3380e-01_jprb/)
kao( :, 3, 3,14) = (/&
&6.5385e-01_jprb,5.7238e-01_jprb,4.9126e-01_jprb,4.2254e-01_jprb,3.7557e-01_jprb,4.0304e-01_jprb,&
&4.3683e-01_jprb,6.5385e-01_jprb,8.8264e-01_jprb/)
kao( :, 4, 3,14) = (/&
&6.1901e-01_jprb,5.4191e-01_jprb,4.7603e-01_jprb,4.2566e-01_jprb,4.6990e-01_jprb,5.3966e-01_jprb,&
&5.8392e-01_jprb,6.1901e-01_jprb,1.1869e+00_jprb/)
kao( :, 5, 3,14) = (/&
&5.8653e-01_jprb,5.1354e-01_jprb,4.5882e-01_jprb,4.9733e-01_jprb,6.1274e-01_jprb,7.0260e-01_jprb,&
&7.5851e-01_jprb,5.8653e-01_jprb,1.5549e+00_jprb/)
kao( :, 1, 4,14) = (/&
&7.7382e-01_jprb,6.7722e-01_jprb,5.8077e-01_jprb,4.8422e-01_jprb,3.8766e-01_jprb,2.9794e-01_jprb,&
&2.1506e-01_jprb,7.7382e-01_jprb,3.8561e-01_jprb/)
kao( :, 2, 4,14) = (/&
&7.3238e-01_jprb,6.4104e-01_jprb,5.4969e-01_jprb,4.5833e-01_jprb,3.7818e-01_jprb,3.0063e-01_jprb,&
&2.7269e-01_jprb,7.3238e-01_jprb,5.4567e-01_jprb/)
kao( :, 3, 4,14) = (/&
&6.9409e-01_jprb,6.0760e-01_jprb,5.2105e-01_jprb,4.4727e-01_jprb,3.7346e-01_jprb,3.5556e-01_jprb,&
&3.8970e-01_jprb,6.9409e-01_jprb,7.5575e-01_jprb/)
kao( :, 4, 4,14) = (/&
&6.5680e-01_jprb,5.7500e-01_jprb,5.0421e-01_jprb,4.3210e-01_jprb,4.2750e-01_jprb,4.8792e-01_jprb,&
&5.3313e-01_jprb,6.5680e-01_jprb,1.0436e+00_jprb/)
kao( :, 5, 4,14) = (/&
&6.2089e-01_jprb,5.4362e-01_jprb,4.8130e-01_jprb,4.7140e-01_jprb,5.6311e-01_jprb,6.4743e-01_jprb,&
&7.0793e-01_jprb,6.2089e-01_jprb,1.3960e+00_jprb/)
kao( :, 1, 5,14) = (/&
&8.2229e-01_jprb,7.1962e-01_jprb,6.1700e-01_jprb,5.1439e-01_jprb,4.1134e-01_jprb,3.0886e-01_jprb,&
&2.1652e-01_jprb,8.2229e-01_jprb,3.4617e-01_jprb/)
kao( :, 2, 5,14) = (/&
&7.7737e-01_jprb,6.8035e-01_jprb,5.8334e-01_jprb,4.8633e-01_jprb,3.9777e-01_jprb,3.0668e-01_jprb,&
&2.4242e-01_jprb,7.7737e-01_jprb,4.8134e-01_jprb/)
kao( :, 3, 5,14) = (/&
&7.3545e-01_jprb,6.4364e-01_jprb,5.5194e-01_jprb,4.7124e-01_jprb,3.8457e-01_jprb,3.2665e-01_jprb,&
&3.3917e-01_jprb,7.3545e-01_jprb,6.5879e-01_jprb/)
kao( :, 4, 5,14) = (/&
&6.9572e-01_jprb,6.0902e-01_jprb,5.3204e-01_jprb,4.5117e-01_jprb,4.0273e-01_jprb,4.3738e-01_jprb,&
&4.7818e-01_jprb,6.9572e-01_jprb,9.0069e-01_jprb/)
kao( :, 5, 5,14) = (/&
&6.5745e-01_jprb,5.7553e-01_jprb,5.0705e-01_jprb,4.6147e-01_jprb,5.1159e-01_jprb,5.9239e-01_jprb,&
&6.4809e-01_jprb,6.5745e-01_jprb,1.2234e+00_jprb/)
kao( :, 1, 6,14) = (/&
&8.7308e-01_jprb,7.6408e-01_jprb,6.5505e-01_jprb,5.4604e-01_jprb,4.3705e-01_jprb,3.2789e-01_jprb,&
&2.2557e-01_jprb,8.7308e-01_jprb,2.9961e-01_jprb/)
kao( :, 2, 6,14) = (/&
&8.2540e-01_jprb,7.2233e-01_jprb,6.1930e-01_jprb,5.1628e-01_jprb,4.1422e-01_jprb,3.2146e-01_jprb,&
&2.2994e-01_jprb,8.2540e-01_jprb,4.2262e-01_jprb/)
kao( :, 3, 6,14) = (/&
&7.7924e-01_jprb,6.8203e-01_jprb,5.8479e-01_jprb,4.9474e-01_jprb,4.0395e-01_jprb,3.1715e-01_jprb,&
&2.8904e-01_jprb,7.7924e-01_jprb,5.7314e-01_jprb/)
kao( :, 4, 6,14) = (/&
&7.3709e-01_jprb,6.4513e-01_jprb,5.5979e-01_jprb,4.7521e-01_jprb,3.9636e-01_jprb,3.8185e-01_jprb,&
&4.1862e-01_jprb,7.3709e-01_jprb,7.8091e-01_jprb/)
kao( :, 5, 6,14) = (/&
&6.9621e-01_jprb,6.0938e-01_jprb,5.3478e-01_jprb,4.6425e-01_jprb,4.6297e-01_jprb,5.2802e-01_jprb,&
&5.8170e-01_jprb,6.9621e-01_jprb,1.0527e+00_jprb/)
kao( :, 1, 7,14) = (/&
&9.2395e-01_jprb,8.0850e-01_jprb,6.9306e-01_jprb,5.7769e-01_jprb,4.6224e-01_jprb,3.4691e-01_jprb,&
&2.3084e-01_jprb,9.2395e-01_jprb,2.5497e-01_jprb/)
kao( :, 2, 7,14) = (/&
&8.7317e-01_jprb,7.6415e-01_jprb,6.5513e-01_jprb,5.4606e-01_jprb,4.3714e-01_jprb,3.3528e-01_jprb,&
&2.3202e-01_jprb,8.7317e-01_jprb,3.7202e-01_jprb/)
kao( :, 3, 7,14) = (/&
&8.2438e-01_jprb,7.2141e-01_jprb,6.1853e-01_jprb,5.1767e-01_jprb,4.2475e-01_jprb,3.2596e-01_jprb,&
&2.5061e-01_jprb,8.2438e-01_jprb,5.0761e-01_jprb/)
kao( :, 4, 7,14) = (/&
&7.7804e-01_jprb,6.8094e-01_jprb,5.8814e-01_jprb,5.0039e-01_jprb,4.0791e-01_jprb,3.4702e-01_jprb,&
&3.6090e-01_jprb,7.7804e-01_jprb,6.8063e-01_jprb/)
kao( :, 5, 7,14) = (/&
&7.3636e-01_jprb,6.4448e-01_jprb,5.6430e-01_jprb,4.8129e-01_jprb,4.3569e-01_jprb,4.6156e-01_jprb,&
&5.1425e-01_jprb,7.3636e-01_jprb,9.1422e-01_jprb/)
kao( :, 1, 8,14) = (/&
&9.7397e-01_jprb,8.5236e-01_jprb,7.3070e-01_jprb,6.0905e-01_jprb,4.8737e-01_jprb,3.6576e-01_jprb,&
&2.4401e-01_jprb,9.7397e-01_jprb,2.1663e-01_jprb/)
kao( :, 2, 8,14) = (/&
&9.2100e-01_jprb,8.0595e-01_jprb,6.9096e-01_jprb,5.7592e-01_jprb,4.6092e-01_jprb,3.4695e-01_jprb,&
&2.4168e-01_jprb,9.2100e-01_jprb,3.2348e-01_jprb/)
kao( :, 3, 8,14) = (/&
&8.7221e-01_jprb,7.6329e-01_jprb,6.5435e-01_jprb,5.4550e-01_jprb,4.4631e-01_jprb,3.4181e-01_jprb,&
&2.3826e-01_jprb,8.7221e-01_jprb,4.5837e-01_jprb/)
kao( :, 4, 8,14) = (/&
&8.2606e-01_jprb,7.2291e-01_jprb,6.2015e-01_jprb,5.2779e-01_jprb,4.2860e-01_jprb,3.3690e-01_jprb,&
&3.1094e-01_jprb,8.2606e-01_jprb,6.1646e-01_jprb/)
kao( :, 5, 8,14) = (/&
&7.8339e-01_jprb,6.8563e-01_jprb,5.9715e-01_jprb,5.0560e-01_jprb,4.2904e-01_jprb,4.0836e-01_jprb,&
&4.4759e-01_jprb,7.8339e-01_jprb,8.2068e-01_jprb/)
kao( :, 1, 9,14) = (/&
&1.0301e+00_jprb,9.0147e-01_jprb,7.7271e-01_jprb,6.4407e-01_jprb,5.1534e-01_jprb,3.8666e-01_jprb,&
&2.5795e-01_jprb,1.0301e+00_jprb,1.8238e-01_jprb/)
kao( :, 2, 9,14) = (/&
&9.7820e-01_jprb,8.5599e-01_jprb,7.3388e-01_jprb,6.1168e-01_jprb,4.8943e-01_jprb,3.6719e-01_jprb,&
&2.5130e-01_jprb,9.7820e-01_jprb,2.7990e-01_jprb/)
kao( :, 3, 9,14) = (/&
&9.2786e-01_jprb,8.1203e-01_jprb,6.9612e-01_jprb,5.8026e-01_jprb,4.6878e-01_jprb,3.5884e-01_jprb,&
&2.4589e-01_jprb,9.2786e-01_jprb,4.0829e-01_jprb/)
kao( :, 4, 9,14) = (/&
&8.8063e-01_jprb,7.7081e-01_jprb,6.6089e-01_jprb,5.5869e-01_jprb,4.5326e-01_jprb,3.4687e-01_jprb,&
&2.8154e-01_jprb,8.8063e-01_jprb,5.6423e-01_jprb/)
kao( :, 5, 9,14) = (/&
&8.3750e-01_jprb,7.3300e-01_jprb,6.3612e-01_jprb,5.3674e-01_jprb,4.4242e-01_jprb,3.8121e-01_jprb,&
&3.9514e-01_jprb,8.3750e-01_jprb,7.6101e-01_jprb/)
kao( :, 1,10,14) = (/&
&1.0910e+00_jprb,9.5477e-01_jprb,8.1845e-01_jprb,6.8213e-01_jprb,5.4582e-01_jprb,4.0946e-01_jprb,&
&2.7317e-01_jprb,1.0910e+00_jprb,2.4894e-01_jprb/)
kao( :, 2,10,14) = (/&
&1.0359e+00_jprb,9.0651e-01_jprb,7.7708e-01_jprb,6.4767e-01_jprb,5.1833e-01_jprb,3.8894e-01_jprb,&
&2.6039e-01_jprb,1.0359e+00_jprb,2.7831e-01_jprb/)
kao( :, 3,10,14) = (/&
&9.8652e-01_jprb,8.6341e-01_jprb,7.4018e-01_jprb,6.1698e-01_jprb,4.9398e-01_jprb,3.7879e-01_jprb,&
&2.6008e-01_jprb,9.8652e-01_jprb,3.7798e-01_jprb/)
kao( :, 4,10,14) = (/&
&9.4211e-01_jprb,8.2452e-01_jprb,7.0695e-01_jprb,5.9553e-01_jprb,4.8274e-01_jprb,3.6793e-01_jprb,&
&2.7883e-01_jprb,9.4211e-01_jprb,5.3013e-01_jprb/)
kao( :, 5,10,14) = (/&
&9.0248e-01_jprb,7.8992e-01_jprb,6.8355e-01_jprb,5.7648e-01_jprb,4.7251e-01_jprb,3.8441e-01_jprb,&
&3.6799e-01_jprb,9.0248e-01_jprb,7.2595e-01_jprb/)
kao( :, 1,11,14) = (/&
&1.1319e+00_jprb,9.9048e-01_jprb,8.4899e-01_jprb,7.0760e-01_jprb,5.6613e-01_jprb,4.2478e-01_jprb,&
&2.8341e-01_jprb,1.1319e+00_jprb,6.1592e-01_jprb/)
kao( :, 2,11,14) = (/&
&1.0823e+00_jprb,9.4725e-01_jprb,8.1199e-01_jprb,6.7675e-01_jprb,5.4154e-01_jprb,4.0630e-01_jprb,&
&2.7609e-01_jprb,1.0823e+00_jprb,6.1773e-01_jprb/)
kao( :, 3,11,14) = (/&
&1.0367e+00_jprb,9.0731e-01_jprb,7.7783e-01_jprb,6.4834e-01_jprb,5.2311e-01_jprb,3.9934e-01_jprb,&
&2.8089e-01_jprb,1.0367e+00_jprb,6.2937e-01_jprb/)
kao( :, 4,11,14) = (/&
&9.9754e-01_jprb,8.7303e-01_jprb,7.4854e-01_jprb,6.3329e-01_jprb,5.1385e-01_jprb,3.9730e-01_jprb,&
&3.1217e-01_jprb,9.9754e-01_jprb,6.7492e-01_jprb/)
kao( :, 5,11,14) = (/&
&9.6377e-01_jprb,8.4344e-01_jprb,7.3462e-01_jprb,6.2175e-01_jprb,5.1718e-01_jprb,4.2421e-01_jprb,&
&3.9708e-01_jprb,9.6377e-01_jprb,8.2165e-01_jprb/)
kao( :, 1,12,14) = (/&
&1.1865e+00_jprb,1.0383e+00_jprb,8.9009e-01_jprb,7.4185e-01_jprb,5.9361e-01_jprb,4.4539e-01_jprb,&
&2.9703e-01_jprb,1.1865e+00_jprb,1.0367e+00_jprb/)
kao( :, 2,12,14) = (/&
&1.1417e+00_jprb,9.9913e-01_jprb,8.5647e-01_jprb,7.1379e-01_jprb,5.7124e-01_jprb,4.2863e-01_jprb,&
&2.9688e-01_jprb,1.1417e+00_jprb,1.0233e+00_jprb/)
kao( :, 3,12,14) = (/&
&1.1032e+00_jprb,9.6547e-01_jprb,8.2760e-01_jprb,6.8985e-01_jprb,5.6085e-01_jprb,4.2892e-01_jprb,&
&3.0866e-01_jprb,1.1032e+00_jprb,1.0143e+00_jprb/)
kao( :, 4,12,14) = (/&
&1.0706e+00_jprb,9.3688e-01_jprb,8.0548e-01_jprb,6.8453e-01_jprb,5.5710e-01_jprb,4.4460e-01_jprb,&
&3.4889e-01_jprb,1.0706e+00_jprb,1.0266e+00_jprb/)
kao( :, 5,12,14) = (/&
&1.0446e+00_jprb,9.1422e-01_jprb,8.0059e-01_jprb,6.8230e-01_jprb,5.7500e-01_jprb,4.7448e-01_jprb,&
&4.2513e-01_jprb,1.0446e+00_jprb,1.0801e+00_jprb/)
kao( :, 1,13,14) = (/&
&1.2550e+00_jprb,1.0982e+00_jprb,9.4143e-01_jprb,7.8461e-01_jprb,6.2776e-01_jprb,4.7103e-01_jprb,&
&3.1423e-01_jprb,1.2550e+00_jprb,1.4399e+00_jprb/)
kao( :, 2,13,14) = (/&
&1.2174e+00_jprb,1.0653e+00_jprb,9.1318e-01_jprb,7.6114e-01_jprb,6.0904e-01_jprb,4.6025e-01_jprb,&
&3.2716e-01_jprb,1.2174e+00_jprb,1.4068e+00_jprb/)
kao( :, 3,13,14) = (/&
&1.1864e+00_jprb,1.0381e+00_jprb,8.9001e-01_jprb,7.4479e-01_jprb,6.0816e-01_jprb,4.7143e-01_jprb,&
&3.4454e-01_jprb,1.1864e+00_jprb,1.3882e+00_jprb/)
kao( :, 4,13,14) = (/&
&1.1616e+00_jprb,1.0165e+00_jprb,8.7886e-01_jprb,7.4766e-01_jprb,6.1245e-01_jprb,5.0020e-01_jprb,&
&3.8828e-01_jprb,1.1616e+00_jprb,1.3917e+00_jprb/)
kao( :, 5,13,14) = (/&
&1.1397e+00_jprb,9.9781e-01_jprb,8.7736e-01_jprb,7.5469e-01_jprb,6.4460e-01_jprb,5.3210e-01_jprb,&
&4.5910e-01_jprb,1.1397e+00_jprb,1.4042e+00_jprb/)
kao( :, 1, 1,15) = (/&
&6.7013e-01_jprb,5.8657e-01_jprb,5.0312e-01_jprb,4.1845e-01_jprb,3.3604e-01_jprb,3.2447e-01_jprb,&
&3.1596e-01_jprb,6.7013e-01_jprb,1.0209e+00_jprb/)
kao( :, 2, 1,15) = (/&
&6.3713e-01_jprb,5.5910e-01_jprb,4.7959e-01_jprb,4.0042e-01_jprb,4.3246e-01_jprb,4.5455e-01_jprb,&
&4.4491e-01_jprb,6.3714e-01_jprb,1.4151e+00_jprb/)
kao( :, 3, 1,15) = (/&
&6.0413e-01_jprb,5.2881e-01_jprb,4.5365e-01_jprb,5.1141e-01_jprb,5.7932e-01_jprb,6.0400e-01_jprb,&
&5.9194e-01_jprb,6.0413e-01_jprb,1.8935e+00_jprb/)
kao( :, 4, 1,15) = (/&
&5.7379e-01_jprb,5.0236e-01_jprb,5.0998e-01_jprb,6.6283e-01_jprb,7.5577e-01_jprb,7.9134e-01_jprb,&
&7.7383e-01_jprb,5.7379e-01_jprb,2.4386e+00_jprb/)
kao( :, 5, 1,15) = (/&
&5.4412e-01_jprb,4.7644e-01_jprb,6.4179e-01_jprb,8.3374e-01_jprb,9.4901e-01_jprb,9.9647e-01_jprb,&
&9.6829e-01_jprb,5.4412e-01_jprb,3.0668e+00_jprb/)
kao( :, 1, 2,15) = (/&
&7.1168e-01_jprb,6.2291e-01_jprb,5.3428e-01_jprb,4.4560e-01_jprb,3.5787e-01_jprb,3.3695e-01_jprb,&
&3.3151e-01_jprb,7.1168e-01_jprb,1.0408e+00_jprb/)
kao( :, 2, 2,15) = (/&
&6.7551e-01_jprb,5.8980e-01_jprb,5.0589e-01_jprb,4.2379e-01_jprb,4.5484e-01_jprb,4.7493e-01_jprb,&
&4.6615e-01_jprb,6.7551e-01_jprb,1.4628e+00_jprb/)
kao( :, 3, 2,15) = (/&
&6.3979e-01_jprb,5.6002e-01_jprb,4.8033e-01_jprb,5.3992e-01_jprb,6.1725e-01_jprb,6.4789e-01_jprb,&
&6.3640e-01_jprb,6.3979e-01_jprb,1.9740e+00_jprb/)
kao( :, 4, 2,15) = (/&
&6.0574e-01_jprb,5.3026e-01_jprb,5.4102e-01_jprb,7.0781e-01_jprb,8.0810e-01_jprb,8.5154e-01_jprb,&
&8.3777e-01_jprb,6.0574e-01_jprb,2.5770e+00_jprb/)
kao( :, 5, 2,15) = (/&
&5.7367e-01_jprb,5.0230e-01_jprb,6.8564e-01_jprb,8.9765e-01_jprb,1.0319e+00_jprb,1.0843e+00_jprb,&
&1.0692e+00_jprb,5.7367e-01_jprb,3.2665e+00_jprb/)
kao( :, 1, 3,15) = (/&
&7.6206e-01_jprb,6.6694e-01_jprb,5.7209e-01_jprb,4.7696e-01_jprb,3.8092e-01_jprb,3.2070e-01_jprb,&
&3.1660e-01_jprb,7.6206e-01_jprb,9.6051e-01_jprb/)
kao( :, 2, 3,15) = (/&
&7.2225e-01_jprb,6.3222e-01_jprb,5.4222e-01_jprb,4.5212e-01_jprb,4.4022e-01_jprb,4.6467e-01_jprb,&
&4.5854e-01_jprb,7.2225e-01_jprb,1.3827e+00_jprb/)
kao( :, 3, 3,15) = (/&
&6.8319e-01_jprb,5.9821e-01_jprb,5.1315e-01_jprb,5.2942e-01_jprb,6.1251e-01_jprb,6.4502e-01_jprb,&
&6.3732e-01_jprb,6.8319e-01_jprb,1.9060e+00_jprb/)
kao( :, 4, 3,15) = (/&
&6.4520e-01_jprb,5.6501e-01_jprb,5.4637e-01_jprb,7.0565e-01_jprb,8.1836e-01_jprb,8.6755e-01_jprb,&
&8.5856e-01_jprb,6.4520e-01_jprb,2.5416e+00_jprb/)
kao( :, 5, 3,15) = (/&
&6.1032e-01_jprb,5.3440e-01_jprb,6.8762e-01_jprb,9.1192e-01_jprb,1.0544e+00_jprb,1.1220e+00_jprb,&
&1.1118e+00_jprb,6.1032e-01_jprb,3.2899e+00_jprb/)
kao( :, 1, 4,15) = (/&
&8.1880e-01_jprb,7.1671e-01_jprb,6.1469e-01_jprb,5.1259e-01_jprb,4.1035e-01_jprb,3.0900e-01_jprb,&
&2.8774e-01_jprb,8.1880e-01_jprb,8.3214e-01_jprb/)
kao( :, 2, 4,15) = (/&
&7.7244e-01_jprb,6.7627e-01_jprb,5.8000e-01_jprb,4.8371e-01_jprb,4.1707e-01_jprb,4.3611e-01_jprb,&
&4.3242e-01_jprb,7.7244e-01_jprb,1.2349e+00_jprb/)
kao( :, 3, 4,15) = (/&
&7.3041e-01_jprb,6.3939e-01_jprb,5.4855e-01_jprb,5.1182e-01_jprb,5.8284e-01_jprb,6.2247e-01_jprb,&
&6.1822e-01_jprb,7.3041e-01_jprb,1.7591e+00_jprb/)
kao( :, 4, 4,15) = (/&
&6.8937e-01_jprb,6.0366e-01_jprb,5.5228e-01_jprb,6.8053e-01_jprb,7.9580e-01_jprb,8.4999e-01_jprb,&
&8.5210e-01_jprb,6.8937e-01_jprb,2.4071e+00_jprb/)
kao( :, 5, 4,15) = (/&
&6.5021e-01_jprb,5.6936e-01_jprb,6.6656e-01_jprb,8.9418e-01_jprb,1.0485e+00_jprb,1.1290e+00_jprb,&
&1.1228e+00_jprb,6.5021e-01_jprb,3.1879e+00_jprb/)
kao( :, 1, 5,15) = (/&
&8.7693e-01_jprb,7.6771e-01_jprb,6.5835e-01_jprb,5.4884e-01_jprb,4.4068e-01_jprb,3.3005e-01_jprb,&
&2.5822e-01_jprb,8.7693e-01_jprb,6.9752e-01_jprb/)
kao( :, 2, 5,15) = (/&
&8.2534e-01_jprb,7.2250e-01_jprb,6.1982e-01_jprb,5.1679e-01_jprb,4.1772e-01_jprb,4.0063e-01_jprb,&
&4.0196e-01_jprb,8.2534e-01_jprb,1.0779e+00_jprb/)
kao( :, 3, 5,15) = (/&
&7.7811e-01_jprb,6.8129e-01_jprb,5.8442e-01_jprb,5.0960e-01_jprb,5.4382e-01_jprb,5.8808e-01_jprb,&
&5.9145e-01_jprb,7.7811e-01_jprb,1.5826e+00_jprb/)
kao( :, 4, 5,15) = (/&
&7.3361e-01_jprb,6.4251e-01_jprb,5.6661e-01_jprb,6.4134e-01_jprb,7.5938e-01_jprb,8.2208e-01_jprb,&
&8.2942e-01_jprb,7.3361e-01_jprb,2.2230e+00_jprb/)
kao( :, 5, 5,15) = (/&
&6.9110e-01_jprb,6.0518e-01_jprb,6.5033e-01_jprb,8.5838e-01_jprb,1.0195e+00_jprb,1.1130e+00_jprb,&
&1.1201e+00_jprb,6.9110e-01_jprb,3.0082e+00_jprb/)
kao( :, 1, 6,15) = (/&
&9.3756e-01_jprb,8.2068e-01_jprb,7.0383e-01_jprb,5.8672e-01_jprb,4.6972e-01_jprb,3.5270e-01_jprb,&
&2.3642e-01_jprb,9.3756e-01_jprb,5.8692e-01_jprb/)
kao( :, 2, 6,15) = (/&
&8.8146e-01_jprb,7.7172e-01_jprb,6.6172e-01_jprb,5.5196e-01_jprb,4.4195e-01_jprb,3.6409e-01_jprb,&
&3.5917e-01_jprb,8.8146e-01_jprb,9.0877e-01_jprb/)
kao( :, 3, 6,15) = (/&
&8.2746e-01_jprb,7.2459e-01_jprb,6.2157e-01_jprb,5.2255e-01_jprb,4.9923e-01_jprb,5.3612e-01_jprb,&
&5.4635e-01_jprb,8.2746e-01_jprb,1.3807e+00_jprb/)
kao( :, 4, 6,15) = (/&
&7.7986e-01_jprb,6.8286e-01_jprb,5.9009e-01_jprb,6.0449e-01_jprb,7.0052e-01_jprb,7.7068e-01_jprb,&
&7.9084e-01_jprb,7.7986e-01_jprb,1.9934e+00_jprb/)
kao( :, 5, 6,15) = (/&
&7.3459e-01_jprb,6.4331e-01_jprb,6.4051e-01_jprb,8.0328e-01_jprb,9.6129e-01_jprb,1.0614e+00_jprb,&
&1.0888e+00_jprb,7.3459e-01_jprb,2.7652e+00_jprb/)
kao( :, 1, 7,15) = (/&
&1.0010e+00_jprb,8.7619e-01_jprb,7.5131e-01_jprb,6.2639e-01_jprb,5.0149e-01_jprb,3.7652e-01_jprb,&
&2.5149e-01_jprb,1.0010e+00_jprb,5.1478e-01_jprb/)
kao( :, 2, 7,15) = (/&
&9.4042e-01_jprb,8.2317e-01_jprb,7.0607e-01_jprb,5.8870e-01_jprb,4.7134e-01_jprb,3.5775e-01_jprb,&
&3.1227e-01_jprb,9.4042e-01_jprb,7.6928e-01_jprb/)
kao( :, 3, 7,15) = (/&
&8.8237e-01_jprb,7.7255e-01_jprb,6.6259e-01_jprb,5.5268e-01_jprb,4.7859e-01_jprb,4.7554e-01_jprb,&
&4.9216e-01_jprb,8.8237e-01_jprb,1.1825e+00_jprb/)
kao( :, 4, 7,15) = (/&
&8.2933e-01_jprb,7.2604e-01_jprb,6.2305e-01_jprb,5.8548e-01_jprb,6.3044e-01_jprb,7.0378e-01_jprb,&
&7.3153e-01_jprb,8.2933e-01_jprb,1.7634e+00_jprb/)
kao( :, 5, 7,15) = (/&
&7.8131e-01_jprb,6.8426e-01_jprb,6.4094e-01_jprb,7.3798e-01_jprb,8.8857e-01_jprb,9.9138e-01_jprb,&
&1.0340e+00_jprb,7.8131e-01_jprb,2.5071e+00_jprb/)
kao( :, 1, 8,15) = (/&
&1.0680e+00_jprb,9.3481e-01_jprb,8.0158e-01_jprb,6.6826e-01_jprb,5.3482e-01_jprb,4.0154e-01_jprb,&
&2.6788e-01_jprb,1.0680e+00_jprb,4.6455e-01_jprb/)
kao( :, 2, 8,15) = (/&
&1.0024e+00_jprb,8.7742e-01_jprb,7.5246e-01_jprb,6.2743e-01_jprb,5.0223e-01_jprb,3.7717e-01_jprb,&
&2.7719e-01_jprb,1.0024e+00_jprb,6.8110e-01_jprb/)
kao( :, 3, 8,15) = (/&
&9.4024e-01_jprb,8.2314e-01_jprb,7.0609e-01_jprb,5.8881e-01_jprb,4.8025e-01_jprb,4.2864e-01_jprb,&
&4.3393e-01_jprb,9.4024e-01_jprb,1.0170e+00_jprb/)
kao( :, 4, 8,15) = (/&
&8.8264e-01_jprb,7.7273e-01_jprb,6.6282e-01_jprb,5.8404e-01_jprb,5.7821e-01_jprb,6.2771e-01_jprb,&
&6.6458e-01_jprb,8.8264e-01_jprb,1.5302e+00_jprb/)
kao( :, 5, 8,15) = (/&
&8.3199e-01_jprb,7.2845e-01_jprb,6.5427e-01_jprb,6.8741e-01_jprb,8.0945e-01_jprb,9.0978e-01_jprb,&
&9.6418e-01_jprb,8.3199e-01_jprb,2.2337e+00_jprb/)
kao( :, 1, 9,15) = (/&
&1.1381e+00_jprb,9.9610e-01_jprb,8.5409e-01_jprb,7.1197e-01_jprb,5.6977e-01_jprb,4.2770e-01_jprb,&
&2.8544e-01_jprb,1.1381e+00_jprb,4.2382e-01_jprb/)
kao( :, 2, 9,15) = (/&
&1.0667e+00_jprb,9.3372e-01_jprb,8.0061e-01_jprb,6.6744e-01_jprb,5.3433e-01_jprb,4.0118e-01_jprb,&
&2.6997e-01_jprb,1.0667e+00_jprb,6.1324e-01_jprb/)
kao( :, 3, 9,15) = (/&
&1.0035e+00_jprb,8.7845e-01_jprb,7.5330e-01_jprb,6.2805e-01_jprb,5.0276e-01_jprb,4.0704e-01_jprb,&
&3.7170e-01_jprb,1.0035e+00_jprb,9.0055e-01_jprb/)
kao( :, 4, 9,15) = (/&
&9.4646e-01_jprb,8.2850e-01_jprb,7.1051e-01_jprb,6.0313e-01_jprb,5.4959e-01_jprb,5.4972e-01_jprb,&
&5.8769e-01_jprb,9.4646e-01_jprb,1.3351e+00_jprb/)
kao( :, 5, 9,15) = (/&
&8.9740e-01_jprb,7.8559e-01_jprb,6.8592e-01_jprb,6.6573e-01_jprb,7.2528e-01_jprb,8.1924e-01_jprb,&
&8.7543e-01_jprb,8.9740e-01_jprb,1.9504e+00_jprb/)
kao( :, 1,10,15) = (/&
&1.2073e+00_jprb,1.0565e+00_jprb,9.0576e-01_jprb,7.5488e-01_jprb,6.0419e-01_jprb,4.5329e-01_jprb,&
&3.0227e-01_jprb,1.2073e+00_jprb,3.9999e-01_jprb/)
kao( :, 2,10,15) = (/&
&1.1382e+00_jprb,9.9608e-01_jprb,8.5413e-01_jprb,7.1184e-01_jprb,5.6976e-01_jprb,4.2763e-01_jprb,&
&2.8536e-01_jprb,1.1382e+00_jprb,5.7883e-01_jprb/)
kao( :, 3,10,15) = (/&
&1.0785e+00_jprb,9.4391e-01_jprb,8.0923e-01_jprb,6.7459e-01_jprb,5.3984e-01_jprb,4.1488e-01_jprb,&
&3.3805e-01_jprb,1.0785e+00_jprb,8.3839e-01_jprb/)
kao( :, 4,10,15) = (/&
&1.0278e+00_jprb,8.9961e-01_jprb,7.7127e-01_jprb,6.4730e-01_jprb,5.5430e-01_jprb,5.1106e-01_jprb,&
&5.2425e-01_jprb,1.0278e+00_jprb,1.2284e+00_jprb/)
kao( :, 5,10,15) = (/&
&9.8618e-01_jprb,8.6326e-01_jprb,7.4679e-01_jprb,6.7988e-01_jprb,6.7637e-01_jprb,7.4989e-01_jprb,&
&8.0479e-01_jprb,9.8618e-01_jprb,1.7791e+00_jprb/)
kao( :, 1,11,15) = (/&
&1.2644e+00_jprb,1.1063e+00_jprb,9.4846e-01_jprb,7.9047e-01_jprb,6.3247e-01_jprb,4.7453e-01_jprb,&
&3.1659e-01_jprb,1.2644e+00_jprb,7.4298e-01_jprb/)
kao( :, 2,11,15) = (/&
&1.2071e+00_jprb,1.0565e+00_jprb,9.0557e-01_jprb,7.5491e-01_jprb,6.0392e-01_jprb,4.5270e-01_jprb,&
&3.0399e-01_jprb,1.2071e+00_jprb,8.1705e-01_jprb/)
kao( :, 3,11,15) = (/&
&1.1615e+00_jprb,1.0165e+00_jprb,8.7147e-01_jprb,7.2637e-01_jprb,5.8138e-01_jprb,4.5624e-01_jprb,&
&3.7840e-01_jprb,1.1615e+00_jprb,9.7765e-01_jprb/)
kao( :, 4,11,15) = (/&
&1.1264e+00_jprb,9.8590e-01_jprb,8.4531e-01_jprb,7.1438e-01_jprb,6.1502e-01_jprb,5.6197e-01_jprb,&
&5.7803e-01_jprb,1.1264e+00_jprb,1.3520e+00_jprb/)
kao( :, 5,11,15) = (/&
&1.0994e+00_jprb,9.6216e-01_jprb,8.3568e-01_jprb,7.5689e-01_jprb,7.4680e-01_jprb,8.2884e-01_jprb,&
&8.8880e-01_jprb,1.0994e+00_jprb,1.9292e+00_jprb/)
kao( :, 1,12,15) = (/&
&1.3647e+00_jprb,1.1941e+00_jprb,1.0237e+00_jprb,8.5312e-01_jprb,6.8264e-01_jprb,5.1188e-01_jprb,&
&3.4108e-01_jprb,1.3647e+00_jprb,1.2788e+00_jprb/)
kao( :, 2,12,15) = (/&
&1.3242e+00_jprb,1.1588e+00_jprb,9.9341e-01_jprb,8.2794e-01_jprb,6.6255e-01_jprb,4.9690e-01_jprb,&
&3.3841e-01_jprb,1.3242e+00_jprb,1.2778e+00_jprb/)
kao( :, 3,12,15) = (/&
&1.2955e+00_jprb,1.1336e+00_jprb,9.7197e-01_jprb,8.1003e-01_jprb,6.5411e-01_jprb,5.1488e-01_jprb,&
&4.3081e-01_jprb,1.2955e+00_jprb,1.3626e+00_jprb/)
kao( :, 4,12,15) = (/&
&1.2745e+00_jprb,1.1153e+00_jprb,9.5614e-01_jprb,8.1202e-01_jprb,6.9456e-01_jprb,6.2323e-01_jprb,&
&6.4228e-01_jprb,1.2745e+00_jprb,1.6020e+00_jprb/)
kao( :, 5,12,15) = (/&
&1.2602e+00_jprb,1.1028e+00_jprb,9.6134e-01_jprb,8.5786e-01_jprb,8.3175e-01_jprb,9.1010e-01_jprb,&
&9.8660e-01_jprb,1.2602e+00_jprb,2.1013e+00_jprb/)
kao( :, 1,13,15) = (/&
&1.5182e+00_jprb,1.3286e+00_jprb,1.1388e+00_jprb,9.4918e-01_jprb,7.5925e-01_jprb,5.6967e-01_jprb,&
&3.7977e-01_jprb,1.5182e+00_jprb,1.8162e+00_jprb/)
kao( :, 2,13,15) = (/&
&1.4954e+00_jprb,1.3087e+00_jprb,1.1217e+00_jprb,9.3496e-01_jprb,7.4798e-01_jprb,5.6069e-01_jprb,&
&3.8653e-01_jprb,1.4954e+00_jprb,1.7757e+00_jprb/)
kao( :, 3,13,15) = (/&
&1.4806e+00_jprb,1.2956e+00_jprb,1.1104e+00_jprb,9.2545e-01_jprb,7.5238e-01_jprb,5.8983e-01_jprb,&
&4.8997e-01_jprb,1.4806e+00_jprb,1.8395e+00_jprb/)
kao( :, 4,13,15) = (/&
&1.4707e+00_jprb,1.2870e+00_jprb,1.1033e+00_jprb,9.3978e-01_jprb,7.9436e-01_jprb,6.9884e-01_jprb,&
&7.1743e-01_jprb,1.4707e+00_jprb,1.9733e+00_jprb/)
kao( :, 5,13,15) = (/&
&1.4617e+00_jprb,1.2790e+00_jprb,1.1197e+00_jprb,9.8344e-01_jprb,9.3195e-01_jprb,9.9536e-01_jprb,&
&1.0841e+00_jprb,1.4617e+00_jprb,2.3960e+00_jprb/)
kao( :, 1, 1,16) = (/&
&6.7204e-01_jprb,5.8835e-01_jprb,4.9493e-01_jprb,4.2075e-01_jprb,3.2404e-01_jprb,3.2835e-01_jprb,&
&3.1694e-01_jprb,6.7204e-01_jprb,1.1553e+00_jprb/)
kao( :, 2, 1,16) = (/&
&6.3886e-01_jprb,5.4837e-01_jprb,4.7048e-01_jprb,4.0570e-01_jprb,4.5211e-01_jprb,4.4664e-01_jprb,&
&4.2417e-01_jprb,6.3887e-01_jprb,1.6108e+00_jprb/)
kao( :, 3, 1,16) = (/&
&6.0571e-01_jprb,5.3024e-01_jprb,4.5482e-01_jprb,5.4623e-01_jprb,6.0722e-01_jprb,6.1523e-01_jprb,&
&6.0675e-01_jprb,6.0571e-01_jprb,2.1229e+00_jprb/)
kao( :, 4, 1,16) = (/&
&5.7537e-01_jprb,5.0361e-01_jprb,5.5977e-01_jprb,6.9780e-01_jprb,7.7428e-01_jprb,7.8387e-01_jprb,&
&7.5743e-01_jprb,5.7537e-01_jprb,2.8238e+00_jprb/)
kao( :, 5, 1,16) = (/&
&5.4532e-01_jprb,4.7762e-01_jprb,7.0785e-01_jprb,8.9753e-01_jprb,9.9932e-01_jprb,1.0137e+00_jprb,&
&1.0005e+00_jprb,5.4532e-01_jprb,3.5639e+00_jprb/)
kao( :, 1, 2,16) = (/&
&7.1419e-01_jprb,6.2513e-01_jprb,5.3613e-01_jprb,4.4716e-01_jprb,3.5137e-01_jprb,3.4275e-01_jprb,&
&3.2618e-01_jprb,7.1419e-01_jprb,1.2386e+00_jprb/)
kao( :, 2, 2,16) = (/&
&6.7776e-01_jprb,5.9352e-01_jprb,5.0900e-01_jprb,4.3513e-01_jprb,4.7304e-01_jprb,4.9853e-01_jprb,&
&4.7175e-01_jprb,6.7776e-01_jprb,1.7603e+00_jprb/)
kao( :, 3, 2,16) = (/&
&6.4195e-01_jprb,5.6188e-01_jprb,4.8194e-01_jprb,5.9011e-01_jprb,6.5773e-01_jprb,6.7703e-01_jprb,&
&6.5466e-01_jprb,6.4195e-01_jprb,2.4018e+00_jprb/)
kao( :, 4, 2,16) = (/&
&6.0760e-01_jprb,5.3187e-01_jprb,6.1665e-01_jprb,7.6305e-01_jprb,8.6650e-01_jprb,8.7779e-01_jprb,&
&8.4546e-01_jprb,6.0760e-01_jprb,3.1623e+00_jprb/)
kao( :, 5, 2,16) = (/&
&5.7557e-01_jprb,5.0389e-01_jprb,7.8645e-01_jprb,9.9605e-01_jprb,1.1101e+00_jprb,1.1441e+00_jprb,&
&1.0872e+00_jprb,5.7557e-01_jprb,4.0554e+00_jprb/)
kao( :, 1, 3,16) = (/&
&7.6539e-01_jprb,6.6993e-01_jprb,5.7468e-01_jprb,4.7908e-01_jprb,3.8366e-01_jprb,3.3164e-01_jprb,&
&3.1419e-01_jprb,7.6539e-01_jprb,1.2218e+00_jprb/)
kao( :, 2, 3,16) = (/&
&7.2520e-01_jprb,6.3496e-01_jprb,5.4460e-01_jprb,4.5403e-01_jprb,4.7919e-01_jprb,4.8518e-01_jprb,&
&4.6775e-01_jprb,7.2520e-01_jprb,1.7874e+00_jprb/)
kao( :, 3, 3,16) = (/&
&6.8607e-01_jprb,6.0066e-01_jprb,5.1535e-01_jprb,6.0192e-01_jprb,6.5742e-01_jprb,6.8742e-01_jprb,&
&6.6482e-01_jprb,6.8607e-01_jprb,2.4947e+00_jprb/)
kao( :, 4, 3,16) = (/&
&6.4786e-01_jprb,5.6724e-01_jprb,6.3678e-01_jprb,8.0813e-01_jprb,8.8359e-01_jprb,9.1109e-01_jprb,&
&8.7792e-01_jprb,6.4786e-01_jprb,3.3575e+00_jprb/)
kao( :, 5, 3,16) = (/&
&6.1260e-01_jprb,5.3649e-01_jprb,8.2910e-01_jprb,1.0492e+00_jprb,1.1703e+00_jprb,1.2063e+00_jprb,&
&1.1675e+00_jprb,6.1260e-01_jprb,4.3791e+00_jprb/)
kao( :, 1, 4,16) = (/&
&8.2264e-01_jprb,7.2018e-01_jprb,6.1760e-01_jprb,5.1504e-01_jprb,4.1228e-01_jprb,3.1403e-01_jprb,&
&3.0330e-01_jprb,8.2264e-01_jprb,1.1500e+00_jprb/)
kao( :, 2, 4,16) = (/&
&7.7591e-01_jprb,6.7905e-01_jprb,5.8222e-01_jprb,4.8587e-01_jprb,4.6170e-01_jprb,4.7497e-01_jprb,&
&4.5862e-01_jprb,7.7591e-01_jprb,1.7280e+00_jprb/)
kao( :, 3, 4,16) = (/&
&7.3290e-01_jprb,6.4193e-01_jprb,5.5048e-01_jprb,5.9279e-01_jprb,6.6051e-01_jprb,6.8079e-01_jprb,&
&6.5994e-01_jprb,7.3290e-01_jprb,2.4901e+00_jprb/)
kao( :, 4, 4,16) = (/&
&6.9170e-01_jprb,6.0563e-01_jprb,6.4428e-01_jprb,8.1421e-01_jprb,9.0809e-01_jprb,9.3805e-01_jprb,&
&8.9044e-01_jprb,6.9170e-01_jprb,3.4202e+00_jprb/)
kao( :, 5, 4,16) = (/&
&6.5200e-01_jprb,5.7086e-01_jprb,8.5544e-01_jprb,1.0841e+00_jprb,1.2072e+00_jprb,1.2191e+00_jprb,&
&1.2042e+00_jprb,6.5200e-01_jprb,4.5618e+00_jprb/)
kao( :, 1, 5,16) = (/&
&8.8181e-01_jprb,7.7179e-01_jprb,6.6204e-01_jprb,5.5199e-01_jprb,4.3343e-01_jprb,3.3186e-01_jprb,&
&2.7727e-01_jprb,8.8181e-01_jprb,1.0520e+00_jprb/)
kao( :, 2, 5,16) = (/&
&8.2952e-01_jprb,7.2638e-01_jprb,6.2324e-01_jprb,5.1947e-01_jprb,4.3588e-01_jprb,4.4832e-01_jprb,&
&4.3512e-01_jprb,8.2952e-01_jprb,1.6494e+00_jprb/)
kao( :, 3, 5,16) = (/&
&7.8170e-01_jprb,6.8471e-01_jprb,5.8732e-01_jprb,5.7928e-01_jprb,6.4579e-01_jprb,6.6360e-01_jprb,&
&6.4439e-01_jprb,7.8170e-01_jprb,2.4300e+00_jprb/)
kao( :, 4, 5,16) = (/&
&7.3700e-01_jprb,6.4559e-01_jprb,6.4470e-01_jprb,8.1536e-01_jprb,9.1269e-01_jprb,9.3873e-01_jprb,&
&9.0753e-01_jprb,7.3700e-01_jprb,3.4492e+00_jprb/)
kao( :, 5, 5,16) = (/&
&6.9437e-01_jprb,6.0807e-01_jprb,8.7385e-01_jprb,1.1073e+00_jprb,1.2374e+00_jprb,1.2510e+00_jprb,&
&1.2316e+00_jprb,6.9437e-01_jprb,4.6799e+00_jprb/)
kao( :, 1, 6,16) = (/&
&9.4656e-01_jprb,8.2884e-01_jprb,7.1064e-01_jprb,5.9233e-01_jprb,4.7420e-01_jprb,3.5608e-01_jprb,&
&2.4362e-01_jprb,9.4656e-01_jprb,9.2837e-01_jprb/)
kao( :, 2, 6,16) = (/&
&8.9042e-01_jprb,7.7970e-01_jprb,6.6875e-01_jprb,5.5799e-01_jprb,4.4670e-01_jprb,4.1251e-01_jprb,&
&4.0025e-01_jprb,8.9042e-01_jprb,1.5112e+00_jprb/)
kao( :, 3, 6,16) = (/&
&8.3666e-01_jprb,7.3284e-01_jprb,6.2869e-01_jprb,5.5096e-01_jprb,6.1404e-01_jprb,6.3375e-01_jprb,&
&6.1412e-01_jprb,8.3666e-01_jprb,2.3236e+00_jprb/)
kao( :, 4, 6,16) = (/&
&7.8888e-01_jprb,6.9101e-01_jprb,6.2966e-01_jprb,7.9961e-01_jprb,8.9414e-01_jprb,9.2254e-01_jprb,&
&8.7581e-01_jprb,7.8888e-01_jprb,3.3711e+00_jprb/)
kao( :, 5, 6,16) = (/&
&7.4306e-01_jprb,6.5113e-01_jprb,8.7601e-01_jprb,1.1131e+00_jprb,1.2418e+00_jprb,1.2838e+00_jprb,&
&1.2412e+00_jprb,7.4306e-01_jprb,4.6947e+00_jprb/)
kao( :, 1, 7,16) = (/&
&1.0141e+00_jprb,8.8774e-01_jprb,7.6121e-01_jprb,6.3477e-01_jprb,5.0825e-01_jprb,3.8150e-01_jprb,&
&2.5476e-01_jprb,1.0141e+00_jprb,7.9663e-01_jprb/)
kao( :, 2, 7,16) = (/&
&9.5399e-01_jprb,8.3513e-01_jprb,7.1620e-01_jprb,5.9743e-01_jprb,4.7818e-01_jprb,3.7373e-01_jprb,&
&3.6192e-01_jprb,9.5399e-01_jprb,1.3655e+00_jprb/)
kao( :, 3, 7,16) = (/&
&8.9634e-01_jprb,7.8499e-01_jprb,6.7347e-01_jprb,5.6171e-01_jprb,5.7673e-01_jprb,5.9473e-01_jprb,&
&5.7642e-01_jprb,8.9634e-01_jprb,2.1680e+00_jprb/)
kao( :, 4, 7,16) = (/&
&8.4326e-01_jprb,7.3869e-01_jprb,6.3388e-01_jprb,7.7423e-01_jprb,8.6537e-01_jprb,8.9227e-01_jprb,&
&8.6433e-01_jprb,8.4326e-01_jprb,3.2604e+00_jprb/)
kao( :, 5, 7,16) = (/&
&7.9491e-01_jprb,6.9647e-01_jprb,8.6797e-01_jprb,1.1053e+00_jprb,1.2365e+00_jprb,1.2774e+00_jprb,&
&1.2375e+00_jprb,7.9491e-01_jprb,4.6484e+00_jprb/)
kao( :, 1, 8,16) = (/&
&1.0826e+00_jprb,9.4750e-01_jprb,8.1241e-01_jprb,6.7724e-01_jprb,5.4220e-01_jprb,4.0687e-01_jprb,&
&2.7135e-01_jprb,1.0826e+00_jprb,6.7305e-01_jprb/)
kao( :, 2, 8,16) = (/&
&1.0187e+00_jprb,8.9193e-01_jprb,7.6505e-01_jprb,6.3785e-01_jprb,5.1061e-01_jprb,3.8339e-01_jprb,&
&3.2268e-01_jprb,1.0187e+00_jprb,1.2085e+00_jprb/)
kao( :, 3, 8,16) = (/&
&9.5858e-01_jprb,8.3946e-01_jprb,7.2017e-01_jprb,6.0051e-01_jprb,5.3532e-01_jprb,5.5217e-01_jprb,&
&5.3452e-01_jprb,9.5858e-01_jprb,2.0055e+00_jprb/)
kao( :, 4, 8,16) = (/&
&9.0233e-01_jprb,7.9038e-01_jprb,6.7816e-01_jprb,7.4178e-01_jprb,8.2987e-01_jprb,8.5828e-01_jprb,&
&8.2989e-01_jprb,9.0233e-01_jprb,3.1045e+00_jprb/)
kao( :, 5, 8,16) = (/&
&8.5134e-01_jprb,7.4583e-01_jprb,8.5421e-01_jprb,1.0895e+00_jprb,1.2207e+00_jprb,1.2603e+00_jprb,&
&1.2206e+00_jprb,8.5134e-01_jprb,4.5597e+00_jprb/)
kao( :, 1, 9,16) = (/&
&1.1564e+00_jprb,1.0121e+00_jprb,8.6800e-01_jprb,7.2367e-01_jprb,5.7876e-01_jprb,4.3457e-01_jprb,&
&2.8981e-01_jprb,1.1564e+00_jprb,5.5525e-01_jprb/)
kao( :, 2, 9,16) = (/&
&1.0903e+00_jprb,9.5491e-01_jprb,8.1871e-01_jprb,6.8281e-01_jprb,5.4658e-01_jprb,4.0983e-01_jprb,&
&2.8183e-01_jprb,1.0903e+00_jprb,1.0488e+00_jprb/)
kao( :, 3, 9,16) = (/&
&1.0293e+00_jprb,9.0147e-01_jprb,7.7309e-01_jprb,6.4495e-01_jprb,5.1624e-01_jprb,5.0522e-01_jprb,&
&4.8904e-01_jprb,1.0293e+00_jprb,1.8131e+00_jprb/)
kao( :, 4, 9,16) = (/&
&9.7173e-01_jprb,8.5120e-01_jprb,7.3048e-01_jprb,7.0120e-01_jprb,7.8672e-01_jprb,8.1370e-01_jprb,&
&7.8991e-01_jprb,9.7173e-01_jprb,2.9196e+00_jprb/)
kao( :, 5, 9,16) = (/&
&9.1923e-01_jprb,8.0514e-01_jprb,8.3021e-01_jprb,1.0615e+00_jprb,1.1921e+00_jprb,1.2331e+00_jprb,&
&1.1982e+00_jprb,9.1923e-01_jprb,4.4066e+00_jprb/)
kao( :, 1,10,16) = (/&
&1.2374e+00_jprb,1.0830e+00_jprb,9.2878e-01_jprb,7.7400e-01_jprb,6.1971e-01_jprb,4.6496e-01_jprb,&
&3.0999e-01_jprb,1.2374e+00_jprb,5.8062e-01_jprb/)
kao( :, 2,10,16) = (/&
&1.1711e+00_jprb,1.0252e+00_jprb,8.7935e-01_jprb,7.3302e-01_jprb,5.8682e-01_jprb,4.4044e-01_jprb,&
&2.9397e-01_jprb,1.1711e+00_jprb,9.3348e-01_jprb/)
kao( :, 3,10,16) = (/&
&1.1097e+00_jprb,9.7179e-01_jprb,8.3349e-01_jprb,6.9517e-01_jprb,5.5660e-01_jprb,4.7411e-01_jprb,&
&4.6026e-01_jprb,1.1097e+00_jprb,1.6848e+00_jprb/)
kao( :, 4,10,16) = (/&
&1.0572e+00_jprb,9.2545e-01_jprb,7.9343e-01_jprb,6.8000e-01_jprb,7.6310e-01_jprb,7.9077e-01_jprb,&
&7.6860e-01_jprb,1.0572e+00_jprb,2.7940e+00_jprb/)
kao( :, 5,10,16) = (/&
&1.0175e+00_jprb,8.9035e-01_jprb,8.2349e-01_jprb,1.0563e+00_jprb,1.1865e+00_jprb,1.2328e+00_jprb,&
&1.1994e+00_jprb,1.0175e+00_jprb,4.3373e+00_jprb/)
kao( :, 1,11,16) = (/&
&1.3078e+00_jprb,1.1446e+00_jprb,9.8121e-01_jprb,8.1822e-01_jprb,6.5451e-01_jprb,4.9148e-01_jprb,&
&3.2796e-01_jprb,1.3078e+00_jprb,8.7955e-01_jprb/)
kao( :, 2,11,16) = (/&
&1.2495e+00_jprb,1.0937e+00_jprb,9.3769e-01_jprb,7.8176e-01_jprb,6.2549e-01_jprb,4.6880e-01_jprb,&
&3.1026e-01_jprb,1.2495e+00_jprb,1.1103e+00_jprb/)
kao( :, 3,11,16) = (/&
&1.2067e+00_jprb,1.0559e+00_jprb,9.0509e-01_jprb,7.5401e-01_jprb,6.0340e-01_jprb,5.7377e-01_jprb,&
&5.5854e-01_jprb,1.2067e+00_jprb,1.9965e+00_jprb/)
kao( :, 4,11,16) = (/&
&1.1748e+00_jprb,1.0281e+00_jprb,8.8102e-01_jprb,8.1540e-01_jprb,9.2020e-01_jprb,9.5681e-01_jprb,&
&9.3190e-01_jprb,1.1748e+00_jprb,3.3092e+00_jprb/)
kao( :, 5,11,16) = (/&
&1.1528e+00_jprb,1.0088e+00_jprb,9.8178e-01_jprb,1.2680e+00_jprb,1.4334e+00_jprb,1.4913e+00_jprb,&
&1.4507e+00_jprb,1.1528e+00_jprb,5.1215e+00_jprb/)
kao( :, 1,12,16) = (/&
&1.4264e+00_jprb,1.2483e+00_jprb,1.0700e+00_jprb,8.9156e-01_jprb,7.1342e-01_jprb,5.3490e-01_jprb,&
&3.5601e-01_jprb,1.4264e+00_jprb,1.5795e+00_jprb/)
kao( :, 2,12,16) = (/&
&1.3956e+00_jprb,1.2210e+00_jprb,1.0467e+00_jprb,8.7214e-01_jprb,6.9777e-01_jprb,5.2320e-01_jprb,&
&3.7423e-01_jprb,1.3956e+00_jprb,1.5601e+00_jprb/)
kao( :, 3,12,16) = (/&
&1.3711e+00_jprb,1.1997e+00_jprb,1.0285e+00_jprb,8.5684e-01_jprb,6.8534e-01_jprb,6.9284e-01_jprb,&
&6.7781e-01_jprb,1.3711e+00_jprb,2.3512e+00_jprb/)
kao( :, 4,12,16) = (/&
&1.3565e+00_jprb,1.1870e+00_jprb,1.0173e+00_jprb,9.7613e-01_jprb,1.1079e+00_jprb,1.1568e+00_jprb,&
&1.1307e+00_jprb,1.3565e+00_jprb,3.8814e+00_jprb/)
kao( :, 5,12,16) = (/&
&1.3408e+00_jprb,1.1733e+00_jprb,1.1680e+00_jprb,1.5162e+00_jprb,1.7205e+00_jprb,1.8012e+00_jprb,&
&1.7627e+00_jprb,1.3408e+00_jprb,5.9949e+00_jprb/)
kao( :, 1,13,16) = (/&
&1.6257e+00_jprb,1.4225e+00_jprb,1.2194e+00_jprb,1.0160e+00_jprb,8.1283e-01_jprb,6.0965e-01_jprb,&
&4.0604e-01_jprb,1.6257e+00_jprb,2.2989e+00_jprb/)
kao( :, 2,13,16) = (/&
&1.6092e+00_jprb,1.4081e+00_jprb,1.2069e+00_jprb,1.0056e+00_jprb,8.0424e-01_jprb,6.0284e-01_jprb,&
&4.5252e-01_jprb,1.6092e+00_jprb,2.2727e+00_jprb/)
kao( :, 3,13,16) = (/&
&1.6030e+00_jprb,1.4026e+00_jprb,1.2019e+00_jprb,1.0013e+00_jprb,8.1602e-01_jprb,8.3675e-01_jprb,&
&8.2085e-01_jprb,1.6030e+00_jprb,2.7443e+00_jprb/)
kao( :, 4,13,16) = (/&
&1.5933e+00_jprb,1.3941e+00_jprb,1.1949e+00_jprb,1.1601e+00_jprb,1.3266e+00_jprb,1.3927e+00_jprb,&
&1.3677e+00_jprb,1.5933e+00_jprb,4.4922e+00_jprb/)
kao( :, 5,13,16) = (/&
&1.5870e+00_jprb,1.3885e+00_jprb,1.3769e+00_jprb,1.7994e+00_jprb,2.0601e+00_jprb,2.1667e+00_jprb,&
&2.1254e+00_jprb,1.5870e+00_jprb,6.9188e+00_jprb/)



!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb4_a1