rrtm_kgb3_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb3_a2

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

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

#include "tsmbkind.h"

USE yoerrto3 , ONLY : kao     ,kbo     ,selfrefo   ,fracrefao  ,&
           &fracrefbo  ,forrefo    ,absn2oao   ,absn2obo
USE yoerrta3 , ONLY : absn2oa ,absn2ob  ,etaref    ,h2oref     ,&
           &n2oref     ,co2ref     ,strrat

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


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 10, 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 = 10 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, 7) = (/&
&6.4013e-02_jprb,7.3559e-02_jprb,7.8016e-02_jprb,7.8110e-02_jprb,7.4963e-02_jprb,6.8933e-02_jprb,&
&6.0750e-02_jprb,4.8875e-02_jprb,3.9308e-02_jprb,3.6560e-02_jprb/)
kao( :, 2, 1, 7) = (/&
&7.6363e-02_jprb,8.7960e-02_jprb,9.3559e-02_jprb,9.3979e-02_jprb,9.0734e-02_jprb,8.3349e-02_jprb,&
&7.3192e-02_jprb,5.8774e-02_jprb,4.7441e-02_jprb,4.4036e-02_jprb/)
kao( :, 3, 1, 7) = (/&
&8.9758e-02_jprb,1.0331e-01_jprb,1.1051e-01_jprb,1.1169e-01_jprb,1.0769e-01_jprb,9.8679e-02_jprb,&
&8.6726e-02_jprb,6.9819e-02_jprb,5.6655e-02_jprb,5.2675e-02_jprb/)
kao( :, 4, 1, 7) = (/&
&1.0433e-01_jprb,1.2008e-01_jprb,1.2928e-01_jprb,1.3105e-01_jprb,1.2576e-01_jprb,1.1544e-01_jprb,&
&1.0166e-01_jprb,8.2241e-02_jprb,6.7142e-02_jprb,6.2520e-02_jprb/)
kao( :, 5, 1, 7) = (/&
&1.2001e-01_jprb,1.3824e-01_jprb,1.4932e-01_jprb,1.5158e-01_jprb,1.4526e-01_jprb,1.3374e-01_jprb,&
&1.1804e-01_jprb,9.5951e-02_jprb,7.9016e-02_jprb,7.3734e-02_jprb/)
kao( :, 1, 2, 7) = (/&
&5.2968e-02_jprb,6.2116e-02_jprb,6.5835e-02_jprb,6.6044e-02_jprb,6.3294e-02_jprb,5.8161e-02_jprb,&
&5.1176e-02_jprb,4.1393e-02_jprb,3.1133e-02_jprb,2.8255e-02_jprb/)
kao( :, 2, 2, 7) = (/&
&6.3728e-02_jprb,7.4899e-02_jprb,7.9536e-02_jprb,8.0057e-02_jprb,7.7101e-02_jprb,7.0839e-02_jprb,&
&6.2175e-02_jprb,5.0108e-02_jprb,3.7798e-02_jprb,3.4182e-02_jprb/)
kao( :, 3, 2, 7) = (/&
&7.5532e-02_jprb,8.8572e-02_jprb,9.4648e-02_jprb,9.5700e-02_jprb,9.1973e-02_jprb,8.4443e-02_jprb,&
&7.4085e-02_jprb,5.9918e-02_jprb,4.5429e-02_jprb,4.1069e-02_jprb/)
kao( :, 4, 2, 7) = (/&
&8.8404e-02_jprb,1.0356e-01_jprb,1.1124e-01_jprb,1.1259e-01_jprb,1.0798e-01_jprb,9.9246e-02_jprb,&
&8.7373e-02_jprb,7.0993e-02_jprb,5.4110e-02_jprb,4.8926e-02_jprb/)
kao( :, 5, 2, 7) = (/&
&1.0235e-01_jprb,1.2010e-01_jprb,1.2926e-01_jprb,1.3064e-01_jprb,1.2537e-01_jprb,1.1556e-01_jprb,&
&1.0208e-01_jprb,8.3206e-02_jprb,6.4030e-02_jprb,5.7947e-02_jprb/)
kao( :, 1, 3, 7) = (/&
&4.1735e-02_jprb,4.9803e-02_jprb,5.2741e-02_jprb,5.2657e-02_jprb,5.0249e-02_jprb,4.6113e-02_jprb,&
&4.0588e-02_jprb,3.2986e-02_jprb,2.3522e-02_jprb,2.0886e-02_jprb/)
kao( :, 2, 3, 7) = (/&
&5.0841e-02_jprb,6.0757e-02_jprb,6.4389e-02_jprb,6.4564e-02_jprb,6.1844e-02_jprb,5.6795e-02_jprb,&
&4.9854e-02_jprb,4.0407e-02_jprb,2.8855e-02_jprb,2.5442e-02_jprb/)
kao( :, 3, 3, 7) = (/&
&6.0889e-02_jprb,7.2603e-02_jprb,7.7334e-02_jprb,7.7876e-02_jprb,7.4574e-02_jprb,6.8388e-02_jprb,&
&6.0037e-02_jprb,4.8827e-02_jprb,3.5004e-02_jprb,3.0751e-02_jprb/)
kao( :, 4, 3, 7) = (/&
&7.1992e-02_jprb,8.5675e-02_jprb,9.1634e-02_jprb,9.2233e-02_jprb,8.8356e-02_jprb,8.1063e-02_jprb,&
&7.1397e-02_jprb,5.8371e-02_jprb,4.1972e-02_jprb,3.6821e-02_jprb/)
kao( :, 5, 3, 7) = (/&
&8.4144e-02_jprb,1.0019e-01_jprb,1.0713e-01_jprb,1.0774e-01_jprb,1.0345e-01_jprb,9.5140e-02_jprb,&
&8.4076e-02_jprb,6.8896e-02_jprb,4.9944e-02_jprb,4.3832e-02_jprb/)
kao( :, 1, 4, 7) = (/&
&3.2154e-02_jprb,3.8970e-02_jprb,4.1150e-02_jprb,4.0802e-02_jprb,3.8734e-02_jprb,3.5463e-02_jprb,&
&3.1189e-02_jprb,2.5441e-02_jprb,1.7426e-02_jprb,1.5348e-02_jprb/)
kao( :, 2, 4, 7) = (/&
&3.9739e-02_jprb,4.8115e-02_jprb,5.0846e-02_jprb,5.0567e-02_jprb,4.8188e-02_jprb,4.4146e-02_jprb,&
&3.8765e-02_jprb,3.1629e-02_jprb,2.1722e-02_jprb,1.8824e-02_jprb/)
kao( :, 3, 4, 7) = (/&
&4.8232e-02_jprb,5.8202e-02_jprb,6.1786e-02_jprb,6.1691e-02_jprb,5.8769e-02_jprb,5.3800e-02_jprb,&
&4.7237e-02_jprb,3.8627e-02_jprb,2.6596e-02_jprb,2.2906e-02_jprb/)
kao( :, 4, 4, 7) = (/&
&5.7693e-02_jprb,6.9403e-02_jprb,7.3912e-02_jprb,7.3801e-02_jprb,7.0370e-02_jprb,6.4487e-02_jprb,&
&5.6733e-02_jprb,4.6604e-02_jprb,3.2157e-02_jprb,2.7582e-02_jprb/)
kao( :, 5, 4, 7) = (/&
&6.8162e-02_jprb,8.1910e-02_jprb,8.6943e-02_jprb,8.6947e-02_jprb,8.3116e-02_jprb,7.6355e-02_jprb,&
&6.7389e-02_jprb,5.5474e-02_jprb,3.8506e-02_jprb,3.2984e-02_jprb/)
kao( :, 1, 5, 7) = (/&
&2.4543e-02_jprb,3.0114e-02_jprb,3.1564e-02_jprb,3.1114e-02_jprb,2.9453e-02_jprb,2.6887e-02_jprb,&
&2.3575e-02_jprb,1.9323e-02_jprb,1.2795e-02_jprb,1.1691e-02_jprb/)
kao( :, 2, 5, 7) = (/&
&3.0843e-02_jprb,3.7719e-02_jprb,3.9540e-02_jprb,3.9065e-02_jprb,3.7079e-02_jprb,3.3845e-02_jprb,&
&2.9679e-02_jprb,2.4367e-02_jprb,1.6282e-02_jprb,1.4283e-02_jprb/)
kao( :, 3, 5, 7) = (/&
&3.7989e-02_jprb,4.6141e-02_jprb,4.8601e-02_jprb,4.8164e-02_jprb,4.5691e-02_jprb,4.1697e-02_jprb,&
&3.6599e-02_jprb,3.0110e-02_jprb,2.0230e-02_jprb,1.7316e-02_jprb/)
kao( :, 4, 5, 7) = (/&
&4.5997e-02_jprb,5.5639e-02_jprb,5.8738e-02_jprb,5.8217e-02_jprb,5.5293e-02_jprb,5.0551e-02_jprb,&
&4.4474e-02_jprb,3.6675e-02_jprb,2.4679e-02_jprb,2.0824e-02_jprb/)
kao( :, 5, 5, 7) = (/&
&5.4980e-02_jprb,6.6335e-02_jprb,6.9689e-02_jprb,6.9220e-02_jprb,6.5934e-02_jprb,6.0477e-02_jprb,&
&5.3356e-02_jprb,4.4023e-02_jprb,2.9735e-02_jprb,2.4925e-02_jprb/)
kao( :, 1, 6, 7) = (/&
&1.8426e-02_jprb,2.2761e-02_jprb,2.3641e-02_jprb,2.3226e-02_jprb,2.1929e-02_jprb,1.9968e-02_jprb,&
&1.7467e-02_jprb,1.4347e-02_jprb,9.1807e-03_jprb,8.8441e-03_jprb/)
kao( :, 2, 6, 7) = (/&
&2.3578e-02_jprb,2.9032e-02_jprb,3.0133e-02_jprb,2.9606e-02_jprb,2.7996e-02_jprb,2.5495e-02_jprb,&
&2.2298e-02_jprb,1.8363e-02_jprb,1.2129e-02_jprb,1.0950e-02_jprb/)
kao( :, 3, 6, 7) = (/&
&2.9507e-02_jprb,3.6047e-02_jprb,3.7508e-02_jprb,3.6913e-02_jprb,3.4886e-02_jprb,3.1786e-02_jprb,&
&2.7844e-02_jprb,2.2965e-02_jprb,1.5292e-02_jprb,1.3409e-02_jprb/)
kao( :, 4, 6, 7) = (/&
&3.6266e-02_jprb,4.4015e-02_jprb,4.5865e-02_jprb,4.5103e-02_jprb,4.2675e-02_jprb,3.8982e-02_jprb,&
&3.4261e-02_jprb,2.8279e-02_jprb,1.8853e-02_jprb,1.6214e-02_jprb/)
kao( :, 5, 6, 7) = (/&
&4.3984e-02_jprb,5.3041e-02_jprb,5.5017e-02_jprb,5.4129e-02_jprb,5.1429e-02_jprb,4.7161e-02_jprb,&
&4.1564e-02_jprb,3.4270e-02_jprb,2.2882e-02_jprb,1.9446e-02_jprb/)
kao( :, 1, 7, 7) = (/&
&1.3764e-02_jprb,1.6980e-02_jprb,1.7488e-02_jprb,1.7108e-02_jprb,1.6106e-02_jprb,1.4660e-02_jprb,&
&1.2811e-02_jprb,1.0508e-02_jprb,6.5858e-03_jprb,7.3979e-03_jprb/)
kao( :, 2, 7, 7) = (/&
&1.7905e-02_jprb,2.2049e-02_jprb,2.2708e-02_jprb,2.2213e-02_jprb,2.0912e-02_jprb,1.9015e-02_jprb,&
&1.6594e-02_jprb,1.3616e-02_jprb,8.9925e-03_jprb,8.9127e-03_jprb/)
kao( :, 3, 7, 7) = (/&
&2.2781e-02_jprb,2.7834e-02_jprb,2.8707e-02_jprb,2.8089e-02_jprb,2.6436e-02_jprb,2.4036e-02_jprb,&
&2.1001e-02_jprb,1.7243e-02_jprb,1.1550e-02_jprb,1.0727e-02_jprb/)
kao( :, 4, 7, 7) = (/&
&2.8466e-02_jprb,3.4473e-02_jprb,3.5499e-02_jprb,3.4681e-02_jprb,3.2695e-02_jprb,2.9803e-02_jprb,&
&2.6138e-02_jprb,2.1504e-02_jprb,1.4432e-02_jprb,1.2888e-02_jprb/)
kao( :, 5, 7, 7) = (/&
&3.5087e-02_jprb,4.2091e-02_jprb,4.3096e-02_jprb,4.2057e-02_jprb,3.9781e-02_jprb,3.6456e-02_jprb,&
&3.2089e-02_jprb,2.6356e-02_jprb,1.7665e-02_jprb,1.5419e-02_jprb/)
kao( :, 1, 8, 7) = (/&
&1.0353e-02_jprb,1.2614e-02_jprb,1.2882e-02_jprb,1.2507e-02_jprb,1.1737e-02_jprb,1.0675e-02_jprb,&
&9.3093e-03_jprb,7.6257e-03_jprb,4.6116e-03_jprb,7.3615e-03_jprb/)
kao( :, 2, 8, 7) = (/&
&1.3587e-02_jprb,1.6625e-02_jprb,1.6988e-02_jprb,1.6539e-02_jprb,1.5521e-02_jprb,1.4075e-02_jprb,&
&1.2252e-02_jprb,1.0008e-02_jprb,6.5742e-03_jprb,8.8183e-03_jprb/)
kao( :, 3, 8, 7) = (/&
&1.7551e-02_jprb,2.1310e-02_jprb,2.1821e-02_jprb,2.1262e-02_jprb,1.9937e-02_jprb,1.8066e-02_jprb,&
&1.5721e-02_jprb,1.2839e-02_jprb,8.6653e-03_jprb,1.0458e-02_jprb/)
kao( :, 4, 8, 7) = (/&
&2.2265e-02_jprb,2.6814e-02_jprb,2.7357e-02_jprb,2.6600e-02_jprb,2.4976e-02_jprb,2.2670e-02_jprb,&
&1.9796e-02_jprb,1.6193e-02_jprb,1.0979e-02_jprb,1.2332e-02_jprb/)
kao( :, 5, 8, 7) = (/&
&2.7862e-02_jprb,3.3218e-02_jprb,3.3662e-02_jprb,3.2634e-02_jprb,3.0703e-02_jprb,2.8021e-02_jprb,&
&2.4581e-02_jprb,2.0102e-02_jprb,1.3589e-02_jprb,1.4413e-02_jprb/)
kao( :, 1, 9, 7) = (/&
&7.8781e-03_jprb,9.4357e-03_jprb,9.5082e-03_jprb,9.1567e-03_jprb,8.5455e-03_jprb,7.7115e-03_jprb,&
&6.6987e-03_jprb,5.4668e-03_jprb,3.2375e-03_jprb,1.0690e-02_jprb/)
kao( :, 2, 9, 7) = (/&
&1.0378e-02_jprb,1.2532e-02_jprb,1.2692e-02_jprb,1.2260e-02_jprb,1.1450e-02_jprb,1.0342e-02_jprb,&
&8.9582e-03_jprb,7.2956e-03_jprb,4.7236e-03_jprb,1.2330e-02_jprb/)
kao( :, 3, 9, 7) = (/&
&1.3495e-02_jprb,1.6270e-02_jprb,1.6516e-02_jprb,1.6000e-02_jprb,1.4955e-02_jprb,1.3485e-02_jprb,&
&1.1675e-02_jprb,9.4744e-03_jprb,6.3929e-03_jprb,1.4160e-02_jprb/)
kao( :, 4, 9, 7) = (/&
&1.7315e-02_jprb,2.0761e-02_jprb,2.1026e-02_jprb,2.0326e-02_jprb,1.9009e-02_jprb,1.7164e-02_jprb,&
&1.4884e-02_jprb,1.2091e-02_jprb,8.2532e-03_jprb,1.6229e-02_jprb/)
kao( :, 5, 9, 7) = (/&
&2.1950e-02_jprb,2.6079e-02_jprb,2.6242e-02_jprb,2.5301e-02_jprb,2.3645e-02_jprb,2.1443e-02_jprb,&
&1.8684e-02_jprb,1.5203e-02_jprb,1.0361e-02_jprb,1.8623e-02_jprb/)
kao( :, 1,10, 7) = (/&
&6.0912e-03_jprb,7.2618e-03_jprb,7.2497e-03_jprb,6.9368e-03_jprb,6.4251e-03_jprb,5.7381e-03_jprb,&
&4.9224e-03_jprb,3.9870e-03_jprb,2.3279e-03_jprb,2.4406e-02_jprb/)
kao( :, 2,10, 7) = (/&
&8.1237e-03_jprb,9.7061e-03_jprb,9.7375e-03_jprb,9.3388e-03_jprb,8.6591e-03_jprb,7.7505e-03_jprb,&
&6.6642e-03_jprb,5.3997e-03_jprb,3.3513e-03_jprb,2.6559e-02_jprb/)
kao( :, 3,10, 7) = (/&
&1.0643e-02_jprb,1.2680e-02_jprb,1.2767e-02_jprb,1.2292e-02_jprb,1.1416e-02_jprb,1.0235e-02_jprb,&
&8.8042e-03_jprb,7.1077e-03_jprb,4.7423e-03_jprb,2.9166e-02_jprb/)
kao( :, 4,10, 7) = (/&
&1.3745e-02_jprb,1.6327e-02_jprb,1.6432e-02_jprb,1.5803e-02_jprb,1.4680e-02_jprb,1.3196e-02_jprb,&
&1.1368e-02_jprb,9.1591e-03_jprb,6.2576e-03_jprb,3.2140e-02_jprb/)
kao( :, 5,10, 7) = (/&
&1.7515e-02_jprb,2.0726e-02_jprb,2.0778e-02_jprb,1.9936e-02_jprb,1.8503e-02_jprb,1.6679e-02_jprb,&
&1.4419e-02_jprb,1.1642e-02_jprb,7.9656e-03_jprb,3.5445e-02_jprb/)
kao( :, 1,11, 7) = (/&
&5.3549e-03_jprb,6.3816e-03_jprb,6.3660e-03_jprb,6.0840e-03_jprb,5.6156e-03_jprb,4.9825e-03_jprb,&
&4.2303e-03_jprb,3.3795e-03_jprb,1.9749e-03_jprb,3.2367e-02_jprb/)
kao( :, 2,11, 7) = (/&
&7.2013e-03_jprb,8.5604e-03_jprb,8.5532e-03_jprb,8.1763e-03_jprb,7.5421e-03_jprb,6.6997e-03_jprb,&
&5.7065e-03_jprb,4.5729e-03_jprb,2.8632e-03_jprb,3.5196e-02_jprb/)
kao( :, 3,11, 7) = (/&
&9.5022e-03_jprb,1.1202e-02_jprb,1.1204e-02_jprb,1.0716e-02_jprb,9.9000e-03_jprb,8.8230e-03_jprb,&
&7.5394e-03_jprb,6.0331e-03_jprb,4.0236e-03_jprb,3.8638e-02_jprb/)
kao( :, 4,11, 7) = (/&
&1.2288e-02_jprb,1.4432e-02_jprb,1.4424e-02_jprb,1.3791e-02_jprb,1.2735e-02_jprb,1.1387e-02_jprb,&
&9.7608e-03_jprb,7.8103e-03_jprb,5.3234e-03_jprb,4.2507e-02_jprb/)
kao( :, 5,11, 7) = (/&
&1.5567e-02_jprb,1.8295e-02_jprb,1.8261e-02_jprb,1.7460e-02_jprb,1.6145e-02_jprb,1.4469e-02_jprb,&
&1.2448e-02_jprb,9.9477e-03_jprb,6.7800e-03_jprb,4.6703e-02_jprb/)
kao( :, 1,12, 7) = (/&
&4.6610e-03_jprb,5.5454e-03_jprb,5.5315e-03_jprb,5.2838e-03_jprb,4.8759e-03_jprb,4.3254e-03_jprb,&
&3.6583e-03_jprb,2.8821e-03_jprb,1.6681e-03_jprb,3.4347e-02_jprb/)
kao( :, 2,12, 7) = (/&
&6.3285e-03_jprb,7.4864e-03_jprb,7.4682e-03_jprb,7.1266e-03_jprb,6.5590e-03_jprb,5.8111e-03_jprb,&
&4.9232e-03_jprb,3.8901e-03_jprb,2.4263e-03_jprb,3.7723e-02_jprb/)
kao( :, 3,12, 7) = (/&
&8.4114e-03_jprb,9.8725e-03_jprb,9.8303e-03_jprb,9.3562e-03_jprb,8.6044e-03_jprb,7.6370e-03_jprb,&
&6.4946e-03_jprb,5.1447e-03_jprb,3.4144e-03_jprb,4.1645e-02_jprb/)
kao( :, 4,12, 7) = (/&
&1.0877e-02_jprb,1.2730e-02_jprb,1.2662e-02_jprb,1.2056e-02_jprb,1.1093e-02_jprb,9.8741e-03_jprb,&
&8.4352e-03_jprb,6.6865e-03_jprb,4.5146e-03_jprb,4.5836e-02_jprb/)
kao( :, 5,12, 7) = (/&
&1.3747e-02_jprb,1.6074e-02_jprb,1.5983e-02_jprb,1.5257e-02_jprb,1.4098e-02_jprb,1.2612e-02_jprb,&
&1.0799e-02_jprb,8.5347e-03_jprb,5.7461e-03_jprb,5.0295e-02_jprb/)
kao( :, 1,13, 7) = (/&
&4.0079e-03_jprb,4.7560e-03_jprb,4.7417e-03_jprb,4.5251e-03_jprb,4.1763e-03_jprb,3.7162e-03_jprb,&
&3.1488e-03_jprb,2.4610e-03_jprb,1.3983e-03_jprb,2.9797e-02_jprb/)
kao( :, 2,13, 7) = (/&
&5.4975e-03_jprb,6.4791e-03_jprb,6.4467e-03_jprb,6.1399e-03_jprb,5.6502e-03_jprb,5.0140e-03_jprb,&
&4.2451e-03_jprb,3.3175e-03_jprb,2.0465e-03_jprb,3.3074e-02_jprb/)
kao( :, 3,13, 7) = (/&
&7.3173e-03_jprb,8.5913e-03_jprb,8.5377e-03_jprb,8.1192e-03_jprb,7.4539e-03_jprb,6.6075e-03_jprb,&
&5.6063e-03_jprb,4.3940e-03_jprb,2.8772e-03_jprb,3.6709e-02_jprb/)
kao( :, 4,13, 7) = (/&
&9.4743e-03_jprb,1.1090e-02_jprb,1.1002e-02_jprb,1.0468e-02_jprb,9.6356e-03_jprb,8.5792e-03_jprb,&
&7.2993e-03_jprb,5.7314e-03_jprb,3.8025e-03_jprb,4.0547e-02_jprb/)
kao( :, 5,13, 7) = (/&
&1.2013e-02_jprb,1.3994e-02_jprb,1.3879e-02_jprb,1.3228e-02_jprb,1.2234e-02_jprb,1.0964e-02_jprb,&
&9.3662e-03_jprb,7.3363e-03_jprb,4.8412e-03_jprb,4.4593e-02_jprb/)
kao( :, 1, 1, 8) = (/&
&1.6043e-01_jprb,1.5955e-01_jprb,1.5744e-01_jprb,1.5203e-01_jprb,1.4391e-01_jprb,1.3266e-01_jprb,&
&1.1826e-01_jprb,1.0647e-01_jprb,1.0371e-01_jprb,1.0144e-01_jprb/)
kao( :, 2, 1, 8) = (/&
&1.9219e-01_jprb,1.9200e-01_jprb,1.8944e-01_jprb,1.8309e-01_jprb,1.7324e-01_jprb,1.6054e-01_jprb,&
&1.4443e-01_jprb,1.3095e-01_jprb,1.2672e-01_jprb,1.2410e-01_jprb/)
kao( :, 3, 1, 8) = (/&
&2.2629e-01_jprb,2.2700e-01_jprb,2.2424e-01_jprb,2.1719e-01_jprb,2.0625e-01_jprb,1.9280e-01_jprb,&
&1.7410e-01_jprb,1.5851e-01_jprb,1.5238e-01_jprb,1.4924e-01_jprb/)
kao( :, 4, 1, 8) = (/&
&2.6302e-01_jprb,2.6487e-01_jprb,2.6214e-01_jprb,2.5470e-01_jprb,2.4371e-01_jprb,2.2882e-01_jprb,&
&2.0692e-01_jprb,1.8914e-01_jprb,1.8098e-01_jprb,1.7748e-01_jprb/)
kao( :, 5, 1, 8) = (/&
&3.0195e-01_jprb,3.0538e-01_jprb,3.0299e-01_jprb,2.9584e-01_jprb,2.8471e-01_jprb,2.6793e-01_jprb,&
&2.4285e-01_jprb,2.2301e-01_jprb,2.1336e-01_jprb,2.0952e-01_jprb/)
kao( :, 1, 2, 8) = (/&
&1.3846e-01_jprb,1.4022e-01_jprb,1.4003e-01_jprb,1.3582e-01_jprb,1.2900e-01_jprb,1.1965e-01_jprb,&
&1.0668e-01_jprb,9.1059e-02_jprb,8.5585e-02_jprb,8.1636e-02_jprb/)
kao( :, 2, 2, 8) = (/&
&1.6715e-01_jprb,1.6985e-01_jprb,1.6971e-01_jprb,1.6484e-01_jprb,1.5668e-01_jprb,1.4564e-01_jprb,&
&1.3093e-01_jprb,1.1285e-01_jprb,1.0555e-01_jprb,1.0079e-01_jprb/)
kao( :, 3, 2, 8) = (/&
&1.9803e-01_jprb,2.0244e-01_jprb,2.0211e-01_jprb,1.9690e-01_jprb,1.8801e-01_jprb,1.7558e-01_jprb,&
&1.5851e-01_jprb,1.3719e-01_jprb,1.2761e-01_jprb,1.2193e-01_jprb/)
kao( :, 4, 2, 8) = (/&
&2.3133e-01_jprb,2.3777e-01_jprb,2.3782e-01_jprb,2.3254e-01_jprb,2.2351e-01_jprb,2.0946e-01_jprb,&
&1.8890e-01_jprb,1.6397e-01_jprb,1.5196e-01_jprb,1.4557e-01_jprb/)
kao( :, 5, 2, 8) = (/&
&2.6711e-01_jprb,2.7542e-01_jprb,2.7668e-01_jprb,2.7185e-01_jprb,2.6232e-01_jprb,2.4621e-01_jprb,&
&2.2197e-01_jprb,1.9371e-01_jprb,1.7953e-01_jprb,1.7231e-01_jprb/)
kao( :, 1, 3, 8) = (/&
&1.1272e-01_jprb,1.1648e-01_jprb,1.1742e-01_jprb,1.1452e-01_jprb,1.0929e-01_jprb,1.0158e-01_jprb,&
&9.0376e-02_jprb,7.4637e-02_jprb,6.6429e-02_jprb,6.1506e-02_jprb/)
kao( :, 2, 3, 8) = (/&
&1.3749e-01_jprb,1.4273e-01_jprb,1.4386e-01_jprb,1.4052e-01_jprb,1.3417e-01_jprb,1.2510e-01_jprb,&
&1.1193e-01_jprb,9.3361e-02_jprb,8.2893e-02_jprb,7.6819e-02_jprb/)
kao( :, 3, 3, 8) = (/&
&1.6469e-01_jprb,1.7179e-01_jprb,1.7314e-01_jprb,1.6944e-01_jprb,1.6261e-01_jprb,1.5216e-01_jprb,&
&1.3674e-01_jprb,1.1431e-01_jprb,1.0110e-01_jprb,9.3702e-02_jprb/)
kao( :, 4, 3, 8) = (/&
&1.9422e-01_jprb,2.0356e-01_jprb,2.0555e-01_jprb,2.0203e-01_jprb,1.9491e-01_jprb,1.8285e-01_jprb,&
&1.6414e-01_jprb,1.3754e-01_jprb,1.2151e-01_jprb,1.1286e-01_jprb/)
kao( :, 5, 3, 8) = (/&
&2.2623e-01_jprb,2.3781e-01_jprb,2.4116e-01_jprb,2.3829e-01_jprb,2.3049e-01_jprb,2.1610e-01_jprb,&
&1.9397e-01_jprb,1.6347e-01_jprb,1.4442e-01_jprb,1.3449e-01_jprb/)
kao( :, 1, 4, 8) = (/&
&8.9051e-02_jprb,9.4148e-02_jprb,9.5376e-02_jprb,9.3490e-02_jprb,8.9564e-02_jprb,8.3123e-02_jprb,&
&7.3825e-02_jprb,6.0440e-02_jprb,5.0018e-02_jprb,4.5241e-02_jprb/)
kao( :, 2, 4, 8) = (/&
&1.0984e-01_jprb,1.1667e-01_jprb,1.1837e-01_jprb,1.1624e-01_jprb,1.1142e-01_jprb,1.0383e-01_jprb,&
&9.2686e-02_jprb,7.6384e-02_jprb,6.3307e-02_jprb,5.7158e-02_jprb/)
kao( :, 3, 4, 8) = (/&
&1.3321e-01_jprb,1.4188e-01_jprb,1.4403e-01_jprb,1.4173e-01_jprb,1.3641e-01_jprb,1.2779e-01_jprb,&
&1.1439e-01_jprb,9.4375e-02_jprb,7.8066e-02_jprb,7.0497e-02_jprb/)
kao( :, 4, 4, 8) = (/&
&1.5891e-01_jprb,1.6984e-01_jprb,1.7265e-01_jprb,1.7069e-01_jprb,1.6497e-01_jprb,1.5505e-01_jprb,&
&1.3862e-01_jprb,1.1439e-01_jprb,9.4690e-02_jprb,8.5635e-02_jprb/)
kao( :, 5, 4, 8) = (/&
&1.8690e-01_jprb,2.0031e-01_jprb,2.0459e-01_jprb,2.0306e-01_jprb,1.9673e-01_jprb,1.8463e-01_jprb,&
&1.6524e-01_jprb,1.3669e-01_jprb,1.1330e-01_jprb,1.0289e-01_jprb/)
kao( :, 1, 5, 8) = (/&
&6.9203e-02_jprb,7.4779e-02_jprb,7.5983e-02_jprb,7.4840e-02_jprb,7.1567e-02_jprb,6.6398e-02_jprb,&
&5.8865e-02_jprb,4.8193e-02_jprb,3.7188e-02_jprb,3.3169e-02_jprb/)
kao( :, 2, 5, 8) = (/&
&8.6430e-02_jprb,9.3817e-02_jprb,9.5587e-02_jprb,9.4322e-02_jprb,9.0456e-02_jprb,8.4124e-02_jprb,&
&7.5016e-02_jprb,6.1615e-02_jprb,4.7744e-02_jprb,4.2317e-02_jprb/)
kao( :, 3, 5, 8) = (/&
&1.0608e-01_jprb,1.1542e-01_jprb,1.1772e-01_jprb,1.1636e-01_jprb,1.1218e-01_jprb,1.0479e-01_jprb,&
&9.3784e-02_jprb,7.6996e-02_jprb,5.9545e-02_jprb,5.2656e-02_jprb/)
kao( :, 4, 5, 8) = (/&
&1.2808e-01_jprb,1.3974e-01_jprb,1.4262e-01_jprb,1.4148e-01_jprb,1.3703e-01_jprb,1.2845e-01_jprb,&
&1.1485e-01_jprb,9.4184e-02_jprb,7.2838e-02_jprb,6.4516e-02_jprb/)
kao( :, 5, 5, 8) = (/&
&1.5224e-01_jprb,1.6648e-01_jprb,1.7081e-01_jprb,1.6990e-01_jprb,1.6471e-01_jprb,1.5442e-01_jprb,&
&1.3821e-01_jprb,1.1347e-01_jprb,8.7956e-02_jprb,7.8195e-02_jprb/)
kao( :, 1, 6, 8) = (/&
&5.2711e-02_jprb,5.7994e-02_jprb,5.9096e-02_jprb,5.8090e-02_jprb,5.5430e-02_jprb,5.1354e-02_jprb,&
&4.5515e-02_jprb,3.7271e-02_jprb,2.7030e-02_jprb,2.5040e-02_jprb/)
kao( :, 2, 6, 8) = (/&
&6.6719e-02_jprb,7.3700e-02_jprb,7.5367e-02_jprb,7.4311e-02_jprb,7.1156e-02_jprb,6.6068e-02_jprb,&
&5.8853e-02_jprb,4.8369e-02_jprb,3.5301e-02_jprb,3.1744e-02_jprb/)
kao( :, 3, 6, 8) = (/&
&8.2863e-02_jprb,9.1758e-02_jprb,9.3947e-02_jprb,9.2979e-02_jprb,8.9500e-02_jprb,8.3468e-02_jprb,&
&7.4609e-02_jprb,6.1328e-02_jprb,4.4683e-02_jprb,3.9440e-02_jprb/)
kao( :, 4, 6, 8) = (/&
&1.0132e-01_jprb,1.1234e-01_jprb,1.1520e-01_jprb,1.1443e-01_jprb,1.1059e-01_jprb,1.0353e-01_jprb,&
&9.2489e-02_jprb,7.5833e-02_jprb,5.5318e-02_jprb,4.8406e-02_jprb/)
kao( :, 5, 6, 8) = (/&
&1.2185e-01_jprb,1.3538e-01_jprb,1.3945e-01_jprb,1.3895e-01_jprb,1.3433e-01_jprb,1.2572e-01_jprb,&
&1.1243e-01_jprb,9.2112e-02_jprb,6.7492e-02_jprb,5.8870e-02_jprb/)
kao( :, 1, 7, 8) = (/&
&3.9562e-02_jprb,4.4276e-02_jprb,4.5109e-02_jprb,4.4187e-02_jprb,4.2082e-02_jprb,3.8859e-02_jprb,&
&3.4454e-02_jprb,2.8224e-02_jprb,1.9384e-02_jprb,1.9321e-02_jprb/)
kao( :, 2, 7, 8) = (/&
&5.0879e-02_jprb,5.7055e-02_jprb,5.8399e-02_jprb,5.7367e-02_jprb,5.4802e-02_jprb,5.0789e-02_jprb,&
&4.5232e-02_jprb,3.7273e-02_jprb,2.5806e-02_jprb,2.4869e-02_jprb/)
kao( :, 3, 7, 8) = (/&
&6.4003e-02_jprb,7.1996e-02_jprb,7.3764e-02_jprb,7.2774e-02_jprb,6.9847e-02_jprb,6.5078e-02_jprb,&
&5.8125e-02_jprb,4.7947e-02_jprb,3.3205e-02_jprb,3.1173e-02_jprb/)
kao( :, 4, 7, 8) = (/&
&7.9173e-02_jprb,8.9239e-02_jprb,9.1617e-02_jprb,9.0750e-02_jprb,8.7396e-02_jprb,8.1720e-02_jprb,&
&7.3031e-02_jprb,6.0013e-02_jprb,4.1674e-02_jprb,3.8297e-02_jprb/)
kao( :, 5, 7, 8) = (/&
&9.6350e-02_jprb,1.0877e-01_jprb,1.1214e-01_jprb,1.1148e-01_jprb,1.0740e-01_jprb,1.0030e-01_jprb,&
&8.9645e-02_jprb,7.3703e-02_jprb,5.1413e-02_jprb,4.6217e-02_jprb/)
kao( :, 1, 8, 8) = (/&
&2.9374e-02_jprb,3.3358e-02_jprb,3.3910e-02_jprb,3.3176e-02_jprb,3.1488e-02_jprb,2.9002e-02_jprb,&
&2.5651e-02_jprb,2.0998e-02_jprb,1.3790e-02_jprb,1.7931e-02_jprb/)
kao( :, 2, 8, 8) = (/&
&3.8453e-02_jprb,4.3732e-02_jprb,4.4619e-02_jprb,4.3676e-02_jprb,4.1586e-02_jprb,3.8491e-02_jprb,&
&3.4234e-02_jprb,2.8236e-02_jprb,1.8826e-02_jprb,2.1882e-02_jprb/)
kao( :, 3, 8, 8) = (/&
&4.9075e-02_jprb,5.5936e-02_jprb,5.7139e-02_jprb,5.6138e-02_jprb,5.3708e-02_jprb,4.9953e-02_jprb,&
&4.4646e-02_jprb,3.6887e-02_jprb,2.4662e-02_jprb,2.6591e-02_jprb/)
kao( :, 4, 8, 8) = (/&
&6.1437e-02_jprb,7.0140e-02_jprb,7.1902e-02_jprb,7.0919e-02_jprb,6.8027e-02_jprb,6.3508e-02_jprb,&
&5.6793e-02_jprb,4.6822e-02_jprb,3.1405e-02_jprb,3.2120e-02_jprb/)
kao( :, 5, 8, 8) = (/&
&7.5648e-02_jprb,8.6455e-02_jprb,8.9059e-02_jprb,8.8138e-02_jprb,8.4612e-02_jprb,7.8826e-02_jprb,&
&7.0474e-02_jprb,5.8121e-02_jprb,3.9203e-02_jprb,3.8693e-02_jprb/)
kao( :, 1, 9, 8) = (/&
&2.1631e-02_jprb,2.4762e-02_jprb,2.5091e-02_jprb,2.4519e-02_jprb,2.3245e-02_jprb,2.1343e-02_jprb,&
&1.8810e-02_jprb,1.5373e-02_jprb,9.7641e-03_jprb,2.9273e-02_jprb/)
kao( :, 2, 9, 8) = (/&
&2.8813e-02_jprb,3.3084e-02_jprb,3.3621e-02_jprb,3.2842e-02_jprb,3.1201e-02_jprb,2.8769e-02_jprb,&
&2.5516e-02_jprb,2.1018e-02_jprb,1.3707e-02_jprb,3.3813e-02_jprb/)
kao( :, 3, 9, 8) = (/&
&3.7408e-02_jprb,4.2984e-02_jprb,4.3696e-02_jprb,4.2737e-02_jprb,4.0787e-02_jprb,3.7847e-02_jprb,&
&3.3777e-02_jprb,2.7905e-02_jprb,1.8311e-02_jprb,3.9010e-02_jprb/)
kao( :, 4, 9, 8) = (/&
&4.7502e-02_jprb,5.4598e-02_jprb,5.5650e-02_jprb,5.4654e-02_jprb,5.2292e-02_jprb,4.8701e-02_jprb,&
&4.3528e-02_jprb,3.5956e-02_jprb,2.3660e-02_jprb,4.4684e-02_jprb/)
kao( :, 5, 9, 8) = (/&
&5.9184e-02_jprb,6.8075e-02_jprb,6.9737e-02_jprb,6.8716e-02_jprb,6.5788e-02_jprb,6.1148e-02_jprb,&
&5.4664e-02_jprb,4.5216e-02_jprb,2.9878e-02_jprb,5.0829e-02_jprb/)
kao( :, 1,10, 8) = (/&
&1.6420e-02_jprb,1.8693e-02_jprb,1.8856e-02_jprb,1.8334e-02_jprb,1.7341e-02_jprb,1.5930e-02_jprb,&
&1.4013e-02_jprb,1.1403e-02_jprb,7.0640e-03_jprb,7.0532e-02_jprb/)
kao( :, 2,10, 8) = (/&
&2.2040e-02_jprb,2.5317e-02_jprb,2.5632e-02_jprb,2.5009e-02_jprb,2.3702e-02_jprb,2.1797e-02_jprb,&
&1.9273e-02_jprb,1.5810e-02_jprb,1.0204e-02_jprb,7.6827e-02_jprb/)
kao( :, 3,10, 8) = (/&
&2.8968e-02_jprb,3.3418e-02_jprb,3.3805e-02_jprb,3.2963e-02_jprb,3.1358e-02_jprb,2.9007e-02_jprb,&
&2.5810e-02_jprb,2.1266e-02_jprb,1.3886e-02_jprb,8.3691e-02_jprb/)
kao( :, 4,10, 8) = (/&
&3.7285e-02_jprb,4.3000e-02_jprb,4.3529e-02_jprb,4.2562e-02_jprb,4.0635e-02_jprb,3.7704e-02_jprb,&
&3.3617e-02_jprb,2.7781e-02_jprb,1.8177e-02_jprb,9.1457e-02_jprb/)
kao( :, 5,10, 8) = (/&
&4.7085e-02_jprb,5.4248e-02_jprb,5.5089e-02_jprb,5.4027e-02_jprb,5.1573e-02_jprb,4.7828e-02_jprb,&
&4.2671e-02_jprb,3.5326e-02_jprb,2.3198e-02_jprb,9.9898e-02_jprb/)
kao( :, 1,11, 8) = (/&
&1.4563e-02_jprb,1.6480e-02_jprb,1.6520e-02_jprb,1.5972e-02_jprb,1.5054e-02_jprb,1.3800e-02_jprb,&
&1.2151e-02_jprb,9.8498e-03_jprb,6.1529e-03_jprb,9.3025e-02_jprb/)
kao( :, 2,11, 8) = (/&
&1.9422e-02_jprb,2.2230e-02_jprb,2.2365e-02_jprb,2.1742e-02_jprb,2.0575e-02_jprb,1.8920e-02_jprb,&
&1.6702e-02_jprb,1.3649e-02_jprb,8.8593e-03_jprb,9.9753e-02_jprb/)
kao( :, 3,11, 8) = (/&
&2.5471e-02_jprb,2.9351e-02_jprb,2.9545e-02_jprb,2.8766e-02_jprb,2.7276e-02_jprb,2.5150e-02_jprb,&
&2.2319e-02_jprb,1.8330e-02_jprb,1.2044e-02_jprb,1.0708e-01_jprb/)
kao( :, 4,11, 8) = (/&
&3.2877e-02_jprb,3.7913e-02_jprb,3.8172e-02_jprb,3.7200e-02_jprb,3.5345e-02_jprb,3.2640e-02_jprb,&
&2.9010e-02_jprb,2.3912e-02_jprb,1.5750e-02_jprb,1.1551e-01_jprb/)
kao( :, 5,11, 8) = (/&
&4.1783e-02_jprb,4.8070e-02_jprb,4.8478e-02_jprb,4.7211e-02_jprb,4.4842e-02_jprb,4.1431e-02_jprb,&
&3.6822e-02_jprb,3.0426e-02_jprb,2.0117e-02_jprb,1.2493e-01_jprb/)
kao( :, 1,12, 8) = (/&
&1.2968e-02_jprb,1.4613e-02_jprb,1.4518e-02_jprb,1.3965e-02_jprb,1.3108e-02_jprb,1.1965e-02_jprb,&
&1.0480e-02_jprb,8.4661e-03_jprb,5.3281e-03_jprb,9.6224e-02_jprb/)
kao( :, 2,12, 8) = (/&
&1.7226e-02_jprb,1.9607e-02_jprb,1.9589e-02_jprb,1.8955e-02_jprb,1.7877e-02_jprb,1.6390e-02_jprb,&
&1.4401e-02_jprb,1.1714e-02_jprb,7.6423e-03_jprb,1.0281e-01_jprb/)
kao( :, 3,12, 8) = (/&
&2.2561e-02_jprb,2.5832e-02_jprb,2.5887e-02_jprb,2.5130e-02_jprb,2.3746e-02_jprb,2.1760e-02_jprb,&
&1.9184e-02_jprb,1.5701e-02_jprb,1.0359e-02_jprb,1.1042e-01_jprb/)
kao( :, 4,12, 8) = (/&
&2.9208e-02_jprb,3.3517e-02_jprb,3.3592e-02_jprb,3.2561e-02_jprb,3.0751e-02_jprb,2.8221e-02_jprb,&
&2.4906e-02_jprb,2.0465e-02_jprb,1.3564e-02_jprb,1.1943e-01_jprb/)
kao( :, 5,12, 8) = (/&
&3.7315e-02_jprb,4.2782e-02_jprb,4.2863e-02_jprb,4.1414e-02_jprb,3.9083e-02_jprb,3.5863e-02_jprb,&
&3.1661e-02_jprb,2.6087e-02_jprb,1.7348e-02_jprb,1.2941e-01_jprb/)
kao( :, 1,13, 8) = (/&
&1.1431e-02_jprb,1.2896e-02_jprb,1.2736e-02_jprb,1.2199e-02_jprb,1.1402e-02_jprb,1.0345e-02_jprb,&
&9.0003e-03_jprb,7.2287e-03_jprb,4.5824e-03_jprb,8.0519e-02_jprb/)
kao( :, 2,13, 8) = (/&
&1.5206e-02_jprb,1.7258e-02_jprb,1.7158e-02_jprb,1.6539e-02_jprb,1.5531e-02_jprb,1.4140e-02_jprb,&
&1.2338e-02_jprb,9.9830e-03_jprb,6.5464e-03_jprb,8.6863e-02_jprb/)
kao( :, 3,13, 8) = (/&
&1.9972e-02_jprb,2.2777e-02_jprb,2.2713e-02_jprb,2.1940e-02_jprb,2.0631e-02_jprb,1.8770e-02_jprb,&
&1.6415e-02_jprb,1.3364e-02_jprb,8.8693e-03_jprb,9.4420e-02_jprb/)
kao( :, 4,13, 8) = (/&
&2.5947e-02_jprb,2.9698e-02_jprb,2.9634e-02_jprb,2.8542e-02_jprb,2.6762e-02_jprb,2.4361e-02_jprb,&
&2.1338e-02_jprb,1.7424e-02_jprb,1.1633e-02_jprb,1.0329e-01_jprb/)
kao( :, 5,13, 8) = (/&
&3.3342e-02_jprb,3.8082e-02_jprb,3.7942e-02_jprb,3.6482e-02_jprb,3.4168e-02_jprb,3.1080e-02_jprb,&
&2.7224e-02_jprb,2.2266e-02_jprb,1.4896e-02_jprb,1.1299e-01_jprb/)
kao( :, 1, 1, 9) = (/&
&3.5399e-01_jprb,3.3121e-01_jprb,3.2486e-01_jprb,3.1880e-01_jprb,3.1822e-01_jprb,3.2442e-01_jprb,&
&3.3586e-01_jprb,3.4269e-01_jprb,3.3501e-01_jprb,3.3685e-01_jprb/)
kao( :, 2, 1, 9) = (/&
&4.2651e-01_jprb,4.0055e-01_jprb,3.9461e-01_jprb,3.8890e-01_jprb,3.8920e-01_jprb,3.9613e-01_jprb,&
&4.0802e-01_jprb,4.1445e-01_jprb,4.0640e-01_jprb,4.0867e-01_jprb/)
kao( :, 3, 1, 9) = (/&
&5.0539e-01_jprb,4.7639e-01_jprb,4.7090e-01_jprb,4.6538e-01_jprb,4.6724e-01_jprb,4.7472e-01_jprb,&
&4.8830e-01_jprb,4.9479e-01_jprb,4.8770e-01_jprb,4.9083e-01_jprb/)
kao( :, 4, 1, 9) = (/&
&5.9058e-01_jprb,5.5850e-01_jprb,5.5373e-01_jprb,5.4899e-01_jprb,5.5264e-01_jprb,5.6233e-01_jprb,&
&5.7911e-01_jprb,5.8486e-01_jprb,5.8020e-01_jprb,5.8417e-01_jprb/)
kao( :, 5, 1, 9) = (/&
&6.8144e-01_jprb,6.4618e-01_jprb,6.4280e-01_jprb,6.4028e-01_jprb,6.4693e-01_jprb,6.6026e-01_jprb,&
&6.7993e-01_jprb,6.8608e-01_jprb,6.8519e-01_jprb,6.9037e-01_jprb/)
kao( :, 1, 2, 9) = (/&
&3.4190e-01_jprb,3.2327e-01_jprb,3.1819e-01_jprb,3.0936e-01_jprb,3.0384e-01_jprb,3.0263e-01_jprb,&
&3.0472e-01_jprb,3.0754e-01_jprb,2.9901e-01_jprb,2.9844e-01_jprb/)
kao( :, 2, 2, 9) = (/&
&4.1493e-01_jprb,3.9389e-01_jprb,3.8895e-01_jprb,3.7913e-01_jprb,3.7292e-01_jprb,3.7132e-01_jprb,&
&3.7292e-01_jprb,3.7436e-01_jprb,3.6462e-01_jprb,3.6374e-01_jprb/)
kao( :, 3, 2, 9) = (/&
&4.9524e-01_jprb,4.7144e-01_jprb,4.6681e-01_jprb,4.5556e-01_jprb,4.4901e-01_jprb,4.4730e-01_jprb,&
&4.4941e-01_jprb,4.4980e-01_jprb,4.3975e-01_jprb,4.3888e-01_jprb/)
kao( :, 4, 2, 9) = (/&
&5.8258e-01_jprb,5.5620e-01_jprb,5.5130e-01_jprb,5.3974e-01_jprb,5.3286e-01_jprb,5.3221e-01_jprb,&
&5.3561e-01_jprb,5.3530e-01_jprb,5.2641e-01_jprb,5.2532e-01_jprb/)
kao( :, 5, 2, 9) = (/&
&6.7549e-01_jprb,6.4700e-01_jprb,6.4191e-01_jprb,6.3134e-01_jprb,6.2562e-01_jprb,6.2644e-01_jprb,&
&6.3141e-01_jprb,6.3148e-01_jprb,6.2520e-01_jprb,6.2423e-01_jprb/)
kao( :, 1, 3, 9) = (/&
&3.1322e-01_jprb,2.9905e-01_jprb,2.9475e-01_jprb,2.8714e-01_jprb,2.7777e-01_jprb,2.7056e-01_jprb,&
&2.6471e-01_jprb,2.6169e-01_jprb,2.5251e-01_jprb,2.4874e-01_jprb/)
kao( :, 2, 3, 9) = (/&
&3.8433e-01_jprb,3.6852e-01_jprb,3.6478e-01_jprb,3.5517e-01_jprb,3.4410e-01_jprb,3.3552e-01_jprb,&
&3.2763e-01_jprb,3.2198e-01_jprb,3.1065e-01_jprb,3.0619e-01_jprb/)
kao( :, 3, 3, 9) = (/&
&4.6279e-01_jprb,4.4538e-01_jprb,4.4243e-01_jprb,4.3036e-01_jprb,4.1731e-01_jprb,4.0795e-01_jprb,&
&3.9813e-01_jprb,3.9008e-01_jprb,3.7721e-01_jprb,3.7260e-01_jprb/)
kao( :, 4, 3, 9) = (/&
&5.4926e-01_jprb,5.2996e-01_jprb,5.2724e-01_jprb,5.1320e-01_jprb,4.9840e-01_jprb,4.8894e-01_jprb,&
&4.7837e-01_jprb,4.6780e-01_jprb,4.5401e-01_jprb,4.4835e-01_jprb/)
kao( :, 5, 3, 9) = (/&
&6.4194e-01_jprb,6.2152e-01_jprb,6.1862e-01_jprb,6.0327e-01_jprb,5.8767e-01_jprb,5.7864e-01_jprb,&
&5.6818e-01_jprb,5.5487e-01_jprb,5.4176e-01_jprb,5.3533e-01_jprb/)
kao( :, 1, 4, 9) = (/&
&2.7768e-01_jprb,2.6760e-01_jprb,2.6572e-01_jprb,2.5980e-01_jprb,2.4896e-01_jprb,2.3795e-01_jprb,&
&2.2584e-01_jprb,2.1553e-01_jprb,2.0567e-01_jprb,1.9994e-01_jprb/)
kao( :, 2, 4, 9) = (/&
&3.4628e-01_jprb,3.3518e-01_jprb,3.3312e-01_jprb,3.2573e-01_jprb,3.1238e-01_jprb,2.9848e-01_jprb,&
&2.8332e-01_jprb,2.6934e-01_jprb,2.5641e-01_jprb,2.4969e-01_jprb/)
kao( :, 3, 4, 9) = (/&
&4.2166e-01_jprb,4.1018e-01_jprb,4.0846e-01_jprb,3.9896e-01_jprb,3.8288e-01_jprb,3.6617e-01_jprb,&
&3.4804e-01_jprb,3.3049e-01_jprb,3.1485e-01_jprb,3.0688e-01_jprb/)
kao( :, 4, 4, 9) = (/&
&5.0480e-01_jprb,4.9294e-01_jprb,4.9184e-01_jprb,4.7995e-01_jprb,4.6126e-01_jprb,4.4207e-01_jprb,&
&4.2165e-01_jprb,4.0000e-01_jprb,3.8208e-01_jprb,3.7264e-01_jprb/)
kao( :, 5, 4, 9) = (/&
&5.9516e-01_jprb,5.8326e-01_jprb,5.8244e-01_jprb,5.6852e-01_jprb,5.4774e-01_jprb,5.2760e-01_jprb,&
&5.0410e-01_jprb,4.7792e-01_jprb,4.5860e-01_jprb,4.4782e-01_jprb/)
kao( :, 1, 5, 9) = (/&
&2.4131e-01_jprb,2.3501e-01_jprb,2.3520e-01_jprb,2.3089e-01_jprb,2.2183e-01_jprb,2.0721e-01_jprb,&
&1.9087e-01_jprb,1.7544e-01_jprb,1.6409e-01_jprb,1.5817e-01_jprb/)
kao( :, 2, 5, 9) = (/&
&3.0553e-01_jprb,2.9936e-01_jprb,2.9956e-01_jprb,2.9368e-01_jprb,2.8148e-01_jprb,2.6374e-01_jprb,&
&2.4318e-01_jprb,2.2281e-01_jprb,2.0743e-01_jprb,2.0014e-01_jprb/)
kao( :, 3, 5, 9) = (/&
&3.7703e-01_jprb,3.7157e-01_jprb,3.7167e-01_jprb,3.6419e-01_jprb,3.4859e-01_jprb,3.2739e-01_jprb,&
&3.0264e-01_jprb,2.7688e-01_jprb,2.5755e-01_jprb,2.4828e-01_jprb/)
kao( :, 4, 5, 9) = (/&
&4.5610e-01_jprb,4.5131e-01_jprb,4.5213e-01_jprb,4.4247e-01_jprb,4.2387e-01_jprb,3.9882e-01_jprb,&
&3.7008e-01_jprb,3.3849e-01_jprb,3.1536e-01_jprb,3.0426e-01_jprb/)
kao( :, 5, 5, 9) = (/&
&5.4247e-01_jprb,5.3886e-01_jprb,5.4021e-01_jprb,5.2840e-01_jprb,5.0753e-01_jprb,4.7901e-01_jprb,&
&4.4567e-01_jprb,4.0809e-01_jprb,3.8163e-01_jprb,3.6881e-01_jprb/)
kao( :, 1, 6, 9) = (/&
&2.0298e-01_jprb,2.0025e-01_jprb,2.0213e-01_jprb,1.9982e-01_jprb,1.9212e-01_jprb,1.7691e-01_jprb,&
&1.5886e-01_jprb,1.4069e-01_jprb,1.2763e-01_jprb,1.2147e-01_jprb/)
kao( :, 2, 6, 9) = (/&
&2.6157e-01_jprb,2.5976e-01_jprb,2.6209e-01_jprb,2.5832e-01_jprb,2.4798e-01_jprb,2.2871e-01_jprb,&
&2.0577e-01_jprb,1.8197e-01_jprb,1.6416e-01_jprb,1.5634e-01_jprb/)
kao( :, 3, 6, 9) = (/&
&3.2801e-01_jprb,3.2761e-01_jprb,3.3023e-01_jprb,3.2484e-01_jprb,3.1114e-01_jprb,2.8803e-01_jprb,&
&2.5966e-01_jprb,2.2885e-01_jprb,2.0587e-01_jprb,1.9644e-01_jprb/)
kao( :, 4, 6, 9) = (/&
&4.0207e-01_jprb,4.0351e-01_jprb,4.0622e-01_jprb,3.9903e-01_jprb,3.8234e-01_jprb,3.5465e-01_jprb,&
&3.2062e-01_jprb,2.8289e-01_jprb,2.5440e-01_jprb,2.4312e-01_jprb/)
kao( :, 5, 6, 9) = (/&
&4.8336e-01_jprb,4.8697e-01_jprb,4.9003e-01_jprb,4.8114e-01_jprb,4.6185e-01_jprb,4.2928e-01_jprb,&
&3.8966e-01_jprb,3.4463e-01_jprb,3.1043e-01_jprb,2.9706e-01_jprb/)
kao( :, 1, 7, 9) = (/&
&1.6688e-01_jprb,1.6702e-01_jprb,1.7031e-01_jprb,1.6921e-01_jprb,1.6199e-01_jprb,1.4897e-01_jprb,&
&1.3092e-01_jprb,1.1133e-01_jprb,9.6760e-02_jprb,9.3718e-02_jprb/)
kao( :, 2, 7, 9) = (/&
&2.1882e-01_jprb,2.2087e-01_jprb,2.2486e-01_jprb,2.2286e-01_jprb,2.1335e-01_jprb,1.9615e-01_jprb,&
&1.7285e-01_jprb,1.4695e-01_jprb,1.2690e-01_jprb,1.2096e-01_jprb/)
kao( :, 3, 7, 9) = (/&
&2.7888e-01_jprb,2.8306e-01_jprb,2.8777e-01_jprb,2.8469e-01_jprb,2.7204e-01_jprb,2.5033e-01_jprb,&
&2.2122e-01_jprb,1.8786e-01_jprb,1.6161e-01_jprb,1.5296e-01_jprb/)
kao( :, 4, 7, 9) = (/&
&3.4680e-01_jprb,3.5385e-01_jprb,3.5881e-01_jprb,3.5420e-01_jprb,3.3854e-01_jprb,3.1188e-01_jprb,&
&2.7612e-01_jprb,2.3528e-01_jprb,2.0215e-01_jprb,1.9095e-01_jprb/)
kao( :, 5, 7, 9) = (/&
&4.2205e-01_jprb,4.3215e-01_jprb,4.3759e-01_jprb,4.3127e-01_jprb,4.1273e-01_jprb,3.8116e-01_jprb,&
&3.3879e-01_jprb,2.8948e-01_jprb,2.4886e-01_jprb,2.3560e-01_jprb/)
kao( :, 1, 8, 9) = (/&
&1.3459e-01_jprb,1.3692e-01_jprb,1.4080e-01_jprb,1.3971e-01_jprb,1.3347e-01_jprb,1.2262e-01_jprb,&
&1.0666e-01_jprb,8.7305e-02_jprb,7.1915e-02_jprb,8.0038e-02_jprb/)
kao( :, 2, 8, 9) = (/&
&1.7963e-01_jprb,1.8442e-01_jprb,1.8954e-01_jprb,1.8806e-01_jprb,1.7951e-01_jprb,1.6497e-01_jprb,&
&1.4377e-01_jprb,1.1758e-01_jprb,9.6206e-02_jprb,1.0094e-01_jprb/)
kao( :, 3, 8, 9) = (/&
&2.3266e-01_jprb,2.4033e-01_jprb,2.4672e-01_jprb,2.4454e-01_jprb,2.3290e-01_jprb,2.1424e-01_jprb,&
&1.8695e-01_jprb,1.5303e-01_jprb,1.2456e-01_jprb,1.2568e-01_jprb/)
kao( :, 4, 8, 9) = (/&
&2.9355e-01_jprb,3.0495e-01_jprb,3.1213e-01_jprb,3.0852e-01_jprb,2.9407e-01_jprb,2.7020e-01_jprb,&
&2.3654e-01_jprb,1.9451e-01_jprb,1.5796e-01_jprb,1.5516e-01_jprb/)
kao( :, 5, 8, 9) = (/&
&3.6186e-01_jprb,3.7725e-01_jprb,3.8522e-01_jprb,3.7996e-01_jprb,3.6242e-01_jprb,3.3355e-01_jprb,&
&2.9318e-01_jprb,2.4229e-01_jprb,1.9677e-01_jprb,1.8992e-01_jprb/)
kao( :, 1, 9, 9) = (/&
&1.0631e-01_jprb,1.0993e-01_jprb,1.1355e-01_jprb,1.1237e-01_jprb,1.0701e-01_jprb,9.8207e-02_jprb,&
&8.5182e-02_jprb,6.7755e-02_jprb,5.2331e-02_jprb,1.0492e-01_jprb/)
kao( :, 2, 9, 9) = (/&
&1.4454e-01_jprb,1.5090e-01_jprb,1.5590e-01_jprb,1.5444e-01_jprb,1.4727e-01_jprb,1.3526e-01_jprb,&
&1.1750e-01_jprb,9.3259e-02_jprb,7.1622e-02_jprb,1.2467e-01_jprb/)
kao( :, 3, 9, 9) = (/&
&1.9019e-01_jprb,2.0011e-01_jprb,2.0653e-01_jprb,2.0466e-01_jprb,1.9486e-01_jprb,1.7904e-01_jprb,&
&1.5563e-01_jprb,1.2364e-01_jprb,9.4415e-02_jprb,1.4740e-01_jprb/)
kao( :, 4, 9, 9) = (/&
&2.4347e-01_jprb,2.5775e-01_jprb,2.6549e-01_jprb,2.6241e-01_jprb,2.4987e-01_jprb,2.2949e-01_jprb,&
&1.9969e-01_jprb,1.5939e-01_jprb,1.2136e-01_jprb,1.7369e-01_jprb/)
kao( :, 5, 9, 9) = (/&
&3.0422e-01_jprb,3.2317e-01_jprb,3.3203e-01_jprb,3.2777e-01_jprb,3.1197e-01_jprb,2.8664e-01_jprb,&
&2.5051e-01_jprb,2.0084e-01_jprb,1.5296e-01_jprb,2.0398e-01_jprb/)
kao( :, 1,10, 9) = (/&
&8.4350e-02_jprb,8.8815e-02_jprb,9.2007e-02_jprb,9.0712e-02_jprb,8.6235e-02_jprb,7.8834e-02_jprb,&
&6.8251e-02_jprb,5.3494e-02_jprb,3.8569e-02_jprb,2.8448e-01_jprb/)
kao( :, 2,10, 9) = (/&
&1.1655e-01_jprb,1.2396e-01_jprb,1.2864e-01_jprb,1.2700e-01_jprb,1.2091e-01_jprb,1.1076e-01_jprb,&
&9.6175e-02_jprb,7.5206e-02_jprb,5.3741e-02_jprb,3.1183e-01_jprb/)
kao( :, 3,10, 9) = (/&
&1.5575e-01_jprb,1.6688e-01_jprb,1.7302e-01_jprb,1.7096e-01_jprb,1.6280e-01_jprb,1.4927e-01_jprb,&
&1.2964e-01_jprb,1.0128e-01_jprb,7.1998e-02_jprb,3.4035e-01_jprb/)
kao( :, 4,10, 9) = (/&
&2.0199e-01_jprb,2.1771e-01_jprb,2.2539e-01_jprb,2.2239e-01_jprb,2.1182e-01_jprb,1.9426e-01_jprb,&
&1.6870e-01_jprb,1.3220e-01_jprb,9.3820e-02_jprb,3.7022e-01_jprb/)
kao( :, 5,10, 9) = (/&
&2.5543e-01_jprb,2.7602e-01_jprb,2.8512e-01_jprb,2.8125e-01_jprb,2.6776e-01_jprb,2.4558e-01_jprb,&
&2.1379e-01_jprb,1.6843e-01_jprb,1.1967e-01_jprb,4.0133e-01_jprb/)
kao( :, 1,11, 9) = (/&
&7.7305e-02_jprb,8.3512e-02_jprb,8.6558e-02_jprb,8.5115e-02_jprb,8.0759e-02_jprb,7.3668e-02_jprb,&
&6.3729e-02_jprb,4.9798e-02_jprb,3.3279e-02_jprb,4.2331e-01_jprb/)
kao( :, 2,11, 9) = (/&
&1.0674e-01_jprb,1.1631e-01_jprb,1.2074e-01_jprb,1.1897e-01_jprb,1.1306e-01_jprb,1.0338e-01_jprb,&
&8.9693e-02_jprb,6.9947e-02_jprb,4.6392e-02_jprb,4.5759e-01_jprb/)
kao( :, 3,11, 9) = (/&
&1.4252e-01_jprb,1.5630e-01_jprb,1.6230e-01_jprb,1.5989e-01_jprb,1.5215e-01_jprb,1.3931e-01_jprb,&
&1.2082e-01_jprb,9.4229e-02_jprb,6.2207e-02_jprb,4.9301e-01_jprb/)
kao( :, 4,11, 9) = (/&
&1.8495e-01_jprb,2.0344e-01_jprb,2.1113e-01_jprb,2.0801e-01_jprb,1.9807e-01_jprb,1.8125e-01_jprb,&
&1.5734e-01_jprb,1.2303e-01_jprb,8.1307e-02_jprb,5.3012e-01_jprb/)
kao( :, 5,11, 9) = (/&
&2.3411e-01_jprb,2.5783e-01_jprb,2.6690e-01_jprb,2.6303e-01_jprb,2.5035e-01_jprb,2.2944e-01_jprb,&
&1.9943e-01_jprb,1.5658e-01_jprb,1.0397e-01_jprb,5.6789e-01_jprb/)
kao( :, 1,12, 9) = (/&
&7.0108e-02_jprb,7.7427e-02_jprb,8.0063e-02_jprb,7.8695e-02_jprb,7.4412e-02_jprb,6.7798e-02_jprb,&
&5.8710e-02_jprb,4.5826e-02_jprb,2.8701e-02_jprb,4.8793e-01_jprb/)
kao( :, 2,12, 9) = (/&
&9.6572e-02_jprb,1.0765e-01_jprb,1.1154e-01_jprb,1.0976e-01_jprb,1.0403e-01_jprb,9.5053e-02_jprb,&
&8.2414e-02_jprb,6.4355e-02_jprb,4.0085e-02_jprb,5.2480e-01_jprb/)
kao( :, 3,12, 9) = (/&
&1.2890e-01_jprb,1.4436e-01_jprb,1.4960e-01_jprb,1.4739e-01_jprb,1.3992e-01_jprb,1.2801e-01_jprb,&
&1.1096e-01_jprb,8.6644e-02_jprb,5.3975e-02_jprb,5.6251e-01_jprb/)
kao( :, 4,12, 9) = (/&
&1.6737e-01_jprb,1.8778e-01_jprb,1.9430e-01_jprb,1.9165e-01_jprb,1.8208e-01_jprb,1.6659e-01_jprb,&
&1.4450e-01_jprb,1.1307e-01_jprb,7.0696e-02_jprb,6.0183e-01_jprb/)
kao( :, 5,12, 9) = (/&
&2.1186e-01_jprb,2.3792e-01_jprb,2.4587e-01_jprb,2.4233e-01_jprb,2.3021e-01_jprb,2.1086e-01_jprb,&
&1.8327e-01_jprb,1.4386e-01_jprb,9.0292e-02_jprb,6.4163e-01_jprb/)
kao( :, 1,13, 9) = (/&
&6.2750e-02_jprb,7.0678e-02_jprb,7.2850e-02_jprb,7.1358e-02_jprb,6.7441e-02_jprb,6.1433e-02_jprb,&
&5.3185e-02_jprb,4.1505e-02_jprb,2.4806e-02_jprb,4.4700e-01_jprb/)
kao( :, 2,13, 9) = (/&
&8.6316e-02_jprb,9.8143e-02_jprb,1.0134e-01_jprb,9.9447e-02_jprb,9.4210e-02_jprb,8.6014e-02_jprb,&
&7.4526e-02_jprb,5.8273e-02_jprb,3.4743e-02_jprb,4.8103e-01_jprb/)
kao( :, 3,13, 9) = (/&
&1.1529e-01_jprb,1.3156e-01_jprb,1.3579e-01_jprb,1.3346e-01_jprb,1.2666e-01_jprb,1.1573e-01_jprb,&
&1.0031e-01_jprb,7.8511e-02_jprb,4.6928e-02_jprb,5.1606e-01_jprb/)
kao( :, 4,13, 9) = (/&
&1.4976e-01_jprb,1.7104e-01_jprb,1.7643e-01_jprb,1.7358e-01_jprb,1.6473e-01_jprb,1.5058e-01_jprb,&
&1.3067e-01_jprb,1.0249e-01_jprb,6.1551e-02_jprb,5.5224e-01_jprb/)
kao( :, 5,13, 9) = (/&
&1.8964e-01_jprb,2.1656e-01_jprb,2.2339e-01_jprb,2.1970e-01_jprb,2.0856e-01_jprb,1.9074e-01_jprb,&
&1.6575e-01_jprb,1.3031e-01_jprb,7.8382e-02_jprb,5.8913e-01_jprb/)
kao( :, 1, 1,10) = (/&
&6.1867e-01_jprb,5.7630e-01_jprb,6.0305e-01_jprb,6.9456e-01_jprb,7.7261e-01_jprb,8.1005e-01_jprb,&
&8.2424e-01_jprb,7.8487e-01_jprb,7.9716e-01_jprb,8.1097e-01_jprb/)
kao( :, 2, 1,10) = (/&
&7.5538e-01_jprb,7.0706e-01_jprb,7.4825e-01_jprb,8.6573e-01_jprb,9.5133e-01_jprb,9.9496e-01_jprb,&
&1.0144e+00_jprb,9.4349e-01_jprb,9.7510e-01_jprb,9.8557e-01_jprb/)
kao( :, 3, 1,10) = (/&
&9.0753e-01_jprb,8.5431e-01_jprb,9.0954e-01_jprb,1.0504e+00_jprb,1.1439e+00_jprb,1.1961e+00_jprb,&
&1.2138e+00_jprb,1.1038e+00_jprb,1.1635e+00_jprb,1.1729e+00_jprb/)
kao( :, 4, 1,10) = (/&
&1.0717e+00_jprb,1.0134e+00_jprb,1.0876e+00_jprb,1.2471e+00_jprb,1.3505e+00_jprb,1.4049e+00_jprb,&
&1.4219e+00_jprb,1.2915e+00_jprb,1.3878e+00_jprb,1.3991e+00_jprb/)
kao( :, 5, 1,10) = (/&
&1.2427e+00_jprb,1.1827e+00_jprb,1.2833e+00_jprb,1.4504e+00_jprb,1.5635e+00_jprb,1.6298e+00_jprb,&
&1.6597e+00_jprb,1.4857e+00_jprb,1.6414e+00_jprb,1.6460e+00_jprb/)
kao( :, 1, 2,10) = (/&
&6.4321e-01_jprb,5.8696e-01_jprb,5.8230e-01_jprb,6.5619e-01_jprb,7.1556e-01_jprb,7.4170e-01_jprb,&
&7.6071e-01_jprb,7.3912e-01_jprb,7.4532e-01_jprb,7.5850e-01_jprb/)
kao( :, 2, 2,10) = (/&
&7.8984e-01_jprb,7.2453e-01_jprb,7.3316e-01_jprb,8.2574e-01_jprb,8.9339e-01_jprb,9.2578e-01_jprb,&
&9.3666e-01_jprb,8.9172e-01_jprb,9.0627e-01_jprb,9.2412e-01_jprb/)
kao( :, 3, 2,10) = (/&
&9.4869e-01_jprb,8.7312e-01_jprb,8.9992e-01_jprb,1.0108e+00_jprb,1.0906e+00_jprb,1.1228e+00_jprb,&
&1.1184e+00_jprb,1.0532e+00_jprb,1.0816e+00_jprb,1.1050e+00_jprb/)
kao( :, 4, 2,10) = (/&
&1.1182e+00_jprb,1.0333e+00_jprb,1.0816e+00_jprb,1.2099e+00_jprb,1.2991e+00_jprb,1.3295e+00_jprb,&
&1.3183e+00_jprb,1.2305e+00_jprb,1.2865e+00_jprb,1.3109e+00_jprb/)
kao( :, 5, 2,10) = (/&
&1.2953e+00_jprb,1.2046e+00_jprb,1.2743e+00_jprb,1.4197e+00_jprb,1.5179e+00_jprb,1.5565e+00_jprb,&
&1.5463e+00_jprb,1.4061e+00_jprb,1.5050e+00_jprb,1.5282e+00_jprb/)
kao( :, 1, 3,10) = (/&
&6.2757e-01_jprb,5.7473e-01_jprb,5.5914e-01_jprb,5.8172e-01_jprb,6.2887e-01_jprb,6.5014e-01_jprb,&
&6.7802e-01_jprb,6.5904e-01_jprb,6.5934e-01_jprb,6.7295e-01_jprb/)
kao( :, 2, 3,10) = (/&
&7.8418e-01_jprb,7.1588e-01_jprb,7.0607e-01_jprb,7.4238e-01_jprb,8.0014e-01_jprb,8.1822e-01_jprb,&
&8.4016e-01_jprb,8.0936e-01_jprb,8.1484e-01_jprb,8.2805e-01_jprb/)
kao( :, 3, 3,10) = (/&
&9.6014e-01_jprb,8.7612e-01_jprb,8.6845e-01_jprb,9.2232e-01_jprb,9.9214e-01_jprb,9.9810e-01_jprb,&
&1.0104e+00_jprb,9.7306e-01_jprb,9.8869e-01_jprb,1.0030e+00_jprb/)
kao( :, 4, 3,10) = (/&
&1.1436e+00_jprb,1.0500e+00_jprb,1.0473e+00_jprb,1.1216e+00_jprb,1.1992e+00_jprb,1.1909e+00_jprb,&
&1.1979e+00_jprb,1.1493e+00_jprb,1.1843e+00_jprb,1.2028e+00_jprb/)
kao( :, 5, 3,10) = (/&
&1.3363e+00_jprb,1.2288e+00_jprb,1.2400e+00_jprb,1.3328e+00_jprb,1.4189e+00_jprb,1.4085e+00_jprb,&
&1.4054e+00_jprb,1.3326e+00_jprb,1.3952e+00_jprb,1.4190e+00_jprb/)
kao( :, 1, 4,10) = (/&
&6.0902e-01_jprb,5.5865e-01_jprb,5.2875e-01_jprb,5.1792e-01_jprb,5.4518e-01_jprb,5.6325e-01_jprb,&
&5.8877e-01_jprb,5.8387e-01_jprb,5.8206e-01_jprb,5.9308e-01_jprb/)
kao( :, 2, 4,10) = (/&
&7.6140e-01_jprb,6.9912e-01_jprb,6.7757e-01_jprb,6.6690e-01_jprb,7.0327e-01_jprb,7.2305e-01_jprb,&
&7.4172e-01_jprb,7.2030e-01_jprb,7.2068e-01_jprb,7.3161e-01_jprb/)
kao( :, 3, 4,10) = (/&
&9.4002e-01_jprb,8.6365e-01_jprb,8.4366e-01_jprb,8.3795e-01_jprb,8.8109e-01_jprb,8.9279e-01_jprb,&
&9.0652e-01_jprb,8.7018e-01_jprb,8.7595e-01_jprb,8.8773e-01_jprb/)
kao( :, 4, 4,10) = (/&
&1.1361e+00_jprb,1.0471e+00_jprb,1.0239e+00_jprb,1.0291e+00_jprb,1.0729e+00_jprb,1.0769e+00_jprb,&
&1.0898e+00_jprb,1.0370e+00_jprb,1.0554e+00_jprb,1.0680e+00_jprb/)
kao( :, 5, 4,10) = (/&
&1.3459e+00_jprb,1.2415e+00_jprb,1.2200e+00_jprb,1.2343e+00_jprb,1.2811e+00_jprb,1.2812e+00_jprb,&
&1.2941e+00_jprb,1.2225e+00_jprb,1.2598e+00_jprb,1.2702e+00_jprb/)
kao( :, 1, 5,10) = (/&
&5.7515e-01_jprb,5.3232e-01_jprb,5.0391e-01_jprb,4.7978e-01_jprb,4.6984e-01_jprb,4.8839e-01_jprb,&
&5.1587e-01_jprb,5.0590e-01_jprb,5.0049e-01_jprb,4.9518e-01_jprb/)
kao( :, 2, 5,10) = (/&
&7.3128e-01_jprb,6.7406e-01_jprb,6.4811e-01_jprb,6.2049e-01_jprb,6.1868e-01_jprb,6.3401e-01_jprb,&
&6.5439e-01_jprb,6.3488e-01_jprb,6.3015e-01_jprb,6.2410e-01_jprb/)
kao( :, 3, 5,10) = (/&
&9.0920e-01_jprb,8.3759e-01_jprb,8.1835e-01_jprb,7.8435e-01_jprb,7.8487e-01_jprb,7.9695e-01_jprb,&
&8.0516e-01_jprb,7.7727e-01_jprb,7.7504e-01_jprb,7.7636e-01_jprb/)
kao( :, 4, 5,10) = (/&
&1.1099e+00_jprb,1.0245e+00_jprb,1.0070e+00_jprb,9.7052e-01_jprb,9.6348e-01_jprb,9.7780e-01_jprb,&
&9.7649e-01_jprb,9.3660e-01_jprb,9.3973e-01_jprb,9.4451e-01_jprb/)
kao( :, 5, 5,10) = (/&
&1.3305e+00_jprb,1.2272e+00_jprb,1.2112e+00_jprb,1.1732e+00_jprb,1.1594e+00_jprb,1.1784e+00_jprb,&
&1.1704e+00_jprb,1.1112e+00_jprb,1.1263e+00_jprb,1.1272e+00_jprb/)
kao( :, 1, 6,10) = (/&
&5.3624e-01_jprb,4.9966e-01_jprb,4.7124e-01_jprb,4.4396e-01_jprb,4.1309e-01_jprb,4.1799e-01_jprb,&
&4.3204e-01_jprb,4.1689e-01_jprb,4.0796e-01_jprb,4.0296e-01_jprb/)
kao( :, 2, 6,10) = (/&
&6.9086e-01_jprb,6.4214e-01_jprb,6.1471e-01_jprb,5.8168e-01_jprb,5.4576e-01_jprb,5.5331e-01_jprb,&
&5.6106e-01_jprb,5.3207e-01_jprb,5.1983e-01_jprb,5.1381e-01_jprb/)
kao( :, 3, 6,10) = (/&
&8.6785e-01_jprb,8.0700e-01_jprb,7.8156e-01_jprb,7.4169e-01_jprb,7.0281e-01_jprb,7.0090e-01_jprb,&
&7.0317e-01_jprb,6.6880e-01_jprb,6.5685e-01_jprb,6.4884e-01_jprb/)
kao( :, 4, 6,10) = (/&
&1.0625e+00_jprb,9.9150e-01_jprb,9.7284e-01_jprb,9.2583e-01_jprb,8.7592e-01_jprb,8.6864e-01_jprb,&
&8.6733e-01_jprb,8.2238e-01_jprb,8.1245e-01_jprb,8.0011e-01_jprb/)
kao( :, 5, 6,10) = (/&
&1.2823e+00_jprb,1.1975e+00_jprb,1.1856e+00_jprb,1.1255e+00_jprb,1.0659e+00_jprb,1.0612e+00_jprb,&
&1.0498e+00_jprb,9.8546e-01_jprb,9.8371e-01_jprb,9.6751e-01_jprb/)
kao( :, 1, 7,10) = (/&
&4.8822e-01_jprb,4.5431e-01_jprb,4.2346e-01_jprb,3.9680e-01_jprb,3.7415e-01_jprb,3.5071e-01_jprb,&
&3.5118e-01_jprb,3.4152e-01_jprb,3.3119e-01_jprb,3.2558e-01_jprb/)
kao( :, 2, 7,10) = (/&
&6.4341e-01_jprb,5.9836e-01_jprb,5.6565e-01_jprb,5.3167e-01_jprb,5.0027e-01_jprb,4.7116e-01_jprb,&
&4.6350e-01_jprb,4.4353e-01_jprb,4.2884e-01_jprb,4.2493e-01_jprb/)
kao( :, 3, 7,10) = (/&
&8.2158e-01_jprb,7.6606e-01_jprb,7.3098e-01_jprb,6.8632e-01_jprb,6.4732e-01_jprb,6.1167e-01_jprb,&
&5.9535e-01_jprb,5.6548e-01_jprb,5.4739e-01_jprb,5.4288e-01_jprb/)
kao( :, 4, 7,10) = (/&
&1.0179e+00_jprb,9.5156e-01_jprb,9.1785e-01_jprb,8.6567e-01_jprb,8.1404e-01_jprb,7.7261e-01_jprb,&
&7.5332e-01_jprb,7.0277e-01_jprb,6.8164e-01_jprb,6.6834e-01_jprb/)
kao( :, 5, 7,10) = (/&
&1.2332e+00_jprb,1.1568e+00_jprb,1.1270e+00_jprb,1.0643e+00_jprb,1.0019e+00_jprb,9.5490e-01_jprb,&
&9.2760e-01_jprb,8.5293e-01_jprb,8.3234e-01_jprb,8.1269e-01_jprb/)
kao( :, 1, 8,10) = (/&
&4.2698e-01_jprb,3.9591e-01_jprb,3.6905e-01_jprb,3.5247e-01_jprb,3.3247e-01_jprb,3.0233e-01_jprb,&
&2.8539e-01_jprb,2.7613e-01_jprb,2.6380e-01_jprb,2.5566e-01_jprb/)
kao( :, 2, 8,10) = (/&
&5.7792e-01_jprb,5.3599e-01_jprb,5.0504e-01_jprb,4.7965e-01_jprb,4.5454e-01_jprb,4.1047e-01_jprb,&
&3.8401e-01_jprb,3.6795e-01_jprb,3.5022e-01_jprb,3.4085e-01_jprb/)
kao( :, 3, 8,10) = (/&
&7.5312e-01_jprb,7.0208e-01_jprb,6.6433e-01_jprb,6.2807e-01_jprb,5.9800e-01_jprb,5.3750e-01_jprb,&
&5.0237e-01_jprb,4.7916e-01_jprb,4.5629e-01_jprb,4.4355e-01_jprb/)
kao( :, 4, 8,10) = (/&
&9.4927e-01_jprb,8.8669e-01_jprb,8.4547e-01_jprb,8.0194e-01_jprb,7.5725e-01_jprb,6.9205e-01_jprb,&
&6.4511e-01_jprb,6.0026e-01_jprb,5.7127e-01_jprb,5.5530e-01_jprb/)
kao( :, 5, 8,10) = (/&
&1.1639e+00_jprb,1.0911e+00_jprb,1.0454e+00_jprb,9.9552e-01_jprb,9.4083e-01_jprb,8.6800e-01_jprb,&
&8.0258e-01_jprb,7.3309e-01_jprb,6.9987e-01_jprb,6.8251e-01_jprb/)
kao( :, 1, 9,10) = (/&
&3.5900e-01_jprb,3.3445e-01_jprb,3.1730e-01_jprb,3.0609e-01_jprb,2.8916e-01_jprb,2.6120e-01_jprb,&
&2.3361e-01_jprb,2.1576e-01_jprb,2.0240e-01_jprb,3.1625e-01_jprb/)
kao( :, 2, 9,10) = (/&
&4.9875e-01_jprb,4.6530e-01_jprb,4.4401e-01_jprb,4.2786e-01_jprb,4.0336e-01_jprb,3.6326e-01_jprb,&
&3.2063e-01_jprb,2.9583e-01_jprb,2.7549e-01_jprb,3.9596e-01_jprb/)
kao( :, 3, 9,10) = (/&
&6.6489e-01_jprb,6.2199e-01_jprb,5.9558e-01_jprb,5.7021e-01_jprb,5.3875e-01_jprb,4.8355e-01_jprb,&
&4.2692e-01_jprb,3.9415e-01_jprb,3.6637e-01_jprb,4.8553e-01_jprb/)
kao( :, 4, 9,10) = (/&
&8.5340e-01_jprb,8.0059e-01_jprb,7.6830e-01_jprb,7.3710e-01_jprb,6.9306e-01_jprb,6.2454e-01_jprb,&
&5.5697e-01_jprb,5.0419e-01_jprb,4.6742e-01_jprb,5.7732e-01_jprb/)
kao( :, 5, 9,10) = (/&
&1.0646e+00_jprb,1.0028e+00_jprb,9.6218e-01_jprb,9.2180e-01_jprb,8.7012e-01_jprb,7.9202e-01_jprb,&
&6.9796e-01_jprb,6.2710e-01_jprb,5.8174e-01_jprb,6.5582e-01_jprb/)
kao( :, 1,10,10) = (/&
&3.0304e-01_jprb,2.8397e-01_jprb,2.7440e-01_jprb,2.6814e-01_jprb,2.5119e-01_jprb,2.2864e-01_jprb,&
&1.9712e-01_jprb,1.7067e-01_jprb,1.5439e-01_jprb,6.7616e-01_jprb/)
kao( :, 2,10,10) = (/&
&4.3039e-01_jprb,4.0463e-01_jprb,3.9135e-01_jprb,3.8116e-01_jprb,3.5873e-01_jprb,3.2509e-01_jprb,&
&2.7758e-01_jprb,2.3881e-01_jprb,2.1708e-01_jprb,7.4040e-01_jprb/)
kao( :, 3,10,10) = (/&
&5.8308e-01_jprb,5.5089e-01_jprb,5.3392e-01_jprb,5.1881e-01_jprb,4.8588e-01_jprb,4.3969e-01_jprb,&
&3.7659e-01_jprb,3.2471e-01_jprb,2.9357e-01_jprb,8.1103e-01_jprb/)
kao( :, 4,10,10) = (/&
&7.6072e-01_jprb,7.2098e-01_jprb,6.9990e-01_jprb,6.8047e-01_jprb,6.3309e-01_jprb,5.7383e-01_jprb,&
&4.9589e-01_jprb,4.2336e-01_jprb,3.8001e-01_jprb,8.9328e-01_jprb/)
kao( :, 5,10,10) = (/&
&9.6027e-01_jprb,9.1775e-01_jprb,8.8924e-01_jprb,8.5893e-01_jprb,8.0372e-01_jprb,7.2911e-01_jprb,&
&6.3058e-01_jprb,5.3610e-01_jprb,4.7858e-01_jprb,1.0024e+00_jprb/)
kao( :, 1,11,10) = (/&
&2.9953e-01_jprb,2.8331e-01_jprb,2.7926e-01_jprb,2.7321e-01_jprb,2.5698e-01_jprb,2.3318e-01_jprb,&
&1.9872e-01_jprb,1.5868e-01_jprb,1.3779e-01_jprb,1.1107e+00_jprb/)
kao( :, 2,11,10) = (/&
&4.2474e-01_jprb,4.0404e-01_jprb,3.9781e-01_jprb,3.8780e-01_jprb,3.6438e-01_jprb,3.3087e-01_jprb,&
&2.8103e-01_jprb,2.2386e-01_jprb,1.9434e-01_jprb,1.2029e+00_jprb/)
kao( :, 3,11,10) = (/&
&5.7442e-01_jprb,5.4924e-01_jprb,5.3961e-01_jprb,5.2667e-01_jprb,4.9259e-01_jprb,4.4653e-01_jprb,&
&3.8245e-01_jprb,3.0341e-01_jprb,2.6142e-01_jprb,1.2915e+00_jprb/)
kao( :, 4,11,10) = (/&
&7.4813e-01_jprb,7.2159e-01_jprb,7.0602e-01_jprb,6.8759e-01_jprb,6.4029e-01_jprb,5.8462e-01_jprb,&
&4.9983e-01_jprb,3.9642e-01_jprb,3.3795e-01_jprb,1.3704e+00_jprb/)
kao( :, 5,11,10) = (/&
&9.4256e-01_jprb,9.1581e-01_jprb,8.9684e-01_jprb,8.6915e-01_jprb,8.1278e-01_jprb,7.3805e-01_jprb,&
&6.3353e-01_jprb,5.0310e-01_jprb,4.2644e-01_jprb,1.4638e+00_jprb/)
kao( :, 1,12,10) = (/&
&2.9002e-01_jprb,2.7890e-01_jprb,2.8045e-01_jprb,2.7244e-01_jprb,2.5769e-01_jprb,2.3303e-01_jprb,&
&1.9729e-01_jprb,1.5119e-01_jprb,1.2251e-01_jprb,1.4129e+00_jprb/)
kao( :, 2,12,10) = (/&
&4.1026e-01_jprb,3.9679e-01_jprb,3.9830e-01_jprb,3.8652e-01_jprb,3.6420e-01_jprb,3.2847e-01_jprb,&
&2.8036e-01_jprb,2.1376e-01_jprb,1.7058e-01_jprb,1.5197e+00_jprb/)
kao( :, 3,12,10) = (/&
&5.5455e-01_jprb,5.4038e-01_jprb,5.4011e-01_jprb,5.2208e-01_jprb,4.9107e-01_jprb,4.4447e-01_jprb,&
&3.8090e-01_jprb,2.8868e-01_jprb,2.2751e-01_jprb,1.6225e+00_jprb/)
kao( :, 4,12,10) = (/&
&7.2014e-01_jprb,7.0695e-01_jprb,7.0633e-01_jprb,6.7903e-01_jprb,6.3973e-01_jprb,5.8007e-01_jprb,&
&4.9576e-01_jprb,3.7656e-01_jprb,2.9460e-01_jprb,1.7134e+00_jprb/)
kao( :, 5,12,10) = (/&
&9.0944e-01_jprb,8.9423e-01_jprb,8.9075e-01_jprb,8.5941e-01_jprb,8.0946e-01_jprb,7.3161e-01_jprb,&
&6.2652e-01_jprb,4.7880e-01_jprb,3.7532e-01_jprb,1.8224e+00_jprb/)
kao( :, 1,13,10) = (/&
&2.7340e-01_jprb,2.7076e-01_jprb,2.7526e-01_jprb,2.6770e-01_jprb,2.5179e-01_jprb,2.2675e-01_jprb,&
&1.9245e-01_jprb,1.4682e-01_jprb,1.0619e-01_jprb,1.4210e+00_jprb/)
kao( :, 2,13,10) = (/&
&3.8641e-01_jprb,3.8425e-01_jprb,3.8930e-01_jprb,3.7816e-01_jprb,3.5501e-01_jprb,3.1994e-01_jprb,&
&2.7350e-01_jprb,2.0671e-01_jprb,1.4761e-01_jprb,1.5251e+00_jprb/)
kao( :, 3,13,10) = (/&
&5.2089e-01_jprb,5.2113e-01_jprb,5.2738e-01_jprb,5.0973e-01_jprb,4.7827e-01_jprb,4.3346e-01_jprb,&
&3.6991e-01_jprb,2.7849e-01_jprb,1.9608e-01_jprb,1.6238e+00_jprb/)
kao( :, 4,13,10) = (/&
&6.7786e-01_jprb,6.7938e-01_jprb,6.8608e-01_jprb,6.6233e-01_jprb,6.2421e-01_jprb,5.6410e-01_jprb,&
&4.8140e-01_jprb,3.6259e-01_jprb,2.5473e-01_jprb,1.7230e+00_jprb/)
kao( :, 5,13,10) = (/&
&8.5711e-01_jprb,8.6068e-01_jprb,8.6472e-01_jprb,8.3617e-01_jprb,7.8602e-01_jprb,7.1217e-01_jprb,&
&6.0760e-01_jprb,4.5966e-01_jprb,3.2905e-01_jprb,1.8345e+00_jprb/)
kao( :, 1, 1,11) = (/&
&9.4159e-01_jprb,8.6910e-01_jprb,9.4939e-01_jprb,1.0309e+00_jprb,1.0971e+00_jprb,1.1597e+00_jprb,&
&1.1573e+00_jprb,1.0198e+00_jprb,1.1259e+00_jprb,1.1444e+00_jprb/)
kao( :, 2, 1,11) = (/&
&1.1816e+00_jprb,1.0903e+00_jprb,1.1681e+00_jprb,1.2491e+00_jprb,1.3524e+00_jprb,1.4252e+00_jprb,&
&1.4017e+00_jprb,1.2548e+00_jprb,1.3885e+00_jprb,1.4161e+00_jprb/)
kao( :, 3, 1,11) = (/&
&1.4457e+00_jprb,1.3338e+00_jprb,1.4098e+00_jprb,1.4943e+00_jprb,1.6257e+00_jprb,1.6966e+00_jprb,&
&1.6615e+00_jprb,1.5145e+00_jprb,1.6823e+00_jprb,1.7160e+00_jprb/)
kao( :, 4, 1,11) = (/&
&1.7261e+00_jprb,1.5936e+00_jprb,1.6676e+00_jprb,1.7640e+00_jprb,1.9034e+00_jprb,1.9816e+00_jprb,&
&1.9375e+00_jprb,1.7904e+00_jprb,1.9915e+00_jprb,2.0290e+00_jprb/)
kao( :, 5, 1,11) = (/&
&2.0222e+00_jprb,1.8664e+00_jprb,1.9402e+00_jprb,2.0588e+00_jprb,2.1886e+00_jprb,2.2719e+00_jprb,&
&2.2171e+00_jprb,2.1130e+00_jprb,2.3320e+00_jprb,2.3861e+00_jprb/)
kao( :, 1, 2,11) = (/&
&8.8414e-01_jprb,8.3470e-01_jprb,9.0122e-01_jprb,9.8198e-01_jprb,1.0450e+00_jprb,1.0902e+00_jprb,&
&1.0770e+00_jprb,9.4855e-01_jprb,1.0386e+00_jprb,1.0581e+00_jprb/)
kao( :, 2, 2,11) = (/&
&1.1143e+00_jprb,1.0550e+00_jprb,1.1151e+00_jprb,1.2176e+00_jprb,1.3030e+00_jprb,1.3437e+00_jprb,&
&1.3207e+00_jprb,1.1746e+00_jprb,1.3022e+00_jprb,1.3229e+00_jprb/)
kao( :, 3, 2,11) = (/&
&1.3705e+00_jprb,1.3001e+00_jprb,1.3557e+00_jprb,1.4797e+00_jprb,1.5774e+00_jprb,1.6133e+00_jprb,&
&1.5892e+00_jprb,1.4167e+00_jprb,1.5912e+00_jprb,1.6096e+00_jprb/)
kao( :, 4, 2,11) = (/&
&1.6529e+00_jprb,1.5667e+00_jprb,1.6252e+00_jprb,1.7602e+00_jprb,1.8638e+00_jprb,1.8995e+00_jprb,&
&1.8687e+00_jprb,1.6782e+00_jprb,1.8967e+00_jprb,1.9189e+00_jprb/)
kao( :, 5, 2,11) = (/&
&1.9543e+00_jprb,1.8492e+00_jprb,1.9198e+00_jprb,2.0574e+00_jprb,2.1583e+00_jprb,2.1944e+00_jprb,&
&2.1594e+00_jprb,1.9939e+00_jprb,2.2472e+00_jprb,2.2791e+00_jprb/)
kao( :, 1, 3,11) = (/&
&8.1869e-01_jprb,7.7023e-01_jprb,8.2109e-01_jprb,8.8336e-01_jprb,9.2805e-01_jprb,9.6128e-01_jprb,&
&9.4856e-01_jprb,8.5843e-01_jprb,9.1983e-01_jprb,9.4743e-01_jprb/)
kao( :, 2, 3,11) = (/&
&1.0389e+00_jprb,9.8615e-01_jprb,1.0345e+00_jprb,1.1256e+00_jprb,1.1752e+00_jprb,1.2020e+00_jprb,&
&1.1857e+00_jprb,1.0608e+00_jprb,1.1599e+00_jprb,1.1854e+00_jprb/)
kao( :, 3, 3,11) = (/&
&1.2826e+00_jprb,1.2250e+00_jprb,1.2747e+00_jprb,1.3968e+00_jprb,1.4383e+00_jprb,1.4671e+00_jprb,&
&1.4487e+00_jprb,1.2721e+00_jprb,1.4175e+00_jprb,1.4350e+00_jprb/)
kao( :, 4, 3,11) = (/&
&1.5564e+00_jprb,1.4865e+00_jprb,1.5447e+00_jprb,1.6881e+00_jprb,1.7201e+00_jprb,1.7557e+00_jprb,&
&1.7225e+00_jprb,1.5035e+00_jprb,1.6929e+00_jprb,1.7100e+00_jprb/)
kao( :, 5, 3,11) = (/&
&1.8539e+00_jprb,1.7704e+00_jprb,1.8370e+00_jprb,1.9889e+00_jprb,2.0183e+00_jprb,2.0511e+00_jprb,&
&2.0075e+00_jprb,1.7816e+00_jprb,2.0126e+00_jprb,2.0331e+00_jprb/)
kao( :, 1, 4,11) = (/&
&7.6497e-01_jprb,7.1076e-01_jprb,7.3295e-01_jprb,7.7006e-01_jprb,7.9642e-01_jprb,8.2481e-01_jprb,&
&8.2608e-01_jprb,7.5993e-01_jprb,8.0777e-01_jprb,8.2848e-01_jprb/)
kao( :, 2, 4,11) = (/&
&9.8352e-01_jprb,9.1857e-01_jprb,9.4611e-01_jprb,1.0073e+00_jprb,1.0282e+00_jprb,1.0497e+00_jprb,&
&1.0467e+00_jprb,9.5389e-01_jprb,1.0316e+00_jprb,1.0517e+00_jprb/)
kao( :, 3, 4,11) = (/&
&1.2292e+00_jprb,1.1512e+00_jprb,1.1846e+00_jprb,1.2709e+00_jprb,1.2824e+00_jprb,1.3065e+00_jprb,&
&1.2899e+00_jprb,1.1574e+00_jprb,1.2650e+00_jprb,1.2904e+00_jprb/)
kao( :, 4, 4,11) = (/&
&1.5012e+00_jprb,1.4093e+00_jprb,1.4510e+00_jprb,1.5565e+00_jprb,1.5637e+00_jprb,1.5870e+00_jprb,&
&1.5399e+00_jprb,1.3774e+00_jprb,1.5183e+00_jprb,1.5518e+00_jprb/)
kao( :, 5, 4,11) = (/&
&1.7934e+00_jprb,1.6886e+00_jprb,1.7434e+00_jprb,1.8620e+00_jprb,1.8667e+00_jprb,1.8779e+00_jprb,&
&1.8058e+00_jprb,1.6243e+00_jprb,1.8061e+00_jprb,1.8476e+00_jprb/)
kao( :, 1, 5,11) = (/&
&7.4548e-01_jprb,6.7814e-01_jprb,6.5476e-01_jprb,6.5948e-01_jprb,6.7934e-01_jprb,7.0788e-01_jprb,&
&7.1745e-01_jprb,6.7353e-01_jprb,7.0461e-01_jprb,7.3099e-01_jprb/)
kao( :, 2, 5,11) = (/&
&9.5969e-01_jprb,8.7825e-01_jprb,8.6017e-01_jprb,8.8155e-01_jprb,8.9239e-01_jprb,9.1670e-01_jprb,&
&9.2708e-01_jprb,8.5000e-01_jprb,9.0728e-01_jprb,9.3032e-01_jprb/)
kao( :, 3, 5,11) = (/&
&1.2058e+00_jprb,1.1099e+00_jprb,1.0960e+00_jprb,1.1330e+00_jprb,1.1377e+00_jprb,1.1558e+00_jprb,&
&1.1565e+00_jprb,1.0416e+00_jprb,1.1278e+00_jprb,1.1476e+00_jprb/)
kao( :, 4, 5,11) = (/&
&1.4810e+00_jprb,1.3671e+00_jprb,1.3639e+00_jprb,1.4095e+00_jprb,1.4162e+00_jprb,1.4159e+00_jprb,&
&1.3960e+00_jprb,1.2531e+00_jprb,1.3726e+00_jprb,1.3940e+00_jprb/)
kao( :, 5, 5,11) = (/&
&1.7798e+00_jprb,1.6471e+00_jprb,1.6584e+00_jprb,1.7100e+00_jprb,1.7173e+00_jprb,1.6890e+00_jprb,&
&1.6525e+00_jprb,1.4879e+00_jprb,1.6471e+00_jprb,1.6748e+00_jprb/)
kao( :, 1, 6,11) = (/&
&7.0565e-01_jprb,6.4191e-01_jprb,5.9174e-01_jprb,5.6344e-01_jprb,5.7413e-01_jprb,6.0216e-01_jprb,&
&6.1735e-01_jprb,5.8882e-01_jprb,6.1391e-01_jprb,6.2532e-01_jprb/)
kao( :, 2, 6,11) = (/&
&9.2376e-01_jprb,8.4064e-01_jprb,7.8353e-01_jprb,7.6203e-01_jprb,7.6995e-01_jprb,7.9470e-01_jprb,&
&8.0774e-01_jprb,7.5710e-01_jprb,7.9836e-01_jprb,8.1211e-01_jprb/)
kao( :, 3, 6,11) = (/&
&1.1735e+00_jprb,1.0693e+00_jprb,1.0163e+00_jprb,9.9460e-01_jprb,1.0005e+00_jprb,1.0222e+00_jprb,&
&1.0221e+00_jprb,9.3247e-01_jprb,9.9633e-01_jprb,1.0096e+00_jprb/)
kao( :, 4, 6,11) = (/&
&1.4611e+00_jprb,1.3294e+00_jprb,1.2780e+00_jprb,1.2558e+00_jprb,1.2632e+00_jprb,1.2674e+00_jprb,&
&1.2528e+00_jprb,1.1244e+00_jprb,1.2175e+00_jprb,1.2339e+00_jprb/)
kao( :, 5, 6,11) = (/&
&1.7762e+00_jprb,1.6171e+00_jprb,1.5645e+00_jprb,1.5462e+00_jprb,1.5483e+00_jprb,1.5299e+00_jprb,&
&1.5045e+00_jprb,1.3389e+00_jprb,1.4702e+00_jprb,1.4860e+00_jprb/)
kao( :, 1, 7,11) = (/&
&6.4397e-01_jprb,5.8848e-01_jprb,5.4164e-01_jprb,5.0438e-01_jprb,4.8904e-01_jprb,5.1205e-01_jprb,&
&5.2888e-01_jprb,4.9547e-01_jprb,5.1219e-01_jprb,5.1357e-01_jprb/)
kao( :, 2, 7,11) = (/&
&8.6014e-01_jprb,7.8541e-01_jprb,7.2738e-01_jprb,6.8109e-01_jprb,6.6447e-01_jprb,6.8735e-01_jprb,&
&7.0610e-01_jprb,6.4880e-01_jprb,6.8044e-01_jprb,6.7457e-01_jprb/)
kao( :, 3, 7,11) = (/&
&1.1052e+00_jprb,1.0089e+00_jprb,9.5053e-01_jprb,8.9433e-01_jprb,8.7834e-01_jprb,8.9637e-01_jprb,&
&9.0307e-01_jprb,8.1519e-01_jprb,8.6489e-01_jprb,8.5495e-01_jprb/)
kao( :, 4, 7,11) = (/&
&1.3894e+00_jprb,1.2661e+00_jprb,1.2117e+00_jprb,1.1436e+00_jprb,1.1239e+00_jprb,1.1302e+00_jprb,&
&1.1159e+00_jprb,1.0009e+00_jprb,1.0705e+00_jprb,1.0686e+00_jprb/)
kao( :, 5, 7,11) = (/&
&1.7112e+00_jprb,1.5598e+00_jprb,1.4999e+00_jprb,1.4251e+00_jprb,1.3915e+00_jprb,1.3874e+00_jprb,&
&1.3517e+00_jprb,1.2058e+00_jprb,1.3049e+00_jprb,1.3059e+00_jprb/)
kao( :, 1, 8,11) = (/&
&5.7879e-01_jprb,5.3274e-01_jprb,4.8973e-01_jprb,4.5630e-01_jprb,4.3269e-01_jprb,4.3284e-01_jprb,&
&4.3930e-01_jprb,4.0946e-01_jprb,4.1860e-01_jprb,4.1655e-01_jprb/)
kao( :, 2, 8,11) = (/&
&7.8913e-01_jprb,7.2614e-01_jprb,6.7155e-01_jprb,6.2927e-01_jprb,5.8919e-01_jprb,5.9377e-01_jprb,&
&5.9849e-01_jprb,5.4629e-01_jprb,5.6116e-01_jprb,5.5524e-01_jprb/)
kao( :, 3, 8,11) = (/&
&1.0315e+00_jprb,9.4848e-01_jprb,8.8923e-01_jprb,8.3184e-01_jprb,7.8312e-01_jprb,7.8922e-01_jprb,&
&7.8217e-01_jprb,6.9528e-01_jprb,7.2027e-01_jprb,7.1126e-01_jprb/)
kao( :, 4, 8,11) = (/&
&1.3089e+00_jprb,1.2030e+00_jprb,1.1421e+00_jprb,1.0710e+00_jprb,1.0184e+00_jprb,1.0078e+00_jprb,&
&9.8494e-01_jprb,8.6981e-01_jprb,9.1055e-01_jprb,9.0117e-01_jprb/)
kao( :, 5, 8,11) = (/&
&1.6233e+00_jprb,1.4930e+00_jprb,1.4334e+00_jprb,1.3459e+00_jprb,1.2797e+00_jprb,1.2512e+00_jprb,&
&1.2155e+00_jprb,1.0647e+00_jprb,1.1303e+00_jprb,1.1143e+00_jprb/)
kao( :, 1, 9,11) = (/&
&5.0872e-01_jprb,4.7000e-01_jprb,4.3189e-01_jprb,4.0703e-01_jprb,3.8347e-01_jprb,3.6637e-01_jprb,&
&3.5722e-01_jprb,3.3322e-01_jprb,3.3519e-01_jprb,4.9629e-01_jprb/)
kao( :, 2, 9,11) = (/&
&7.1032e-01_jprb,6.5670e-01_jprb,6.0796e-01_jprb,5.7264e-01_jprb,5.3661e-01_jprb,5.0689e-01_jprb,&
&4.9599e-01_jprb,4.5581e-01_jprb,4.5901e-01_jprb,6.1504e-01_jprb/)
kao( :, 3, 9,11) = (/&
&9.4725e-01_jprb,8.7492e-01_jprb,8.2052e-01_jprb,7.7219e-01_jprb,7.2220e-01_jprb,6.8379e-01_jprb,&
&6.5839e-01_jprb,5.9352e-01_jprb,5.9853e-01_jprb,7.1363e-01_jprb/)
kao( :, 4, 9,11) = (/&
&1.2212e+00_jprb,1.1285e+00_jprb,1.0680e+00_jprb,1.0029e+00_jprb,9.4208e-01_jprb,8.9072e-01_jprb,&
&8.4577e-01_jprb,7.5557e-01_jprb,7.6527e-01_jprb,8.0522e-01_jprb/)
kao( :, 5, 9,11) = (/&
&1.5263e+00_jprb,1.4126e+00_jprb,1.3499e+00_jprb,1.2718e+00_jprb,1.1921e+00_jprb,1.1220e+00_jprb,&
&1.0685e+00_jprb,9.3213e-01_jprb,9.5775e-01_jprb,9.4303e-01_jprb/)
kao( :, 1,10,11) = (/&
&4.4834e-01_jprb,4.1596e-01_jprb,3.8519e-01_jprb,3.6738e-01_jprb,3.4707e-01_jprb,3.1667e-01_jprb,&
&2.9935e-01_jprb,2.7308e-01_jprb,2.6993e-01_jprb,8.6202e-01_jprb/)
kao( :, 2,10,11) = (/&
&6.4018e-01_jprb,5.9476e-01_jprb,5.5452e-01_jprb,5.2742e-01_jprb,4.9444e-01_jprb,4.5039e-01_jprb,&
&4.1885e-01_jprb,3.8235e-01_jprb,3.7606e-01_jprb,1.0050e+00_jprb/)
kao( :, 3,10,11) = (/&
&8.6941e-01_jprb,8.0719e-01_jprb,7.6128e-01_jprb,7.2083e-01_jprb,6.7778e-01_jprb,6.1132e-01_jprb,&
&5.6485e-01_jprb,5.0977e-01_jprb,5.0052e-01_jprb,1.1879e+00_jprb/)
kao( :, 4,10,11) = (/&
&1.1374e+00_jprb,1.0578e+00_jprb,1.0048e+00_jprb,9.4669e-01_jprb,8.9485e-01_jprb,8.0262e-01_jprb,&
&7.3730e-01_jprb,6.6231e-01_jprb,6.5210e-01_jprb,1.3926e+00_jprb/)
kao( :, 5,10,11) = (/&
&1.4379e+00_jprb,1.3398e+00_jprb,1.2800e+00_jprb,1.2099e+00_jprb,1.1369e+00_jprb,1.0290e+00_jprb,&
&9.4239e-01_jprb,8.2621e-01_jprb,8.2033e-01_jprb,1.5987e+00_jprb/)
kao( :, 1,11,11) = (/&
&4.6437e-01_jprb,4.3195e-01_jprb,4.0640e-01_jprb,3.9083e-01_jprb,3.6759e-01_jprb,3.3095e-01_jprb,&
&2.9621e-01_jprb,2.6059e-01_jprb,2.4898e-01_jprb,1.4424e+00_jprb/)
kao( :, 2,11,11) = (/&
&6.5995e-01_jprb,6.1504e-01_jprb,5.8354e-01_jprb,5.6109e-01_jprb,5.2448e-01_jprb,4.7076e-01_jprb,&
&4.1510e-01_jprb,3.6345e-01_jprb,3.4571e-01_jprb,1.5679e+00_jprb/)
kao( :, 3,11,11) = (/&
&8.9627e-01_jprb,8.3726e-01_jprb,7.9810e-01_jprb,7.6313e-01_jprb,7.1561e-01_jprb,6.3926e-01_jprb,&
&5.5804e-01_jprb,4.8959e-01_jprb,4.6565e-01_jprb,1.7093e+00_jprb/)
kao( :, 4,11,11) = (/&
&1.1695e+00_jprb,1.0949e+00_jprb,1.0494e+00_jprb,9.9979e-01_jprb,9.3792e-01_jprb,8.3384e-01_jprb,&
&7.3304e-01_jprb,6.3611e-01_jprb,6.0648e-01_jprb,1.8687e+00_jprb/)
kao( :, 5,11,11) = (/&
&1.4756e+00_jprb,1.3865e+00_jprb,1.3306e+00_jprb,1.2700e+00_jprb,1.1860e+00_jprb,1.0648e+00_jprb,&
&9.3310e-01_jprb,7.9796e-01_jprb,7.6114e-01_jprb,2.0433e+00_jprb/)
kao( :, 1,12,11) = (/&
&4.6883e-01_jprb,4.3992e-01_jprb,4.2363e-01_jprb,4.0991e-01_jprb,3.8267e-01_jprb,3.4548e-01_jprb,&
&2.9549e-01_jprb,2.4606e-01_jprb,2.2406e-01_jprb,1.9161e+00_jprb/)
kao( :, 2,12,11) = (/&
&6.6619e-01_jprb,6.2643e-01_jprb,6.0394e-01_jprb,5.8416e-01_jprb,5.4621e-01_jprb,4.9020e-01_jprb,&
&4.1568e-01_jprb,3.4416e-01_jprb,3.1499e-01_jprb,2.0541e+00_jprb/)
kao( :, 3,12,11) = (/&
&9.0247e-01_jprb,8.5182e-01_jprb,8.2328e-01_jprb,7.9362e-01_jprb,7.4057e-01_jprb,6.6249e-01_jprb,&
&5.6167e-01_jprb,4.6621e-01_jprb,4.2576e-01_jprb,2.2005e+00_jprb/)
kao( :, 4,12,11) = (/&
&1.1754e+00_jprb,1.1141e+00_jprb,1.0763e+00_jprb,1.0393e+00_jprb,9.6314e-01_jprb,8.6349e-01_jprb,&
&7.3733e-01_jprb,6.0555e-01_jprb,5.5108e-01_jprb,2.3506e+00_jprb/)
kao( :, 5,12,11) = (/&
&1.4816e+00_jprb,1.4118e+00_jprb,1.3630e+00_jprb,1.3109e+00_jprb,1.2174e+00_jprb,1.0945e+00_jprb,&
&9.3470e-01_jprb,7.6327e-01_jprb,6.9458e-01_jprb,2.4817e+00_jprb/)
kao( :, 1,13,11) = (/&
&4.6581e-01_jprb,4.3907e-01_jprb,4.3125e-01_jprb,4.2012e-01_jprb,3.9142e-01_jprb,3.5288e-01_jprb,&
&2.9764e-01_jprb,2.3165e-01_jprb,2.0022e-01_jprb,2.0038e+00_jprb/)
kao( :, 2,13,11) = (/&
&6.6014e-01_jprb,6.2525e-01_jprb,6.1363e-01_jprb,5.9556e-01_jprb,5.5565e-01_jprb,4.9958e-01_jprb,&
&4.1989e-01_jprb,3.2603e-01_jprb,2.8204e-01_jprb,2.1506e+00_jprb/)
kao( :, 3,13,11) = (/&
&8.9162e-01_jprb,8.4866e-01_jprb,8.3231e-01_jprb,8.0747e-01_jprb,7.5010e-01_jprb,6.7287e-01_jprb,&
&5.6952e-01_jprb,4.4032e-01_jprb,3.7944e-01_jprb,2.2963e+00_jprb/)
kao( :, 4,13,11) = (/&
&1.1582e+00_jprb,1.1105e+00_jprb,1.0865e+00_jprb,1.0526e+00_jprb,9.7320e-01_jprb,8.7688e-01_jprb,&
&7.4169e-01_jprb,5.7254e-01_jprb,4.9090e-01_jprb,2.4264e+00_jprb/)
kao( :, 5,13,11) = (/&
&1.4557e+00_jprb,1.4054e+00_jprb,1.3756e+00_jprb,1.3241e+00_jprb,1.2283e+00_jprb,1.1037e+00_jprb,&
&9.3580e-01_jprb,7.2342e-01_jprb,6.1924e-01_jprb,2.5526e+00_jprb/)
kao( :, 1, 1,12) = (/&
&1.9899e+00_jprb,1.7416e+00_jprb,1.6557e+00_jprb,1.6626e+00_jprb,1.6292e+00_jprb,1.6186e+00_jprb,&
&1.5516e+00_jprb,1.5111e+00_jprb,1.6515e+00_jprb,1.6999e+00_jprb/)
kao( :, 2, 1,12) = (/&
&2.4167e+00_jprb,2.1150e+00_jprb,2.0285e+00_jprb,2.0154e+00_jprb,1.9446e+00_jprb,1.9378e+00_jprb,&
&1.8912e+00_jprb,1.8727e+00_jprb,2.0572e+00_jprb,2.1137e+00_jprb/)
kao( :, 3, 1,12) = (/&
&2.8678e+00_jprb,2.5098e+00_jprb,2.4251e+00_jprb,2.3840e+00_jprb,2.2898e+00_jprb,2.2925e+00_jprb,&
&2.2262e+00_jprb,2.2528e+00_jprb,2.4748e+00_jprb,2.5402e+00_jprb/)
kao( :, 4, 1,12) = (/&
&3.3334e+00_jprb,2.9172e+00_jprb,2.8340e+00_jprb,2.7633e+00_jprb,2.6747e+00_jprb,2.6799e+00_jprb,&
&2.5511e+00_jprb,2.6575e+00_jprb,2.9171e+00_jprb,2.9951e+00_jprb/)
kao( :, 5, 1,12) = (/&
&3.8070e+00_jprb,3.3317e+00_jprb,3.2431e+00_jprb,3.1434e+00_jprb,3.0844e+00_jprb,3.0767e+00_jprb,&
&2.8871e+00_jprb,3.0851e+00_jprb,3.3768e+00_jprb,3.4700e+00_jprb/)
kao( :, 1, 2,12) = (/&
&1.8020e+00_jprb,1.5771e+00_jprb,1.5658e+00_jprb,1.5529e+00_jprb,1.5678e+00_jprb,1.5609e+00_jprb,&
&1.5068e+00_jprb,1.4322e+00_jprb,1.5794e+00_jprb,1.6265e+00_jprb/)
kao( :, 2, 2,12) = (/&
&2.2244e+00_jprb,1.9467e+00_jprb,1.9376e+00_jprb,1.8878e+00_jprb,1.8907e+00_jprb,1.9156e+00_jprb,&
&1.8451e+00_jprb,1.7806e+00_jprb,1.9775e+00_jprb,2.0248e+00_jprb/)
kao( :, 3, 2,12) = (/&
&2.6777e+00_jprb,2.3433e+00_jprb,2.3279e+00_jprb,2.2466e+00_jprb,2.2434e+00_jprb,2.3061e+00_jprb,&
&2.1731e+00_jprb,2.1601e+00_jprb,2.3971e+00_jprb,2.4544e+00_jprb/)
kao( :, 4, 2,12) = (/&
&3.1544e+00_jprb,2.7605e+00_jprb,2.7326e+00_jprb,2.6320e+00_jprb,2.6342e+00_jprb,2.7059e+00_jprb,&
&2.5082e+00_jprb,2.5770e+00_jprb,2.8498e+00_jprb,2.9233e+00_jprb/)
kao( :, 5, 2,12) = (/&
&3.6408e+00_jprb,3.1864e+00_jprb,3.1392e+00_jprb,3.0321e+00_jprb,3.0540e+00_jprb,3.0950e+00_jprb,&
&2.8509e+00_jprb,3.0202e+00_jprb,3.3350e+00_jprb,3.4273e+00_jprb/)
kao( :, 1, 3,12) = (/&
&1.5649e+00_jprb,1.3732e+00_jprb,1.3826e+00_jprb,1.4020e+00_jprb,1.4318e+00_jprb,1.4266e+00_jprb,&
&1.3676e+00_jprb,1.2621e+00_jprb,1.4113e+00_jprb,1.4411e+00_jprb/)
kao( :, 2, 3,12) = (/&
&1.9750e+00_jprb,1.7323e+00_jprb,1.7348e+00_jprb,1.7212e+00_jprb,1.7704e+00_jprb,1.7925e+00_jprb,&
&1.6949e+00_jprb,1.5960e+00_jprb,1.7832e+00_jprb,1.8209e+00_jprb/)
kao( :, 3, 3,12) = (/&
&2.4222e+00_jprb,2.1256e+00_jprb,2.1157e+00_jprb,2.0688e+00_jprb,2.1464e+00_jprb,2.1852e+00_jprb,&
&2.0239e+00_jprb,1.9726e+00_jprb,2.1958e+00_jprb,2.2498e+00_jprb/)
kao( :, 4, 3,12) = (/&
&2.9000e+00_jprb,2.5481e+00_jprb,2.5206e+00_jprb,2.4500e+00_jprb,2.5548e+00_jprb,2.5853e+00_jprb,&
&2.3675e+00_jprb,2.3891e+00_jprb,2.6536e+00_jprb,2.7238e+00_jprb/)
kao( :, 5, 3,12) = (/&
&3.3931e+00_jprb,2.9865e+00_jprb,2.9396e+00_jprb,2.8624e+00_jprb,2.9741e+00_jprb,2.9949e+00_jprb,&
&2.7166e+00_jprb,2.8252e+00_jprb,3.1477e+00_jprb,3.2225e+00_jprb/)
kao( :, 1, 4,12) = (/&
&1.3280e+00_jprb,1.1786e+00_jprb,1.2003e+00_jprb,1.2384e+00_jprb,1.2621e+00_jprb,1.2623e+00_jprb,&
&1.2074e+00_jprb,1.0954e+00_jprb,1.2178e+00_jprb,1.2519e+00_jprb/)
kao( :, 2, 4,12) = (/&
&1.7214e+00_jprb,1.5303e+00_jprb,1.5296e+00_jprb,1.5581e+00_jprb,1.6045e+00_jprb,1.6160e+00_jprb,&
&1.5191e+00_jprb,1.4004e+00_jprb,1.5599e+00_jprb,1.5995e+00_jprb/)
kao( :, 3, 4,12) = (/&
&2.1531e+00_jprb,1.9184e+00_jprb,1.8960e+00_jprb,1.9073e+00_jprb,1.9909e+00_jprb,1.9956e+00_jprb,&
&1.8466e+00_jprb,1.7529e+00_jprb,1.9597e+00_jprb,2.0020e+00_jprb/)
kao( :, 4, 4,12) = (/&
&2.6259e+00_jprb,2.3421e+00_jprb,2.3006e+00_jprb,2.2911e+00_jprb,2.4098e+00_jprb,2.3862e+00_jprb,&
&2.2059e+00_jprb,2.1477e+00_jprb,2.4083e+00_jprb,2.4533e+00_jprb/)
kao( :, 5, 4,12) = (/&
&3.1312e+00_jprb,2.7951e+00_jprb,2.7289e+00_jprb,2.7098e+00_jprb,2.8440e+00_jprb,2.7955e+00_jprb,&
&2.5674e+00_jprb,2.5718e+00_jprb,2.8862e+00_jprb,2.9375e+00_jprb/)
kao( :, 1, 5,12) = (/&
&1.1161e+00_jprb,1.0073e+00_jprb,1.0475e+00_jprb,1.0704e+00_jprb,1.0924e+00_jprb,1.0965e+00_jprb,&
&1.0516e+00_jprb,9.4881e-01_jprb,1.0568e+00_jprb,1.0851e+00_jprb/)
kao( :, 2, 5,12) = (/&
&1.4852e+00_jprb,1.3439e+00_jprb,1.3607e+00_jprb,1.3892e+00_jprb,1.4288e+00_jprb,1.4308e+00_jprb,&
&1.3421e+00_jprb,1.2297e+00_jprb,1.3696e+00_jprb,1.4061e+00_jprb/)
kao( :, 3, 5,12) = (/&
&1.9072e+00_jprb,1.7266e+00_jprb,1.7136e+00_jprb,1.7495e+00_jprb,1.8113e+00_jprb,1.7903e+00_jprb,&
&1.6625e+00_jprb,1.5561e+00_jprb,1.7354e+00_jprb,1.7786e+00_jprb/)
kao( :, 4, 5,12) = (/&
&2.3754e+00_jprb,2.1543e+00_jprb,2.1024e+00_jprb,2.1512e+00_jprb,2.2237e+00_jprb,2.1735e+00_jprb,&
&2.0175e+00_jprb,1.9176e+00_jprb,2.1504e+00_jprb,2.1913e+00_jprb/)
kao( :, 5, 5,12) = (/&
&2.8766e+00_jprb,2.6154e+00_jprb,2.5264e+00_jprb,2.5896e+00_jprb,2.6493e+00_jprb,2.5886e+00_jprb,&
&2.3776e+00_jprb,2.3037e+00_jprb,2.5969e+00_jprb,2.6316e+00_jprb/)
kao( :, 1, 6,12) = (/&
&9.4985e-01_jprb,8.5933e-01_jprb,8.8898e-01_jprb,9.0232e-01_jprb,9.2354e-01_jprb,9.3066e-01_jprb,&
&9.0486e-01_jprb,8.1739e-01_jprb,9.0706e-01_jprb,9.3532e-01_jprb/)
kao( :, 2, 6,12) = (/&
&1.2834e+00_jprb,1.1690e+00_jprb,1.1908e+00_jprb,1.2086e+00_jprb,1.2415e+00_jprb,1.2368e+00_jprb,&
&1.1756e+00_jprb,1.0742e+00_jprb,1.1928e+00_jprb,1.2288e+00_jprb/)
kao( :, 3, 6,12) = (/&
&1.6799e+00_jprb,1.5378e+00_jprb,1.5358e+00_jprb,1.5673e+00_jprb,1.6035e+00_jprb,1.5726e+00_jprb,&
&1.4795e+00_jprb,1.3798e+00_jprb,1.5315e+00_jprb,1.5776e+00_jprb/)
kao( :, 4, 6,12) = (/&
&2.1238e+00_jprb,1.9529e+00_jprb,1.9235e+00_jprb,1.9758e+00_jprb,1.9970e+00_jprb,1.9496e+00_jprb,&
&1.8190e+00_jprb,1.7092e+00_jprb,1.9137e+00_jprb,1.9536e+00_jprb/)
kao( :, 5, 6,12) = (/&
&2.6095e+00_jprb,2.4084e+00_jprb,2.3509e+00_jprb,2.4228e+00_jprb,2.4180e+00_jprb,2.3618e+00_jprb,&
&2.1597e+00_jprb,2.0675e+00_jprb,2.3214e+00_jprb,2.3618e+00_jprb/)
kao( :, 1, 7,12) = (/&
&8.4812e-01_jprb,7.6841e-01_jprb,7.5326e-01_jprb,7.5035e-01_jprb,7.7118e-01_jprb,7.8872e-01_jprb,&
&7.7183e-01_jprb,7.0585e-01_jprb,7.7946e-01_jprb,8.0795e-01_jprb/)
kao( :, 2, 7,12) = (/&
&1.1465e+00_jprb,1.0445e+00_jprb,1.0290e+00_jprb,1.0370e+00_jprb,1.0598e+00_jprb,1.0683e+00_jprb,&
&1.0242e+00_jprb,9.3963e-01_jprb,1.0386e+00_jprb,1.0754e+00_jprb/)
kao( :, 3, 7,12) = (/&
&1.5193e+00_jprb,1.3894e+00_jprb,1.3649e+00_jprb,1.3853e+00_jprb,1.3982e+00_jprb,1.3813e+00_jprb,&
&1.3178e+00_jprb,1.2173e+00_jprb,1.3509e+00_jprb,1.3914e+00_jprb/)
kao( :, 4, 7,12) = (/&
&1.9518e+00_jprb,1.7884e+00_jprb,1.7513e+00_jprb,1.7865e+00_jprb,1.7771e+00_jprb,1.7370e+00_jprb,&
&1.6446e+00_jprb,1.5222e+00_jprb,1.7063e+00_jprb,1.7391e+00_jprb/)
kao( :, 5, 7,12) = (/&
&2.4259e+00_jprb,2.2279e+00_jprb,2.1794e+00_jprb,2.2290e+00_jprb,2.1962e+00_jprb,2.1299e+00_jprb,&
&1.9788e+00_jprb,1.8585e+00_jprb,2.0857e+00_jprb,2.1225e+00_jprb/)
kao( :, 1, 8,12) = (/&
&7.7841e-01_jprb,7.0711e-01_jprb,6.6522e-01_jprb,6.3606e-01_jprb,6.4760e-01_jprb,6.6713e-01_jprb,&
&6.6148e-01_jprb,6.0390e-01_jprb,6.6973e-01_jprb,6.8843e-01_jprb/)
kao( :, 2, 8,12) = (/&
&1.0658e+00_jprb,9.6636e-01_jprb,9.1583e-01_jprb,8.8699e-01_jprb,9.0848e-01_jprb,9.1965e-01_jprb,&
&8.9372e-01_jprb,8.1955e-01_jprb,9.1141e-01_jprb,9.3497e-01_jprb/)
kao( :, 3, 8,12) = (/&
&1.4137e+00_jprb,1.2836e+00_jprb,1.2307e+00_jprb,1.2115e+00_jprb,1.2232e+00_jprb,1.2116e+00_jprb,&
&1.1659e+00_jprb,1.0732e+00_jprb,1.1969e+00_jprb,1.2259e+00_jprb/)
kao( :, 4, 8,12) = (/&
&1.8330e+00_jprb,1.6670e+00_jprb,1.6047e+00_jprb,1.5956e+00_jprb,1.5811e+00_jprb,1.5515e+00_jprb,&
&1.4752e+00_jprb,1.3507e+00_jprb,1.5186e+00_jprb,1.5425e+00_jprb/)
kao( :, 5, 8,12) = (/&
&2.3049e+00_jprb,2.1036e+00_jprb,2.0278e+00_jprb,2.0220e+00_jprb,1.9855e+00_jprb,1.9308e+00_jprb,&
&1.8019e+00_jprb,1.6605e+00_jprb,1.8705e+00_jprb,1.8963e+00_jprb/)
kao( :, 1, 9,12) = (/&
&7.0912e-01_jprb,6.4469e-01_jprb,5.9363e-01_jprb,5.5627e-01_jprb,5.5384e-01_jprb,5.6186e-01_jprb,&
&5.5927e-01_jprb,5.0354e-01_jprb,5.6125e-01_jprb,7.4969e-01_jprb/)
kao( :, 2, 9,12) = (/&
&9.9527e-01_jprb,9.0550e-01_jprb,8.3442e-01_jprb,7.8264e-01_jprb,7.7752e-01_jprb,7.8969e-01_jprb,&
&7.7692e-01_jprb,6.9354e-01_jprb,7.7793e-01_jprb,8.7043e-01_jprb/)
kao( :, 3, 9,12) = (/&
&1.3412e+00_jprb,1.2190e+00_jprb,1.1268e+00_jprb,1.0743e+00_jprb,1.0606e+00_jprb,1.0614e+00_jprb,&
&1.0350e+00_jprb,9.2237e-01_jprb,1.0409e+00_jprb,1.0573e+00_jprb/)
kao( :, 4, 9,12) = (/&
&1.7493e+00_jprb,1.5874e+00_jprb,1.4863e+00_jprb,1.4310e+00_jprb,1.3986e+00_jprb,1.3843e+00_jprb,&
&1.3254e+00_jprb,1.1771e+00_jprb,1.3374e+00_jprb,1.3371e+00_jprb/)
kao( :, 5, 9,12) = (/&
&2.2176e+00_jprb,2.0127e+00_jprb,1.9126e+00_jprb,1.8371e+00_jprb,1.7903e+00_jprb,1.7504e+00_jprb,&
&1.6358e+00_jprb,1.4630e+00_jprb,1.6600e+00_jprb,1.6679e+00_jprb/)
kao( :, 1,10,12) = (/&
&6.5376e-01_jprb,5.9649e-01_jprb,5.4382e-01_jprb,5.0392e-01_jprb,4.9222e-01_jprb,4.9094e-01_jprb,&
&4.7672e-01_jprb,4.1966e-01_jprb,4.6921e-01_jprb,1.3769e+00_jprb/)
kao( :, 2,10,12) = (/&
&9.3800e-01_jprb,8.5670e-01_jprb,7.8367e-01_jprb,7.2595e-01_jprb,6.9805e-01_jprb,6.9533e-01_jprb,&
&6.7619e-01_jprb,5.9132e-01_jprb,6.6160e-01_jprb,1.6706e+00_jprb/)
kao( :, 3,10,12) = (/&
&1.2854e+00_jprb,1.1741e+00_jprb,1.0774e+00_jprb,1.0008e+00_jprb,9.5668e-01_jprb,9.5165e-01_jprb,&
&9.1656e-01_jprb,7.9224e-01_jprb,8.9510e-01_jprb,1.9785e+00_jprb/)
kao( :, 4,10,12) = (/&
&1.6921e+00_jprb,1.5448e+00_jprb,1.4301e+00_jprb,1.3361e+00_jprb,1.2735e+00_jprb,1.2587e+00_jprb,&
&1.1957e+00_jprb,1.0181e+00_jprb,1.1609e+00_jprb,2.2894e+00_jprb/)
kao( :, 5,10,12) = (/&
&2.1576e+00_jprb,1.9664e+00_jprb,1.8494e+00_jprb,1.7300e+00_jprb,1.6509e+00_jprb,1.6070e+00_jprb,&
&1.4973e+00_jprb,1.2816e+00_jprb,1.4648e+00_jprb,2.6067e+00_jprb/)
kao( :, 1,11,12) = (/&
&7.0952e-01_jprb,6.5053e-01_jprb,5.9316e-01_jprb,5.5146e-01_jprb,5.2180e-01_jprb,5.0652e-01_jprb,&
&4.7718e-01_jprb,4.1246e-01_jprb,4.5783e-01_jprb,2.0241e+00_jprb/)
kao( :, 2,11,12) = (/&
&1.0167e+00_jprb,9.3262e-01_jprb,8.5333e-01_jprb,7.9232e-01_jprb,7.4499e-01_jprb,7.1140e-01_jprb,&
&6.7465e-01_jprb,5.7859e-01_jprb,6.4613e-01_jprb,2.2912e+00_jprb/)
kao( :, 3,11,12) = (/&
&1.3886e+00_jprb,1.2732e+00_jprb,1.1736e+00_jprb,1.0906e+00_jprb,1.0139e+00_jprb,9.7034e-01_jprb,&
&9.1240e-01_jprb,7.7049e-01_jprb,8.6376e-01_jprb,2.6463e+00_jprb/)
kao( :, 4,11,12) = (/&
&1.8181e+00_jprb,1.6680e+00_jprb,1.5549e+00_jprb,1.4417e+00_jprb,1.3425e+00_jprb,1.2830e+00_jprb,&
&1.1836e+00_jprb,9.8857e-01_jprb,1.1129e+00_jprb,3.0263e+00_jprb/)
kao( :, 5,11,12) = (/&
&2.3057e+00_jprb,2.1146e+00_jprb,1.9950e+00_jprb,1.8508e+00_jprb,1.7289e+00_jprb,1.6307e+00_jprb,&
&1.4919e+00_jprb,1.2455e+00_jprb,1.4085e+00_jprb,3.4186e+00_jprb/)
kao( :, 1,12,12) = (/&
&7.5886e-01_jprb,6.9796e-01_jprb,6.3852e-01_jprb,5.9929e-01_jprb,5.5990e-01_jprb,5.1924e-01_jprb,&
&4.7840e-01_jprb,4.0341e-01_jprb,4.4154e-01_jprb,2.6087e+00_jprb/)
kao( :, 2,12,12) = (/&
&1.0851e+00_jprb,9.9770e-01_jprb,9.1673e-01_jprb,8.5899e-01_jprb,7.9809e-01_jprb,7.3287e-01_jprb,&
&6.7148e-01_jprb,5.6350e-01_jprb,6.1612e-01_jprb,2.8310e+00_jprb/)
kao( :, 3,12,12) = (/&
&1.4755e+00_jprb,1.3573e+00_jprb,1.2579e+00_jprb,1.1774e+00_jprb,1.0886e+00_jprb,9.9484e-01_jprb,&
&9.0354e-01_jprb,7.5007e-01_jprb,8.2214e-01_jprb,3.1388e+00_jprb/)
kao( :, 4,12,12) = (/&
&1.9253e+00_jprb,1.7711e+00_jprb,1.6604e+00_jprb,1.5471e+00_jprb,1.4336e+00_jprb,1.3051e+00_jprb,&
&1.1698e+00_jprb,9.7140e-01_jprb,1.0651e+00_jprb,3.4850e+00_jprb/)
kao( :, 5,12,12) = (/&
&2.4308e+00_jprb,2.2396e+00_jprb,2.1167e+00_jprb,1.9729e+00_jprb,1.8272e+00_jprb,1.6585e+00_jprb,&
&1.4809e+00_jprb,1.2177e+00_jprb,1.3448e+00_jprb,3.8825e+00_jprb/)
kao( :, 1,13,12) = (/&
&7.9229e-01_jprb,7.3221e-01_jprb,6.7737e-01_jprb,6.4130e-01_jprb,5.9847e-01_jprb,5.3580e-01_jprb,&
&4.7728e-01_jprb,3.9003e-01_jprb,4.1400e-01_jprb,2.7638e+00_jprb/)
kao( :, 2,13,12) = (/&
&1.1297e+00_jprb,1.0450e+00_jprb,9.7140e-01_jprb,9.1618e-01_jprb,8.5138e-01_jprb,7.6006e-01_jprb,&
&6.6619e-01_jprb,5.4383e-01_jprb,5.7638e-01_jprb,2.9703e+00_jprb/)
kao( :, 3,13,12) = (/&
&1.5310e+00_jprb,1.4169e+00_jprb,1.3280e+00_jprb,1.2470e+00_jprb,1.1584e+00_jprb,1.0272e+00_jprb,&
&8.9295e-01_jprb,7.3007e-01_jprb,7.7208e-01_jprb,3.2180e+00_jprb/)
kao( :, 4,13,12) = (/&
&1.9939e+00_jprb,1.8457e+00_jprb,1.7416e+00_jprb,1.6315e+00_jprb,1.5169e+00_jprb,1.3360e+00_jprb,&
&1.1634e+00_jprb,9.4900e-01_jprb,1.0058e+00_jprb,3.5288e+00_jprb/)
kao( :, 5,13,12) = (/&
&2.5079e+00_jprb,2.3287e+00_jprb,2.2043e+00_jprb,2.0691e+00_jprb,1.9162e+00_jprb,1.6967e+00_jprb,&
&1.4732e+00_jprb,1.1903e+00_jprb,1.2641e+00_jprb,3.8603e+00_jprb/)
kao( :, 1, 1,13) = (/&
&3.9649e+00_jprb,3.4696e+00_jprb,2.9742e+00_jprb,2.6893e+00_jprb,2.5814e+00_jprb,2.2539e+00_jprb,&
&1.9591e+00_jprb,2.1953e+00_jprb,2.3585e+00_jprb,2.4435e+00_jprb/)
kao( :, 2, 1,13) = (/&
&4.6934e+00_jprb,4.1070e+00_jprb,3.5206e+00_jprb,3.2425e+00_jprb,3.0762e+00_jprb,2.6670e+00_jprb,&
&2.3213e+00_jprb,2.6577e+00_jprb,2.8281e+00_jprb,2.9391e+00_jprb/)
kao( :, 3, 1,13) = (/&
&5.4309e+00_jprb,4.7524e+00_jprb,4.0738e+00_jprb,3.8211e+00_jprb,3.5699e+00_jprb,3.1013e+00_jprb,&
&2.7446e+00_jprb,3.1848e+00_jprb,3.3841e+00_jprb,3.5205e+00_jprb/)
kao( :, 4, 1,13) = (/&
&6.1708e+00_jprb,5.3997e+00_jprb,4.6331e+00_jprb,4.4110e+00_jprb,4.0650e+00_jprb,3.5506e+00_jprb,&
&3.2653e+00_jprb,3.7939e+00_jprb,4.0349e+00_jprb,4.1946e+00_jprb/)
kao( :, 5, 1,13) = (/&
&6.8879e+00_jprb,6.0273e+00_jprb,5.1873e+00_jprb,4.9821e+00_jprb,4.5559e+00_jprb,4.0078e+00_jprb,&
&3.8433e+00_jprb,4.4688e+00_jprb,4.7724e+00_jprb,4.9544e+00_jprb/)
kao( :, 1, 2,13) = (/&
&3.6698e+00_jprb,3.2113e+00_jprb,2.7634e+00_jprb,2.6220e+00_jprb,2.4498e+00_jprb,2.2177e+00_jprb,&
&1.9317e+00_jprb,2.1759e+00_jprb,2.3566e+00_jprb,2.4539e+00_jprb/)
kao( :, 2, 2,13) = (/&
&4.3922e+00_jprb,3.8433e+00_jprb,3.3174e+00_jprb,3.1962e+00_jprb,2.9402e+00_jprb,2.6303e+00_jprb,&
&2.3496e+00_jprb,2.7064e+00_jprb,2.8995e+00_jprb,3.0421e+00_jprb/)
kao( :, 3, 2,13) = (/&
&5.1315e+00_jprb,4.4903e+00_jprb,3.8960e+00_jprb,3.7804e+00_jprb,3.4475e+00_jprb,3.0575e+00_jprb,&
&2.8478e+00_jprb,3.3075e+00_jprb,3.5154e+00_jprb,3.7101e+00_jprb/)
kao( :, 4, 2,13) = (/&
&5.8800e+00_jprb,5.1453e+00_jprb,4.4924e+00_jprb,4.3646e+00_jprb,3.9642e+00_jprb,3.5208e+00_jprb,&
&3.3891e+00_jprb,3.9399e+00_jprb,4.1954e+00_jprb,4.4214e+00_jprb/)
kao( :, 5, 2,13) = (/&
&6.6101e+00_jprb,5.7841e+00_jprb,5.0872e+00_jprb,4.9348e+00_jprb,4.4777e+00_jprb,4.0458e+00_jprb,&
&3.9713e+00_jprb,4.6160e+00_jprb,4.9393e+00_jprb,5.1870e+00_jprb/)
kao( :, 1, 3,13) = (/&
&3.2411e+00_jprb,2.8361e+00_jprb,2.4831e+00_jprb,2.4070e+00_jprb,2.2480e+00_jprb,2.0870e+00_jprb,&
&1.8051e+00_jprb,2.0202e+00_jprb,2.1994e+00_jprb,2.3002e+00_jprb/)
kao( :, 2, 3,13) = (/&
&3.9470e+00_jprb,3.4538e+00_jprb,3.0483e+00_jprb,2.9667e+00_jprb,2.7181e+00_jprb,2.5148e+00_jprb,&
&2.2501e+00_jprb,2.5765e+00_jprb,2.7837e+00_jprb,2.9313e+00_jprb/)
kao( :, 3, 3,13) = (/&
&4.6804e+00_jprb,4.0955e+00_jprb,3.6459e+00_jprb,3.5399e+00_jprb,3.2163e+00_jprb,2.9639e+00_jprb,&
&2.7715e+00_jprb,3.2088e+00_jprb,3.4557e+00_jprb,3.6507e+00_jprb/)
kao( :, 4, 3,13) = (/&
&5.4312e+00_jprb,4.7525e+00_jprb,4.2675e+00_jprb,4.1206e+00_jprb,3.7364e+00_jprb,3.4562e+00_jprb,&
&3.3399e+00_jprb,3.8844e+00_jprb,4.1920e+00_jprb,4.4202e+00_jprb/)
kao( :, 5, 3,13) = (/&
&6.1796e+00_jprb,5.4074e+00_jprb,4.8990e+00_jprb,4.7013e+00_jprb,4.2915e+00_jprb,3.9757e+00_jprb,&
&3.9407e+00_jprb,4.5828e+00_jprb,4.9410e+00_jprb,5.2123e+00_jprb/)
kao( :, 1, 4,13) = (/&
&2.7929e+00_jprb,2.4439e+00_jprb,2.1939e+00_jprb,2.1454e+00_jprb,2.0515e+00_jprb,1.8877e+00_jprb,&
&1.6383e+00_jprb,1.8045e+00_jprb,1.9740e+00_jprb,2.0628e+00_jprb/)
kao( :, 2, 4,13) = (/&
&3.4793e+00_jprb,3.0445e+00_jprb,2.7598e+00_jprb,2.6705e+00_jprb,2.5121e+00_jprb,2.3266e+00_jprb,&
&2.0901e+00_jprb,2.3620e+00_jprb,2.5689e+00_jprb,2.6998e+00_jprb/)
kao( :, 3, 4,13) = (/&
&4.2010e+00_jprb,3.6761e+00_jprb,3.3660e+00_jprb,3.2278e+00_jprb,3.0027e+00_jprb,2.8086e+00_jprb,&
&2.6028e+00_jprb,2.9855e+00_jprb,3.2574e+00_jprb,3.4124e+00_jprb/)
kao( :, 4, 4,13) = (/&
&4.9519e+00_jprb,4.3331e+00_jprb,4.0066e+00_jprb,3.8137e+00_jprb,3.5269e+00_jprb,3.3453e+00_jprb,&
&3.1635e+00_jprb,3.6670e+00_jprb,4.0070e+00_jprb,4.1903e+00_jprb/)
kao( :, 5, 4,13) = (/&
&5.7128e+00_jprb,4.9989e+00_jprb,4.6672e+00_jprb,4.4092e+00_jprb,4.0817e+00_jprb,3.8791e+00_jprb,&
&3.7698e+00_jprb,4.3882e+00_jprb,4.8065e+00_jprb,5.0150e+00_jprb/)
kao( :, 1, 5,13) = (/&
&2.3832e+00_jprb,2.0854e+00_jprb,1.9206e+00_jprb,1.9102e+00_jprb,1.8377e+00_jprb,1.6804e+00_jprb,&
&1.4581e+00_jprb,1.5820e+00_jprb,1.7385e+00_jprb,1.8104e+00_jprb/)
kao( :, 2, 5,13) = (/&
&3.0408e+00_jprb,2.6608e+00_jprb,2.4785e+00_jprb,2.4054e+00_jprb,2.3025e+00_jprb,2.1234e+00_jprb,&
&1.8947e+00_jprb,2.1142e+00_jprb,2.3213e+00_jprb,2.4192e+00_jprb/)
kao( :, 3, 5,13) = (/&
&3.7472e+00_jprb,3.2789e+00_jprb,3.0888e+00_jprb,2.9395e+00_jprb,2.8036e+00_jprb,2.6282e+00_jprb,&
&2.3906e+00_jprb,2.7153e+00_jprb,2.9926e+00_jprb,3.1059e+00_jprb/)
kao( :, 4, 5,13) = (/&
&4.4915e+00_jprb,3.9302e+00_jprb,3.7393e+00_jprb,3.5090e+00_jprb,3.3375e+00_jprb,3.1759e+00_jprb,&
&2.9354e+00_jprb,3.3827e+00_jprb,3.7352e+00_jprb,3.8690e+00_jprb/)
kao( :, 5, 5,13) = (/&
&5.2663e+00_jprb,4.6081e+00_jprb,4.4077e+00_jprb,4.1006e+00_jprb,3.9180e+00_jprb,3.7090e+00_jprb,&
&3.5307e+00_jprb,4.1076e+00_jprb,4.5338e+00_jprb,4.6986e+00_jprb/)
kao( :, 1, 6,13) = (/&
&1.9932e+00_jprb,1.7450e+00_jprb,1.6663e+00_jprb,1.6747e+00_jprb,1.5875e+00_jprb,1.4577e+00_jprb,&
&1.2653e+00_jprb,1.3499e+00_jprb,1.4817e+00_jprb,1.5465e+00_jprb/)
kao( :, 2, 6,13) = (/&
&2.6126e+00_jprb,2.2877e+00_jprb,2.1906e+00_jprb,2.1465e+00_jprb,2.0440e+00_jprb,1.8948e+00_jprb,&
&1.6751e+00_jprb,1.8295e+00_jprb,2.0253e+00_jprb,2.0939e+00_jprb/)
kao( :, 3, 6,13) = (/&
&3.3035e+00_jprb,2.8922e+00_jprb,2.7796e+00_jprb,2.6671e+00_jprb,2.5564e+00_jprb,2.3982e+00_jprb,&
&2.1433e+00_jprb,2.3876e+00_jprb,2.6563e+00_jprb,2.7311e+00_jprb/)
kao( :, 4, 6,13) = (/&
&4.0480e+00_jprb,3.5441e+00_jprb,3.4094e+00_jprb,3.2253e+00_jprb,3.1196e+00_jprb,2.9346e+00_jprb,&
&2.6536e+00_jprb,3.0266e+00_jprb,3.3710e+00_jprb,3.4616e+00_jprb/)
kao( :, 5, 6,13) = (/&
&4.8342e+00_jprb,4.2338e+00_jprb,4.0696e+00_jprb,3.8230e+00_jprb,3.7396e+00_jprb,3.4594e+00_jprb,&
&3.2309e+00_jprb,3.7339e+00_jprb,4.1600e+00_jprb,4.2696e+00_jprb/)
kao( :, 1, 7,13) = (/&
&1.6468e+00_jprb,1.4469e+00_jprb,1.4375e+00_jprb,1.4321e+00_jprb,1.3474e+00_jprb,1.2424e+00_jprb,&
&1.0892e+00_jprb,1.1510e+00_jprb,1.2626e+00_jprb,1.3183e+00_jprb/)
kao( :, 2, 7,13) = (/&
&2.2291e+00_jprb,1.9582e+00_jprb,1.9270e+00_jprb,1.8946e+00_jprb,1.7899e+00_jprb,1.6613e+00_jprb,&
&1.4638e+00_jprb,1.5844e+00_jprb,1.7486e+00_jprb,1.8143e+00_jprb/)
kao( :, 3, 7,13) = (/&
&2.8937e+00_jprb,2.5452e+00_jprb,2.4760e+00_jprb,2.4095e+00_jprb,2.2977e+00_jprb,2.1475e+00_jprb,&
&1.8921e+00_jprb,2.0920e+00_jprb,2.3240e+00_jprb,2.3941e+00_jprb/)
kao( :, 4, 7,13) = (/&
&3.6319e+00_jprb,3.2018e+00_jprb,3.0807e+00_jprb,2.9736e+00_jprb,2.8721e+00_jprb,2.6699e+00_jprb,&
&2.3689e+00_jprb,2.6767e+00_jprb,2.9818e+00_jprb,3.0621e+00_jprb/)
kao( :, 5, 7,13) = (/&
&4.4294e+00_jprb,3.9124e+00_jprb,3.7363e+00_jprb,3.5826e+00_jprb,3.5031e+00_jprb,3.1936e+00_jprb,&
&2.9162e+00_jprb,3.3346e+00_jprb,3.7295e+00_jprb,3.8139e+00_jprb/)
kao( :, 1, 8,13) = (/&
&1.3645e+00_jprb,1.2030e+00_jprb,1.2251e+00_jprb,1.1980e+00_jprb,1.1267e+00_jprb,1.0496e+00_jprb,&
&9.4007e-01_jprb,9.8738e-01_jprb,1.0795e+00_jprb,1.1321e+00_jprb/)
kao( :, 2, 8,13) = (/&
&1.8875e+00_jprb,1.6716e+00_jprb,1.6787e+00_jprb,1.6357e+00_jprb,1.5491e+00_jprb,1.4420e+00_jprb,&
&1.2844e+00_jprb,1.3709e+00_jprb,1.5112e+00_jprb,1.5708e+00_jprb/)
kao( :, 3, 8,13) = (/&
&2.5235e+00_jprb,2.2405e+00_jprb,2.2018e+00_jprb,2.1383e+00_jprb,2.0418e+00_jprb,1.9034e+00_jprb,&
&1.6797e+00_jprb,1.8309e+00_jprb,2.0369e+00_jprb,2.0956e+00_jprb/)
kao( :, 4, 8,13) = (/&
&3.2460e+00_jprb,2.8890e+00_jprb,2.7989e+00_jprb,2.7089e+00_jprb,2.6113e+00_jprb,2.4070e+00_jprb,&
&2.1243e+00_jprb,2.3727e+00_jprb,2.6443e+00_jprb,2.7141e+00_jprb/)
kao( :, 5, 8,13) = (/&
&4.0415e+00_jprb,3.6015e+00_jprb,3.4549e+00_jprb,3.3427e+00_jprb,3.2300e+00_jprb,2.9321e+00_jprb,&
&2.6354e+00_jprb,2.9888e+00_jprb,3.3390e+00_jprb,3.4186e+00_jprb/)
kao( :, 1, 9,13) = (/&
&1.1543e+00_jprb,1.0251e+00_jprb,1.0349e+00_jprb,9.8794e-01_jprb,9.3205e-01_jprb,8.8440e-01_jprb,&
&8.0320e-01_jprb,8.4519e-01_jprb,9.2711e-01_jprb,1.0206e+00_jprb/)
kao( :, 2, 9,13) = (/&
&1.6108e+00_jprb,1.4310e+00_jprb,1.4476e+00_jprb,1.3885e+00_jprb,1.3235e+00_jprb,1.2492e+00_jprb,&
&1.1169e+00_jprb,1.1958e+00_jprb,1.3141e+00_jprb,1.3705e+00_jprb/)
kao( :, 3, 9,13) = (/&
&2.1885e+00_jprb,1.9532e+00_jprb,1.9550e+00_jprb,1.8741e+00_jprb,1.7932e+00_jprb,1.6819e+00_jprb,&
&1.4843e+00_jprb,1.6106e+00_jprb,1.7801e+00_jprb,1.8447e+00_jprb/)
kao( :, 4, 9,13) = (/&
&2.8811e+00_jprb,2.5830e+00_jprb,2.5357e+00_jprb,2.4436e+00_jprb,2.3447e+00_jprb,2.1613e+00_jprb,&
&1.9043e+00_jprb,2.1005e+00_jprb,2.3339e+00_jprb,2.4057e+00_jprb/)
kao( :, 5, 9,13) = (/&
&3.6764e+00_jprb,3.3079e+00_jprb,3.1796e+00_jprb,3.0911e+00_jprb,2.9539e+00_jprb,2.6757e+00_jprb,&
&2.3874e+00_jprb,2.6741e+00_jprb,2.9820e+00_jprb,3.0611e+00_jprb/)
kao( :, 1,10,13) = (/&
&1.0302e+00_jprb,9.2176e-01_jprb,9.0574e-01_jprb,8.4615e-01_jprb,7.9970e-01_jprb,7.6976e-01_jprb,&
&7.0274e-01_jprb,7.4283e-01_jprb,8.1565e-01_jprb,2.7017e+00_jprb/)
kao( :, 2,10,13) = (/&
&1.4458e+00_jprb,1.2918e+00_jprb,1.2726e+00_jprb,1.2041e+00_jprb,1.1546e+00_jprb,1.1052e+00_jprb,&
&9.9535e-01_jprb,1.0584e+00_jprb,1.1691e+00_jprb,2.9336e+00_jprb/)
kao( :, 3,10,13) = (/&
&1.9856e+00_jprb,1.7787e+00_jprb,1.7427e+00_jprb,1.6691e+00_jprb,1.6016e+00_jprb,1.5137e+00_jprb,&
&1.3407e+00_jprb,1.4471e+00_jprb,1.6060e+00_jprb,3.2154e+00_jprb/)
kao( :, 4,10,13) = (/&
&2.6493e+00_jprb,2.3820e+00_jprb,2.3103e+00_jprb,2.2284e+00_jprb,2.1316e+00_jprb,1.9769e+00_jprb,&
&1.7435e+00_jprb,1.9143e+00_jprb,2.1248e+00_jprb,3.4633e+00_jprb/)
kao( :, 5,10,13) = (/&
&3.4281e+00_jprb,3.0946e+00_jprb,2.9645e+00_jprb,2.8748e+00_jprb,2.7245e+00_jprb,2.4879e+00_jprb,&
&2.2103e+00_jprb,2.4551e+00_jprb,2.7307e+00_jprb,3.6000e+00_jprb/)
kao( :, 1,11,13) = (/&
&1.0987e+00_jprb,9.8883e-01_jprb,9.4457e-01_jprb,8.7599e-01_jprb,8.3570e-01_jprb,8.0174e-01_jprb,&
&7.2908e-01_jprb,7.6400e-01_jprb,8.5040e-01_jprb,4.1644e+00_jprb/)
kao( :, 2,11,13) = (/&
&1.5519e+00_jprb,1.3960e+00_jprb,1.3272e+00_jprb,1.2419e+00_jprb,1.1936e+00_jprb,1.1475e+00_jprb,&
&1.0323e+00_jprb,1.0904e+00_jprb,1.2118e+00_jprb,4.4377e+00_jprb/)
kao( :, 3,11,13) = (/&
&2.1168e+00_jprb,1.9062e+00_jprb,1.8156e+00_jprb,1.7151e+00_jprb,1.6554e+00_jprb,1.5612e+00_jprb,&
&1.3900e+00_jprb,1.4823e+00_jprb,1.6504e+00_jprb,4.7648e+00_jprb/)
kao( :, 4,11,13) = (/&
&2.8109e+00_jprb,2.5372e+00_jprb,2.4065e+00_jprb,2.2977e+00_jprb,2.1984e+00_jprb,2.0338e+00_jprb,&
&1.8057e+00_jprb,1.9491e+00_jprb,2.1792e+00_jprb,5.1367e+00_jprb/)
kao( :, 5,11,13) = (/&
&3.6200e+00_jprb,3.2757e+00_jprb,3.0973e+00_jprb,2.9725e+00_jprb,2.8049e+00_jprb,2.5726e+00_jprb,&
&2.2731e+00_jprb,2.4759e+00_jprb,2.7857e+00_jprb,5.3931e+00_jprb/)
kao( :, 1,12,13) = (/&
&1.1834e+00_jprb,1.0718e+00_jprb,9.9832e-01_jprb,9.1951e-01_jprb,8.8066e-01_jprb,8.3984e-01_jprb,&
&7.5516e-01_jprb,7.7629e-01_jprb,8.6924e-01_jprb,5.0196e+00_jprb/)
kao( :, 2,12,13) = (/&
&1.6817e+00_jprb,1.5210e+00_jprb,1.4125e+00_jprb,1.3041e+00_jprb,1.2468e+00_jprb,1.1910e+00_jprb,&
&1.0644e+00_jprb,1.0991e+00_jprb,1.2384e+00_jprb,5.3253e+00_jprb/)
kao( :, 3,12,13) = (/&
&2.2884e+00_jprb,2.0697e+00_jprb,1.9237e+00_jprb,1.7926e+00_jprb,1.7105e+00_jprb,1.6141e+00_jprb,&
&1.4356e+00_jprb,1.4903e+00_jprb,1.6827e+00_jprb,5.6934e+00_jprb/)
kao( :, 4,12,13) = (/&
&3.0153e+00_jprb,2.7275e+00_jprb,2.5449e+00_jprb,2.3911e+00_jprb,2.2578e+00_jprb,2.1058e+00_jprb,&
&1.8686e+00_jprb,1.9453e+00_jprb,2.2026e+00_jprb,6.1123e+00_jprb/)
kao( :, 5,12,13) = (/&
&3.8521e+00_jprb,3.4852e+00_jprb,3.2646e+00_jprb,3.0814e+00_jprb,2.8800e+00_jprb,2.6613e+00_jprb,&
&2.3377e+00_jprb,2.4576e+00_jprb,2.7866e+00_jprb,6.4282e+00_jprb/)
kao( :, 1,13,13) = (/&
&1.2852e+00_jprb,1.1646e+00_jprb,1.0642e+00_jprb,9.7556e-01_jprb,9.2420e-01_jprb,8.7620e-01_jprb,&
&7.7196e-01_jprb,7.7146e-01_jprb,8.7630e-01_jprb,4.8556e+00_jprb/)
kao( :, 2,13,13) = (/&
&1.8301e+00_jprb,1.6589e+00_jprb,1.5152e+00_jprb,1.3893e+00_jprb,1.3055e+00_jprb,1.2323e+00_jprb,&
&1.0895e+00_jprb,1.0875e+00_jprb,1.2372e+00_jprb,5.1762e+00_jprb/)
kao( :, 3,13,13) = (/&
&2.4889e+00_jprb,2.2558e+00_jprb,2.0613e+00_jprb,1.9034e+00_jprb,1.7774e+00_jprb,1.6692e+00_jprb,&
&1.4717e+00_jprb,1.4657e+00_jprb,1.6743e+00_jprb,5.5984e+00_jprb/)
kao( :, 4,13,13) = (/&
&3.2570e+00_jprb,2.9493e+00_jprb,2.7127e+00_jprb,2.5175e+00_jprb,2.3371e+00_jprb,2.1800e+00_jprb,&
&1.9099e+00_jprb,1.9041e+00_jprb,2.1795e+00_jprb,5.9989e+00_jprb/)
kao( :, 5,13,13) = (/&
&4.1326e+00_jprb,3.7382e+00_jprb,3.4726e+00_jprb,3.2172e+00_jprb,2.9811e+00_jprb,2.7433e+00_jprb,&
&2.3977e+00_jprb,2.4060e+00_jprb,2.7519e+00_jprb,6.3218e+00_jprb/)
kao( :, 1, 1,14) = (/&
&6.3467e+00_jprb,5.5536e+00_jprb,4.7605e+00_jprb,3.9673e+00_jprb,3.4386e+00_jprb,3.0089e+00_jprb,&
&3.2295e+00_jprb,3.7567e+00_jprb,4.0531e+00_jprb,4.1923e+00_jprb/)
kao( :, 2, 1,14) = (/&
&7.3964e+00_jprb,6.4721e+00_jprb,5.5478e+00_jprb,4.6234e+00_jprb,4.0808e+00_jprb,3.6137e+00_jprb,&
&3.9782e+00_jprb,4.6298e+00_jprb,5.0268e+00_jprb,5.1845e+00_jprb/)
kao( :, 3, 1,14) = (/&
&8.4250e+00_jprb,7.3721e+00_jprb,6.3192e+00_jprb,5.2663e+00_jprb,4.6836e+00_jprb,4.2376e+00_jprb,&
&4.8035e+00_jprb,5.5919e+00_jprb,6.0740e+00_jprb,6.2648e+00_jprb/)
kao( :, 4, 1,14) = (/&
&9.4499e+00_jprb,8.2689e+00_jprb,7.0879e+00_jprb,5.9239e+00_jprb,5.2786e+00_jprb,4.8999e+00_jprb,&
&5.6760e+00_jprb,6.6052e+00_jprb,7.1802e+00_jprb,7.4022e+00_jprb/)
kao( :, 5, 1,14) = (/&
&1.0423e+01_jprb,9.1200e+00_jprb,7.8174e+00_jprb,6.5882e+00_jprb,5.8558e+00_jprb,5.6014e+00_jprb,&
&6.5884e+00_jprb,7.6675e+00_jprb,8.3255e+00_jprb,8.5803e+00_jprb/)
kao( :, 1, 2,14) = (/&
&6.0960e+00_jprb,5.3341e+00_jprb,4.5723e+00_jprb,3.8126e+00_jprb,3.4069e+00_jprb,2.9396e+00_jprb,&
&3.2197e+00_jprb,3.7455e+00_jprb,4.0286e+00_jprb,4.2155e+00_jprb/)
kao( :, 2, 2,14) = (/&
&7.1676e+00_jprb,6.2719e+00_jprb,5.3761e+00_jprb,4.4966e+00_jprb,4.0412e+00_jprb,3.5493e+00_jprb,&
&3.9472e+00_jprb,4.5920e+00_jprb,4.9699e+00_jprb,5.1775e+00_jprb/)
kao( :, 3, 2,14) = (/&
&8.2275e+00_jprb,7.1993e+00_jprb,6.1710e+00_jprb,5.2089e+00_jprb,4.6568e+00_jprb,4.1985e+00_jprb,&
&4.7440e+00_jprb,5.5211e+00_jprb,6.0149e+00_jprb,6.2370e+00_jprb/)
kao( :, 4, 2,14) = (/&
&9.2799e+00_jprb,8.1202e+00_jprb,6.9604e+00_jprb,5.9586e+00_jprb,5.2716e+00_jprb,4.8960e+00_jprb,&
&5.6599e+00_jprb,6.5872e+00_jprb,7.1735e+00_jprb,7.4414e+00_jprb/)
kao( :, 5, 2,14) = (/&
&1.0290e+01_jprb,9.0044e+00_jprb,7.7181e+00_jprb,6.7211e+00_jprb,5.8757e+00_jprb,5.6245e+00_jprb,&
&6.6558e+00_jprb,7.7452e+00_jprb,8.4069e+00_jprb,8.7373e+00_jprb/)
kao( :, 1, 3,14) = (/&
&5.6039e+00_jprb,4.9036e+00_jprb,4.2032e+00_jprb,3.5445e+00_jprb,3.1902e+00_jprb,2.7537e+00_jprb,&
&3.0813e+00_jprb,3.5840e+00_jprb,3.8576e+00_jprb,4.0764e+00_jprb/)
kao( :, 2, 3,14) = (/&
&6.6863e+00_jprb,5.8506e+00_jprb,5.0150e+00_jprb,4.2815e+00_jprb,3.8270e+00_jprb,3.3352e+00_jprb,&
&3.7857e+00_jprb,4.4048e+00_jprb,4.7637e+00_jprb,5.0131e+00_jprb/)
kao( :, 3, 3,14) = (/&
&7.7737e+00_jprb,6.8021e+00_jprb,5.8305e+00_jprb,5.0665e+00_jprb,4.4594e+00_jprb,3.9827e+00_jprb,&
&4.5659e+00_jprb,5.3124e+00_jprb,5.7659e+00_jprb,6.0477e+00_jprb/)
kao( :, 4, 3,14) = (/&
&8.8508e+00_jprb,7.7446e+00_jprb,6.6384e+00_jprb,5.8813e+00_jprb,5.0859e+00_jprb,4.6840e+00_jprb,&
&5.4591e+00_jprb,6.3527e+00_jprb,6.8914e+00_jprb,7.2291e+00_jprb/)
kao( :, 5, 3,14) = (/&
&9.9079e+00_jprb,8.6696e+00_jprb,7.4314e+00_jprb,6.6539e+00_jprb,5.7107e+00_jprb,5.4618e+00_jprb,&
&6.4933e+00_jprb,7.5556e+00_jprb,8.1916e+00_jprb,8.5967e+00_jprb/)
kao( :, 1, 4,14) = (/&
&5.0429e+00_jprb,4.4127e+00_jprb,3.7824e+00_jprb,3.2565e+00_jprb,2.9117e+00_jprb,2.5898e+00_jprb,&
&2.8958e+00_jprb,3.3702e+00_jprb,3.6408e+00_jprb,3.8526e+00_jprb/)
kao( :, 2, 4,14) = (/&
&6.1165e+00_jprb,5.3520e+00_jprb,4.5876e+00_jprb,4.0300e+00_jprb,3.5416e+00_jprb,3.1532e+00_jprb,&
&3.5780e+00_jprb,4.1633e+00_jprb,4.5155e+00_jprb,4.7595e+00_jprb/)
kao( :, 3, 4,14) = (/&
&7.2202e+00_jprb,6.3178e+00_jprb,5.4153e+00_jprb,4.8492e+00_jprb,4.1829e+00_jprb,3.7790e+00_jprb,&
&4.3631e+00_jprb,5.0766e+00_jprb,5.4928e+00_jprb,5.8029e+00_jprb/)
kao( :, 4, 4,14) = (/&
&8.3276e+00_jprb,7.2868e+00_jprb,6.2460e+00_jprb,5.6534e+00_jprb,4.8225e+00_jprb,4.4640e+00_jprb,&
&5.2625e+00_jprb,6.1221e+00_jprb,6.6156e+00_jprb,6.9984e+00_jprb/)
kao( :, 5, 4,14) = (/&
&9.4148e+00_jprb,8.2381e+00_jprb,7.0618e+00_jprb,6.4221e+00_jprb,5.4760e+00_jprb,5.2668e+00_jprb,&
&6.3012e+00_jprb,7.3279e+00_jprb,7.8962e+00_jprb,8.3774e+00_jprb/)
kao( :, 1, 5,14) = (/&
&4.4802e+00_jprb,3.9202e+00_jprb,3.3603e+00_jprb,2.9662e+00_jprb,2.6611e+00_jprb,2.4288e+00_jprb,&
&2.7026e+00_jprb,3.1455e+00_jprb,3.4114e+00_jprb,3.6024e+00_jprb/)
kao( :, 2, 5,14) = (/&
&5.5401e+00_jprb,4.8477e+00_jprb,4.1552e+00_jprb,3.7384e+00_jprb,3.2633e+00_jprb,2.9928e+00_jprb,&
&3.3900e+00_jprb,3.9443e+00_jprb,4.2636e+00_jprb,4.5188e+00_jprb/)
kao( :, 3, 5,14) = (/&
&6.6438e+00_jprb,5.8134e+00_jprb,4.9831e+00_jprb,4.5446e+00_jprb,3.8884e+00_jprb,3.6053e+00_jprb,&
&4.1835e+00_jprb,4.8658e+00_jprb,5.2435e+00_jprb,5.5754e+00_jprb/)
kao( :, 4, 5,14) = (/&
&7.7709e+00_jprb,6.7996e+00_jprb,5.8338e+00_jprb,5.3460e+00_jprb,4.5461e+00_jprb,4.3055e+00_jprb,&
&5.1051e+00_jprb,5.9359e+00_jprb,6.3763e+00_jprb,6.8031e+00_jprb/)
kao( :, 5, 5,14) = (/&
&8.8898e+00_jprb,7.7787e+00_jprb,6.6983e+00_jprb,6.1260e+00_jprb,5.2267e+00_jprb,5.1517e+00_jprb,&
&6.1712e+00_jprb,7.1748e+00_jprb,7.6888e+00_jprb,8.2242e+00_jprb/)
kao( :, 1, 6,14) = (/&
&3.8956e+00_jprb,3.4087e+00_jprb,2.9221e+00_jprb,2.6281e+00_jprb,2.4050e+00_jprb,2.1916e+00_jprb,&
&2.4174e+00_jprb,2.8161e+00_jprb,3.0927e+00_jprb,3.2244e+00_jprb/)
kao( :, 2, 6,14) = (/&
&4.9303e+00_jprb,4.3141e+00_jprb,3.7046e+00_jprb,3.3844e+00_jprb,3.0105e+00_jprb,2.7770e+00_jprb,&
&3.1412e+00_jprb,3.6575e+00_jprb,3.9814e+00_jprb,4.1910e+00_jprb/)
kao( :, 3, 6,14) = (/&
&6.0218e+00_jprb,5.2691e+00_jprb,4.5387e+00_jprb,4.1657e+00_jprb,3.6350e+00_jprb,3.4172e+00_jprb,&
&3.9726e+00_jprb,4.6214e+00_jprb,4.9897e+00_jprb,5.2991e+00_jprb/)
kao( :, 4, 6,14) = (/&
&7.1568e+00_jprb,6.2623e+00_jprb,5.4345e+00_jprb,4.9658e+00_jprb,4.2966e+00_jprb,4.1563e+00_jprb,&
&4.9351e+00_jprb,5.7383e+00_jprb,6.1434e+00_jprb,6.5857e+00_jprb/)
kao( :, 5, 6,14) = (/&
&8.3003e+00_jprb,7.2628e+00_jprb,6.3671e+00_jprb,5.7590e+00_jprb,4.9644e+00_jprb,5.0298e+00_jprb,&
&6.0229e+00_jprb,7.0046e+00_jprb,7.4957e+00_jprb,8.0375e+00_jprb/)
kao( :, 1, 7,14) = (/&
&3.3388e+00_jprb,2.9215e+00_jprb,2.5187e+00_jprb,2.3253e+00_jprb,2.1119e+00_jprb,1.9164e+00_jprb,&
&2.0859e+00_jprb,2.4315e+00_jprb,2.6982e+00_jprb,2.7836e+00_jprb/)
kao( :, 2, 7,14) = (/&
&4.3359e+00_jprb,3.7940e+00_jprb,3.2869e+00_jprb,3.0293e+00_jprb,2.7102e+00_jprb,2.5026e+00_jprb,&
&2.8032e+00_jprb,3.2661e+00_jprb,3.5953e+00_jprb,3.7400e+00_jprb/)
kao( :, 3, 7,14) = (/&
&5.4120e+00_jprb,4.7356e+00_jprb,4.1395e+00_jprb,3.7778e+00_jprb,3.3513e+00_jprb,3.1688e+00_jprb,&
&3.6572e+00_jprb,4.2574e+00_jprb,4.6459e+00_jprb,4.8805e+00_jprb/)
kao( :, 4, 7,14) = (/&
&6.5428e+00_jprb,5.7250e+00_jprb,5.0639e+00_jprb,4.5620e+00_jprb,4.0362e+00_jprb,3.9521e+00_jprb,&
&4.6701e+00_jprb,5.4350e+00_jprb,5.8814e+00_jprb,6.2344e+00_jprb/)
kao( :, 5, 7,14) = (/&
&7.7011e+00_jprb,6.7385e+00_jprb,6.0359e+00_jprb,5.3689e+00_jprb,4.7398e+00_jprb,4.8671e+00_jprb,&
&5.8104e+00_jprb,6.7609e+00_jprb,7.2855e+00_jprb,7.7564e+00_jprb/)
kao( :, 1, 8,14) = (/&
&2.8332e+00_jprb,2.4790e+00_jprb,2.1588e+00_jprb,2.0517e+00_jprb,1.8212e+00_jprb,1.6427e+00_jprb,&
&1.7555e+00_jprb,2.0463e+00_jprb,2.2808e+00_jprb,2.3417e+00_jprb/)
kao( :, 2, 8,14) = (/&
&3.7845e+00_jprb,3.3115e+00_jprb,2.9062e+00_jprb,2.7307e+00_jprb,2.4002e+00_jprb,2.2076e+00_jprb,&
&2.4394e+00_jprb,2.8424e+00_jprb,3.1489e+00_jprb,3.2550e+00_jprb/)
kao( :, 3, 8,14) = (/&
&4.8341e+00_jprb,4.2299e+00_jprb,3.7584e+00_jprb,3.4582e+00_jprb,3.0437e+00_jprb,2.8748e+00_jprb,&
&3.2834e+00_jprb,3.8242e+00_jprb,4.1983e+00_jprb,4.3823e+00_jprb/)
kao( :, 4, 8,14) = (/&
&5.9611e+00_jprb,5.2160e+00_jprb,4.6841e+00_jprb,4.2257e+00_jprb,3.7381e+00_jprb,3.6695e+00_jprb,&
&4.3008e+00_jprb,5.0080e+00_jprb,5.4653e+00_jprb,5.7413e+00_jprb/)
kao( :, 5, 8,14) = (/&
&7.1388e+00_jprb,6.2465e+00_jprb,5.6516e+00_jprb,5.0317e+00_jprb,4.4851e+00_jprb,4.5966e+00_jprb,&
&5.4606e+00_jprb,6.3571e+00_jprb,6.9303e+00_jprb,7.2901e+00_jprb/)
kao( :, 1, 9,14) = (/&
&2.3712e+00_jprb,2.0748e+00_jprb,1.8514e+00_jprb,1.7610e+00_jprb,1.5410e+00_jprb,1.3776e+00_jprb,&
&1.4602e+00_jprb,1.7019e+00_jprb,1.8917e+00_jprb,1.9491e+00_jprb/)
kao( :, 2, 9,14) = (/&
&3.2706e+00_jprb,2.8618e+00_jprb,2.5535e+00_jprb,2.4121e+00_jprb,2.0953e+00_jprb,1.9091e+00_jprb,&
&2.0867e+00_jprb,2.4315e+00_jprb,2.6961e+00_jprb,2.7855e+00_jprb/)
kao( :, 3, 9,14) = (/&
&4.2928e+00_jprb,3.7562e+00_jprb,3.3707e+00_jprb,3.1325e+00_jprb,2.7323e+00_jprb,2.5568e+00_jprb,&
&2.8897e+00_jprb,3.3658e+00_jprb,3.7112e+00_jprb,3.8566e+00_jprb/)
kao( :, 4, 9,14) = (/&
&5.4084e+00_jprb,4.7324e+00_jprb,4.2872e+00_jprb,3.9074e+00_jprb,3.4333e+00_jprb,3.3403e+00_jprb,&
&3.8759e+00_jprb,4.5148e+00_jprb,4.9657e+00_jprb,5.1730e+00_jprb/)
kao( :, 5, 9,14) = (/&
&6.5945e+00_jprb,5.7702e+00_jprb,5.2612e+00_jprb,4.7341e+00_jprb,4.2027e+00_jprb,4.2619e+00_jprb,&
&5.0203e+00_jprb,5.8475e+00_jprb,6.4247e+00_jprb,6.7007e+00_jprb/)
kao( :, 1,10,14) = (/&
&2.0238e+00_jprb,1.7709e+00_jprb,1.6271e+00_jprb,1.5213e+00_jprb,1.3211e+00_jprb,1.1708e+00_jprb,&
&1.2470e+00_jprb,1.4529e+00_jprb,1.6100e+00_jprb,4.3675e+00_jprb/)
kao( :, 2,10,14) = (/&
&2.8739e+00_jprb,2.5147e+00_jprb,2.3020e+00_jprb,2.1393e+00_jprb,1.8575e+00_jprb,1.6735e+00_jprb,&
&1.8305e+00_jprb,2.1324e+00_jprb,2.3565e+00_jprb,4.3227e+00_jprb/)
kao( :, 3,10,14) = (/&
&3.8650e+00_jprb,3.3819e+00_jprb,3.1009e+00_jprb,2.8438e+00_jprb,2.4832e+00_jprb,2.3021e+00_jprb,&
&2.5924e+00_jprb,3.0194e+00_jprb,3.3202e+00_jprb,4.3938e+00_jprb/)
kao( :, 4,10,14) = (/&
&4.9777e+00_jprb,4.3555e+00_jprb,3.9964e+00_jprb,3.6309e+00_jprb,3.1871e+00_jprb,3.0700e+00_jprb,&
&3.5258e+00_jprb,4.1073e+00_jprb,4.5249e+00_jprb,4.9612e+00_jprb/)
kao( :, 5,10,14) = (/&
&6.1825e+00_jprb,5.4114e+00_jprb,4.9528e+00_jprb,4.4825e+00_jprb,3.9869e+00_jprb,3.9806e+00_jprb,&
&4.6382e+00_jprb,5.4027e+00_jprb,5.9521e+00_jprb,6.1940e+00_jprb/)
kao( :, 1,11,14) = (/&
&2.0804e+00_jprb,1.8204e+00_jprb,1.7005e+00_jprb,1.5536e+00_jprb,1.3500e+00_jprb,1.2044e+00_jprb,&
&1.3053e+00_jprb,1.5201e+00_jprb,1.6683e+00_jprb,7.0995e+00_jprb/)
kao( :, 2,11,14) = (/&
&2.9372e+00_jprb,2.5710e+00_jprb,2.4123e+00_jprb,2.1876e+00_jprb,1.9103e+00_jprb,1.7356e+00_jprb,&
&1.9131e+00_jprb,2.2284e+00_jprb,2.4493e+00_jprb,7.0950e+00_jprb/)
kao( :, 3,11,14) = (/&
&3.9628e+00_jprb,3.4731e+00_jprb,3.2411e+00_jprb,2.9265e+00_jprb,2.5614e+00_jprb,2.3947e+00_jprb,&
&2.6976e+00_jprb,3.1434e+00_jprb,3.4700e+00_jprb,6.9637e+00_jprb/)
kao( :, 4,11,14) = (/&
&5.1248e+00_jprb,4.4937e+00_jprb,4.1603e+00_jprb,3.7597e+00_jprb,3.3177e+00_jprb,3.2015e+00_jprb,&
&3.6687e+00_jprb,4.2746e+00_jprb,4.7220e+00_jprb,6.9069e+00_jprb/)
kao( :, 5,11,14) = (/&
&6.4048e+00_jprb,5.6238e+00_jprb,5.1596e+00_jprb,4.6653e+00_jprb,4.1869e+00_jprb,4.1503e+00_jprb,&
&4.8291e+00_jprb,5.6278e+00_jprb,6.2131e+00_jprb,7.3735e+00_jprb/)
kao( :, 1,12,14) = (/&
&2.1606e+00_jprb,1.8919e+00_jprb,1.7776e+00_jprb,1.5988e+00_jprb,1.3931e+00_jprb,1.2607e+00_jprb,&
&1.3765e+00_jprb,1.6030e+00_jprb,1.7584e+00_jprb,8.8539e+00_jprb/)
kao( :, 2,12,14) = (/&
&3.0241e+00_jprb,2.6538e+00_jprb,2.5108e+00_jprb,2.2558e+00_jprb,1.9760e+00_jprb,1.8135e+00_jprb,&
&2.0048e+00_jprb,2.3354e+00_jprb,2.5682e+00_jprb,8.8299e+00_jprb/)
kao( :, 3,12,14) = (/&
&4.0854e+00_jprb,3.5917e+00_jprb,3.3758e+00_jprb,3.0347e+00_jprb,2.6732e+00_jprb,2.5117e+00_jprb,&
&2.8106e+00_jprb,3.2743e+00_jprb,3.6095e+00_jprb,8.6670e+00_jprb/)
kao( :, 4,12,14) = (/&
&5.3044e+00_jprb,4.6786e+00_jprb,4.3443e+00_jprb,3.9213e+00_jprb,3.4969e+00_jprb,3.3585e+00_jprb,&
&3.8040e+00_jprb,4.4330e+00_jprb,4.9075e+00_jprb,8.5700e+00_jprb/)
kao( :, 5,12,14) = (/&
&6.6440e+00_jprb,5.8812e+00_jprb,5.4120e+00_jprb,4.9125e+00_jprb,4.4282e+00_jprb,4.3429e+00_jprb,&
&4.9855e+00_jprb,5.8102e+00_jprb,6.4492e+00_jprb,8.6830e+00_jprb/)
kao( :, 1,13,14) = (/&
&2.2525e+00_jprb,1.9864e+00_jprb,1.8643e+00_jprb,1.6602e+00_jprb,1.4614e+00_jprb,1.3350e+00_jprb,&
&1.4569e+00_jprb,1.6960e+00_jprb,1.8539e+00_jprb,8.7601e+00_jprb/)
kao( :, 2,13,14) = (/&
&3.1332e+00_jprb,2.7632e+00_jprb,2.6018e+00_jprb,2.3367e+00_jprb,2.0765e+00_jprb,1.9171e+00_jprb,&
&2.1105e+00_jprb,2.4578e+00_jprb,2.6945e+00_jprb,8.6837e+00_jprb/)
kao( :, 3,13,14) = (/&
&4.2146e+00_jprb,3.7269e+00_jprb,3.4963e+00_jprb,3.1609e+00_jprb,2.8326e+00_jprb,2.6522e+00_jprb,&
&2.9390e+00_jprb,3.4234e+00_jprb,3.7715e+00_jprb,8.5952e+00_jprb/)
kao( :, 4,13,14) = (/&
&5.4718e+00_jprb,4.8645e+00_jprb,4.5313e+00_jprb,4.1221e+00_jprb,3.7163e+00_jprb,3.5387e+00_jprb,&
&3.9442e+00_jprb,4.5945e+00_jprb,5.0796e+00_jprb,8.5494e+00_jprb/)
kao( :, 5,13,14) = (/&
&6.8761e+00_jprb,6.1372e+00_jprb,5.6718e+00_jprb,5.2229e+00_jprb,4.7155e+00_jprb,4.5637e+00_jprb,&
&5.1163e+00_jprb,5.9645e+00_jprb,6.6388e+00_jprb,8.7275e+00_jprb/)
kao( :, 1, 1,15) = (/&
&7.4038e+00_jprb,6.4785e+00_jprb,5.5532e+00_jprb,4.6280e+00_jprb,3.7389e+00_jprb,4.3853e+00_jprb,&
&5.2514e+00_jprb,6.0902e+00_jprb,6.2346e+00_jprb,6.5981e+00_jprb/)
kao( :, 2, 1,15) = (/&
&8.5770e+00_jprb,7.5051e+00_jprb,6.4332e+00_jprb,5.3613e+00_jprb,4.4922e+00_jprb,5.5332e+00_jprb,&
&6.6248e+00_jprb,7.6856e+00_jprb,7.8788e+00_jprb,8.3358e+00_jprb/)
kao( :, 3, 1,15) = (/&
&9.7196e+00_jprb,8.4924e+00_jprb,7.2901e+00_jprb,6.0754e+00_jprb,5.4287e+00_jprb,6.7758e+00_jprb,&
&8.1174e+00_jprb,9.4295e+00_jprb,9.6454e+00_jprb,1.0231e+01_jprb/)
kao( :, 4, 1,15) = (/&
&1.0823e+01_jprb,9.4701e+00_jprb,8.1175e+00_jprb,6.7650e+00_jprb,6.4845e+00_jprb,8.0968e+00_jprb,&
&9.6971e+00_jprb,1.1247e+01_jprb,1.1535e+01_jprb,1.2232e+01_jprb/)
kao( :, 5, 1,15) = (/&
&1.1862e+01_jprb,1.0380e+01_jprb,8.8975e+00_jprb,7.4149e+00_jprb,7.5987e+00_jprb,9.4854e+00_jprb,&
&1.1367e+01_jprb,1.3183e+01_jprb,1.3535e+01_jprb,1.4322e+01_jprb/)
kao( :, 1, 2,15) = (/&
&7.2487e+00_jprb,6.3428e+00_jprb,5.4369e+00_jprb,4.5309e+00_jprb,3.8305e+00_jprb,4.6866e+00_jprb,&
&5.6122e+00_jprb,6.5109e+00_jprb,6.6944e+00_jprb,7.2237e+00_jprb/)
kao( :, 2, 2,15) = (/&
&8.4632e+00_jprb,7.4054e+00_jprb,6.3477e+00_jprb,5.2900e+00_jprb,4.7972e+00_jprb,5.9774e+00_jprb,&
&7.1612e+00_jprb,8.3091e+00_jprb,8.5448e+00_jprb,9.2203e+00_jprb/)
kao( :, 3, 2,15) = (/&
&9.6376e+00_jprb,8.4331e+00_jprb,7.2286e+00_jprb,6.0241e+00_jprb,5.9277e+00_jprb,7.4032e+00_jprb,&
&8.8670e+00_jprb,1.0288e+01_jprb,1.0591e+01_jprb,1.1420e+01_jprb/)
kao( :, 4, 2,15) = (/&
&1.0787e+01_jprb,9.4386e+00_jprb,8.0905e+00_jprb,6.7423e+00_jprb,7.1365e+00_jprb,8.9120e+00_jprb,&
&1.0675e+01_jprb,1.2387e+01_jprb,1.2766e+01_jprb,1.3751e+01_jprb/)
kao( :, 5, 2,15) = (/&
&1.1876e+01_jprb,1.0392e+01_jprb,8.9076e+00_jprb,7.4263e+00_jprb,8.4093e+00_jprb,1.0502e+01_jprb,&
&1.2577e+01_jprb,1.4600e+01_jprb,1.5061e+01_jprb,1.6216e+01_jprb/)
kao( :, 1, 3,15) = (/&
&6.8060e+00_jprb,5.9554e+00_jprb,5.1048e+00_jprb,4.2541e+00_jprb,3.7945e+00_jprb,4.6793e+00_jprb,&
&5.6066e+00_jprb,6.5069e+00_jprb,6.7262e+00_jprb,7.3705e+00_jprb/)
kao( :, 2, 3,15) = (/&
&8.0512e+00_jprb,7.0449e+00_jprb,6.0387e+00_jprb,5.0324e+00_jprb,4.8723e+00_jprb,6.0807e+00_jprb,&
&7.2845e+00_jprb,8.4534e+00_jprb,8.7471e+00_jprb,9.5785e+00_jprb/)
kao( :, 3, 3,15) = (/&
&9.2771e+00_jprb,8.1176e+00_jprb,6.9581e+00_jprb,5.7986e+00_jprb,6.1227e+00_jprb,7.6490e+00_jprb,&
&9.1620e+00_jprb,1.0634e+01_jprb,1.1013e+01_jprb,1.2049e+01_jprb/)
kao( :, 4, 3,15) = (/&
&1.0461e+01_jprb,9.1535e+00_jprb,7.8460e+00_jprb,6.5548e+00_jprb,7.4810e+00_jprb,9.3445e+00_jprb,&
&1.1193e+01_jprb,1.2995e+01_jprb,1.3474e+01_jprb,1.4726e+01_jprb/)
kao( :, 5, 3,15) = (/&
&1.1612e+01_jprb,1.0161e+01_jprb,8.7094e+00_jprb,7.3963e+00_jprb,8.9014e+00_jprb,1.1119e+01_jprb,&
&1.3323e+01_jprb,1.5462e+01_jprb,1.6055e+01_jprb,1.7525e+01_jprb/)
kao( :, 1, 4,15) = (/&
&6.2727e+00_jprb,5.4887e+00_jprb,4.7047e+00_jprb,3.9207e+00_jprb,3.6525e+00_jprb,4.5000e+00_jprb,&
&5.3898e+00_jprb,6.2588e+00_jprb,6.5149e+00_jprb,7.1567e+00_jprb/)
kao( :, 2, 4,15) = (/&
&7.5169e+00_jprb,6.5774e+00_jprb,5.6379e+00_jprb,4.6985e+00_jprb,4.7911e+00_jprb,5.9751e+00_jprb,&
&7.1596e+00_jprb,8.3141e+00_jprb,8.6620e+00_jprb,9.5044e+00_jprb/)
kao( :, 3, 4,15) = (/&
&8.7861e+00_jprb,7.6880e+00_jprb,6.5898e+00_jprb,5.5305e+00_jprb,6.1247e+00_jprb,7.6488e+00_jprb,&
&9.1669e+00_jprb,1.0645e+01_jprb,1.1106e+01_jprb,1.2173e+01_jprb/)
kao( :, 4, 4,15) = (/&
&1.0026e+01_jprb,8.7728e+00_jprb,7.5197e+00_jprb,6.4473e+00_jprb,7.6081e+00_jprb,9.5022e+00_jprb,&
&1.1386e+01_jprb,1.3225e+01_jprb,1.3819e+01_jprb,1.5121e+01_jprb/)
kao( :, 5, 4,15) = (/&
&1.1215e+01_jprb,9.8132e+00_jprb,8.4117e+00_jprb,7.4634e+00_jprb,9.1763e+00_jprb,1.1465e+01_jprb,&
&1.3734e+01_jprb,1.5956e+01_jprb,1.6697e+01_jprb,1.8243e+01_jprb/)
kao( :, 1, 5,15) = (/&
&5.7094e+00_jprb,4.9958e+00_jprb,4.2822e+00_jprb,3.5751e+00_jprb,3.4456e+00_jprb,4.2408e+00_jprb,&
&5.0808e+00_jprb,5.9001e+00_jprb,6.1640e+00_jprb,6.7724e+00_jprb/)
kao( :, 2, 5,15) = (/&
&6.9610e+00_jprb,6.0909e+00_jprb,5.2209e+00_jprb,4.3950e+00_jprb,4.6160e+00_jprb,5.7378e+00_jprb,&
&6.8746e+00_jprb,7.9877e+00_jprb,8.3933e+00_jprb,9.1641e+00_jprb/)
kao( :, 3, 5,15) = (/&
&8.2452e+00_jprb,7.2146e+00_jprb,6.1840e+00_jprb,5.2978e+00_jprb,5.9973e+00_jprb,7.4900e+00_jprb,&
&8.9757e+00_jprb,1.0429e+01_jprb,1.0974e+01_jprb,1.1967e+01_jprb/)
kao( :, 4, 5,15) = (/&
&9.5317e+00_jprb,8.3403e+00_jprb,7.1489e+00_jprb,6.3594e+00_jprb,7.5690e+00_jprb,9.4570e+00_jprb,&
&1.1330e+01_jprb,1.3166e+01_jprb,1.3879e+01_jprb,1.5102e+01_jprb/)
kao( :, 5, 5,15) = (/&
&1.0774e+01_jprb,9.4271e+00_jprb,8.0808e+00_jprb,7.5165e+00_jprb,9.2600e+00_jprb,1.1570e+01_jprb,&
&1.3864e+01_jprb,1.6116e+01_jprb,1.7021e+01_jprb,1.8481e+01_jprb/)
kao( :, 1, 6,15) = (/&
&5.0892e+00_jprb,4.4531e+00_jprb,3.8170e+00_jprb,3.2199e+00_jprb,3.2113e+00_jprb,4.0113e+00_jprb,&
&4.8052e+00_jprb,5.5784e+00_jprb,5.7946e+00_jprb,6.4168e+00_jprb/)
kao( :, 2, 6,15) = (/&
&6.3415e+00_jprb,5.5489e+00_jprb,4.7563e+00_jprb,4.0482e+00_jprb,4.3407e+00_jprb,5.4212e+00_jprb,&
&6.4943e+00_jprb,7.5434e+00_jprb,7.9031e+00_jprb,8.6734e+00_jprb/)
kao( :, 3, 6,15) = (/&
&7.6230e+00_jprb,6.6701e+00_jprb,5.7173e+00_jprb,5.0372e+00_jprb,5.7049e+00_jprb,7.1268e+00_jprb,&
&8.5427e+00_jprb,9.9277e+00_jprb,1.0503e+01_jprb,1.1401e+01_jprb/)
kao( :, 4, 6,15) = (/&
&8.9427e+00_jprb,7.8250e+00_jprb,6.7072e+00_jprb,6.1864e+00_jprb,7.3054e+00_jprb,9.1262e+00_jprb,&
&1.0936e+01_jprb,1.2717e+01_jprb,1.3530e+01_jprb,1.4596e+01_jprb/)
kao( :, 5, 6,15) = (/&
&1.0234e+01_jprb,8.9552e+00_jprb,7.6757e+00_jprb,7.4408e+00_jprb,9.0975e+00_jprb,1.1364e+01_jprb,&
&1.3619e+01_jprb,1.5837e+01_jprb,1.6857e+01_jprb,1.8182e+01_jprb/)
kao( :, 1, 7,15) = (/&
&4.4701e+00_jprb,3.9114e+00_jprb,3.3527e+00_jprb,2.8491e+00_jprb,3.0525e+00_jprb,3.8120e+00_jprb,&
&4.5671e+00_jprb,5.3029e+00_jprb,5.5170e+00_jprb,6.1054e+00_jprb/)
kao( :, 2, 7,15) = (/&
&5.7025e+00_jprb,4.9897e+00_jprb,4.2769e+00_jprb,3.7076e+00_jprb,4.1441e+00_jprb,5.1768e+00_jprb,&
&6.2022e+00_jprb,7.2045e+00_jprb,7.5353e+00_jprb,8.2888e+00_jprb/)
kao( :, 3, 7,15) = (/&
&6.9903e+00_jprb,6.1166e+00_jprb,5.2429e+00_jprb,4.7421e+00_jprb,5.4711e+00_jprb,6.8345e+00_jprb,&
&8.1908e+00_jprb,9.5158e+00_jprb,1.0021e+01_jprb,1.0944e+01_jprb/)
kao( :, 4, 7,15) = (/&
&8.3116e+00_jprb,7.2727e+00_jprb,6.2339e+00_jprb,5.9347e+00_jprb,7.0277e+00_jprb,8.7788e+00_jprb,&
&1.0523e+01_jprb,1.2229e+01_jprb,1.2970e+01_jprb,1.4056e+01_jprb/)
kao( :, 5, 7,15) = (/&
&9.6433e+00_jprb,8.4379e+00_jprb,7.2404e+00_jprb,7.2539e+00_jprb,8.8191e+00_jprb,1.1015e+01_jprb,&
&1.3202e+01_jprb,1.5351e+01_jprb,1.6381e+01_jprb,1.7636e+01_jprb/)
kao( :, 1, 8,15) = (/&
&3.8815e+00_jprb,3.3963e+00_jprb,2.9112e+00_jprb,2.5144e+00_jprb,2.8901e+00_jprb,3.6107e+00_jprb,&
&4.3267e+00_jprb,5.0237e+00_jprb,5.2562e+00_jprb,5.7843e+00_jprb/)
kao( :, 2, 8,15) = (/&
&5.0803e+00_jprb,4.4453e+00_jprb,3.8103e+00_jprb,3.3588e+00_jprb,3.9581e+00_jprb,4.9433e+00_jprb,&
&5.9245e+00_jprb,6.8831e+00_jprb,7.2246e+00_jprb,7.9205e+00_jprb/)
kao( :, 3, 8,15) = (/&
&6.3642e+00_jprb,5.5687e+00_jprb,4.7732e+00_jprb,4.4061e+00_jprb,5.2635e+00_jprb,6.5746e+00_jprb,&
&7.8793e+00_jprb,9.1591e+00_jprb,9.6612e+00_jprb,1.0533e+01_jprb/)
kao( :, 4, 8,15) = (/&
&7.6962e+00_jprb,6.7342e+00_jprb,5.8016e+00_jprb,5.6218e+00_jprb,6.8073e+00_jprb,8.5035e+00_jprb,&
&1.0191e+01_jprb,1.1842e+01_jprb,1.2564e+01_jprb,1.3618e+01_jprb/)
kao( :, 5, 8,15) = (/&
&9.0600e+00_jprb,7.9276e+00_jprb,6.8887e+00_jprb,6.9782e+00_jprb,8.5965e+00_jprb,1.0738e+01_jprb,&
&1.2872e+01_jprb,1.4959e+01_jprb,1.5916e+01_jprb,1.7201e+01_jprb/)
kao( :, 1, 9,15) = (/&
&3.3248e+00_jprb,2.9093e+00_jprb,2.4937e+00_jprb,2.2724e+00_jprb,2.6961e+00_jprb,3.3684e+00_jprb,&
&4.0359e+00_jprb,4.6900e+00_jprb,4.9499e+00_jprb,5.3973e+00_jprb/)
kao( :, 2, 9,15) = (/&
&4.4808e+00_jprb,3.9207e+00_jprb,3.3615e+00_jprb,3.0920e+00_jprb,3.7395e+00_jprb,4.6706e+00_jprb,&
&5.5971e+00_jprb,6.5044e+00_jprb,6.8727e+00_jprb,7.4836e+00_jprb/)
kao( :, 3, 9,15) = (/&
&5.7505e+00_jprb,5.0317e+00_jprb,4.3435e+00_jprb,4.1016e+00_jprb,5.0205e+00_jprb,6.2714e+00_jprb,&
&7.5160e+00_jprb,8.7397e+00_jprb,9.2709e+00_jprb,1.0047e+01_jprb/)
kao( :, 4, 9,15) = (/&
&7.0908e+00_jprb,6.2044e+00_jprb,5.3782e+00_jprb,5.2882e+00_jprb,6.5597e+00_jprb,8.1944e+00_jprb,&
&9.8217e+00_jprb,1.1416e+01_jprb,1.2142e+01_jprb,1.3130e+01_jprb/)
kao( :, 5, 9,15) = (/&
&8.4732e+00_jprb,7.4141e+00_jprb,6.4913e+00_jprb,6.6287e+00_jprb,8.3565e+00_jprb,1.0438e+01_jprb,&
&1.2512e+01_jprb,1.4551e+01_jprb,1.5514e+01_jprb,1.6723e+01_jprb/)
kao( :, 1,10,15) = (/&
&2.8920e+00_jprb,2.5306e+00_jprb,2.1693e+00_jprb,2.0986e+00_jprb,2.5124e+00_jprb,3.1388e+00_jprb,&
&3.7625e+00_jprb,4.3752e+00_jprb,4.6672e+00_jprb,5.6157e+00_jprb/)
kao( :, 2,10,15) = (/&
&4.0040e+00_jprb,3.5035e+00_jprb,3.0238e+00_jprb,2.9376e+00_jprb,3.5667e+00_jprb,4.4559e+00_jprb,&
&5.3416e+00_jprb,6.2115e+00_jprb,6.6210e+00_jprb,7.1691e+00_jprb/)
kao( :, 3,10,15) = (/&
&5.2529e+00_jprb,4.5963e+00_jprb,3.9804e+00_jprb,3.9436e+00_jprb,4.8397e+00_jprb,6.0465e+00_jprb,&
&7.2474e+00_jprb,8.4282e+00_jprb,9.0023e+00_jprb,9.6885e+00_jprb/)
kao( :, 4,10,15) = (/&
&6.6009e+00_jprb,5.7758e+00_jprb,5.0451e+00_jprb,5.1236e+00_jprb,6.3901e+00_jprb,7.9831e+00_jprb,&
&9.5690e+00_jprb,1.1128e+01_jprb,1.1898e+01_jprb,1.2790e+01_jprb/)
kao( :, 5,10,15) = (/&
&8.0358e+00_jprb,7.0314e+00_jprb,6.2146e+00_jprb,6.4650e+00_jprb,8.1964e+00_jprb,1.0240e+01_jprb,&
&1.2274e+01_jprb,1.4283e+01_jprb,1.5317e+01_jprb,1.6405e+01_jprb/)
kao( :, 1,11,15) = (/&
&2.9597e+00_jprb,2.5897e+00_jprb,2.2655e+00_jprb,2.2769e+00_jprb,2.7359e+00_jprb,3.4131e+00_jprb,&
&4.0924e+00_jprb,4.7622e+00_jprb,5.1369e+00_jprb,8.7664e+00_jprb/)
kao( :, 2,11,15) = (/&
&4.1090e+00_jprb,3.5954e+00_jprb,3.1274e+00_jprb,3.2086e+00_jprb,3.8891e+00_jprb,4.8589e+00_jprb,&
&5.8255e+00_jprb,6.7761e+00_jprb,7.2974e+00_jprb,9.1429e+00_jprb/)
kao( :, 3,11,15) = (/&
&5.4257e+00_jprb,4.7475e+00_jprb,4.1432e+00_jprb,4.3071e+00_jprb,5.2960e+00_jprb,6.6178e+00_jprb,&
&7.9327e+00_jprb,9.2300e+00_jprb,9.9139e+00_jprb,1.0877e+01_jprb/)
kao( :, 4,11,15) = (/&
&6.8635e+00_jprb,6.0056e+00_jprb,5.3031e+00_jprb,5.5726e+00_jprb,6.9728e+00_jprb,8.7117e+00_jprb,&
&1.0444e+01_jprb,1.2152e+01_jprb,1.3068e+01_jprb,1.3956e+01_jprb/)
kao( :, 5,11,15) = (/&
&8.4007e+00_jprb,7.3506e+00_jprb,6.6010e+00_jprb,7.0376e+00_jprb,8.9249e+00_jprb,1.1150e+01_jprb,&
&1.3367e+01_jprb,1.5547e+01_jprb,1.6736e+01_jprb,1.7861e+01_jprb/)
kao( :, 1,12,15) = (/&
&3.0706e+00_jprb,2.6868e+00_jprb,2.3786e+00_jprb,2.4650e+00_jprb,2.9376e+00_jprb,3.6606e+00_jprb,&
&4.3900e+00_jprb,5.1097e+00_jprb,5.5523e+00_jprb,1.1122e+01_jprb/)
kao( :, 2,12,15) = (/&
&4.2894e+00_jprb,3.7532e+00_jprb,3.3135e+00_jprb,3.4942e+00_jprb,4.2139e+00_jprb,5.2646e+00_jprb,&
&6.3121e+00_jprb,7.3466e+00_jprb,7.9376e+00_jprb,1.1136e+01_jprb/)
kao( :, 3,12,15) = (/&
&5.6884e+00_jprb,4.9773e+00_jprb,4.4260e+00_jprb,4.7039e+00_jprb,5.7519e+00_jprb,7.1866e+00_jprb,&
&8.6165e+00_jprb,1.0029e+01_jprb,1.0827e+01_jprb,1.2499e+01_jprb/)
kao( :, 4,12,15) = (/&
&7.2505e+00_jprb,6.3448e+00_jprb,5.7066e+00_jprb,6.0941e+00_jprb,7.5592e+00_jprb,9.4443e+00_jprb,&
&1.1323e+01_jprb,1.3172e+01_jprb,1.4230e+01_jprb,1.5157e+01_jprb/)
kao( :, 5,12,15) = (/&
&8.9729e+00_jprb,7.8513e+00_jprb,7.1677e+00_jprb,7.7018e+00_jprb,9.6945e+00_jprb,1.2112e+01_jprb,&
&1.4519e+01_jprb,1.6896e+01_jprb,1.8235e+01_jprb,1.9402e+01_jprb/)
kao( :, 1,13,15) = (/&
&3.2246e+00_jprb,2.8216e+00_jprb,2.5410e+00_jprb,2.6672e+00_jprb,3.1335e+00_jprb,3.8953e+00_jprb,&
&4.6718e+00_jprb,5.4398e+00_jprb,5.9398e+00_jprb,1.1048e+01_jprb/)
kao( :, 2,13,15) = (/&
&4.5396e+00_jprb,3.9722e+00_jprb,3.6057e+00_jprb,3.8124e+00_jprb,4.5235e+00_jprb,5.6334e+00_jprb,&
&6.7551e+00_jprb,7.8654e+00_jprb,8.5655e+00_jprb,1.1523e+01_jprb/)
kao( :, 3,13,15) = (/&
&6.0822e+00_jprb,5.3219e+00_jprb,4.8716e+00_jprb,5.1514e+00_jprb,6.1861e+00_jprb,7.7214e+00_jprb,&
&9.2581e+00_jprb,1.0776e+01_jprb,1.1699e+01_jprb,1.3150e+01_jprb/)
kao( :, 4,13,15) = (/&
&7.8600e+00_jprb,6.8777e+00_jprb,6.3193e+00_jprb,6.6903e+00_jprb,8.1367e+00_jprb,1.0164e+01_jprb,&
&1.2187e+01_jprb,1.4188e+01_jprb,1.5392e+01_jprb,1.6289e+01_jprb/)
kao( :, 5,13,15) = (/&
&9.8483e+00_jprb,8.6182e+00_jprb,7.9619e+00_jprb,8.4555e+00_jprb,1.0467e+01_jprb,1.3077e+01_jprb,&
&1.5680e+01_jprb,1.8246e+01_jprb,1.9749e+01_jprb,2.0946e+01_jprb/)
kao( :, 1, 1,16) = (/&
&7.5127e+00_jprb,6.5737e+00_jprb,5.6349e+00_jprb,4.6958e+00_jprb,3.8779e+00_jprb,4.8416e+00_jprb,&
&5.7981e+00_jprb,6.7189e+00_jprb,6.8002e+00_jprb,7.2408e+00_jprb/)
kao( :, 2, 1,16) = (/&
&8.6979e+00_jprb,7.6109e+00_jprb,6.5239e+00_jprb,5.4368e+00_jprb,4.7903e+00_jprb,5.9807e+00_jprb,&
&7.1609e+00_jprb,8.2994e+00_jprb,8.3109e+00_jprb,8.9455e+00_jprb/)
kao( :, 3, 1,16) = (/&
&9.7317e+00_jprb,8.6042e+00_jprb,7.2993e+00_jprb,6.0830e+00_jprb,5.8526e+00_jprb,7.3076e+00_jprb,&
&8.7490e+00_jprb,1.0034e+01_jprb,1.0263e+01_jprb,1.0816e+01_jprb/)
kao( :, 4, 1,16) = (/&
&1.0961e+01_jprb,9.5913e+00_jprb,8.2214e+00_jprb,6.8514e+00_jprb,7.1532e+00_jprb,8.9336e+00_jprb,&
&1.0696e+01_jprb,1.2395e+01_jprb,1.2541e+01_jprb,1.3218e+01_jprb/)
kao( :, 5, 1,16) = (/&
&1.2007e+01_jprb,1.0506e+01_jprb,9.0063e+00_jprb,7.5055e+00_jprb,8.5533e+00_jprb,1.0682e+01_jprb,&
&1.2789e+01_jprb,1.4823e+01_jprb,1.5003e+01_jprb,1.5975e+01_jprb/)
kao( :, 1, 2,16) = (/&
&7.3731e+00_jprb,6.4516e+00_jprb,5.5301e+00_jprb,4.6086e+00_jprb,4.2937e+00_jprb,5.3609e+00_jprb,&
&6.4198e+00_jprb,7.4408e+00_jprb,7.5329e+00_jprb,8.2124e+00_jprb/)
kao( :, 2, 2,16) = (/&
&8.6021e+00_jprb,7.5271e+00_jprb,6.4520e+00_jprb,5.3768e+00_jprb,5.3675e+00_jprb,6.7018e+00_jprb,&
&8.0237e+00_jprb,9.2997e+00_jprb,9.4140e+00_jprb,1.0264e+01_jprb/)
kao( :, 3, 2,16) = (/&
&9.7888e+00_jprb,8.5654e+00_jprb,7.3420e+00_jprb,6.1186e+00_jprb,6.5496e+00_jprb,8.1782e+00_jprb,&
&9.7904e+00_jprb,1.1344e+01_jprb,1.1474e+01_jprb,1.2519e+01_jprb/)
kao( :, 4, 2,16) = (/&
&1.0945e+01_jprb,9.5769e+00_jprb,8.2090e+00_jprb,6.8412e+00_jprb,8.0474e+00_jprb,1.0048e+01_jprb,&
&1.2030e+01_jprb,1.3944e+01_jprb,1.4114e+01_jprb,1.5388e+01_jprb/)
kao( :, 5, 2,16) = (/&
&1.2042e+01_jprb,1.0537e+01_jprb,9.0333e+00_jprb,7.5280e+00_jprb,9.7062e+00_jprb,1.2117e+01_jprb,&
&1.4511e+01_jprb,1.6819e+01_jprb,1.7024e+01_jprb,1.8558e+01_jprb/)
kao( :, 1, 3,16) = (/&
&6.9437e+00_jprb,6.0759e+00_jprb,5.2080e+00_jprb,4.3402e+00_jprb,4.5023e+00_jprb,5.6214e+00_jprb,&
&6.7297e+00_jprb,7.8026e+00_jprb,7.9012e+00_jprb,8.8155e+00_jprb/)
kao( :, 2, 3,16) = (/&
&8.2070e+00_jprb,7.1813e+00_jprb,6.1554e+00_jprb,5.1298e+00_jprb,5.7329e+00_jprb,7.1578e+00_jprb,&
&8.5699e+00_jprb,9.9336e+00_jprb,1.0060e+01_jprb,1.1228e+01_jprb/)
kao( :, 3, 3,16) = (/&
&9.4491e+00_jprb,8.2681e+00_jprb,7.0872e+00_jprb,5.9062e+00_jprb,7.0707e+00_jprb,8.8297e+00_jprb,&
&1.0581e+01_jprb,1.2262e+01_jprb,1.2422e+01_jprb,1.3860e+01_jprb/)
kao( :, 4, 3,16) = (/&
&1.0642e+01_jprb,9.3115e+00_jprb,7.9815e+00_jprb,6.6515e+00_jprb,8.6654e+00_jprb,1.0819e+01_jprb,&
&1.2954e+01_jprb,1.5013e+01_jprb,1.5194e+01_jprb,1.6966e+01_jprb/)
kao( :, 5, 3,16) = (/&
&1.1807e+01_jprb,1.0331e+01_jprb,8.8554e+00_jprb,7.9416e+00_jprb,1.0582e+01_jprb,1.3212e+01_jprb,&
&1.5820e+01_jprb,1.8322e+01_jprb,1.8571e+01_jprb,2.0721e+01_jprb/)
kao( :, 1, 4,16) = (/&
&6.4258e+00_jprb,5.6226e+00_jprb,4.8196e+00_jprb,4.0164e+00_jprb,4.5983e+00_jprb,5.7339e+00_jprb,&
&6.8740e+00_jprb,7.9661e+00_jprb,8.0728e+00_jprb,9.1132e+00_jprb/)
kao( :, 2, 4,16) = (/&
&7.6917e+00_jprb,6.7303e+00_jprb,5.7690e+00_jprb,4.8076e+00_jprb,5.9866e+00_jprb,7.4749e+00_jprb,&
&8.9518e+00_jprb,1.0377e+01_jprb,1.0515e+01_jprb,1.1857e+01_jprb/)
kao( :, 3, 4,16) = (/&
&8.9813e+00_jprb,7.8586e+00_jprb,6.7361e+00_jprb,5.6678e+00_jprb,7.5316e+00_jprb,9.4038e+00_jprb,&
&1.1247e+01_jprb,1.3049e+01_jprb,1.3228e+01_jprb,1.4925e+01_jprb/)
kao( :, 4, 4,16) = (/&
&1.0239e+01_jprb,8.9593e+00_jprb,7.6796e+00_jprb,6.9509e+00_jprb,9.2615e+00_jprb,1.1564e+01_jprb,&
&1.3845e+01_jprb,1.6028e+01_jprb,1.6220e+01_jprb,1.8333e+01_jprb/)
kao( :, 5, 4,16) = (/&
&1.1440e+01_jprb,1.0010e+01_jprb,8.5838e+00_jprb,8.5098e+00_jprb,1.1339e+01_jprb,1.4159e+01_jprb,&
&1.6953e+01_jprb,1.9656e+01_jprb,1.9906e+01_jprb,2.2476e+01_jprb/)
kao( :, 1, 5,16) = (/&
&5.8770e+00_jprb,5.1424e+00_jprb,4.4079e+00_jprb,3.6733e+00_jprb,4.6297e+00_jprb,5.7866e+00_jprb,&
&6.9277e+00_jprb,8.0308e+00_jprb,8.1369e+00_jprb,9.2272e+00_jprb/)
kao( :, 2, 5,16) = (/&
&7.1523e+00_jprb,6.2582e+00_jprb,5.3644e+00_jprb,4.6413e+00_jprb,6.1841e+00_jprb,7.7213e+00_jprb,&
&9.2461e+00_jprb,1.0718e+01_jprb,1.0873e+01_jprb,1.2325e+01_jprb/)
kao( :, 3, 5,16) = (/&
&8.4613e+00_jprb,7.4038e+00_jprb,6.3462e+00_jprb,5.9572e+00_jprb,7.9337e+00_jprb,9.9057e+00_jprb,&
&1.1872e+01_jprb,1.3758e+01_jprb,1.3965e+01_jprb,1.5800e+01_jprb/)
kao( :, 4, 5,16) = (/&
&9.7676e+00_jprb,8.5468e+00_jprb,7.3259e+00_jprb,7.4238e+00_jprb,9.8916e+00_jprb,1.2352e+01_jprb,&
&1.4791e+01_jprb,1.7147e+01_jprb,1.7384e+01_jprb,1.9719e+01_jprb/)
kao( :, 5, 5,16) = (/&
&1.1025e+01_jprb,9.6472e+00_jprb,8.2716e+00_jprb,9.1406e+00_jprb,1.2179e+01_jprb,1.5208e+01_jprb,&
&1.8211e+01_jprb,2.1097e+01_jprb,2.1364e+01_jprb,2.4267e+01_jprb/)
kao( :, 1, 6,16) = (/&
&5.2650e+00_jprb,4.6069e+00_jprb,3.9488e+00_jprb,3.4184e+00_jprb,4.5538e+00_jprb,5.6834e+00_jprb,&
&6.8059e+00_jprb,7.8914e+00_jprb,8.0145e+00_jprb,9.0940e+00_jprb/)
kao( :, 2, 6,16) = (/&
&6.5470e+00_jprb,5.7287e+00_jprb,4.9104e+00_jprb,4.6912e+00_jprb,6.2505e+00_jprb,7.8043e+00_jprb,&
&9.3463e+00_jprb,1.0825e+01_jprb,1.1010e+01_jprb,1.2479e+01_jprb/)
kao( :, 3, 6,16) = (/&
&7.8534e+00_jprb,6.8718e+00_jprb,5.8902e+00_jprb,6.1640e+00_jprb,8.2139e+00_jprb,1.0257e+01_jprb,&
&1.2274e+01_jprb,1.4245e+01_jprb,1.4468e+01_jprb,1.6406e+01_jprb/)
kao( :, 4, 6,16) = (/&
&9.2007e+00_jprb,8.0507e+00_jprb,6.9007e+00_jprb,7.8216e+00_jprb,1.0421e+01_jprb,1.3014e+01_jprb,&
&1.5581e+01_jprb,1.8055e+01_jprb,1.8344e+01_jprb,2.0809e+01_jprb/)
kao( :, 5, 6,16) = (/&
&1.0512e+01_jprb,9.1984e+00_jprb,7.8842e+00_jprb,9.7429e+00_jprb,1.2982e+01_jprb,1.6206e+01_jprb,&
&1.9407e+01_jprb,2.2502e+01_jprb,2.2789e+01_jprb,2.5928e+01_jprb/)
kao( :, 1, 7,16) = (/&
&4.6565e+00_jprb,4.0745e+00_jprb,3.4925e+00_jprb,3.2956e+00_jprb,4.3911e+00_jprb,5.4864e+00_jprb,&
&6.5695e+00_jprb,7.6115e+00_jprb,7.7439e+00_jprb,8.7837e+00_jprb/)
kao( :, 2, 7,16) = (/&
&5.9292e+00_jprb,5.1881e+00_jprb,4.4470e+00_jprb,4.6697e+00_jprb,6.2219e+00_jprb,7.7686e+00_jprb,&
&9.3043e+00_jprb,1.0790e+01_jprb,1.0982e+01_jprb,1.2451e+01_jprb/)
kao( :, 3, 7,16) = (/&
&7.2576e+00_jprb,6.3505e+00_jprb,5.4433e+00_jprb,6.2922e+00_jprb,8.3823e+00_jprb,1.0468e+01_jprb,&
&1.2543e+01_jprb,1.4536e+01_jprb,1.4805e+01_jprb,1.6765e+01_jprb/)
kao( :, 4, 7,16) = (/&
&8.6179e+00_jprb,7.5406e+00_jprb,6.4633e+00_jprb,8.1550e+00_jprb,1.0866e+01_jprb,1.3567e+01_jprb,&
&1.6244e+01_jprb,1.8842e+01_jprb,1.9186e+01_jprb,2.1742e+01_jprb/)
kao( :, 5, 7,16) = (/&
&9.9851e+00_jprb,8.7370e+00_jprb,7.4898e+00_jprb,1.0321e+01_jprb,1.3752e+01_jprb,1.7171e+01_jprb,&
&2.0561e+01_jprb,2.3825e+01_jprb,2.4177e+01_jprb,2.7508e+01_jprb/)
kao( :, 1, 8,16) = (/&
&4.0754e+00_jprb,3.5660e+00_jprb,3.0566e+00_jprb,3.1333e+00_jprb,4.1749e+00_jprb,5.2109e+00_jprb,&
&6.2379e+00_jprb,7.2391e+00_jprb,7.3822e+00_jprb,8.3583e+00_jprb/)
kao( :, 2, 8,16) = (/&
&5.3273e+00_jprb,4.6614e+00_jprb,3.9956e+00_jprb,4.5880e+00_jprb,6.1132e+00_jprb,7.6329e+00_jprb,&
&9.1372e+00_jprb,1.0600e+01_jprb,1.0819e+01_jprb,1.2238e+01_jprb/)
kao( :, 3, 8,16) = (/&
&6.6607e+00_jprb,5.8281e+00_jprb,4.9956e+00_jprb,6.3489e+00_jprb,8.4692e+00_jprb,1.0575e+01_jprb,&
&1.2658e+01_jprb,1.4678e+01_jprb,1.4991e+01_jprb,1.6951e+01_jprb/)
kao( :, 4, 8,16) = (/&
&8.0394e+00_jprb,7.0344e+00_jprb,6.0296e+00_jprb,8.4237e+00_jprb,1.1224e+01_jprb,1.4014e+01_jprb,&
&1.6789e+01_jprb,1.9460e+01_jprb,1.9854e+01_jprb,2.2470e+01_jprb/)
kao( :, 5, 8,16) = (/&
&9.4437e+00_jprb,8.2633e+00_jprb,7.2895e+00_jprb,1.0868e+01_jprb,1.4480e+01_jprb,1.8081e+01_jprb,&
&2.1653e+01_jprb,2.5111e+01_jprb,2.5514e+01_jprb,2.8990e+01_jprb/)
kao( :, 1, 9,16) = (/&
&3.5121e+00_jprb,3.0731e+00_jprb,2.6341e+00_jprb,2.9279e+00_jprb,3.9013e+00_jprb,4.8754e+00_jprb,&
&5.8368e+00_jprb,6.7644e+00_jprb,6.8920e+00_jprb,7.8150e+00_jprb/)
kao( :, 2, 9,16) = (/&
&4.7223e+00_jprb,4.1321e+00_jprb,3.5416e+00_jprb,4.4240e+00_jprb,5.8947e+00_jprb,7.3602e+00_jprb,&
&8.8237e+00_jprb,1.0234e+01_jprb,1.0473e+01_jprb,1.1818e+01_jprb/)
kao( :, 3, 9,16) = (/&
&6.0478e+00_jprb,5.2918e+00_jprb,4.5359e+00_jprb,6.3118e+00_jprb,8.4105e+00_jprb,1.0504e+01_jprb,&
&1.2585e+01_jprb,1.4594e+01_jprb,1.4948e+01_jprb,1.6837e+01_jprb/)
kao( :, 4, 9,16) = (/&
&7.4404e+00_jprb,6.5104e+00_jprb,5.8282e+00_jprb,8.5908e+00_jprb,1.1447e+01_jprb,1.4294e+01_jprb,&
&1.7119e+01_jprb,1.9856e+01_jprb,2.0299e+01_jprb,2.2935e+01_jprb/)
kao( :, 5, 9,16) = (/&
&8.8732e+00_jprb,7.7641e+00_jprb,7.5539e+00_jprb,1.1327e+01_jprb,1.5093e+01_jprb,1.8849e+01_jprb,&
&2.2573e+01_jprb,2.6165e+01_jprb,2.6652e+01_jprb,3.0230e+01_jprb/)
kao( :, 1,10,16) = (/&
&3.0618e+00_jprb,2.6791e+00_jprb,2.2964e+00_jprb,2.9364e+00_jprb,3.9126e+00_jprb,4.8847e+00_jprb,&
&5.8475e+00_jprb,6.7808e+00_jprb,6.8756e+00_jprb,7.8358e+00_jprb/)
kao( :, 2,10,16) = (/&
&4.2316e+00_jprb,3.7027e+00_jprb,3.1743e+00_jprb,4.3350e+00_jprb,5.7762e+00_jprb,7.2138e+00_jprb,&
&8.6367e+00_jprb,1.0019e+01_jprb,1.0284e+01_jprb,1.1570e+01_jprb/)
kao( :, 3,10,16) = (/&
&5.5457e+00_jprb,4.8525e+00_jprb,4.3615e+00_jprb,6.3373e+00_jprb,8.4492e+00_jprb,1.0550e+01_jprb,&
&1.2638e+01_jprb,1.4656e+01_jprb,1.5082e+01_jprb,1.6923e+01_jprb/)
kao( :, 4,10,16) = (/&
&6.9593e+00_jprb,6.0894e+00_jprb,5.9134e+00_jprb,8.8661e+00_jprb,1.1814e+01_jprb,1.4751e+01_jprb,&
&1.7669e+01_jprb,2.0491e+01_jprb,2.0978e+01_jprb,2.3664e+01_jprb/)
kao( :, 5,10,16) = (/&
&8.4396e+00_jprb,7.3847e+00_jprb,7.9651e+00_jprb,1.1942e+01_jprb,1.5915e+01_jprb,1.9872e+01_jprb,&
&2.3793e+01_jprb,2.7593e+01_jprb,2.8161e+01_jprb,3.1872e+01_jprb/)
kao( :, 1,11,16) = (/&
&3.1579e+00_jprb,2.7632e+00_jprb,2.3896e+00_jprb,3.5545e+00_jprb,4.7362e+00_jprb,5.9136e+00_jprb,&
&7.0823e+00_jprb,8.2069e+00_jprb,8.3323e+00_jprb,9.4873e+00_jprb/)
kao( :, 2,11,16) = (/&
&4.3744e+00_jprb,3.8276e+00_jprb,3.5100e+00_jprb,5.1538e+00_jprb,6.8671e+00_jprb,8.5743e+00_jprb,&
&1.0274e+01_jprb,1.1914e+01_jprb,1.2209e+01_jprb,1.3757e+01_jprb/)
kao( :, 3,11,16) = (/&
&5.7471e+00_jprb,5.0288e+00_jprb,5.0034e+00_jprb,7.4970e+00_jprb,9.9888e+00_jprb,1.2472e+01_jprb,&
&1.4942e+01_jprb,1.7333e+01_jprb,1.7821e+01_jprb,2.0007e+01_jprb/)
kao( :, 4,11,16) = (/&
&7.2629e+00_jprb,6.3550e+00_jprb,7.0474e+00_jprb,1.0566e+01_jprb,1.4079e+01_jprb,1.7584e+01_jprb,&
&2.1057e+01_jprb,2.4419e+01_jprb,2.5019e+01_jprb,2.8211e+01_jprb/)
kao( :, 5,11,16) = (/&
&8.9069e+00_jprb,7.7936e+00_jprb,9.5284e+00_jprb,1.4286e+01_jprb,1.9037e+01_jprb,2.3771e+01_jprb,&
&2.8468e+01_jprb,3.3010e+01_jprb,3.3751e+01_jprb,3.8130e+01_jprb/)
kao( :, 1,12,16) = (/&
&3.3006e+00_jprb,2.8881e+00_jprb,2.8666e+00_jprb,4.2985e+00_jprb,5.7274e+00_jprb,7.1506e+00_jprb,&
&8.5607e+00_jprb,9.9299e+00_jprb,1.0097e+01_jprb,1.1570e+01_jprb/)
kao( :, 2,12,16) = (/&
&4.5952e+00_jprb,4.0208e+00_jprb,4.1024e+00_jprb,6.1511e+00_jprb,8.1959e+00_jprb,1.0235e+01_jprb,&
&1.2254e+01_jprb,1.4215e+01_jprb,1.4558e+01_jprb,1.6415e+01_jprb/)
kao( :, 3,12,16) = (/&
&6.1172e+00_jprb,5.3526e+00_jprb,5.9205e+00_jprb,8.8783e+00_jprb,1.1835e+01_jprb,1.4781e+01_jprb,&
&1.7706e+01_jprb,2.0531e+01_jprb,2.1114e+01_jprb,2.3705e+01_jprb/)
kao( :, 4,12,16) = (/&
&7.9063e+00_jprb,6.9180e+00_jprb,8.3812e+00_jprb,1.2566e+01_jprb,1.6747e+01_jprb,2.0915e+01_jprb,&
&2.5049e+01_jprb,2.9064e+01_jprb,2.9820e+01_jprb,3.3552e+01_jprb/)
kao( :, 5,12,16) = (/&
&9.9405e+00_jprb,8.6980e+00_jprb,1.1361e+01_jprb,1.7034e+01_jprb,2.2697e+01_jprb,2.8347e+01_jprb,&
&3.3936e+01_jprb,3.9357e+01_jprb,4.0377e+01_jprb,4.5471e+01_jprb/)
kao( :, 1,13,16) = (/&
&3.5240e+00_jprb,3.0835e+00_jprb,3.4502e+00_jprb,5.1734e+00_jprb,6.8947e+00_jprb,8.6091e+00_jprb,&
&1.0310e+01_jprb,1.1954e+01_jprb,1.2187e+01_jprb,1.3806e+01_jprb/)
kao( :, 2,13,16) = (/&
&5.0191e+00_jprb,4.3917e+00_jprb,4.8873e+00_jprb,7.3276e+00_jprb,9.7654e+00_jprb,1.2194e+01_jprb,&
&1.4608e+01_jprb,1.6943e+01_jprb,1.7366e+01_jprb,1.9559e+01_jprb/)
kao( :, 3,13,16) = (/&
&6.8612e+00_jprb,6.0035e+00_jprb,6.9941e+00_jprb,1.0486e+01_jprb,1.3971e+01_jprb,1.7446e+01_jprb,&
&2.0896e+01_jprb,2.4256e+01_jprb,2.4993e+01_jprb,2.7979e+01_jprb/)
kao( :, 4,13,16) = (/&
&8.9937e+00_jprb,7.8713e+00_jprb,9.9172e+00_jprb,1.4874e+01_jprb,1.9818e+01_jprb,2.4754e+01_jprb,&
&2.9642e+01_jprb,3.4374e+01_jprb,3.5407e+01_jprb,3.9689e+01_jprb/)
kao( :, 5,13,16) = (/&
&1.1386e+01_jprb,9.9632e+00_jprb,1.3441e+01_jprb,2.0157e+01_jprb,2.6861e+01_jprb,3.3545e+01_jprb,&
&4.0165e+01_jprb,4.6616e+01_jprb,4.7981e+01_jprb,5.3793e+01_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb3_a2