rrtm_kgb16_A1.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb16_a1

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

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

#include "tsmbkind.h"

USE yoerrto16, ONLY : kao     ,selfrefo   ,fracrefao
USE yoerrta16, ONLY : strrat

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


IMPLICIT NONE

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

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

kao( :, 1, 1, 9) = (/&
&4.2634e-03_jprb,4.4619e-03_jprb,4.8277e-03_jprb,5.0574e-03_jprb,5.1432e-03_jprb,5.0824e-03_jprb,&
&4.7995e-03_jprb,4.2519e-03_jprb,3.6751e-03_jprb/)
kao( :, 2, 1, 9) = (/&
&4.3896e-03_jprb,4.7056e-03_jprb,5.1713e-03_jprb,5.4539e-03_jprb,5.5796e-03_jprb,5.5445e-03_jprb,&
&5.2467e-03_jprb,4.6622e-03_jprb,4.1226e-03_jprb/)
kao( :, 3, 1, 9) = (/&
&4.5152e-03_jprb,4.9543e-03_jprb,5.5160e-03_jprb,5.8544e-03_jprb,6.0168e-03_jprb,5.9967e-03_jprb,&
&5.6895e-03_jprb,5.0855e-03_jprb,4.6113e-03_jprb/)
kao( :, 4, 1, 9) = (/&
&4.6230e-03_jprb,5.1933e-03_jprb,5.8501e-03_jprb,6.2450e-03_jprb,6.4433e-03_jprb,6.4316e-03_jprb,&
&6.1283e-03_jprb,5.5148e-03_jprb,5.1307e-03_jprb/)
kao( :, 5, 1, 9) = (/&
&4.7302e-03_jprb,5.4309e-03_jprb,6.1815e-03_jprb,6.6303e-03_jprb,6.8597e-03_jprb,6.8605e-03_jprb,&
&6.5693e-03_jprb,5.9487e-03_jprb,5.6753e-03_jprb/)
kao( :, 1, 2, 9) = (/&
&3.9323e-03_jprb,4.1568e-03_jprb,4.4806e-03_jprb,4.6618e-03_jprb,4.7304e-03_jprb,4.6715e-03_jprb,&
&4.4161e-03_jprb,3.9503e-03_jprb,3.3395e-03_jprb/)
kao( :, 2, 2, 9) = (/&
&4.0500e-03_jprb,4.3934e-03_jprb,4.8123e-03_jprb,5.0480e-03_jprb,5.1574e-03_jprb,5.1013e-03_jprb,&
&4.8274e-03_jprb,4.3142e-03_jprb,3.7073e-03_jprb/)
kao( :, 3, 2, 9) = (/&
&4.1698e-03_jprb,4.6359e-03_jprb,5.1475e-03_jprb,5.4370e-03_jprb,5.5831e-03_jprb,5.5288e-03_jprb,&
&5.2416e-03_jprb,4.6953e-03_jprb,4.1146e-03_jprb/)
kao( :, 4, 2, 9) = (/&
&4.2783e-03_jprb,4.8739e-03_jprb,5.4745e-03_jprb,5.8228e-03_jprb,5.9955e-03_jprb,5.9514e-03_jprb,&
&5.6672e-03_jprb,5.0790e-03_jprb,4.5488e-03_jprb/)
kao( :, 5, 2, 9) = (/&
&4.3743e-03_jprb,5.1081e-03_jprb,5.7929e-03_jprb,6.1965e-03_jprb,6.3958e-03_jprb,6.3715e-03_jprb,&
&6.0950e-03_jprb,5.4684e-03_jprb,5.0068e-03_jprb/)
kao( :, 1, 3, 9) = (/&
&3.6113e-03_jprb,3.8183e-03_jprb,4.0778e-03_jprb,4.1984e-03_jprb,4.2534e-03_jprb,4.2158e-03_jprb,&
&4.0193e-03_jprb,3.6415e-03_jprb,3.0570e-03_jprb/)
kao( :, 2, 3, 9) = (/&
&3.7209e-03_jprb,4.0412e-03_jprb,4.3896e-03_jprb,4.5667e-03_jprb,4.6475e-03_jprb,4.5983e-03_jprb,&
&4.3872e-03_jprb,3.9635e-03_jprb,3.3466e-03_jprb/)
kao( :, 3, 3, 9) = (/&
&3.8298e-03_jprb,4.2704e-03_jprb,4.6995e-03_jprb,4.9388e-03_jprb,5.0426e-03_jprb,4.9845e-03_jprb,&
&4.7617e-03_jprb,4.3009e-03_jprb,3.6653e-03_jprb/)
kao( :, 4, 3, 9) = (/&
&3.9362e-03_jprb,4.5071e-03_jprb,5.0123e-03_jprb,5.3097e-03_jprb,5.4362e-03_jprb,5.3784e-03_jprb,&
&5.1527e-03_jprb,4.6419e-03_jprb,4.0116e-03_jprb/)
kao( :, 5, 3, 9) = (/&
&4.0246e-03_jprb,4.7366e-03_jprb,5.3187e-03_jprb,5.6677e-03_jprb,5.8209e-03_jprb,5.7784e-03_jprb,&
&5.5482e-03_jprb,4.9812e-03_jprb,4.3840e-03_jprb/)
kao( :, 1, 4, 9) = (/&
&3.3284e-03_jprb,3.4973e-03_jprb,3.6827e-03_jprb,3.7696e-03_jprb,3.8145e-03_jprb,3.7973e-03_jprb,&
&3.6757e-03_jprb,3.3953e-03_jprb,2.8711e-03_jprb/)
kao( :, 2, 4, 9) = (/&
&3.4305e-03_jprb,3.7049e-03_jprb,3.9652e-03_jprb,4.1049e-03_jprb,4.1671e-03_jprb,4.1383e-03_jprb,&
&3.9965e-03_jprb,3.6722e-03_jprb,3.0945e-03_jprb/)
kao( :, 3, 4, 9) = (/&
&3.5295e-03_jprb,3.9206e-03_jprb,4.2522e-03_jprb,4.4452e-03_jprb,4.5189e-03_jprb,4.4874e-03_jprb,&
&4.3285e-03_jprb,3.9676e-03_jprb,3.3441e-03_jprb/)
kao( :, 4, 4, 9) = (/&
&3.6215e-03_jprb,4.1396e-03_jprb,4.5422e-03_jprb,4.7812e-03_jprb,4.8736e-03_jprb,4.8440e-03_jprb,&
&4.6768e-03_jprb,4.2674e-03_jprb,3.6212e-03_jprb/)
kao( :, 5, 4, 9) = (/&
&3.7121e-03_jprb,4.3594e-03_jprb,4.8380e-03_jprb,5.1176e-03_jprb,5.2295e-03_jprb,5.2140e-03_jprb,&
&5.0347e-03_jprb,4.5696e-03_jprb,3.9241e-03_jprb/)
kao( :, 1, 5, 9) = (/&
&3.0937e-03_jprb,3.2190e-03_jprb,3.3382e-03_jprb,3.4069e-03_jprb,3.4508e-03_jprb,3.4576e-03_jprb,&
&3.4038e-03_jprb,3.2121e-03_jprb,2.7159e-03_jprb/)
kao( :, 2, 5, 9) = (/&
&3.1841e-03_jprb,3.4102e-03_jprb,3.5885e-03_jprb,3.6988e-03_jprb,3.7561e-03_jprb,3.7570e-03_jprb,&
&3.6806e-03_jprb,3.4524e-03_jprb,2.9248e-03_jprb/)
kao( :, 3, 5, 9) = (/&
&3.2704e-03_jprb,3.6051e-03_jprb,3.8485e-03_jprb,3.9980e-03_jprb,4.0672e-03_jprb,4.0649e-03_jprb,&
&3.9688e-03_jprb,3.7070e-03_jprb,3.1394e-03_jprb/)
kao( :, 4, 5, 9) = (/&
&3.3530e-03_jprb,3.8023e-03_jprb,4.1127e-03_jprb,4.2944e-03_jprb,4.3822e-03_jprb,4.3830e-03_jprb,&
&4.2728e-03_jprb,3.9665e-03_jprb,3.3644e-03_jprb/)
kao( :, 5, 5, 9) = (/&
&3.4386e-03_jprb,4.0026e-03_jprb,4.3842e-03_jprb,4.5975e-03_jprb,4.7014e-03_jprb,4.7133e-03_jprb,&
&4.5874e-03_jprb,4.2339e-03_jprb,3.6103e-03_jprb/)
kao( :, 1, 6, 9) = (/&
&2.9009e-03_jprb,2.9757e-03_jprb,3.0499e-03_jprb,3.1038e-03_jprb,3.1541e-03_jprb,3.1847e-03_jprb,&
&3.1836e-03_jprb,3.0557e-03_jprb,2.5583e-03_jprb/)
kao( :, 2, 6, 9) = (/&
&2.9774e-03_jprb,3.1460e-03_jprb,3.2679e-03_jprb,3.3537e-03_jprb,3.4147e-03_jprb,3.4421e-03_jprb,&
&3.4203e-03_jprb,3.2723e-03_jprb,2.7519e-03_jprb/)
kao( :, 3, 6, 9) = (/&
&3.0522e-03_jprb,3.3185e-03_jprb,3.4964e-03_jprb,3.6100e-03_jprb,3.6827e-03_jprb,3.7087e-03_jprb,&
&3.6668e-03_jprb,3.4927e-03_jprb,2.9536e-03_jprb/)
kao( :, 4, 6, 9) = (/&
&3.1282e-03_jprb,3.4957e-03_jprb,3.7291e-03_jprb,3.8695e-03_jprb,3.9556e-03_jprb,3.9847e-03_jprb,&
&3.9266e-03_jprb,3.7176e-03_jprb,3.1650e-03_jprb/)
kao( :, 5, 6, 9) = (/&
&3.1999e-03_jprb,3.6746e-03_jprb,3.9646e-03_jprb,4.1331e-03_jprb,4.2341e-03_jprb,4.2712e-03_jprb,&
&4.1979e-03_jprb,3.9512e-03_jprb,3.3876e-03_jprb/)
kao( :, 1, 7, 9) = (/&
&2.7415e-03_jprb,2.7746e-03_jprb,2.8210e-03_jprb,2.8741e-03_jprb,2.9327e-03_jprb,2.9829e-03_jprb,&
&2.9928e-03_jprb,2.8802e-03_jprb,2.4517e-03_jprb/)
kao( :, 2, 7, 9) = (/&
&2.8079e-03_jprb,2.9223e-03_jprb,3.0084e-03_jprb,3.0853e-03_jprb,3.1485e-03_jprb,3.1999e-03_jprb,&
&3.2078e-03_jprb,3.0910e-03_jprb,2.6310e-03_jprb/)
kao( :, 3, 7, 9) = (/&
&2.8746e-03_jprb,3.0732e-03_jprb,3.2043e-03_jprb,3.3040e-03_jprb,3.3751e-03_jprb,3.4239e-03_jprb,&
&3.4236e-03_jprb,3.2999e-03_jprb,2.8151e-03_jprb/)
kao( :, 4, 7, 9) = (/&
&2.9412e-03_jprb,3.2304e-03_jprb,3.4053e-03_jprb,3.5266e-03_jprb,3.6086e-03_jprb,3.6573e-03_jprb,&
&3.6460e-03_jprb,3.5085e-03_jprb,3.0037e-03_jprb/)
kao( :, 5, 7, 9) = (/&
&3.0012e-03_jprb,3.3903e-03_jprb,3.6088e-03_jprb,3.7519e-03_jprb,3.8465e-03_jprb,3.9004e-03_jprb,&
&3.8789e-03_jprb,3.7197e-03_jprb,3.2035e-03_jprb/)
kao( :, 1, 8, 9) = (/&
&2.6011e-03_jprb,2.6087e-03_jprb,2.6505e-03_jprb,2.7115e-03_jprb,2.7795e-03_jprb,2.8145e-03_jprb,&
&2.7964e-03_jprb,2.6829e-03_jprb,2.5124e-03_jprb/)
kao( :, 2, 8, 9) = (/&
&2.6605e-03_jprb,2.7384e-03_jprb,2.8102e-03_jprb,2.8876e-03_jprb,2.9588e-03_jprb,3.0106e-03_jprb,&
&2.9995e-03_jprb,2.8886e-03_jprb,2.6866e-03_jprb/)
kao( :, 3, 8, 9) = (/&
&2.7221e-03_jprb,2.8708e-03_jprb,2.9770e-03_jprb,3.0697e-03_jprb,3.1469e-03_jprb,3.2045e-03_jprb,&
&3.2054e-03_jprb,3.0872e-03_jprb,2.8608e-03_jprb/)
kao( :, 4, 8, 9) = (/&
&2.7814e-03_jprb,3.0087e-03_jprb,3.1469e-03_jprb,3.2564e-03_jprb,3.3407e-03_jprb,3.4007e-03_jprb,&
&3.4134e-03_jprb,3.2854e-03_jprb,3.0367e-03_jprb/)
kao( :, 5, 8, 9) = (/&
&2.8334e-03_jprb,3.1463e-03_jprb,3.3224e-03_jprb,3.4471e-03_jprb,3.5390e-03_jprb,3.6049e-03_jprb,&
&3.6218e-03_jprb,3.4862e-03_jprb,3.2148e-03_jprb/)
kao( :, 1, 9, 9) = (/&
&2.4681e-03_jprb,2.4670e-03_jprb,2.5193e-03_jprb,2.5927e-03_jprb,2.6437e-03_jprb,2.6462e-03_jprb,&
&2.5937e-03_jprb,2.4688e-03_jprb,4.0106e-03_jprb/)
kao( :, 2, 9, 9) = (/&
&2.5243e-03_jprb,2.5823e-03_jprb,2.6553e-03_jprb,2.7401e-03_jprb,2.8086e-03_jprb,2.8274e-03_jprb,&
&2.7863e-03_jprb,2.6637e-03_jprb,4.1870e-03_jprb/)
kao( :, 3, 9, 9) = (/&
&2.5817e-03_jprb,2.6985e-03_jprb,2.7975e-03_jprb,2.8934e-03_jprb,2.9743e-03_jprb,3.0076e-03_jprb,&
&2.9804e-03_jprb,2.8541e-03_jprb,4.3637e-03_jprb/)
kao( :, 4, 9, 9) = (/&
&2.6357e-03_jprb,2.8178e-03_jprb,2.9439e-03_jprb,3.0496e-03_jprb,3.1384e-03_jprb,3.1881e-03_jprb,&
&3.1729e-03_jprb,3.0435e-03_jprb,4.5427e-03_jprb/)
kao( :, 5, 9, 9) = (/&
&2.6826e-03_jprb,2.9379e-03_jprb,3.0923e-03_jprb,3.2096e-03_jprb,3.3016e-03_jprb,3.3682e-03_jprb,&
&3.3659e-03_jprb,3.2338e-03_jprb,4.7326e-03_jprb/)
kao( :, 1,10, 9) = (/&
&2.3365e-03_jprb,2.3445e-03_jprb,2.4180e-03_jprb,2.4933e-03_jprb,2.5143e-03_jprb,2.4864e-03_jprb,&
&2.4076e-03_jprb,2.2631e-03_jprb,1.0002e-02_jprb/)
kao( :, 2,10, 9) = (/&
&2.3916e-03_jprb,2.4482e-03_jprb,2.5366e-03_jprb,2.6275e-03_jprb,2.6688e-03_jprb,2.6554e-03_jprb,&
&2.5866e-03_jprb,2.4438e-03_jprb,1.0188e-02_jprb/)
kao( :, 3,10, 9) = (/&
&2.4458e-03_jprb,2.5525e-03_jprb,2.6602e-03_jprb,2.7640e-03_jprb,2.8222e-03_jprb,2.8241e-03_jprb,&
&2.7676e-03_jprb,2.6219e-03_jprb,1.0447e-02_jprb/)
kao( :, 4,10, 9) = (/&
&2.4945e-03_jprb,2.6579e-03_jprb,2.7873e-03_jprb,2.8998e-03_jprb,2.9729e-03_jprb,2.9898e-03_jprb,&
&2.9465e-03_jprb,2.7998e-03_jprb,1.0769e-02_jprb/)
kao( :, 5,10, 9) = (/&
&2.5382e-03_jprb,2.7637e-03_jprb,2.9128e-03_jprb,3.0348e-03_jprb,3.1210e-03_jprb,3.1536e-03_jprb,&
&3.1245e-03_jprb,2.9806e-03_jprb,1.1144e-02_jprb/)
kao( :, 1,11, 9) = (/&
&2.2189e-03_jprb,2.2637e-03_jprb,2.3663e-03_jprb,2.4375e-03_jprb,2.4436e-03_jprb,2.3971e-03_jprb,&
&2.2998e-03_jprb,2.1349e-03_jprb,1.4165e-02_jprb/)
kao( :, 2,11, 9) = (/&
&2.2725e-03_jprb,2.3594e-03_jprb,2.4775e-03_jprb,2.5648e-03_jprb,2.5873e-03_jprb,2.5525e-03_jprb,&
&2.4655e-03_jprb,2.2999e-03_jprb,1.4362e-02_jprb/)
kao( :, 3,11, 9) = (/&
&2.3225e-03_jprb,2.4563e-03_jprb,2.5905e-03_jprb,2.6905e-03_jprb,2.7282e-03_jprb,2.7081e-03_jprb,&
&2.6314e-03_jprb,2.4622e-03_jprb,1.4689e-02_jprb/)
kao( :, 4,11, 9) = (/&
&2.3671e-03_jprb,2.5537e-03_jprb,2.7011e-03_jprb,2.8153e-03_jprb,2.8667e-03_jprb,2.8616e-03_jprb,&
&2.7947e-03_jprb,2.6271e-03_jprb,1.5129e-02_jprb/)
kao( :, 5,11, 9) = (/&
&2.4082e-03_jprb,2.6482e-03_jprb,2.8083e-03_jprb,2.9363e-03_jprb,3.0040e-03_jprb,3.0155e-03_jprb,&
&2.9597e-03_jprb,2.7977e-03_jprb,1.5652e-02_jprb/)
kao( :, 1,12, 9) = (/&
&2.0910e-03_jprb,2.1698e-03_jprb,2.2939e-03_jprb,2.3579e-03_jprb,2.3558e-03_jprb,2.2934e-03_jprb,&
&2.1816e-03_jprb,2.0022e-03_jprb,1.5828e-02_jprb/)
kao( :, 2,12, 9) = (/&
&2.1414e-03_jprb,2.2595e-03_jprb,2.4019e-03_jprb,2.4797e-03_jprb,2.4872e-03_jprb,2.4364e-03_jprb,&
&2.3325e-03_jprb,2.1497e-03_jprb,1.6052e-02_jprb/)
kao( :, 3,12, 9) = (/&
&2.1876e-03_jprb,2.3512e-03_jprb,2.5089e-03_jprb,2.5983e-03_jprb,2.6170e-03_jprb,2.5791e-03_jprb,&
&2.4816e-03_jprb,2.2977e-03_jprb,1.6424e-02_jprb/)
kao( :, 4,12, 9) = (/&
&2.2305e-03_jprb,2.4411e-03_jprb,2.6103e-03_jprb,2.7123e-03_jprb,2.7468e-03_jprb,2.7221e-03_jprb,&
&2.6302e-03_jprb,2.4491e-03_jprb,1.6928e-02_jprb/)
kao( :, 5,12, 9) = (/&
&2.2685e-03_jprb,2.5264e-03_jprb,2.7071e-03_jprb,2.8237e-03_jprb,2.8760e-03_jprb,2.8651e-03_jprb,&
&2.7812e-03_jprb,2.6061e-03_jprb,1.7523e-02_jprb/)
kao( :, 1,13, 9) = (/&
&1.9577e-03_jprb,2.0704e-03_jprb,2.2038e-03_jprb,2.2584e-03_jprb,2.2491e-03_jprb,2.1789e-03_jprb,&
&2.0585e-03_jprb,1.8702e-03_jprb,1.4483e-02_jprb/)
kao( :, 2,13, 9) = (/&
&2.0058e-03_jprb,2.1546e-03_jprb,2.3069e-03_jprb,2.3735e-03_jprb,2.3721e-03_jprb,2.3101e-03_jprb,&
&2.1933e-03_jprb,2.0001e-03_jprb,1.4716e-02_jprb/)
kao( :, 3,13, 9) = (/&
&2.0506e-03_jprb,2.2392e-03_jprb,2.4060e-03_jprb,2.4864e-03_jprb,2.4932e-03_jprb,2.4402e-03_jprb,&
&2.3277e-03_jprb,2.1324e-03_jprb,1.5081e-02_jprb/)
kao( :, 4,13, 9) = (/&
&2.0915e-03_jprb,2.3209e-03_jprb,2.5015e-03_jprb,2.5952e-03_jprb,2.6152e-03_jprb,2.5711e-03_jprb,&
&2.4622e-03_jprb,2.2684e-03_jprb,1.5556e-02_jprb/)
kao( :, 5,13, 9) = (/&
&2.1275e-03_jprb,2.3984e-03_jprb,2.5936e-03_jprb,2.7019e-03_jprb,2.7369e-03_jprb,2.7034e-03_jprb,&
&2.5998e-03_jprb,2.4103e-03_jprb,1.6100e-02_jprb/)
kao( :, 1, 1,10) = (/&
&1.7685e-02_jprb,1.5886e-02_jprb,1.5286e-02_jprb,1.4910e-02_jprb,1.4213e-02_jprb,1.2872e-02_jprb,&
&1.1554e-02_jprb,9.7299e-03_jprb,9.7670e-03_jprb/)
kao( :, 2, 1,10) = (/&
&1.7924e-02_jprb,1.6198e-02_jprb,1.5800e-02_jprb,1.5762e-02_jprb,1.5013e-02_jprb,1.3648e-02_jprb,&
&1.2502e-02_jprb,1.0682e-02_jprb,1.1264e-02_jprb/)
kao( :, 3, 1,10) = (/&
&1.8162e-02_jprb,1.6493e-02_jprb,1.6320e-02_jprb,1.6501e-02_jprb,1.5785e-02_jprb,1.4461e-02_jprb,&
&1.3394e-02_jprb,1.1688e-02_jprb,1.2766e-02_jprb/)
kao( :, 4, 1,10) = (/&
&1.8373e-02_jprb,1.6799e-02_jprb,1.6869e-02_jprb,1.7132e-02_jprb,1.6537e-02_jprb,1.5302e-02_jprb,&
&1.4231e-02_jprb,1.2873e-02_jprb,1.4298e-02_jprb/)
kao( :, 5, 1,10) = (/&
&1.8575e-02_jprb,1.7109e-02_jprb,1.7449e-02_jprb,1.7721e-02_jprb,1.7274e-02_jprb,1.6125e-02_jprb,&
&1.4995e-02_jprb,1.4230e-02_jprb,1.5931e-02_jprb/)
kao( :, 1, 2,10) = (/&
&1.6873e-02_jprb,1.5273e-02_jprb,1.4928e-02_jprb,1.4779e-02_jprb,1.3931e-02_jprb,1.2662e-02_jprb,&
&1.1382e-02_jprb,9.2864e-03_jprb,8.6917e-03_jprb/)
kao( :, 2, 2,10) = (/&
&1.7158e-02_jprb,1.5636e-02_jprb,1.5517e-02_jprb,1.5568e-02_jprb,1.4735e-02_jprb,1.3617e-02_jprb,&
&1.2343e-02_jprb,1.0165e-02_jprb,1.0091e-02_jprb/)
kao( :, 3, 2,10) = (/&
&1.7424e-02_jprb,1.6018e-02_jprb,1.6130e-02_jprb,1.6288e-02_jprb,1.5522e-02_jprb,1.4562e-02_jprb,&
&1.3276e-02_jprb,1.1047e-02_jprb,1.1539e-02_jprb/)
kao( :, 4, 2,10) = (/&
&1.7705e-02_jprb,1.6391e-02_jprb,1.6775e-02_jprb,1.6913e-02_jprb,1.6383e-02_jprb,1.5440e-02_jprb,&
&1.4111e-02_jprb,1.2115e-02_jprb,1.3109e-02_jprb/)
kao( :, 5, 2,10) = (/&
&1.7946e-02_jprb,1.6730e-02_jprb,1.7389e-02_jprb,1.7560e-02_jprb,1.7230e-02_jprb,1.6260e-02_jprb,&
&1.4862e-02_jprb,1.3377e-02_jprb,1.4792e-02_jprb/)
kao( :, 1, 3,10) = (/&
&1.5798e-02_jprb,1.4431e-02_jprb,1.4230e-02_jprb,1.4159e-02_jprb,1.3349e-02_jprb,1.2204e-02_jprb,&
&1.0867e-02_jprb,8.8000e-03_jprb,7.4513e-03_jprb/)
kao( :, 2, 3,10) = (/&
&1.6121e-02_jprb,1.4897e-02_jprb,1.4916e-02_jprb,1.4922e-02_jprb,1.4162e-02_jprb,1.3251e-02_jprb,&
&1.1847e-02_jprb,9.5823e-03_jprb,8.7330e-03_jprb/)
kao( :, 3, 3,10) = (/&
&1.6462e-02_jprb,1.5342e-02_jprb,1.5618e-02_jprb,1.5620e-02_jprb,1.5015e-02_jprb,1.4282e-02_jprb,&
&1.2797e-02_jprb,1.0384e-02_jprb,1.0179e-02_jprb/)
kao( :, 4, 3,10) = (/&
&1.6798e-02_jprb,1.5765e-02_jprb,1.6290e-02_jprb,1.6289e-02_jprb,1.5973e-02_jprb,1.5269e-02_jprb,&
&1.3672e-02_jprb,1.1383e-02_jprb,1.1725e-02_jprb/)
kao( :, 5, 3,10) = (/&
&1.7062e-02_jprb,1.6131e-02_jprb,1.6868e-02_jprb,1.7006e-02_jprb,1.6890e-02_jprb,1.6143e-02_jprb,&
&1.4482e-02_jprb,1.2538e-02_jprb,1.3312e-02_jprb/)
kao( :, 1, 4,10) = (/&
&1.4564e-02_jprb,1.3497e-02_jprb,1.3366e-02_jprb,1.3251e-02_jprb,1.2600e-02_jprb,1.1517e-02_jprb,&
&1.0115e-02_jprb,8.2572e-03_jprb,6.3788e-03_jprb/)
kao( :, 2, 4,10) = (/&
&1.4956e-02_jprb,1.4021e-02_jprb,1.4143e-02_jprb,1.3989e-02_jprb,1.3446e-02_jprb,1.2579e-02_jprb,&
&1.1185e-02_jprb,9.0656e-03_jprb,7.4847e-03_jprb/)
kao( :, 3, 4,10) = (/&
&1.5366e-02_jprb,1.4523e-02_jprb,1.4865e-02_jprb,1.4686e-02_jprb,1.4396e-02_jprb,1.3630e-02_jprb,&
&1.2209e-02_jprb,9.8300e-03_jprb,8.7484e-03_jprb/)
kao( :, 4, 4,10) = (/&
&1.5673e-02_jprb,1.4963e-02_jprb,1.5538e-02_jprb,1.5419e-02_jprb,1.5384e-02_jprb,1.4661e-02_jprb,&
&1.3123e-02_jprb,1.0681e-02_jprb,1.0095e-02_jprb/)
kao( :, 5, 4,10) = (/&
&1.5927e-02_jprb,1.5374e-02_jprb,1.6106e-02_jprb,1.6246e-02_jprb,1.6331e-02_jprb,1.5570e-02_jprb,&
&1.3997e-02_jprb,1.1612e-02_jprb,1.1475e-02_jprb/)
kao( :, 1, 5,10) = (/&
&1.3266e-02_jprb,1.2466e-02_jprb,1.2400e-02_jprb,1.2242e-02_jprb,1.1629e-02_jprb,1.0628e-02_jprb,&
&9.2898e-03_jprb,7.6240e-03_jprb,5.9670e-03_jprb/)
kao( :, 2, 5,10) = (/&
&1.3732e-02_jprb,1.3052e-02_jprb,1.3208e-02_jprb,1.3005e-02_jprb,1.2522e-02_jprb,1.1685e-02_jprb,&
&1.0389e-02_jprb,8.4463e-03_jprb,6.6100e-03_jprb/)
kao( :, 3, 5,10) = (/&
&1.4084e-02_jprb,1.3547e-02_jprb,1.3938e-02_jprb,1.3750e-02_jprb,1.3484e-02_jprb,1.2725e-02_jprb,&
&1.1484e-02_jprb,9.2095e-03_jprb,7.5100e-03_jprb/)
kao( :, 4, 5,10) = (/&
&1.4380e-02_jprb,1.4005e-02_jprb,1.4577e-02_jprb,1.4581e-02_jprb,1.4467e-02_jprb,1.3764e-02_jprb,&
&1.2436e-02_jprb,1.0053e-02_jprb,8.5649e-03_jprb/)
kao( :, 5, 5,10) = (/&
&1.4640e-02_jprb,1.4480e-02_jprb,1.5153e-02_jprb,1.5470e-02_jprb,1.5438e-02_jprb,1.4721e-02_jprb,&
&1.3356e-02_jprb,1.0839e-02_jprb,9.6988e-03_jprb/)
kao( :, 1, 6,10) = (/&
&1.1942e-02_jprb,1.1353e-02_jprb,1.1339e-02_jprb,1.1150e-02_jprb,1.0468e-02_jprb,9.5854e-03_jprb,&
&8.3811e-03_jprb,7.0885e-03_jprb,5.8798e-03_jprb/)
kao( :, 2, 6,10) = (/&
&1.2358e-02_jprb,1.1922e-02_jprb,1.2141e-02_jprb,1.1920e-02_jprb,1.1378e-02_jprb,1.0610e-02_jprb,&
&9.4501e-03_jprb,7.7713e-03_jprb,6.4066e-03_jprb/)
kao( :, 3, 6,10) = (/&
&1.2698e-02_jprb,1.2427e-02_jprb,1.2838e-02_jprb,1.2735e-02_jprb,1.2366e-02_jprb,1.1633e-02_jprb,&
&1.0517e-02_jprb,8.4962e-03_jprb,6.9615e-03_jprb/)
kao( :, 4, 6,10) = (/&
&1.2998e-02_jprb,1.2956e-02_jprb,1.3432e-02_jprb,1.3603e-02_jprb,1.3351e-02_jprb,1.2693e-02_jprb,&
&1.1517e-02_jprb,9.2932e-03_jprb,7.5694e-03_jprb/)
kao( :, 5, 6,10) = (/&
&1.3245e-02_jprb,1.3459e-02_jprb,1.4045e-02_jprb,1.4501e-02_jprb,1.4340e-02_jprb,1.3672e-02_jprb,&
&1.2434e-02_jprb,1.0037e-02_jprb,8.3088e-03_jprb/)
kao( :, 1, 7,10) = (/&
&1.0635e-02_jprb,1.0181e-02_jprb,1.0247e-02_jprb,9.9535e-03_jprb,9.2688e-03_jprb,8.4744e-03_jprb,&
&7.6731e-03_jprb,6.9595e-03_jprb,5.7767e-03_jprb/)
kao( :, 2, 7,10) = (/&
&1.1001e-02_jprb,1.0731e-02_jprb,1.1001e-02_jprb,1.0727e-02_jprb,1.0196e-02_jprb,9.4273e-03_jprb,&
&8.5283e-03_jprb,7.4633e-03_jprb,6.2551e-03_jprb/)
kao( :, 3, 7,10) = (/&
&1.1326e-02_jprb,1.1289e-02_jprb,1.1647e-02_jprb,1.1559e-02_jprb,1.1156e-02_jprb,1.0455e-02_jprb,&
&9.4847e-03_jprb,7.9997e-03_jprb,6.7556e-03_jprb/)
kao( :, 4, 7,10) = (/&
&1.1605e-02_jprb,1.1840e-02_jprb,1.2266e-02_jprb,1.2419e-02_jprb,1.2130e-02_jprb,1.1514e-02_jprb,&
&1.0422e-02_jprb,8.6046e-03_jprb,7.2812e-03_jprb/)
kao( :, 5, 7,10) = (/&
&1.1846e-02_jprb,1.2301e-02_jprb,1.2939e-02_jprb,1.3278e-02_jprb,1.3141e-02_jprb,1.2520e-02_jprb,&
&1.1309e-02_jprb,9.2291e-03_jprb,7.8135e-03_jprb/)
kao( :, 1, 8,10) = (/&
&9.5318e-03_jprb,9.1400e-03_jprb,9.1541e-03_jprb,8.7469e-03_jprb,8.1107e-03_jprb,7.6844e-03_jprb,&
&7.4790e-03_jprb,6.8560e-03_jprb,6.1100e-03_jprb/)
kao( :, 2, 8,10) = (/&
&9.8513e-03_jprb,9.6543e-03_jprb,9.8221e-03_jprb,9.4930e-03_jprb,8.9990e-03_jprb,8.4087e-03_jprb,&
&8.1002e-03_jprb,7.3297e-03_jprb,6.5036e-03_jprb/)
kao( :, 3, 8,10) = (/&
&1.0121e-02_jprb,1.0183e-02_jprb,1.0429e-02_jprb,1.0295e-02_jprb,9.9219e-03_jprb,9.3052e-03_jprb,&
&8.7495e-03_jprb,7.8409e-03_jprb,6.8133e-03_jprb/)
kao( :, 4, 8,10) = (/&
&1.0342e-02_jprb,1.0668e-02_jprb,1.1072e-02_jprb,1.1128e-02_jprb,1.0881e-02_jprb,1.0314e-02_jprb,&
&9.4319e-03_jprb,8.3379e-03_jprb,7.1719e-03_jprb/)
kao( :, 5, 8,10) = (/&
&1.0574e-02_jprb,1.1111e-02_jprb,1.1730e-02_jprb,1.1969e-02_jprb,1.1864e-02_jprb,1.1283e-02_jprb,&
&1.0148e-02_jprb,8.8068e-03_jprb,7.6246e-03_jprb/)
kao( :, 1, 9,10) = (/&
&8.6979e-03_jprb,8.3079e-03_jprb,8.1722e-03_jprb,7.6777e-03_jprb,7.3529e-03_jprb,7.3690e-03_jprb,&
&7.3422e-03_jprb,6.6830e-03_jprb,8.5832e-03_jprb/)
kao( :, 2, 9,10) = (/&
&8.9724e-03_jprb,8.7731e-03_jprb,8.7419e-03_jprb,8.3348e-03_jprb,7.9939e-03_jprb,7.9020e-03_jprb,&
&7.8887e-03_jprb,7.1655e-03_jprb,9.0283e-03_jprb/)
kao( :, 3, 9,10) = (/&
&9.1636e-03_jprb,9.2350e-03_jprb,9.2903e-03_jprb,9.0718e-03_jprb,8.7389e-03_jprb,8.5612e-03_jprb,&
&8.4201e-03_jprb,7.6462e-03_jprb,9.4969e-03_jprb/)
kao( :, 4, 9,10) = (/&
&9.3430e-03_jprb,9.6411e-03_jprb,9.8735e-03_jprb,9.8458e-03_jprb,9.5925e-03_jprb,9.3082e-03_jprb,&
&8.9479e-03_jprb,8.0999e-03_jprb,9.9701e-03_jprb/)
kao( :, 5, 9,10) = (/&
&9.5543e-03_jprb,1.0034e-02_jprb,1.0504e-02_jprb,1.0652e-02_jprb,1.0546e-02_jprb,1.0105e-02_jprb,&
&9.4548e-03_jprb,8.5503e-03_jprb,1.0439e-02_jprb/)
kao( :, 1,10,10) = (/&
&8.1157e-03_jprb,7.6953e-03_jprb,7.3856e-03_jprb,7.0143e-03_jprb,7.0934e-03_jprb,7.1592e-03_jprb,&
&7.1366e-03_jprb,6.4736e-03_jprb,2.5288e-02_jprb/)
kao( :, 2,10,10) = (/&
&8.3228e-03_jprb,8.1050e-03_jprb,7.8899e-03_jprb,7.5150e-03_jprb,7.5383e-03_jprb,7.6577e-03_jprb,&
&7.6569e-03_jprb,6.9536e-03_jprb,2.5969e-02_jprb/)
kao( :, 3,10,10) = (/&
&8.4638e-03_jprb,8.4927e-03_jprb,8.3732e-03_jprb,8.1065e-03_jprb,8.0674e-03_jprb,8.2304e-03_jprb,&
&8.1217e-03_jprb,7.4527e-03_jprb,2.6813e-02_jprb/)
kao( :, 4,10,10) = (/&
&8.6251e-03_jprb,8.8393e-03_jprb,8.8777e-03_jprb,8.7542e-03_jprb,8.7078e-03_jprb,8.8286e-03_jprb,&
&8.6165e-03_jprb,7.9058e-03_jprb,2.7708e-02_jprb/)
kao( :, 5,10,10) = (/&
&8.7883e-03_jprb,9.2004e-03_jprb,9.4445e-03_jprb,9.4717e-03_jprb,9.4479e-03_jprb,9.4125e-03_jprb,&
&9.0956e-03_jprb,8.3203e-03_jprb,2.8653e-02_jprb/)
kao( :, 1,11,10) = (/&
&7.8501e-03_jprb,7.4452e-03_jprb,7.0342e-03_jprb,6.9004e-03_jprb,7.0570e-03_jprb,7.1201e-03_jprb,&
&7.0476e-03_jprb,6.4243e-03_jprb,4.0572e-02_jprb/)
kao( :, 2,11,10) = (/&
&7.9753e-03_jprb,7.7749e-03_jprb,7.4240e-03_jprb,7.3009e-03_jprb,7.4854e-03_jprb,7.6408e-03_jprb,&
&7.5205e-03_jprb,6.9049e-03_jprb,4.1441e-02_jprb/)
kao( :, 3,11,10) = (/&
&8.0806e-03_jprb,8.0563e-03_jprb,7.8316e-03_jprb,7.7518e-03_jprb,7.9930e-03_jprb,8.1574e-03_jprb,&
&7.9957e-03_jprb,7.3976e-03_jprb,4.2222e-02_jprb/)
kao( :, 4,11,10) = (/&
&8.1992e-03_jprb,8.3401e-03_jprb,8.2986e-03_jprb,8.2629e-03_jprb,8.5167e-03_jprb,8.6635e-03_jprb,&
&8.4735e-03_jprb,7.8541e-03_jprb,4.3187e-02_jprb/)
kao( :, 5,11,10) = (/&
&8.2878e-03_jprb,8.6780e-03_jprb,8.8506e-03_jprb,8.8633e-03_jprb,9.0484e-03_jprb,9.1413e-03_jprb,&
&8.9084e-03_jprb,8.2746e-03_jprb,4.4361e-02_jprb/)
kao( :, 1,12,10) = (/&
&7.6139e-03_jprb,7.2726e-03_jprb,6.8850e-03_jprb,6.9089e-03_jprb,6.9663e-03_jprb,7.0443e-03_jprb,&
&6.8750e-03_jprb,6.2469e-03_jprb,4.8797e-02_jprb/)
kao( :, 2,12,10) = (/&
&7.7194e-03_jprb,7.5180e-03_jprb,7.1615e-03_jprb,7.2509e-03_jprb,7.4345e-03_jprb,7.5251e-03_jprb,&
&7.3302e-03_jprb,6.7269e-03_jprb,4.9597e-02_jprb/)
kao( :, 3,12,10) = (/&
&7.8184e-03_jprb,7.7399e-03_jprb,7.4810e-03_jprb,7.6258e-03_jprb,7.9008e-03_jprb,7.9967e-03_jprb,&
&7.8018e-03_jprb,7.1947e-03_jprb,5.0339e-02_jprb/)
kao( :, 4,12,10) = (/&
&7.8914e-03_jprb,7.9922e-03_jprb,7.8923e-03_jprb,8.0511e-03_jprb,8.3449e-03_jprb,8.4240e-03_jprb,&
&8.2687e-03_jprb,7.6521e-03_jprb,5.1350e-02_jprb/)
kao( :, 5,12,10) = (/&
&7.9507e-03_jprb,8.2886e-03_jprb,8.3628e-03_jprb,8.5321e-03_jprb,8.7647e-03_jprb,8.8141e-03_jprb,&
&8.7116e-03_jprb,8.0986e-03_jprb,5.2764e-02_jprb/)
kao( :, 1,13,10) = (/&
&7.3158e-03_jprb,7.0328e-03_jprb,6.8235e-03_jprb,6.9230e-03_jprb,6.9064e-03_jprb,6.8869e-03_jprb,&
&6.6102e-03_jprb,5.9534e-03_jprb,4.6027e-02_jprb/)
kao( :, 2,13,10) = (/&
&7.4278e-03_jprb,7.2607e-03_jprb,7.0591e-03_jprb,7.2420e-03_jprb,7.3482e-03_jprb,7.3254e-03_jprb,&
&7.0547e-03_jprb,6.4187e-03_jprb,4.6671e-02_jprb/)
kao( :, 3,13,10) = (/&
&7.5295e-03_jprb,7.4924e-03_jprb,7.3494e-03_jprb,7.5754e-03_jprb,7.7630e-03_jprb,7.7638e-03_jprb,&
&7.4975e-03_jprb,6.8755e-03_jprb,4.7440e-02_jprb/)
kao( :, 4,13,10) = (/&
&7.6080e-03_jprb,7.7470e-03_jprb,7.6819e-03_jprb,7.9565e-03_jprb,8.1173e-03_jprb,8.1428e-03_jprb,&
&7.9589e-03_jprb,7.3493e-03_jprb,4.8497e-02_jprb/)
kao( :, 5,13,10) = (/&
&7.6817e-03_jprb,8.0217e-03_jprb,8.0425e-03_jprb,8.3061e-03_jprb,8.4701e-03_jprb,8.5085e-03_jprb,&
&8.3860e-03_jprb,7.8301e-03_jprb,4.9971e-02_jprb/)
kao( :, 1, 1,11) = (/&
&2.7764e-02_jprb,2.4426e-02_jprb,2.1973e-02_jprb,2.0093e-02_jprb,1.8666e-02_jprb,1.7278e-02_jprb,&
&1.5087e-02_jprb,1.3103e-02_jprb,1.4300e-02_jprb/)
kao( :, 2, 1,11) = (/&
&2.7963e-02_jprb,2.4667e-02_jprb,2.2450e-02_jprb,2.0789e-02_jprb,1.9549e-02_jprb,1.8247e-02_jprb,&
&1.6059e-02_jprb,1.4781e-02_jprb,1.6422e-02_jprb/)
kao( :, 3, 1,11) = (/&
&2.8032e-02_jprb,2.4854e-02_jprb,2.2829e-02_jprb,2.1504e-02_jprb,2.0423e-02_jprb,1.9213e-02_jprb,&
&1.7147e-02_jprb,1.6580e-02_jprb,1.8603e-02_jprb/)
kao( :, 4, 1,11) = (/&
&2.7908e-02_jprb,2.4878e-02_jprb,2.3088e-02_jprb,2.2255e-02_jprb,2.1236e-02_jprb,2.0204e-02_jprb,&
&1.8256e-02_jprb,1.8454e-02_jprb,2.0859e-02_jprb/)
kao( :, 5, 1,11) = (/&
&2.7693e-02_jprb,2.4833e-02_jprb,2.3283e-02_jprb,2.2953e-02_jprb,2.2107e-02_jprb,2.1010e-02_jprb,&
&1.9343e-02_jprb,2.0385e-02_jprb,2.3144e-02_jprb/)
kao( :, 1, 2,11) = (/&
&2.7646e-02_jprb,2.4332e-02_jprb,2.2092e-02_jprb,2.0298e-02_jprb,1.9042e-02_jprb,1.7440e-02_jprb,&
&1.5349e-02_jprb,1.2664e-02_jprb,1.3386e-02_jprb/)
kao( :, 2, 2,11) = (/&
&2.7909e-02_jprb,2.4672e-02_jprb,2.2646e-02_jprb,2.1214e-02_jprb,2.0006e-02_jprb,1.8412e-02_jprb,&
&1.6391e-02_jprb,1.4178e-02_jprb,1.5546e-02_jprb/)
kao( :, 3, 2,11) = (/&
&2.7965e-02_jprb,2.4859e-02_jprb,2.3085e-02_jprb,2.2119e-02_jprb,2.0910e-02_jprb,1.9436e-02_jprb,&
&1.7350e-02_jprb,1.5867e-02_jprb,1.7743e-02_jprb/)
kao( :, 4, 2,11) = (/&
&2.7851e-02_jprb,2.4932e-02_jprb,2.3473e-02_jprb,2.2951e-02_jprb,2.1773e-02_jprb,2.0509e-02_jprb,&
&1.8306e-02_jprb,1.7658e-02_jprb,1.9938e-02_jprb/)
kao( :, 5, 2,11) = (/&
&2.7716e-02_jprb,2.4986e-02_jprb,2.3872e-02_jprb,2.3624e-02_jprb,2.2685e-02_jprb,2.1385e-02_jprb,&
&1.9339e-02_jprb,1.9475e-02_jprb,2.2096e-02_jprb/)
kao( :, 1, 3,11) = (/&
&2.7136e-02_jprb,2.3913e-02_jprb,2.1898e-02_jprb,2.0239e-02_jprb,1.8943e-02_jprb,1.7255e-02_jprb,&
&1.5286e-02_jprb,1.1962e-02_jprb,1.1731e-02_jprb/)
kao( :, 2, 3,11) = (/&
&2.7384e-02_jprb,2.4261e-02_jprb,2.2497e-02_jprb,2.1296e-02_jprb,2.0064e-02_jprb,1.8265e-02_jprb,&
&1.6402e-02_jprb,1.3201e-02_jprb,1.3756e-02_jprb/)
kao( :, 3, 3,11) = (/&
&2.7424e-02_jprb,2.4494e-02_jprb,2.3027e-02_jprb,2.2286e-02_jprb,2.1084e-02_jprb,1.9295e-02_jprb,&
&1.7402e-02_jprb,1.4625e-02_jprb,1.5844e-02_jprb/)
kao( :, 4, 3,11) = (/&
&2.7396e-02_jprb,2.4666e-02_jprb,2.3610e-02_jprb,2.3218e-02_jprb,2.1991e-02_jprb,2.0436e-02_jprb,&
&1.8232e-02_jprb,1.6186e-02_jprb,1.7976e-02_jprb/)
kao( :, 5, 3,11) = (/&
&2.7396e-02_jprb,2.4863e-02_jprb,2.4263e-02_jprb,2.4003e-02_jprb,2.2894e-02_jprb,2.1428e-02_jprb,&
&1.9099e-02_jprb,1.7923e-02_jprb,2.0191e-02_jprb/)
kao( :, 1, 4,11) = (/&
&2.6120e-02_jprb,2.3055e-02_jprb,2.1334e-02_jprb,1.9874e-02_jprb,1.8554e-02_jprb,1.6913e-02_jprb,&
&1.4849e-02_jprb,1.1247e-02_jprb,9.9817e-03_jprb/)
kao( :, 2, 4,11) = (/&
&2.6346e-02_jprb,2.3452e-02_jprb,2.1987e-02_jprb,2.1036e-02_jprb,1.9768e-02_jprb,1.8034e-02_jprb,&
&1.5969e-02_jprb,1.2323e-02_jprb,1.1891e-02_jprb/)
kao( :, 3, 4,11) = (/&
&2.6444e-02_jprb,2.3743e-02_jprb,2.2663e-02_jprb,2.2134e-02_jprb,2.0858e-02_jprb,1.9164e-02_jprb,&
&1.7004e-02_jprb,1.3536e-02_jprb,1.3883e-02_jprb/)
kao( :, 4, 4,11) = (/&
&2.6615e-02_jprb,2.4091e-02_jprb,2.3417e-02_jprb,2.3175e-02_jprb,2.1815e-02_jprb,2.0352e-02_jprb,&
&1.7938e-02_jprb,1.4897e-02_jprb,1.5955e-02_jprb/)
kao( :, 5, 4,11) = (/&
&2.6757e-02_jprb,2.4467e-02_jprb,2.4289e-02_jprb,2.4064e-02_jprb,2.2838e-02_jprb,2.1378e-02_jprb,&
&1.8780e-02_jprb,1.6458e-02_jprb,1.8170e-02_jprb/)
kao( :, 1, 5,11) = (/&
&2.4649e-02_jprb,2.1845e-02_jprb,2.0397e-02_jprb,1.9200e-02_jprb,1.7986e-02_jprb,1.6354e-02_jprb,&
&1.4106e-02_jprb,1.0659e-02_jprb,8.5296e-03_jprb/)
kao( :, 2, 5,11) = (/&
&2.4915e-02_jprb,2.2302e-02_jprb,2.1150e-02_jprb,2.0451e-02_jprb,1.9259e-02_jprb,1.7581e-02_jprb,&
&1.5270e-02_jprb,1.1646e-02_jprb,1.0194e-02_jprb/)
kao( :, 3, 5,11) = (/&
&2.5218e-02_jprb,2.2788e-02_jprb,2.1977e-02_jprb,2.1628e-02_jprb,2.0422e-02_jprb,1.8826e-02_jprb,&
&1.6327e-02_jprb,1.2719e-02_jprb,1.2019e-02_jprb/)
kao( :, 4, 5,11) = (/&
&2.5482e-02_jprb,2.3305e-02_jprb,2.2941e-02_jprb,2.2718e-02_jprb,2.1512e-02_jprb,2.0034e-02_jprb,&
&1.7375e-02_jprb,1.3885e-02_jprb,1.4041e-02_jprb/)
kao( :, 5, 5,11) = (/&
&2.5726e-02_jprb,2.3793e-02_jprb,2.3951e-02_jprb,2.3636e-02_jprb,2.2618e-02_jprb,2.1077e-02_jprb,&
&1.8363e-02_jprb,1.5350e-02_jprb,1.6202e-02_jprb/)
kao( :, 1, 6,11) = (/&
&2.2851e-02_jprb,2.0373e-02_jprb,1.9153e-02_jprb,1.8191e-02_jprb,1.7169e-02_jprb,1.5447e-02_jprb,&
&1.3127e-02_jprb,9.9268e-03_jprb,7.8128e-03_jprb/)
kao( :, 2, 6,11) = (/&
&2.3274e-02_jprb,2.0974e-02_jprb,2.0039e-02_jprb,1.9515e-02_jprb,1.8501e-02_jprb,1.6740e-02_jprb,&
&1.4344e-02_jprb,1.0951e-02_jprb,8.8752e-03_jprb/)
kao( :, 3, 6,11) = (/&
&2.3672e-02_jprb,2.1617e-02_jprb,2.1050e-02_jprb,2.0731e-02_jprb,1.9672e-02_jprb,1.8067e-02_jprb,&
&1.5465e-02_jprb,1.2013e-02_jprb,1.0301e-02_jprb/)
kao( :, 4, 6,11) = (/&
&2.4031e-02_jprb,2.2215e-02_jprb,2.2188e-02_jprb,2.1796e-02_jprb,2.0865e-02_jprb,1.9256e-02_jprb,&
&1.6602e-02_jprb,1.3087e-02_jprb,1.2045e-02_jprb/)
kao( :, 5, 6,11) = (/&
&2.4424e-02_jprb,2.2835e-02_jprb,2.3262e-02_jprb,2.2762e-02_jprb,2.2024e-02_jprb,2.0317e-02_jprb,&
&1.7726e-02_jprb,1.4330e-02_jprb,1.3970e-02_jprb/)
kao( :, 1, 7,11) = (/&
&2.0897e-02_jprb,1.8755e-02_jprb,1.7733e-02_jprb,1.7022e-02_jprb,1.6054e-02_jprb,1.4311e-02_jprb,&
&1.2008e-02_jprb,9.2731e-03_jprb,7.7437e-03_jprb/)
kao( :, 2, 7,11) = (/&
&2.1410e-02_jprb,1.9491e-02_jprb,1.8752e-02_jprb,1.8362e-02_jprb,1.7373e-02_jprb,1.5636e-02_jprb,&
&1.3285e-02_jprb,1.0177e-02_jprb,8.5051e-03_jprb/)
kao( :, 3, 7,11) = (/&
&2.1887e-02_jprb,2.0202e-02_jprb,1.9920e-02_jprb,1.9593e-02_jprb,1.8568e-02_jprb,1.6958e-02_jprb,&
&1.4466e-02_jprb,1.1212e-02_jprb,9.3670e-03_jprb/)
kao( :, 4, 7,11) = (/&
&2.2392e-02_jprb,2.0930e-02_jprb,2.1140e-02_jprb,2.0643e-02_jprb,1.9778e-02_jprb,1.8147e-02_jprb,&
&1.5692e-02_jprb,1.2278e-02_jprb,1.0489e-02_jprb/)
kao( :, 5, 7,11) = (/&
&2.2888e-02_jprb,2.1742e-02_jprb,2.2178e-02_jprb,2.1714e-02_jprb,2.0936e-02_jprb,1.9278e-02_jprb,&
&1.6882e-02_jprb,1.3452e-02_jprb,1.1897e-02_jprb/)
kao( :, 1, 8,11) = (/&
&1.8841e-02_jprb,1.7056e-02_jprb,1.6222e-02_jprb,1.5693e-02_jprb,1.4689e-02_jprb,1.2994e-02_jprb,&
&1.0918e-02_jprb,9.1547e-03_jprb,7.9124e-03_jprb/)
kao( :, 2, 8,11) = (/&
&1.9409e-02_jprb,1.7855e-02_jprb,1.7363e-02_jprb,1.7024e-02_jprb,1.5955e-02_jprb,1.4305e-02_jprb,&
&1.2087e-02_jprb,9.7905e-03_jprb,8.4826e-03_jprb/)
kao( :, 3, 8,11) = (/&
&1.9993e-02_jprb,1.8663e-02_jprb,1.8622e-02_jprb,1.8244e-02_jprb,1.7158e-02_jprb,1.5610e-02_jprb,&
&1.3302e-02_jprb,1.0551e-02_jprb,9.2336e-03_jprb/)
kao( :, 4, 8,11) = (/&
&2.0602e-02_jprb,1.9539e-02_jprb,1.9827e-02_jprb,1.9347e-02_jprb,1.8357e-02_jprb,1.6779e-02_jprb,&
&1.4567e-02_jprb,1.1467e-02_jprb,9.9909e-03_jprb/)
kao( :, 5, 8,11) = (/&
&2.1064e-02_jprb,2.0402e-02_jprb,2.0838e-02_jprb,2.0466e-02_jprb,1.9507e-02_jprb,1.7959e-02_jprb,&
&1.5824e-02_jprb,1.2520e-02_jprb,1.0807e-02_jprb/)
kao( :, 1, 9,11) = (/&
&1.6824e-02_jprb,1.5334e-02_jprb,1.4694e-02_jprb,1.4181e-02_jprb,1.3143e-02_jprb,1.1680e-02_jprb,&
&1.0334e-02_jprb,9.1831e-03_jprb,1.1053e-02_jprb/)
kao( :, 2, 9,11) = (/&
&1.7417e-02_jprb,1.6144e-02_jprb,1.5897e-02_jprb,1.5487e-02_jprb,1.4380e-02_jprb,1.2867e-02_jprb,&
&1.1184e-02_jprb,9.7551e-03_jprb,1.1728e-02_jprb/)
kao( :, 3, 9,11) = (/&
&1.8068e-02_jprb,1.7042e-02_jprb,1.7161e-02_jprb,1.6678e-02_jprb,1.5557e-02_jprb,1.4093e-02_jprb,&
&1.2184e-02_jprb,1.0404e-02_jprb,1.2483e-02_jprb/)
kao( :, 4, 9,11) = (/&
&1.8632e-02_jprb,1.7983e-02_jprb,1.8323e-02_jprb,1.7788e-02_jprb,1.6784e-02_jprb,1.5260e-02_jprb,&
&1.3324e-02_jprb,1.1123e-02_jprb,1.3280e-02_jprb/)
kao( :, 5, 9,11) = (/&
&1.9073e-02_jprb,1.8843e-02_jprb,1.9281e-02_jprb,1.8905e-02_jprb,1.7900e-02_jprb,1.6447e-02_jprb,&
&1.4515e-02_jprb,1.1877e-02_jprb,1.4077e-02_jprb/)
kao( :, 1,10,11) = (/&
&1.5121e-02_jprb,1.3838e-02_jprb,1.3365e-02_jprb,1.2721e-02_jprb,1.1737e-02_jprb,1.0953e-02_jprb,&
&1.0213e-02_jprb,9.1916e-03_jprb,3.5198e-02_jprb/)
kao( :, 2,10,11) = (/&
&1.5710e-02_jprb,1.4640e-02_jprb,1.4492e-02_jprb,1.3911e-02_jprb,1.2838e-02_jprb,1.1818e-02_jprb,&
&1.0924e-02_jprb,9.7376e-03_jprb,3.6361e-02_jprb/)
kao( :, 3,10,11) = (/&
&1.6286e-02_jprb,1.5525e-02_jprb,1.5683e-02_jprb,1.5045e-02_jprb,1.3992e-02_jprb,1.2769e-02_jprb,&
&1.1723e-02_jprb,1.0342e-02_jprb,3.7359e-02_jprb/)
kao( :, 4,10,11) = (/&
&1.6782e-02_jprb,1.6440e-02_jprb,1.6745e-02_jprb,1.6156e-02_jprb,1.5181e-02_jprb,1.3811e-02_jprb,&
&1.2551e-02_jprb,1.1044e-02_jprb,3.8551e-02_jprb/)
kao( :, 5,10,11) = (/&
&1.7221e-02_jprb,1.7284e-02_jprb,1.7650e-02_jprb,1.7276e-02_jprb,1.6297e-02_jprb,1.4958e-02_jprb,&
&1.3449e-02_jprb,1.1753e-02_jprb,3.9714e-02_jprb/)
kao( :, 1,11,11) = (/&
&1.4019e-02_jprb,1.2957e-02_jprb,1.2611e-02_jprb,1.1869e-02_jprb,1.1221e-02_jprb,1.0951e-02_jprb,&
&1.0419e-02_jprb,9.2574e-03_jprb,5.9295e-02_jprb/)
kao( :, 2,11,11) = (/&
&1.4514e-02_jprb,1.3729e-02_jprb,1.3655e-02_jprb,1.2913e-02_jprb,1.2091e-02_jprb,1.1604e-02_jprb,&
&1.1118e-02_jprb,9.8828e-03_jprb,6.0862e-02_jprb/)
kao( :, 3,11,11) = (/&
&1.4986e-02_jprb,1.4596e-02_jprb,1.4648e-02_jprb,1.3931e-02_jprb,1.3062e-02_jprb,1.2353e-02_jprb,&
&1.1821e-02_jprb,1.0518e-02_jprb,6.2214e-02_jprb/)
kao( :, 4,11,11) = (/&
&1.5398e-02_jprb,1.5423e-02_jprb,1.5511e-02_jprb,1.4991e-02_jprb,1.4093e-02_jprb,1.3225e-02_jprb,&
&1.2498e-02_jprb,1.1195e-02_jprb,6.3269e-02_jprb/)
kao( :, 5,11,11) = (/&
&1.5718e-02_jprb,1.6102e-02_jprb,1.6332e-02_jprb,1.5968e-02_jprb,1.5171e-02_jprb,1.4160e-02_jprb,&
&1.3209e-02_jprb,1.1891e-02_jprb,6.4542e-02_jprb/)
kao( :, 1,12,11) = (/&
&1.3164e-02_jprb,1.2292e-02_jprb,1.1927e-02_jprb,1.1265e-02_jprb,1.1057e-02_jprb,1.0913e-02_jprb,&
&1.0445e-02_jprb,9.2736e-03_jprb,7.4756e-02_jprb/)
kao( :, 2,12,11) = (/&
&1.3602e-02_jprb,1.3075e-02_jprb,1.2792e-02_jprb,1.2052e-02_jprb,1.1692e-02_jprb,1.1536e-02_jprb,&
&1.1126e-02_jprb,9.9170e-03_jprb,7.6306e-02_jprb/)
kao( :, 3,12,11) = (/&
&1.3977e-02_jprb,1.3830e-02_jprb,1.3590e-02_jprb,1.2927e-02_jprb,1.2424e-02_jprb,1.2227e-02_jprb,&
&1.1745e-02_jprb,1.0613e-02_jprb,7.7655e-02_jprb/)
kao( :, 4,12,11) = (/&
&1.4251e-02_jprb,1.4432e-02_jprb,1.4329e-02_jprb,1.3821e-02_jprb,1.3256e-02_jprb,1.2933e-02_jprb,&
&1.2386e-02_jprb,1.1303e-02_jprb,7.8663e-02_jprb/)
kao( :, 5,12,11) = (/&
&1.4497e-02_jprb,1.4939e-02_jprb,1.5040e-02_jprb,1.4676e-02_jprb,1.4122e-02_jprb,1.3675e-02_jprb,&
&1.3045e-02_jprb,1.1981e-02_jprb,7.9879e-02_jprb/)
kao( :, 1,13,11) = (/&
&1.2616e-02_jprb,1.1893e-02_jprb,1.1313e-02_jprb,1.0907e-02_jprb,1.0966e-02_jprb,1.0790e-02_jprb,&
&1.0280e-02_jprb,9.1949e-03_jprb,7.3725e-02_jprb/)
kao( :, 2,13,11) = (/&
&1.2957e-02_jprb,1.2555e-02_jprb,1.2016e-02_jprb,1.1533e-02_jprb,1.1499e-02_jprb,1.1400e-02_jprb,&
&1.0924e-02_jprb,9.8797e-03_jprb,7.4996e-02_jprb/)
kao( :, 3,13,11) = (/&
&1.3172e-02_jprb,1.3071e-02_jprb,1.2663e-02_jprb,1.2207e-02_jprb,1.2117e-02_jprb,1.2009e-02_jprb,&
&1.1575e-02_jprb,1.0610e-02_jprb,7.6038e-02_jprb/)
kao( :, 4,13,11) = (/&
&1.3348e-02_jprb,1.3517e-02_jprb,1.3285e-02_jprb,1.2851e-02_jprb,1.2762e-02_jprb,1.2671e-02_jprb,&
&1.2190e-02_jprb,1.1315e-02_jprb,7.7063e-02_jprb/)
kao( :, 5,13,11) = (/&
&1.3524e-02_jprb,1.3946e-02_jprb,1.3887e-02_jprb,1.3540e-02_jprb,1.3388e-02_jprb,1.3305e-02_jprb,&
&1.2841e-02_jprb,1.2009e-02_jprb,7.8468e-02_jprb/)
kao( :, 1, 1,12) = (/&
&3.9522e-02_jprb,3.4695e-02_jprb,3.0393e-02_jprb,2.7444e-02_jprb,2.4701e-02_jprb,2.2430e-02_jprb,&
&1.9690e-02_jprb,1.9007e-02_jprb,2.1357e-02_jprb/)
kao( :, 2, 1,12) = (/&
&3.9055e-02_jprb,3.4293e-02_jprb,3.0365e-02_jprb,2.7692e-02_jprb,2.5619e-02_jprb,2.3505e-02_jprb,&
&2.1002e-02_jprb,2.1723e-02_jprb,2.4548e-02_jprb/)
kao( :, 3, 1,12) = (/&
&3.8771e-02_jprb,3.4045e-02_jprb,3.0558e-02_jprb,2.8122e-02_jprb,2.6598e-02_jprb,2.4455e-02_jprb,&
&2.2524e-02_jprb,2.4725e-02_jprb,2.7978e-02_jprb/)
kao( :, 4, 1,12) = (/&
&3.8655e-02_jprb,3.3972e-02_jprb,3.0813e-02_jprb,2.8575e-02_jprb,2.7403e-02_jprb,2.5405e-02_jprb,&
&2.4525e-02_jprb,2.7903e-02_jprb,3.1582e-02_jprb/)
kao( :, 5, 1,12) = (/&
&3.8581e-02_jprb,3.4020e-02_jprb,3.1105e-02_jprb,2.9186e-02_jprb,2.7932e-02_jprb,2.6686e-02_jprb,&
&2.7056e-02_jprb,3.1213e-02_jprb,3.5341e-02_jprb/)
kao( :, 1, 2,12) = (/&
&4.0900e-02_jprb,3.5882e-02_jprb,3.1540e-02_jprb,2.8648e-02_jprb,2.5916e-02_jprb,2.3479e-02_jprb,&
&1.9842e-02_jprb,1.8172e-02_jprb,2.0462e-02_jprb/)
kao( :, 2, 2,12) = (/&
&4.0629e-02_jprb,3.5647e-02_jprb,3.1749e-02_jprb,2.9079e-02_jprb,2.7038e-02_jprb,2.4448e-02_jprb,&
&2.0997e-02_jprb,2.0801e-02_jprb,2.3586e-02_jprb/)
kao( :, 3, 2,12) = (/&
&4.0634e-02_jprb,3.5666e-02_jprb,3.2165e-02_jprb,2.9630e-02_jprb,2.8090e-02_jprb,2.5205e-02_jprb,&
&2.2483e-02_jprb,2.3756e-02_jprb,2.6981e-02_jprb/)
kao( :, 4, 2,12) = (/&
&4.0680e-02_jprb,3.5804e-02_jprb,3.2512e-02_jprb,3.0271e-02_jprb,2.8844e-02_jprb,2.6048e-02_jprb,&
&2.4362e-02_jprb,2.6965e-02_jprb,3.0664e-02_jprb/)
kao( :, 5, 2,12) = (/&
&4.0551e-02_jprb,3.5850e-02_jprb,3.2760e-02_jprb,3.1085e-02_jprb,2.9377e-02_jprb,2.7302e-02_jprb,&
&2.6614e-02_jprb,3.0323e-02_jprb,3.4512e-02_jprb/)
kao( :, 1, 3,12) = (/&
&4.2297e-02_jprb,3.7083e-02_jprb,3.2675e-02_jprb,2.9696e-02_jprb,2.6819e-02_jprb,2.4251e-02_jprb,&
&1.9800e-02_jprb,1.7013e-02_jprb,1.8998e-02_jprb/)
kao( :, 2, 3,12) = (/&
&4.2345e-02_jprb,3.7129e-02_jprb,3.3126e-02_jprb,3.0221e-02_jprb,2.7989e-02_jprb,2.5268e-02_jprb,&
&2.0870e-02_jprb,1.9534e-02_jprb,2.2175e-02_jprb/)
kao( :, 3, 3,12) = (/&
&4.2503e-02_jprb,3.7329e-02_jprb,3.3705e-02_jprb,3.0884e-02_jprb,2.9095e-02_jprb,2.6012e-02_jprb,&
&2.2274e-02_jprb,2.2409e-02_jprb,2.5549e-02_jprb/)
kao( :, 4, 3,12) = (/&
&4.2563e-02_jprb,3.7513e-02_jprb,3.4118e-02_jprb,3.1719e-02_jprb,2.9991e-02_jprb,2.6648e-02_jprb,&
&2.4107e-02_jprb,2.5501e-02_jprb,2.9091e-02_jprb/)
kao( :, 5, 3,12) = (/&
&4.2352e-02_jprb,3.7494e-02_jprb,3.4375e-02_jprb,3.2625e-02_jprb,3.0646e-02_jprb,2.7653e-02_jprb,&
&2.6034e-02_jprb,2.8674e-02_jprb,3.2704e-02_jprb/)
kao( :, 1, 4,12) = (/&
&4.3449e-02_jprb,3.8071e-02_jprb,3.3569e-02_jprb,3.0433e-02_jprb,2.7408e-02_jprb,2.4611e-02_jprb,&
&2.0108e-02_jprb,1.5832e-02_jprb,1.6869e-02_jprb/)
kao( :, 2, 4,12) = (/&
&4.3754e-02_jprb,3.8357e-02_jprb,3.4350e-02_jprb,3.1115e-02_jprb,2.8679e-02_jprb,2.5625e-02_jprb,&
&2.1066e-02_jprb,1.8077e-02_jprb,2.0082e-02_jprb/)
kao( :, 3, 4,12) = (/&
&4.3973e-02_jprb,3.8656e-02_jprb,3.5023e-02_jprb,3.2006e-02_jprb,2.9792e-02_jprb,2.6458e-02_jprb,&
&2.2328e-02_jprb,2.0812e-02_jprb,2.3540e-02_jprb/)
kao( :, 4, 4,12) = (/&
&4.3938e-02_jprb,3.8773e-02_jprb,3.5454e-02_jprb,3.2980e-02_jprb,3.0747e-02_jprb,2.7193e-02_jprb,&
&2.3978e-02_jprb,2.3783e-02_jprb,2.7070e-02_jprb/)
kao( :, 5, 4,12) = (/&
&4.3814e-02_jprb,3.8836e-02_jprb,3.5796e-02_jprb,3.3909e-02_jprb,3.1572e-02_jprb,2.8214e-02_jprb,&
&2.5779e-02_jprb,2.6823e-02_jprb,3.0560e-02_jprb/)
kao( :, 1, 5,12) = (/&
&4.3987e-02_jprb,3.8530e-02_jprb,3.4139e-02_jprb,3.0809e-02_jprb,2.7641e-02_jprb,2.4664e-02_jprb,&
&2.0281e-02_jprb,1.4828e-02_jprb,1.4596e-02_jprb/)
kao( :, 2, 5,12) = (/&
&4.4423e-02_jprb,3.8965e-02_jprb,3.5098e-02_jprb,3.1717e-02_jprb,2.9032e-02_jprb,2.5717e-02_jprb,&
&2.1306e-02_jprb,1.6792e-02_jprb,1.7692e-02_jprb/)
kao( :, 3, 5,12) = (/&
&4.4740e-02_jprb,3.9368e-02_jprb,3.5854e-02_jprb,3.2800e-02_jprb,3.0202e-02_jprb,2.6633e-02_jprb,&
&2.2521e-02_jprb,1.9130e-02_jprb,2.0967e-02_jprb/)
kao( :, 4, 5,12) = (/&
&4.4784e-02_jprb,3.9578e-02_jprb,3.6349e-02_jprb,3.3852e-02_jprb,3.1212e-02_jprb,2.7594e-02_jprb,&
&2.3985e-02_jprb,2.1768e-02_jprb,2.4335e-02_jprb/)
kao( :, 5, 5,12) = (/&
&4.4634e-02_jprb,3.9684e-02_jprb,3.6716e-02_jprb,3.4783e-02_jprb,3.2166e-02_jprb,2.8840e-02_jprb,&
&2.5566e-02_jprb,2.4589e-02_jprb,2.7780e-02_jprb/)
kao( :, 1, 6,12) = (/&
&4.3652e-02_jprb,3.8230e-02_jprb,3.4067e-02_jprb,3.0633e-02_jprb,2.7394e-02_jprb,2.4357e-02_jprb,&
&2.0018e-02_jprb,1.4129e-02_jprb,1.2309e-02_jprb/)
kao( :, 2, 6,12) = (/&
&4.4319e-02_jprb,3.8893e-02_jprb,3.5172e-02_jprb,3.1745e-02_jprb,2.8902e-02_jprb,2.5570e-02_jprb,&
&2.1093e-02_jprb,1.5716e-02_jprb,1.5104e-02_jprb/)
kao( :, 3, 6,12) = (/&
&4.4786e-02_jprb,3.9451e-02_jprb,3.6064e-02_jprb,3.2991e-02_jprb,3.0223e-02_jprb,2.6609e-02_jprb,&
&2.2435e-02_jprb,1.7637e-02_jprb,1.8165e-02_jprb/)
kao( :, 4, 6,12) = (/&
&4.4788e-02_jprb,3.9699e-02_jprb,3.6561e-02_jprb,3.4163e-02_jprb,3.1314e-02_jprb,2.7788e-02_jprb,&
&2.3906e-02_jprb,1.9877e-02_jprb,2.1395e-02_jprb/)
kao( :, 5, 6,12) = (/&
&4.4447e-02_jprb,3.9668e-02_jprb,3.6988e-02_jprb,3.5173e-02_jprb,3.2361e-02_jprb,2.9209e-02_jprb,&
&2.5326e-02_jprb,2.2392e-02_jprb,2.4740e-02_jprb/)
kao( :, 1, 7,12) = (/&
&4.2520e-02_jprb,3.7241e-02_jprb,3.3313e-02_jprb,2.9817e-02_jprb,2.6724e-02_jprb,2.3713e-02_jprb,&
&1.9392e-02_jprb,1.3514e-02_jprb,1.0779e-02_jprb/)
kao( :, 2, 7,12) = (/&
&4.3342e-02_jprb,3.8062e-02_jprb,3.4549e-02_jprb,3.1204e-02_jprb,2.8393e-02_jprb,2.5083e-02_jprb,&
&2.0539e-02_jprb,1.4970e-02_jprb,1.2835e-02_jprb/)
kao( :, 3, 7,12) = (/&
&4.3790e-02_jprb,3.8673e-02_jprb,3.5497e-02_jprb,3.2592e-02_jprb,2.9885e-02_jprb,2.6278e-02_jprb,&
&2.1950e-02_jprb,1.6561e-02_jprb,1.5528e-02_jprb/)
kao( :, 4, 7,12) = (/&
&4.3699e-02_jprb,3.8889e-02_jprb,3.6038e-02_jprb,3.3992e-02_jprb,3.1096e-02_jprb,2.7610e-02_jprb,&
&2.3462e-02_jprb,1.8494e-02_jprb,1.8561e-02_jprb/)
kao( :, 5, 7,12) = (/&
&4.3391e-02_jprb,3.8899e-02_jprb,3.6695e-02_jprb,3.5094e-02_jprb,3.2242e-02_jprb,2.9127e-02_jprb,&
&2.4986e-02_jprb,2.0683e-02_jprb,2.1759e-02_jprb/)
kao( :, 1, 8,12) = (/&
&4.0705e-02_jprb,3.5661e-02_jprb,3.2044e-02_jprb,2.8588e-02_jprb,2.5730e-02_jprb,2.2651e-02_jprb,&
&1.8403e-02_jprb,1.2786e-02_jprb,1.0617e-02_jprb/)
kao( :, 2, 8,12) = (/&
&4.1513e-02_jprb,3.6523e-02_jprb,3.3287e-02_jprb,3.0168e-02_jprb,2.7518e-02_jprb,2.4185e-02_jprb,&
&1.9645e-02_jprb,1.4186e-02_jprb,1.1770e-02_jprb/)
kao( :, 3, 8,12) = (/&
&4.1918e-02_jprb,3.7171e-02_jprb,3.4241e-02_jprb,3.1699e-02_jprb,2.9124e-02_jprb,2.5489e-02_jprb,&
&2.1120e-02_jprb,1.5769e-02_jprb,1.3550e-02_jprb/)
kao( :, 4, 8,12) = (/&
&4.1853e-02_jprb,3.7439e-02_jprb,3.4958e-02_jprb,3.3201e-02_jprb,3.0465e-02_jprb,2.6939e-02_jprb,&
&2.2712e-02_jprb,1.7517e-02_jprb,1.5986e-02_jprb/)
kao( :, 5, 8,12) = (/&
&4.1733e-02_jprb,3.7668e-02_jprb,3.5839e-02_jprb,3.4355e-02_jprb,3.1760e-02_jprb,2.8542e-02_jprb,&
&2.4348e-02_jprb,1.9402e-02_jprb,1.8887e-02_jprb/)
kao( :, 1, 9,12) = (/&
&3.8179e-02_jprb,3.3470e-02_jprb,3.0206e-02_jprb,2.7054e-02_jprb,2.4424e-02_jprb,2.1213e-02_jprb,&
&1.7112e-02_jprb,1.2467e-02_jprb,1.5003e-02_jprb/)
kao( :, 2, 9,12) = (/&
&3.9010e-02_jprb,3.4434e-02_jprb,3.1441e-02_jprb,2.8741e-02_jprb,2.6231e-02_jprb,2.2823e-02_jprb,&
&1.8428e-02_jprb,1.3530e-02_jprb,1.6372e-02_jprb/)
kao( :, 3, 9,12) = (/&
&3.9453e-02_jprb,3.5166e-02_jprb,3.2518e-02_jprb,3.0394e-02_jprb,2.7907e-02_jprb,2.4225e-02_jprb,&
&1.9954e-02_jprb,1.4900e-02_jprb,1.8039e-02_jprb/)
kao( :, 4, 9,12) = (/&
&3.9552e-02_jprb,3.5595e-02_jprb,3.3460e-02_jprb,3.1929e-02_jprb,2.9264e-02_jprb,2.5769e-02_jprb,&
&2.1600e-02_jprb,1.6537e-02_jprb,1.9903e-02_jprb/)
kao( :, 5, 9,12) = (/&
&3.9456e-02_jprb,3.5940e-02_jprb,3.4560e-02_jprb,3.3060e-02_jprb,3.0675e-02_jprb,2.7481e-02_jprb,&
&2.3382e-02_jprb,1.8398e-02_jprb,2.1739e-02_jprb/)
kao( :, 1,10,12) = (/&
&3.5238e-02_jprb,3.0971e-02_jprb,2.8042e-02_jprb,2.5331e-02_jprb,2.2876e-02_jprb,1.9632e-02_jprb,&
&1.5965e-02_jprb,1.2700e-02_jprb,4.7338e-02_jprb/)
kao( :, 2,10,12) = (/&
&3.6134e-02_jprb,3.2062e-02_jprb,2.9356e-02_jprb,2.7135e-02_jprb,2.4639e-02_jprb,2.1263e-02_jprb,&
&1.7126e-02_jprb,1.3564e-02_jprb,4.9352e-02_jprb/)
kao( :, 3,10,12) = (/&
&3.6647e-02_jprb,3.2881e-02_jprb,3.0571e-02_jprb,2.8822e-02_jprb,2.6275e-02_jprb,2.2691e-02_jprb,&
&1.8634e-02_jprb,1.4609e-02_jprb,5.1163e-02_jprb/)
kao( :, 4,10,12) = (/&
&3.6732e-02_jprb,3.3352e-02_jprb,3.1697e-02_jprb,3.0299e-02_jprb,2.7653e-02_jprb,2.4298e-02_jprb,&
&2.0355e-02_jprb,1.5925e-02_jprb,5.2665e-02_jprb/)
kao( :, 5,10,12) = (/&
&3.6735e-02_jprb,3.3801e-02_jprb,3.2857e-02_jprb,3.1401e-02_jprb,2.9116e-02_jprb,2.6070e-02_jprb,&
&2.2245e-02_jprb,1.7479e-02_jprb,5.4548e-02_jprb/)
kao( :, 1,11,12) = (/&
&3.2545e-02_jprb,2.8854e-02_jprb,2.6358e-02_jprb,2.4300e-02_jprb,2.1804e-02_jprb,1.8684e-02_jprb,&
&1.5775e-02_jprb,1.3392e-02_jprb,8.3440e-02_jprb/)
kao( :, 2,11,12) = (/&
&3.3300e-02_jprb,2.9905e-02_jprb,2.7758e-02_jprb,2.6019e-02_jprb,2.3465e-02_jprb,2.0097e-02_jprb,&
&1.6793e-02_jprb,1.4249e-02_jprb,8.5867e-02_jprb/)
kao( :, 3,11,12) = (/&
&3.3558e-02_jprb,3.0525e-02_jprb,2.8985e-02_jprb,2.7554e-02_jprb,2.4920e-02_jprb,2.1636e-02_jprb,&
&1.8144e-02_jprb,1.5281e-02_jprb,8.8098e-02_jprb/)
kao( :, 4,11,12) = (/&
&3.3710e-02_jprb,3.1080e-02_jprb,3.0218e-02_jprb,2.8753e-02_jprb,2.6347e-02_jprb,2.3365e-02_jprb,&
&1.9836e-02_jprb,1.6406e-02_jprb,9.0071e-02_jprb/)
kao( :, 5,11,12) = (/&
&3.3928e-02_jprb,3.1726e-02_jprb,3.1326e-02_jprb,2.9966e-02_jprb,2.7916e-02_jprb,2.5204e-02_jprb,&
&2.1753e-02_jprb,1.7712e-02_jprb,9.1519e-02_jprb/)
kao( :, 1,12,12) = (/&
&2.9830e-02_jprb,2.6721e-02_jprb,2.4676e-02_jprb,2.2938e-02_jprb,2.0448e-02_jprb,1.7882e-02_jprb,&
&1.5923e-02_jprb,1.3970e-02_jprb,1.1086e-01_jprb/)
kao( :, 2,12,12) = (/&
&3.0231e-02_jprb,2.7476e-02_jprb,2.6007e-02_jprb,2.4462e-02_jprb,2.1935e-02_jprb,1.9103e-02_jprb,&
&1.6840e-02_jprb,1.4875e-02_jprb,1.1330e-01_jprb/)
kao( :, 3,12,12) = (/&
&3.0491e-02_jprb,2.8099e-02_jprb,2.7260e-02_jprb,2.5711e-02_jprb,2.3307e-02_jprb,2.0562e-02_jprb,&
&1.8077e-02_jprb,1.5918e-02_jprb,1.1557e-01_jprb/)
kao( :, 4,12,12) = (/&
&3.0757e-02_jprb,2.8842e-02_jprb,2.8411e-02_jprb,2.6924e-02_jprb,2.4803e-02_jprb,2.2253e-02_jprb,&
&1.9581e-02_jprb,1.7012e-02_jprb,1.1765e-01_jprb/)
kao( :, 5,12,12) = (/&
&3.0918e-02_jprb,2.9599e-02_jprb,2.9489e-02_jprb,2.8288e-02_jprb,2.6494e-02_jprb,2.4129e-02_jprb,&
&2.1275e-02_jprb,1.8143e-02_jprb,1.1909e-01_jprb/)
kao( :, 1,13,12) = (/&
&2.7094e-02_jprb,2.4532e-02_jprb,2.3049e-02_jprb,2.1309e-02_jprb,1.9154e-02_jprb,1.7486e-02_jprb,&
&1.6144e-02_jprb,1.4353e-02_jprb,1.1524e-01_jprb/)
kao( :, 2,13,12) = (/&
&2.7412e-02_jprb,2.5168e-02_jprb,2.4223e-02_jprb,2.2514e-02_jprb,2.0316e-02_jprb,1.8507e-02_jprb,&
&1.7150e-02_jprb,1.5366e-02_jprb,1.1754e-01_jprb/)
kao( :, 3,13,12) = (/&
&2.7677e-02_jprb,2.5904e-02_jprb,2.5334e-02_jprb,2.3685e-02_jprb,2.1617e-02_jprb,1.9773e-02_jprb,&
&1.8343e-02_jprb,1.6413e-02_jprb,1.1954e-01_jprb/)
kao( :, 4,13,12) = (/&
&2.7872e-02_jprb,2.6672e-02_jprb,2.6384e-02_jprb,2.5015e-02_jprb,2.3188e-02_jprb,2.1278e-02_jprb,&
&1.9644e-02_jprb,1.7533e-02_jprb,1.2118e-01_jprb/)
kao( :, 5,13,12) = (/&
&2.7954e-02_jprb,2.7488e-02_jprb,2.7495e-02_jprb,2.6532e-02_jprb,2.4977e-02_jprb,2.3012e-02_jprb,&
&2.1088e-02_jprb,1.8595e-02_jprb,1.2230e-01_jprb/)
kao( :, 1, 1,13) = (/&
&5.6053e-02_jprb,4.9173e-02_jprb,4.2351e-02_jprb,3.6619e-02_jprb,3.1919e-02_jprb,2.7549e-02_jprb,&
&2.5709e-02_jprb,2.8817e-02_jprb,3.2228e-02_jprb/)
kao( :, 2, 1,13) = (/&
&5.5104e-02_jprb,4.8363e-02_jprb,4.1989e-02_jprb,3.6731e-02_jprb,3.2283e-02_jprb,2.9042e-02_jprb,&
&2.9013e-02_jprb,3.3235e-02_jprb,3.7260e-02_jprb/)
kao( :, 3, 1,13) = (/&
&5.3995e-02_jprb,4.7411e-02_jprb,4.1385e-02_jprb,3.6532e-02_jprb,3.2764e-02_jprb,3.0737e-02_jprb,&
&3.2896e-02_jprb,3.7808e-02_jprb,4.2479e-02_jprb/)
kao( :, 4, 1,13) = (/&
&5.2736e-02_jprb,4.6336e-02_jprb,4.0785e-02_jprb,3.6489e-02_jprb,3.3723e-02_jprb,3.2658e-02_jprb,&
&3.6921e-02_jprb,4.2523e-02_jprb,4.7856e-02_jprb/)
kao( :, 5, 1,13) = (/&
&5.1501e-02_jprb,4.5267e-02_jprb,4.0254e-02_jprb,3.6460e-02_jprb,3.5114e-02_jprb,3.5037e-02_jprb,&
&4.0972e-02_jprb,4.7260e-02_jprb,5.3261e-02_jprb/)
kao( :, 1, 2,13) = (/&
&6.0681e-02_jprb,5.3202e-02_jprb,4.5845e-02_jprb,3.9636e-02_jprb,3.4042e-02_jprb,2.9064e-02_jprb,&
&2.6532e-02_jprb,2.9036e-02_jprb,3.2832e-02_jprb/)
kao( :, 2, 2,13) = (/&
&5.9591e-02_jprb,5.2263e-02_jprb,4.5381e-02_jprb,3.9598e-02_jprb,3.4216e-02_jprb,3.0746e-02_jprb,&
&2.9570e-02_jprb,3.3591e-02_jprb,3.8065e-02_jprb/)
kao( :, 3, 2,13) = (/&
&5.8268e-02_jprb,5.1123e-02_jprb,4.4655e-02_jprb,3.9364e-02_jprb,3.4820e-02_jprb,3.2584e-02_jprb,&
&3.3306e-02_jprb,3.8344e-02_jprb,4.3514e-02_jprb/)
kao( :, 4, 2,13) = (/&
&5.6859e-02_jprb,4.9908e-02_jprb,4.4073e-02_jprb,3.9320e-02_jprb,3.5951e-02_jprb,3.4443e-02_jprb,&
&3.7381e-02_jprb,4.3145e-02_jprb,4.9018e-02_jprb/)
kao( :, 5, 2,13) = (/&
&5.5606e-02_jprb,4.8809e-02_jprb,4.3641e-02_jprb,3.9295e-02_jprb,3.7457e-02_jprb,3.6510e-02_jprb,&
&4.1577e-02_jprb,4.8053e-02_jprb,5.4636e-02_jprb/)
kao( :, 1, 3,13) = (/&
&6.5281e-02_jprb,5.7202e-02_jprb,4.9259e-02_jprb,4.2481e-02_jprb,3.6242e-02_jprb,3.0257e-02_jprb,&
&2.6947e-02_jprb,2.7850e-02_jprb,3.1754e-02_jprb/)
kao( :, 2, 3,13) = (/&
&6.4026e-02_jprb,5.6115e-02_jprb,4.8709e-02_jprb,4.2529e-02_jprb,3.6413e-02_jprb,3.1975e-02_jprb,&
&2.9537e-02_jprb,3.2421e-02_jprb,3.6975e-02_jprb/)
kao( :, 3, 3,13) = (/&
&6.2582e-02_jprb,5.4864e-02_jprb,4.7944e-02_jprb,4.2387e-02_jprb,3.6942e-02_jprb,3.3882e-02_jprb,&
&3.2746e-02_jprb,3.7152e-02_jprb,4.2391e-02_jprb/)
kao( :, 4, 3,13) = (/&
&6.1252e-02_jprb,5.3699e-02_jprb,4.7471e-02_jprb,4.2276e-02_jprb,3.8007e-02_jprb,3.5845e-02_jprb,&
&3.6492e-02_jprb,4.2063e-02_jprb,4.8049e-02_jprb/)
kao( :, 5, 3,13) = (/&
&6.0092e-02_jprb,5.2697e-02_jprb,4.7050e-02_jprb,4.2178e-02_jprb,3.9419e-02_jprb,3.7791e-02_jprb,&
&4.0791e-02_jprb,4.7197e-02_jprb,5.3978e-02_jprb/)
kao( :, 1, 4,13) = (/&
&6.9156e-02_jprb,6.0580e-02_jprb,5.2151e-02_jprb,4.4993e-02_jprb,3.8321e-02_jprb,3.1681e-02_jprb,&
&2.7066e-02_jprb,2.6200e-02_jprb,2.9938e-02_jprb/)
kao( :, 2, 4,13) = (/&
&6.7721e-02_jprb,5.9333e-02_jprb,5.1460e-02_jprb,4.5174e-02_jprb,3.8672e-02_jprb,3.3341e-02_jprb,&
&2.9463e-02_jprb,3.0601e-02_jprb,3.4960e-02_jprb/)
kao( :, 3, 4,13) = (/&
&6.6317e-02_jprb,5.8105e-02_jprb,5.0834e-02_jprb,4.5138e-02_jprb,3.9401e-02_jprb,3.5131e-02_jprb,&
&3.2153e-02_jprb,3.5157e-02_jprb,4.0204e-02_jprb/)
kao( :, 4, 4,13) = (/&
&6.5137e-02_jprb,5.7074e-02_jprb,5.0526e-02_jprb,4.5041e-02_jprb,4.0452e-02_jprb,3.6956e-02_jprb,&
&3.5433e-02_jprb,4.0097e-02_jprb,4.5914e-02_jprb/)
kao( :, 5, 4,13) = (/&
&6.4115e-02_jprb,5.6230e-02_jprb,5.0276e-02_jprb,4.5144e-02_jprb,4.1609e-02_jprb,3.8932e-02_jprb,&
&3.9448e-02_jprb,4.5417e-02_jprb,5.2017e-02_jprb/)
kao( :, 1, 5,13) = (/&
&7.2400e-02_jprb,6.3404e-02_jprb,5.4540e-02_jprb,4.7112e-02_jprb,4.0185e-02_jprb,3.3245e-02_jprb,&
&2.7454e-02_jprb,2.4538e-02_jprb,2.7637e-02_jprb/)
kao( :, 2, 5,13) = (/&
&7.1034e-02_jprb,6.2212e-02_jprb,5.3950e-02_jprb,4.7421e-02_jprb,4.0716e-02_jprb,3.5033e-02_jprb,&
&2.9541e-02_jprb,2.8475e-02_jprb,3.2456e-02_jprb/)
kao( :, 3, 5,13) = (/&
&6.9683e-02_jprb,6.1033e-02_jprb,5.3449e-02_jprb,4.7487e-02_jprb,4.1776e-02_jprb,3.6647e-02_jprb,&
&3.1941e-02_jprb,3.2964e-02_jprb,3.7708e-02_jprb/)
kao( :, 4, 5,13) = (/&
&6.8593e-02_jprb,6.0082e-02_jprb,5.3255e-02_jprb,4.7581e-02_jprb,4.2936e-02_jprb,3.8247e-02_jprb,&
&3.4793e-02_jprb,3.7940e-02_jprb,4.3452e-02_jprb/)
kao( :, 5, 5,13) = (/&
&6.7660e-02_jprb,5.9367e-02_jprb,5.3230e-02_jprb,4.8095e-02_jprb,4.3998e-02_jprb,4.0012e-02_jprb,&
&3.8369e-02_jprb,4.3216e-02_jprb,4.9502e-02_jprb/)
kao( :, 1, 6,13) = (/&
&7.5282e-02_jprb,6.5913e-02_jprb,5.6672e-02_jprb,4.9038e-02_jprb,4.1667e-02_jprb,3.4580e-02_jprb,&
&2.8084e-02_jprb,2.2885e-02_jprb,2.4729e-02_jprb/)
kao( :, 2, 6,13) = (/&
&7.3954e-02_jprb,6.4757e-02_jprb,5.6182e-02_jprb,4.9451e-02_jprb,4.2376e-02_jprb,3.6480e-02_jprb,&
&3.0034e-02_jprb,2.6432e-02_jprb,2.9602e-02_jprb/)
kao( :, 3, 6,13) = (/&
&7.2618e-02_jprb,6.3591e-02_jprb,5.5752e-02_jprb,4.9591e-02_jprb,4.3630e-02_jprb,3.8182e-02_jprb,&
&3.2101e-02_jprb,3.0615e-02_jprb,3.4863e-02_jprb/)
kao( :, 4, 6,13) = (/&
&7.1650e-02_jprb,6.2766e-02_jprb,5.5838e-02_jprb,4.9867e-02_jprb,4.5071e-02_jprb,3.9626e-02_jprb,&
&3.4633e-02_jprb,3.5415e-02_jprb,4.0513e-02_jprb/)
kao( :, 5, 6,13) = (/&
&7.0928e-02_jprb,6.2275e-02_jprb,5.5944e-02_jprb,5.0656e-02_jprb,4.6360e-02_jprb,4.1240e-02_jprb,&
&3.7820e-02_jprb,4.0601e-02_jprb,4.6473e-02_jprb/)
kao( :, 1, 7,13) = (/&
&7.7231e-02_jprb,6.7608e-02_jprb,5.8137e-02_jprb,5.0496e-02_jprb,4.2780e-02_jprb,3.5440e-02_jprb,&
&2.8711e-02_jprb,2.1532e-02_jprb,2.1358e-02_jprb/)
kao( :, 2, 7,13) = (/&
&7.6126e-02_jprb,6.6645e-02_jprb,5.7867e-02_jprb,5.0956e-02_jprb,4.3638e-02_jprb,3.7441e-02_jprb,&
&3.0756e-02_jprb,2.4515e-02_jprb,2.6150e-02_jprb/)
kao( :, 3, 7,13) = (/&
&7.4977e-02_jprb,6.5643e-02_jprb,5.7692e-02_jprb,5.1264e-02_jprb,4.5058e-02_jprb,3.9385e-02_jprb,&
&3.2638e-02_jprb,2.8375e-02_jprb,3.1403e-02_jprb/)
kao( :, 4, 7,13) = (/&
&7.4190e-02_jprb,6.5005e-02_jprb,5.7989e-02_jprb,5.1738e-02_jprb,4.6795e-02_jprb,4.1075e-02_jprb,&
&3.4915e-02_jprb,3.2892e-02_jprb,3.7110e-02_jprb/)
kao( :, 5, 7,13) = (/&
&7.3624e-02_jprb,6.4678e-02_jprb,5.8242e-02_jprb,5.2839e-02_jprb,4.8405e-02_jprb,4.2696e-02_jprb,&
&3.7814e-02_jprb,3.7869e-02_jprb,4.3186e-02_jprb/)
kao( :, 1, 8,13) = (/&
&7.8000e-02_jprb,6.8274e-02_jprb,5.8718e-02_jprb,5.1101e-02_jprb,4.3121e-02_jprb,3.5929e-02_jprb,&
&2.8945e-02_jprb,2.0591e-02_jprb,1.8045e-02_jprb/)
kao( :, 2, 8,13) = (/&
&7.7193e-02_jprb,6.7571e-02_jprb,5.8739e-02_jprb,5.1625e-02_jprb,4.4291e-02_jprb,3.8058e-02_jprb,&
&3.1224e-02_jprb,2.3099e-02_jprb,2.2474e-02_jprb/)
kao( :, 3, 8,13) = (/&
&7.6273e-02_jprb,6.6769e-02_jprb,5.8915e-02_jprb,5.2274e-02_jprb,4.5989e-02_jprb,4.0273e-02_jprb,&
&3.3241e-02_jprb,2.6350e-02_jprb,2.7546e-02_jprb/)
kao( :, 4, 8,13) = (/&
&7.5688e-02_jprb,6.6346e-02_jprb,5.9396e-02_jprb,5.3087e-02_jprb,4.8066e-02_jprb,4.2222e-02_jprb,&
&3.5406e-02_jprb,3.0325e-02_jprb,3.3143e-02_jprb/)
kao( :, 5, 8,13) = (/&
&7.5270e-02_jprb,6.6169e-02_jprb,5.9886e-02_jprb,5.4558e-02_jprb,5.0013e-02_jprb,4.4073e-02_jprb,&
&3.8032e-02_jprb,3.5067e-02_jprb,3.9209e-02_jprb/)
kao( :, 1, 9,13) = (/&
&7.7473e-02_jprb,6.7808e-02_jprb,5.8332e-02_jprb,5.0781e-02_jprb,4.2784e-02_jprb,3.5895e-02_jprb,&
&2.8746e-02_jprb,1.9977e-02_jprb,2.5516e-02_jprb/)
kao( :, 2, 9,13) = (/&
&7.6914e-02_jprb,6.7321e-02_jprb,5.8710e-02_jprb,5.1554e-02_jprb,4.4348e-02_jprb,3.8188e-02_jprb,&
&3.1209e-02_jprb,2.2143e-02_jprb,2.7211e-02_jprb/)
kao( :, 3, 9,13) = (/&
&7.6348e-02_jprb,6.6831e-02_jprb,5.9238e-02_jprb,5.2455e-02_jprb,4.6359e-02_jprb,4.0690e-02_jprb,&
&3.3365e-02_jprb,2.4927e-02_jprb,2.8892e-02_jprb/)
kao( :, 4, 9,13) = (/&
&7.6078e-02_jprb,6.6718e-02_jprb,5.9965e-02_jprb,5.3687e-02_jprb,4.8782e-02_jprb,4.2963e-02_jprb,&
&3.5682e-02_jprb,2.8422e-02_jprb,3.1640e-02_jprb/)
kao( :, 5, 9,13) = (/&
&7.5933e-02_jprb,6.6835e-02_jprb,6.0758e-02_jprb,5.5666e-02_jprb,5.1075e-02_jprb,4.5007e-02_jprb,&
&3.8345e-02_jprb,3.2458e-02_jprb,3.5657e-02_jprb/)
kao( :, 1,10,13) = (/&
&7.5495e-02_jprb,6.6073e-02_jprb,5.6962e-02_jprb,4.9669e-02_jprb,4.1944e-02_jprb,3.5433e-02_jprb,&
&2.8273e-02_jprb,1.9547e-02_jprb,6.8270e-02_jprb/)
kao( :, 2,10,13) = (/&
&7.5127e-02_jprb,6.5753e-02_jprb,5.7655e-02_jprb,5.0612e-02_jprb,4.3966e-02_jprb,3.7985e-02_jprb,&
&3.0798e-02_jprb,2.1586e-02_jprb,7.2556e-02_jprb/)
kao( :, 3,10,13) = (/&
&7.4986e-02_jprb,6.5658e-02_jprb,5.8530e-02_jprb,5.1941e-02_jprb,4.6351e-02_jprb,4.0729e-02_jprb,&
&3.3154e-02_jprb,2.4145e-02_jprb,7.6901e-02_jprb/)
kao( :, 4,10,13) = (/&
&7.5261e-02_jprb,6.6078e-02_jprb,5.9658e-02_jprb,5.3761e-02_jprb,4.9061e-02_jprb,4.3256e-02_jprb,&
&3.5593e-02_jprb,2.7205e-02_jprb,8.0949e-02_jprb/)
kao( :, 5,10,13) = (/&
&7.5310e-02_jprb,6.6484e-02_jprb,6.0891e-02_jprb,5.6203e-02_jprb,5.1608e-02_jprb,4.5631e-02_jprb,&
&3.8393e-02_jprb,3.0810e-02_jprb,8.3946e-02_jprb/)
kao( :, 1,11,13) = (/&
&7.2145e-02_jprb,6.3140e-02_jprb,5.5079e-02_jprb,4.8199e-02_jprb,4.1552e-02_jprb,3.5607e-02_jprb,&
&2.8410e-02_jprb,2.0333e-02_jprb,1.1722e-01_jprb/)
kao( :, 2,11,13) = (/&
&7.2308e-02_jprb,6.3289e-02_jprb,5.6229e-02_jprb,4.9646e-02_jprb,4.4153e-02_jprb,3.8471e-02_jprb,&
&3.1024e-02_jprb,2.2227e-02_jprb,1.2017e-01_jprb/)
kao( :, 3,11,13) = (/&
&7.2843e-02_jprb,6.3926e-02_jprb,5.7644e-02_jprb,5.1784e-02_jprb,4.7031e-02_jprb,4.1323e-02_jprb,&
&3.3588e-02_jprb,2.4733e-02_jprb,1.2387e-01_jprb/)
kao( :, 4,11,13) = (/&
&7.3135e-02_jprb,6.4581e-02_jprb,5.9101e-02_jprb,5.4448e-02_jprb,4.9988e-02_jprb,4.3915e-02_jprb,&
&3.6387e-02_jprb,2.7718e-02_jprb,1.2773e-01_jprb/)
kao( :, 5,11,13) = (/&
&7.3317e-02_jprb,6.5357e-02_jprb,6.0772e-02_jprb,5.7257e-02_jprb,5.2643e-02_jprb,4.6647e-02_jprb,&
&3.9495e-02_jprb,3.1088e-02_jprb,1.3117e-01_jprb/)
kao( :, 1,12,13) = (/&
&6.8339e-02_jprb,5.9807e-02_jprb,5.2868e-02_jprb,4.6514e-02_jprb,4.1030e-02_jprb,3.5325e-02_jprb,&
&2.8259e-02_jprb,2.1368e-02_jprb,1.5845e-01_jprb/)
kao( :, 2,12,13) = (/&
&6.9028e-02_jprb,6.0544e-02_jprb,5.4494e-02_jprb,4.8800e-02_jprb,4.4025e-02_jprb,3.8260e-02_jprb,&
&3.0917e-02_jprb,2.3169e-02_jprb,1.6072e-01_jprb/)
kao( :, 3,12,13) = (/&
&6.9564e-02_jprb,6.1451e-02_jprb,5.6107e-02_jprb,5.1605e-02_jprb,4.7233e-02_jprb,4.1139e-02_jprb,&
&3.3727e-02_jprb,2.5462e-02_jprb,1.6379e-01_jprb/)
kao( :, 4,12,13) = (/&
&7.0110e-02_jprb,6.2544e-02_jprb,5.8080e-02_jprb,5.4612e-02_jprb,5.0269e-02_jprb,4.4060e-02_jprb,&
&3.6850e-02_jprb,2.8277e-02_jprb,1.6703e-01_jprb/)
kao( :, 5,12,13) = (/&
&7.0812e-02_jprb,6.3874e-02_jprb,6.0361e-02_jprb,5.7551e-02_jprb,5.3132e-02_jprb,4.7188e-02_jprb,&
&4.0179e-02_jprb,3.1468e-02_jprb,1.7022e-01_jprb/)
kao( :, 1,13,13) = (/&
&6.4142e-02_jprb,5.6225e-02_jprb,5.0394e-02_jprb,4.4947e-02_jprb,4.0201e-02_jprb,3.4418e-02_jprb,&
&2.8158e-02_jprb,2.2746e-02_jprb,1.7050e-01_jprb/)
kao( :, 2,13,13) = (/&
&6.4886e-02_jprb,5.7309e-02_jprb,5.2171e-02_jprb,4.7818e-02_jprb,4.3432e-02_jprb,3.7455e-02_jprb,&
&3.0630e-02_jprb,2.4364e-02_jprb,1.7276e-01_jprb/)
kao( :, 3,13,13) = (/&
&6.5727e-02_jprb,5.8652e-02_jprb,5.4299e-02_jprb,5.0937e-02_jprb,4.6609e-02_jprb,4.0612e-02_jprb,&
&3.3484e-02_jprb,2.6453e-02_jprb,1.7566e-01_jprb/)
kao( :, 4,13,13) = (/&
&6.6753e-02_jprb,6.0302e-02_jprb,5.6875e-02_jprb,5.4053e-02_jprb,4.9735e-02_jprb,4.3858e-02_jprb,&
&3.6837e-02_jprb,2.8969e-02_jprb,1.7832e-01_jprb/)
kao( :, 5,13,13) = (/&
&6.7695e-02_jprb,6.1869e-02_jprb,5.9620e-02_jprb,5.7064e-02_jprb,5.2850e-02_jprb,4.7362e-02_jprb,&
&4.0382e-02_jprb,3.1936e-02_jprb,1.8057e-01_jprb/)
kao( :, 1, 1,14) = (/&
&7.1125e-02_jprb,6.2447e-02_jprb,5.3777e-02_jprb,4.6002e-02_jprb,3.9919e-02_jprb,3.6099e-02_jprb,&
&4.0006e-02_jprb,4.6122e-02_jprb,5.1833e-02_jprb/)
kao( :, 2, 1,14) = (/&
&6.9870e-02_jprb,6.1342e-02_jprb,5.2827e-02_jprb,4.5922e-02_jprb,4.0565e-02_jprb,3.9007e-02_jprb,&
&4.5679e-02_jprb,5.2643e-02_jprb,5.9148e-02_jprb/)
kao( :, 3, 1,14) = (/&
&6.8757e-02_jprb,6.0364e-02_jprb,5.2393e-02_jprb,4.6480e-02_jprb,4.1375e-02_jprb,4.3228e-02_jprb,&
&5.1554e-02_jprb,5.9415e-02_jprb,6.6727e-02_jprb/)
kao( :, 4, 1,14) = (/&
&6.7713e-02_jprb,5.9439e-02_jprb,5.2158e-02_jprb,4.6803e-02_jprb,4.2633e-02_jprb,4.8201e-02_jprb,&
&5.7539e-02_jprb,6.6348e-02_jprb,7.4536e-02_jprb/)
kao( :, 5, 1,14) = (/&
&6.6600e-02_jprb,5.8466e-02_jprb,5.1820e-02_jprb,4.7055e-02_jprb,4.4661e-02_jprb,5.3325e-02_jprb,&
&6.3678e-02_jprb,7.3404e-02_jprb,8.2448e-02_jprb/)
kao( :, 1, 2,14) = (/&
&7.7042e-02_jprb,6.7550e-02_jprb,5.8058e-02_jprb,4.9570e-02_jprb,4.3264e-02_jprb,3.8479e-02_jprb,&
&4.1328e-02_jprb,4.7688e-02_jprb,5.4228e-02_jprb/)
kao( :, 2, 2,14) = (/&
&7.5776e-02_jprb,6.6451e-02_jprb,5.7187e-02_jprb,4.9780e-02_jprb,4.4125e-02_jprb,4.1352e-02_jprb,&
&4.7706e-02_jprb,5.5037e-02_jprb,6.2579e-02_jprb/)
kao( :, 3, 2,14) = (/&
&7.4669e-02_jprb,6.5491e-02_jprb,5.6847e-02_jprb,5.0512e-02_jprb,4.5218e-02_jprb,4.5782e-02_jprb,&
&5.4332e-02_jprb,6.2645e-02_jprb,7.1228e-02_jprb/)
kao( :, 4, 2,14) = (/&
&7.3494e-02_jprb,6.4459e-02_jprb,5.6471e-02_jprb,5.0688e-02_jprb,4.6511e-02_jprb,5.1170e-02_jprb,&
&6.1095e-02_jprb,7.0411e-02_jprb,8.0040e-02_jprb/)
kao( :, 5, 2,14) = (/&
&7.2133e-02_jprb,6.3274e-02_jprb,5.5909e-02_jprb,5.0987e-02_jprb,4.8402e-02_jprb,5.6911e-02_jprb,&
&6.7954e-02_jprb,7.8300e-02_jprb,8.9007e-02_jprb/)
kao( :, 1, 3,14) = (/&
&8.3277e-02_jprb,7.2971e-02_jprb,6.2667e-02_jprb,5.3474e-02_jprb,4.6645e-02_jprb,4.0581e-02_jprb,&
&4.0951e-02_jprb,4.7132e-02_jprb,5.4097e-02_jprb/)
kao( :, 2, 3,14) = (/&
&8.2055e-02_jprb,7.1904e-02_jprb,6.1829e-02_jprb,5.3750e-02_jprb,4.7688e-02_jprb,4.3144e-02_jprb,&
&4.7845e-02_jprb,5.5169e-02_jprb,6.3384e-02_jprb/)
kao( :, 3, 3,14) = (/&
&8.0862e-02_jprb,7.0861e-02_jprb,6.1457e-02_jprb,5.4455e-02_jprb,4.8823e-02_jprb,4.7333e-02_jprb,&
&5.5190e-02_jprb,6.3675e-02_jprb,7.3215e-02_jprb/)
kao( :, 4, 3,14) = (/&
&7.9537e-02_jprb,6.9705e-02_jprb,6.0972e-02_jprb,5.4811e-02_jprb,5.0281e-02_jprb,5.2809e-02_jprb,&
&6.2782e-02_jprb,7.2454e-02_jprb,8.3349e-02_jprb/)
kao( :, 5, 3,14) = (/&
&7.8064e-02_jprb,6.8419e-02_jprb,6.0465e-02_jprb,5.5324e-02_jprb,5.2307e-02_jprb,5.9034e-02_jprb,&
&7.0524e-02_jprb,8.1382e-02_jprb,9.3638e-02_jprb/)
kao( :, 1, 4,14) = (/&
&9.0845e-02_jprb,7.9564e-02_jprb,6.8284e-02_jprb,5.7995e-02_jprb,5.0071e-02_jprb,4.2766e-02_jprb,&
&4.0354e-02_jprb,4.5834e-02_jprb,5.2848e-02_jprb/)
kao( :, 2, 4,14) = (/&
&8.9552e-02_jprb,7.8435e-02_jprb,6.7367e-02_jprb,5.8123e-02_jprb,5.1123e-02_jprb,4.5183e-02_jprb,&
&4.7218e-02_jprb,5.4390e-02_jprb,6.2802e-02_jprb/)
kao( :, 3, 4,14) = (/&
&8.8242e-02_jprb,7.7291e-02_jprb,6.6872e-02_jprb,5.8721e-02_jprb,5.2277e-02_jprb,4.9062e-02_jprb,&
&5.5104e-02_jprb,6.3535e-02_jprb,7.3415e-02_jprb/)
kao( :, 4, 4,14) = (/&
&8.6759e-02_jprb,7.5998e-02_jprb,6.6249e-02_jprb,5.9144e-02_jprb,5.4005e-02_jprb,5.4305e-02_jprb,&
&6.3297e-02_jprb,7.3031e-02_jprb,8.4384e-02_jprb/)
kao( :, 5, 4,14) = (/&
&8.5264e-02_jprb,7.4691e-02_jprb,6.5716e-02_jprb,5.9851e-02_jprb,5.6460e-02_jprb,6.0471e-02_jprb,&
&7.1720e-02_jprb,8.2783e-02_jprb,9.5664e-02_jprb/)
kao( :, 1, 5,14) = (/&
&9.9315e-02_jprb,8.6956e-02_jprb,7.4597e-02_jprb,6.3098e-02_jprb,5.3822e-02_jprb,4.5087e-02_jprb,&
&4.0285e-02_jprb,4.4268e-02_jprb,5.1127e-02_jprb/)
kao( :, 2, 5,14) = (/&
&9.7906e-02_jprb,8.5725e-02_jprb,7.3576e-02_jprb,6.3138e-02_jprb,5.4941e-02_jprb,4.7422e-02_jprb,&
&4.6902e-02_jprb,5.3385e-02_jprb,6.1752e-02_jprb/)
kao( :, 3, 5,14) = (/&
&9.6528e-02_jprb,8.4522e-02_jprb,7.2985e-02_jprb,6.3691e-02_jprb,5.5941e-02_jprb,5.1390e-02_jprb,&
&5.4800e-02_jprb,6.3141e-02_jprb,7.3064e-02_jprb/)
kao( :, 4, 5,14) = (/&
&9.5030e-02_jprb,8.3215e-02_jprb,7.2382e-02_jprb,6.4248e-02_jprb,5.7876e-02_jprb,5.6367e-02_jprb,&
&6.3403e-02_jprb,7.3204e-02_jprb,8.4675e-02_jprb/)
kao( :, 5, 5,14) = (/&
&9.3519e-02_jprb,8.1896e-02_jprb,7.1942e-02_jprb,6.4913e-02_jprb,6.0750e-02_jprb,6.2288e-02_jprb,&
&7.2363e-02_jprb,8.3574e-02_jprb,9.6711e-02_jprb/)
kao( :, 1, 6,14) = (/&
&1.0848e-01_jprb,9.4964e-02_jprb,8.1446e-02_jprb,6.8624e-02_jprb,5.8073e-02_jprb,4.7733e-02_jprb,&
&4.0794e-02_jprb,4.2233e-02_jprb,4.8838e-02_jprb/)
kao( :, 2, 6,14) = (/&
&1.0700e-01_jprb,9.3665e-02_jprb,8.0341e-02_jprb,6.8687e-02_jprb,5.9287e-02_jprb,4.9965e-02_jprb,&
&4.6801e-02_jprb,5.1522e-02_jprb,5.9571e-02_jprb/)
kao( :, 3, 6,14) = (/&
&1.0569e-01_jprb,9.2526e-02_jprb,7.9786e-02_jprb,6.9323e-02_jprb,6.0296e-02_jprb,5.3850e-02_jprb,&
&5.4326e-02_jprb,6.1617e-02_jprb,7.1174e-02_jprb/)
kao( :, 4, 6,14) = (/&
&1.0422e-01_jprb,9.1243e-02_jprb,7.9257e-02_jprb,7.0200e-02_jprb,6.2110e-02_jprb,5.8890e-02_jprb,&
&6.2697e-02_jprb,7.2186e-02_jprb,8.3411e-02_jprb/)
kao( :, 5, 6,14) = (/&
&1.0274e-01_jprb,8.9945e-02_jprb,7.8955e-02_jprb,7.0870e-02_jprb,6.5007e-02_jprb,6.4538e-02_jprb,&
&7.1962e-02_jprb,8.3225e-02_jprb,9.6184e-02_jprb/)
kao( :, 1, 7,14) = (/&
&1.1805e-01_jprb,1.0333e-01_jprb,8.8604e-02_jprb,7.4383e-02_jprb,6.2795e-02_jprb,5.0938e-02_jprb,&
&4.1734e-02_jprb,4.0173e-02_jprb,4.6320e-02_jprb/)
kao( :, 2, 7,14) = (/&
&1.1659e-01_jprb,1.0206e-01_jprb,8.7517e-02_jprb,7.4746e-02_jprb,6.4050e-02_jprb,5.3141e-02_jprb,&
&4.7155e-02_jprb,4.9297e-02_jprb,5.6966e-02_jprb/)
kao( :, 3, 7,14) = (/&
&1.1548e-01_jprb,1.0108e-01_jprb,8.7065e-02_jprb,7.5639e-02_jprb,6.5270e-02_jprb,5.6793e-02_jprb,&
&5.4049e-02_jprb,5.9341e-02_jprb,6.8535e-02_jprb/)
kao( :, 4, 7,14) = (/&
&1.1421e-01_jprb,9.9974e-02_jprb,8.6788e-02_jprb,7.6683e-02_jprb,6.6954e-02_jprb,6.1718e-02_jprb,&
&6.2059e-02_jprb,7.0009e-02_jprb,8.0835e-02_jprb/)
kao( :, 5, 7,14) = (/&
&1.1283e-01_jprb,9.8769e-02_jprb,8.6621e-02_jprb,7.7418e-02_jprb,6.9776e-02_jprb,6.7214e-02_jprb,&
&7.0897e-02_jprb,8.1280e-02_jprb,9.3717e-02_jprb/)
kao( :, 1, 8,14) = (/&
&1.2760e-01_jprb,1.1168e-01_jprb,9.5756e-02_jprb,8.0242e-02_jprb,6.7771e-02_jprb,5.4512e-02_jprb,&
&4.3297e-02_jprb,3.8468e-02_jprb,4.3412e-02_jprb/)
kao( :, 2, 8,14) = (/&
&1.2647e-01_jprb,1.1069e-01_jprb,9.4911e-02_jprb,8.1080e-02_jprb,6.9303e-02_jprb,5.6801e-02_jprb,&
&4.8262e-02_jprb,4.7089e-02_jprb,5.4046e-02_jprb/)
kao( :, 3, 8,14) = (/&
&1.2554e-01_jprb,1.0988e-01_jprb,9.4556e-02_jprb,8.2231e-02_jprb,7.0704e-02_jprb,6.0253e-02_jprb,&
&5.4589e-02_jprb,5.6872e-02_jprb,6.5560e-02_jprb/)
kao( :, 4, 8,14) = (/&
&1.2457e-01_jprb,1.0903e-01_jprb,9.4616e-02_jprb,8.3457e-02_jprb,7.2396e-02_jprb,6.4980e-02_jprb,&
&6.1867e-02_jprb,6.7548e-02_jprb,7.7808e-02_jprb/)
kao( :, 5, 8,14) = (/&
&1.2330e-01_jprb,1.0792e-01_jprb,9.4626e-02_jprb,8.4389e-02_jprb,7.5157e-02_jprb,7.0416e-02_jprb,&
&7.0105e-02_jprb,7.8665e-02_jprb,9.0560e-02_jprb/)
kao( :, 1, 9,14) = (/&
&1.3720e-01_jprb,1.2007e-01_jprb,1.0294e-01_jprb,8.6103e-02_jprb,7.2470e-02_jprb,5.8097e-02_jprb,&
&4.5389e-02_jprb,3.6904e-02_jprb,4.1799e-02_jprb/)
kao( :, 2, 9,14) = (/&
&1.3628e-01_jprb,1.1927e-01_jprb,1.0226e-01_jprb,8.7181e-02_jprb,7.4343e-02_jprb,6.0740e-02_jprb,&
&4.9959e-02_jprb,4.4876e-02_jprb,5.0393e-02_jprb/)
kao( :, 3, 9,14) = (/&
&1.3535e-01_jprb,1.1846e-01_jprb,1.0188e-01_jprb,8.8693e-02_jprb,7.6184e-02_jprb,6.4206e-02_jprb,&
&5.5907e-02_jprb,5.4085e-02_jprb,6.1556e-02_jprb/)
kao( :, 4, 9,14) = (/&
&1.3444e-01_jprb,1.1766e-01_jprb,1.0208e-01_jprb,9.0218e-02_jprb,7.8130e-02_jprb,6.8528e-02_jprb,&
&6.2619e-02_jprb,6.4323e-02_jprb,7.3797e-02_jprb/)
kao( :, 5, 9,14) = (/&
&1.3348e-01_jprb,1.1683e-01_jprb,1.0242e-01_jprb,9.1503e-02_jprb,8.0977e-02_jprb,7.3855e-02_jprb,&
&6.9865e-02_jprb,7.5417e-02_jprb,8.6747e-02_jprb/)
kao( :, 1,10,14) = (/&
&1.4622e-01_jprb,1.2796e-01_jprb,1.0970e-01_jprb,9.1694e-02_jprb,7.6915e-02_jprb,6.1594e-02_jprb,&
&4.7802e-02_jprb,3.6372e-02_jprb,1.2782e-01_jprb/)
kao( :, 2,10,14) = (/&
&1.4558e-01_jprb,1.2740e-01_jprb,1.0923e-01_jprb,9.3107e-02_jprb,7.9235e-02_jprb,6.4561e-02_jprb,&
&5.2530e-02_jprb,4.3432e-02_jprb,1.2805e-01_jprb/)
kao( :, 3,10,14) = (/&
&1.4478e-01_jprb,1.2670e-01_jprb,1.0897e-01_jprb,9.4925e-02_jprb,8.1357e-02_jprb,6.8532e-02_jprb,&
&5.8051e-02_jprb,5.1858e-02_jprb,1.2910e-01_jprb/)
kao( :, 4,10,14) = (/&
&1.4390e-01_jprb,1.2594e-01_jprb,1.0930e-01_jprb,9.6640e-02_jprb,8.3903e-02_jprb,7.3006e-02_jprb,&
&6.4450e-02_jprb,6.1593e-02_jprb,1.3078e-01_jprb/)
kao( :, 5,10,14) = (/&
&1.4315e-01_jprb,1.2528e-01_jprb,1.1004e-01_jprb,9.8357e-02_jprb,8.7154e-02_jprb,7.8009e-02_jprb,&
&7.1120e-02_jprb,7.2455e-02_jprb,1.3316e-01_jprb/)
kao( :, 1,11,14) = (/&
&1.5395e-01_jprb,1.3473e-01_jprb,1.1550e-01_jprb,9.7315e-02_jprb,8.2228e-02_jprb,6.6162e-02_jprb,&
&5.2338e-02_jprb,3.8889e-02_jprb,2.0928e-01_jprb/)
kao( :, 2,11,14) = (/&
&1.5355e-01_jprb,1.3437e-01_jprb,1.1530e-01_jprb,9.9444e-02_jprb,8.4668e-02_jprb,7.0074e-02_jprb,&
&5.7545e-02_jprb,4.5714e-02_jprb,2.1031e-01_jprb/)
kao( :, 3,11,14) = (/&
&1.5306e-01_jprb,1.3395e-01_jprb,1.1569e-01_jprb,1.0160e-01_jprb,8.7341e-02_jprb,7.4791e-02_jprb,&
&6.3171e-02_jprb,5.3818e-02_jprb,2.0902e-01_jprb/)
kao( :, 4,11,14) = (/&
&1.5264e-01_jprb,1.3359e-01_jprb,1.1675e-01_jprb,1.0361e-01_jprb,9.0695e-02_jprb,7.9958e-02_jprb,&
&6.9362e-02_jprb,6.3424e-02_jprb,2.0832e-01_jprb/)
kao( :, 5,11,14) = (/&
&1.5211e-01_jprb,1.3312e-01_jprb,1.1800e-01_jprb,1.0575e-01_jprb,9.4915e-02_jprb,8.5107e-02_jprb,&
&7.5798e-02_jprb,7.4229e-02_jprb,2.0949e-01_jprb/)
kao( :, 1,12,14) = (/&
&1.6007e-01_jprb,1.4008e-01_jprb,1.2008e-01_jprb,1.0232e-01_jprb,8.6761e-02_jprb,7.0740e-02_jprb,&
&5.6718e-02_jprb,4.1250e-02_jprb,2.6518e-01_jprb/)
kao( :, 2,12,14) = (/&
&1.6020e-01_jprb,1.4019e-01_jprb,1.2063e-01_jprb,1.0501e-01_jprb,8.9744e-02_jprb,7.5616e-02_jprb,&
&6.2355e-02_jprb,4.7922e-02_jprb,2.6549e-01_jprb/)
kao( :, 3,12,14) = (/&
&1.6044e-01_jprb,1.4040e-01_jprb,1.2209e-01_jprb,1.0775e-01_jprb,9.3316e-02_jprb,8.1050e-02_jprb,&
&6.8087e-02_jprb,5.5672e-02_jprb,2.6354e-01_jprb/)
kao( :, 4,12,14) = (/&
&1.6037e-01_jprb,1.4035e-01_jprb,1.2384e-01_jprb,1.1034e-01_jprb,9.7597e-02_jprb,8.6743e-02_jprb,&
&7.4072e-02_jprb,6.4868e-02_jprb,2.6219e-01_jprb/)
kao( :, 5,12,14) = (/&
&1.6003e-01_jprb,1.4017e-01_jprb,1.2549e-01_jprb,1.1310e-01_jprb,1.0250e-01_jprb,9.1994e-02_jprb,&
&8.0439e-02_jprb,7.5469e-02_jprb,2.6239e-01_jprb/)
kao( :, 1,13,14) = (/&
&1.6469e-01_jprb,1.4412e-01_jprb,1.2368e-01_jprb,1.0640e-01_jprb,9.0617e-02_jprb,7.5149e-02_jprb,&
&6.0781e-02_jprb,4.3348e-02_jprb,2.6721e-01_jprb/)
kao( :, 2,13,14) = (/&
&1.6562e-01_jprb,1.4493e-01_jprb,1.2548e-01_jprb,1.0990e-01_jprb,9.4570e-02_jprb,8.0925e-02_jprb,&
&6.6783e-02_jprb,4.9779e-02_jprb,2.6700e-01_jprb/)
kao( :, 3,13,14) = (/&
&1.6629e-01_jprb,1.4552e-01_jprb,1.2768e-01_jprb,1.1332e-01_jprb,9.9317e-02_jprb,8.6925e-02_jprb,&
&7.2626e-02_jprb,5.7255e-02_jprb,2.6579e-01_jprb/)
kao( :, 4,13,14) = (/&
&1.6653e-01_jprb,1.4581e-01_jprb,1.2999e-01_jprb,1.1666e-01_jprb,1.0451e-01_jprb,9.2915e-02_jprb,&
&7.8534e-02_jprb,6.6130e-02_jprb,2.6675e-01_jprb/)
kao( :, 5,13,14) = (/&
&1.6684e-01_jprb,1.4632e-01_jprb,1.3221e-01_jprb,1.2027e-01_jprb,1.0991e-01_jprb,9.8357e-02_jprb,&
&8.4972e-02_jprb,7.6473e-02_jprb,2.6996e-01_jprb/)
kao( :, 1, 1,15) = (/&
&8.6335e-02_jprb,7.5626e-02_jprb,6.4917e-02_jprb,5.5295e-02_jprb,5.0812e-02_jprb,5.9948e-02_jprb,&
&7.1505e-02_jprb,8.2180e-02_jprb,9.1859e-02_jprb/)
kao( :, 2, 1,15) = (/&
&8.4567e-02_jprb,7.4086e-02_jprb,6.3604e-02_jprb,5.5283e-02_jprb,5.6490e-02_jprb,6.9672e-02_jprb,&
&8.3123e-02_jprb,9.5602e-02_jprb,1.0689e-01_jprb/)
kao( :, 3, 1,15) = (/&
&8.2946e-02_jprb,7.2675e-02_jprb,6.2405e-02_jprb,5.5773e-02_jprb,6.3940e-02_jprb,7.9639e-02_jprb,&
&9.5049e-02_jprb,1.0933e-01_jprb,1.2237e-01_jprb/)
kao( :, 4, 1,15) = (/&
&8.1353e-02_jprb,7.1286e-02_jprb,6.1452e-02_jprb,5.8032e-02_jprb,7.2168e-02_jprb,8.9901e-02_jprb,&
&1.0730e-01_jprb,1.2343e-01_jprb,1.3810e-01_jprb/)
kao( :, 5, 1,15) = (/&
&8.0306e-02_jprb,7.0375e-02_jprb,6.1401e-02_jprb,6.2088e-02_jprb,8.0744e-02_jprb,1.0061e-01_jprb,&
&1.2011e-01_jprb,1.3812e-01_jprb,1.5455e-01_jprb/)
kao( :, 1, 2,15) = (/&
&9.5589e-02_jprb,8.3777e-02_jprb,7.1976e-02_jprb,6.1258e-02_jprb,5.5368e-02_jprb,6.4085e-02_jprb,&
&7.6446e-02_jprb,8.7825e-02_jprb,9.9724e-02_jprb/)
kao( :, 2, 2,15) = (/&
&9.3570e-02_jprb,8.1988e-02_jprb,7.0421e-02_jprb,6.1059e-02_jprb,6.1189e-02_jprb,7.4507e-02_jprb,&
&8.8919e-02_jprb,1.0224e-01_jprb,1.1610e-01_jprb/)
kao( :, 3, 2,15) = (/&
&9.1829e-02_jprb,8.0436e-02_jprb,6.9070e-02_jprb,6.1314e-02_jprb,6.8582e-02_jprb,8.5238e-02_jprb,&
&1.0175e-01_jprb,1.1706e-01_jprb,1.3301e-01_jprb/)
kao( :, 4, 2,15) = (/&
&9.0487e-02_jprb,7.9254e-02_jprb,6.8526e-02_jprb,6.4228e-02_jprb,7.7434e-02_jprb,9.6498e-02_jprb,&
&1.1522e-01_jprb,1.3267e-01_jprb,1.5077e-01_jprb/)
kao( :, 5, 2,15) = (/&
&8.9669e-02_jprb,7.8542e-02_jprb,6.8954e-02_jprb,6.8451e-02_jprb,8.6910e-02_jprb,1.0835e-01_jprb,&
&1.2939e-01_jprb,1.4902e-01_jprb,1.6935e-01_jprb/)
kao( :, 1, 3,15) = (/&
&1.0676e-01_jprb,9.3553e-02_jprb,8.0347e-02_jprb,6.7838e-02_jprb,5.9827e-02_jprb,6.6522e-02_jprb,&
&7.9363e-02_jprb,9.1189e-02_jprb,1.0525e-01_jprb/)
kao( :, 2, 3,15) = (/&
&1.0446e-01_jprb,9.1534e-02_jprb,7.8612e-02_jprb,6.7925e-02_jprb,6.5040e-02_jprb,7.7741e-02_jprb,&
&9.2778e-02_jprb,1.0667e-01_jprb,1.2309e-01_jprb/)
kao( :, 3, 3,15) = (/&
&1.0249e-01_jprb,8.9809e-02_jprb,7.7136e-02_jprb,6.8091e-02_jprb,7.2454e-02_jprb,8.9300e-02_jprb,&
&1.0660e-01_jprb,1.2265e-01_jprb,1.4148e-01_jprb/)
kao( :, 4, 3,15) = (/&
&1.0145e-01_jprb,8.8891e-02_jprb,7.6929e-02_jprb,7.0768e-02_jprb,8.1305e-02_jprb,1.0131e-01_jprb,&
&1.2096e-01_jprb,1.3918e-01_jprb,1.6053e-01_jprb/)
kao( :, 5, 3,15) = (/&
&1.0070e-01_jprb,8.8241e-02_jprb,7.7594e-02_jprb,7.4852e-02_jprb,9.1339e-02_jprb,1.1386e-01_jprb,&
&1.3595e-01_jprb,1.5652e-01_jprb,1.8047e-01_jprb/)
kao( :, 1, 4,15) = (/&
&1.1948e-01_jprb,1.0466e-01_jprb,8.9846e-02_jprb,7.5435e-02_jprb,6.5653e-02_jprb,6.8395e-02_jprb,&
&8.1117e-02_jprb,9.3286e-02_jprb,1.0845e-01_jprb/)
kao( :, 2, 4,15) = (/&
&1.1744e-01_jprb,1.0288e-01_jprb,8.8326e-02_jprb,7.6088e-02_jprb,7.0000e-02_jprb,8.0045e-02_jprb,&
&9.5565e-02_jprb,1.0996e-01_jprb,1.2777e-01_jprb/)
kao( :, 3, 4,15) = (/&
&1.1572e-01_jprb,1.0138e-01_jprb,8.7035e-02_jprb,7.6536e-02_jprb,7.6949e-02_jprb,9.2508e-02_jprb,&
&1.1046e-01_jprb,1.2718e-01_jprb,1.4769e-01_jprb/)
kao( :, 4, 4,15) = (/&
&1.1457e-01_jprb,1.0037e-01_jprb,8.6743e-02_jprb,7.8791e-02_jprb,8.5479e-02_jprb,1.0549e-01_jprb,&
&1.2598e-01_jprb,1.4506e-01_jprb,1.6844e-01_jprb/)
kao( :, 5, 4,15) = (/&
&1.1371e-01_jprb,9.9614e-02_jprb,8.7543e-02_jprb,8.2406e-02_jprb,9.5523e-02_jprb,1.1901e-01_jprb,&
&1.4214e-01_jprb,1.6372e-01_jprb,1.9001e-01_jprb/)
kao( :, 1, 5,15) = (/&
&1.3435e-01_jprb,1.1765e-01_jprb,1.0095e-01_jprb,8.4469e-02_jprb,7.2853e-02_jprb,7.1272e-02_jprb,&
&8.1960e-02_jprb,9.4385e-02_jprb,1.0990e-01_jprb/)
kao( :, 2, 5,15) = (/&
&1.3249e-01_jprb,1.1603e-01_jprb,9.9565e-02_jprb,8.5291e-02_jprb,7.6670e-02_jprb,8.2310e-02_jprb,&
&9.7448e-02_jprb,1.1228e-01_jprb,1.3064e-01_jprb/)
kao( :, 3, 5,15) = (/&
&1.3078e-01_jprb,1.1453e-01_jprb,9.8289e-02_jprb,8.6209e-02_jprb,8.3093e-02_jprb,9.5057e-02_jprb,&
&1.1357e-01_jprb,1.3082e-01_jprb,1.5225e-01_jprb/)
kao( :, 4, 5,15) = (/&
&1.2949e-01_jprb,1.1340e-01_jprb,9.7892e-02_jprb,8.8436e-02_jprb,9.1112e-02_jprb,1.0924e-01_jprb,&
&1.3047e-01_jprb,1.5034e-01_jprb,1.7498e-01_jprb/)
kao( :, 5, 5,15) = (/&
&1.2852e-01_jprb,1.1256e-01_jprb,9.8533e-02_jprb,9.1755e-02_jprb,1.0068e-01_jprb,1.2400e-01_jprb,&
&1.4814e-01_jprb,1.7069e-01_jprb,1.9863e-01_jprb/)
kao( :, 1, 6,15) = (/&
&1.5076e-01_jprb,1.3198e-01_jprb,1.1320e-01_jprb,9.4463e-02_jprb,8.0666e-02_jprb,7.5054e-02_jprb,&
&8.0871e-02_jprb,9.3264e-02_jprb,1.0849e-01_jprb/)
kao( :, 2, 6,15) = (/&
&1.4906e-01_jprb,1.3049e-01_jprb,1.1193e-01_jprb,9.5115e-02_jprb,8.4634e-02_jprb,8.5281e-02_jprb,&
&9.7599e-02_jprb,1.1257e-01_jprb,1.3098e-01_jprb/)
kao( :, 3, 6,15) = (/&
&1.4751e-01_jprb,1.2914e-01_jprb,1.1077e-01_jprb,9.6775e-02_jprb,9.0721e-02_jprb,9.7408e-02_jprb,&
&1.1514e-01_jprb,1.3281e-01_jprb,1.5454e-01_jprb/)
kao( :, 4, 6,15) = (/&
&1.4640e-01_jprb,1.2818e-01_jprb,1.1040e-01_jprb,9.8990e-02_jprb,9.8328e-02_jprb,1.1180e-01_jprb,&
&1.3358e-01_jprb,1.5404e-01_jprb,1.7929e-01_jprb/)
kao( :, 5, 6,15) = (/&
&1.4534e-01_jprb,1.2726e-01_jprb,1.1100e-01_jprb,1.0247e-01_jprb,1.0712e-01_jprb,1.2780e-01_jprb,&
&1.5274e-01_jprb,1.7614e-01_jprb,2.0503e-01_jprb/)
kao( :, 1, 7,15) = (/&
&1.7017e-01_jprb,1.4895e-01_jprb,1.2773e-01_jprb,1.0651e-01_jprb,8.8726e-02_jprb,8.0014e-02_jprb,&
&7.9958e-02_jprb,9.0777e-02_jprb,1.0558e-01_jprb/)
kao( :, 2, 7,15) = (/&
&1.6840e-01_jprb,1.4740e-01_jprb,1.2641e-01_jprb,1.0633e-01_jprb,9.3561e-02_jprb,8.9399e-02_jprb,&
&9.6654e-02_jprb,1.1154e-01_jprb,1.2974e-01_jprb/)
kao( :, 3, 7,15) = (/&
&1.6683e-01_jprb,1.4603e-01_jprb,1.2523e-01_jprb,1.0816e-01_jprb,9.9523e-02_jprb,1.0085e-01_jprb,&
&1.1565e-01_jprb,1.3349e-01_jprb,1.5523e-01_jprb/)
kao( :, 4, 7,15) = (/&
&1.6579e-01_jprb,1.4512e-01_jprb,1.2467e-01_jprb,1.1069e-01_jprb,1.0674e-01_jprb,1.1452e-01_jprb,&
&1.3558e-01_jprb,1.5645e-01_jprb,1.8200e-01_jprb/)
kao( :, 5, 7,15) = (/&
&1.6467e-01_jprb,1.4415e-01_jprb,1.2512e-01_jprb,1.1428e-01_jprb,1.1515e-01_jprb,1.3096e-01_jprb,&
&1.5653e-01_jprb,1.8061e-01_jprb,2.1020e-01_jprb/)
kao( :, 1, 8,15) = (/&
&1.9300e-01_jprb,1.6891e-01_jprb,1.4482e-01_jprb,1.2074e-01_jprb,9.8428e-02_jprb,8.6453e-02_jprb,&
&8.0104e-02_jprb,8.7414e-02_jprb,1.0158e-01_jprb/)
kao( :, 2, 8,15) = (/&
&1.9118e-01_jprb,1.6732e-01_jprb,1.4346e-01_jprb,1.1993e-01_jprb,1.0330e-01_jprb,9.4785e-02_jprb,&
&9.5939e-02_jprb,1.0927e-01_jprb,1.2693e-01_jprb/)
kao( :, 3, 8,15) = (/&
&1.8966e-01_jprb,1.6599e-01_jprb,1.4233e-01_jprb,1.2111e-01_jprb,1.0944e-01_jprb,1.0556e-01_jprb,&
&1.1490e-01_jprb,1.3272e-01_jprb,1.5419e-01_jprb/)
kao( :, 4, 8,15) = (/&
&1.8827e-01_jprb,1.6478e-01_jprb,1.4129e-01_jprb,1.2410e-01_jprb,1.1628e-01_jprb,1.1877e-01_jprb,&
&1.3648e-01_jprb,1.5764e-01_jprb,1.8319e-01_jprb/)
kao( :, 5, 8,15) = (/&
&1.8700e-01_jprb,1.6367e-01_jprb,1.4137e-01_jprb,1.2760e-01_jprb,1.2425e-01_jprb,1.3451e-01_jprb,&
&1.5950e-01_jprb,1.8417e-01_jprb,2.1419e-01_jprb/)
kao( :, 1, 9,15) = (/&
&2.1903e-01_jprb,1.9168e-01_jprb,1.6432e-01_jprb,1.3697e-01_jprb,1.1022e-01_jprb,9.3381e-02_jprb,&
&8.1173e-02_jprb,8.3378e-02_jprb,9.6854e-02_jprb/)
kao( :, 2, 9,15) = (/&
&2.1750e-01_jprb,1.9034e-01_jprb,1.6318e-01_jprb,1.3602e-01_jprb,1.1431e-01_jprb,1.0171e-01_jprb,&
&9.6008e-02_jprb,1.0601e-01_jprb,1.2308e-01_jprb/)
kao( :, 3, 9,15) = (/&
&2.1621e-01_jprb,1.8921e-01_jprb,1.6222e-01_jprb,1.3665e-01_jprb,1.2052e-01_jprb,1.1120e-01_jprb,&
&1.1434e-01_jprb,1.3077e-01_jprb,1.5182e-01_jprb/)
kao( :, 4, 9,15) = (/&
&2.1461e-01_jprb,1.8782e-01_jprb,1.6103e-01_jprb,1.3944e-01_jprb,1.2758e-01_jprb,1.2410e-01_jprb,&
&1.3607e-01_jprb,1.5728e-01_jprb,1.8262e-01_jprb/)
kao( :, 5, 9,15) = (/&
&2.1295e-01_jprb,1.8637e-01_jprb,1.6039e-01_jprb,1.4274e-01_jprb,1.3480e-01_jprb,1.3933e-01_jprb,&
&1.6084e-01_jprb,1.8591e-01_jprb,2.1587e-01_jprb/)
kao( :, 1,10,15) = (/&
&2.4831e-01_jprb,2.1729e-01_jprb,1.8627e-01_jprb,1.5526e-01_jprb,1.2434e-01_jprb,1.0185e-01_jprb,&
&8.4815e-02_jprb,8.0841e-02_jprb,1.7532e-01_jprb/)
kao( :, 2,10,15) = (/&
&2.4704e-01_jprb,2.1618e-01_jprb,1.8532e-01_jprb,1.5447e-01_jprb,1.2750e-01_jprb,1.1098e-01_jprb,&
&9.8299e-02_jprb,1.0410e-01_jprb,1.7367e-01_jprb/)
kao( :, 3,10,15) = (/&
&2.4585e-01_jprb,2.1514e-01_jprb,1.8444e-01_jprb,1.5466e-01_jprb,1.3408e-01_jprb,1.1953e-01_jprb,&
&1.1633e-01_jprb,1.3023e-01_jprb,1.7996e-01_jprb/)
kao( :, 4,10,15) = (/&
&2.4402e-01_jprb,2.1354e-01_jprb,1.8307e-01_jprb,1.5695e-01_jprb,1.4115e-01_jprb,1.3126e-01_jprb,&
&1.3793e-01_jprb,1.5846e-01_jprb,1.9548e-01_jprb/)
kao( :, 5,10,15) = (/&
&2.4208e-01_jprb,2.1185e-01_jprb,1.8198e-01_jprb,1.6040e-01_jprb,1.4820e-01_jprb,1.4650e-01_jprb,&
&1.6334e-01_jprb,1.8884e-01_jprb,2.2082e-01_jprb/)
kao( :, 1,11,15) = (/&
&2.8046e-01_jprb,2.4542e-01_jprb,2.1039e-01_jprb,1.7535e-01_jprb,1.4072e-01_jprb,1.1602e-01_jprb,&
&9.4756e-02_jprb,8.8842e-02_jprb,3.0507e-01_jprb/)
kao( :, 2,11,15) = (/&
&2.7918e-01_jprb,2.4430e-01_jprb,2.0943e-01_jprb,1.7456e-01_jprb,1.4537e-01_jprb,1.2533e-01_jprb,&
&1.0891e-01_jprb,1.1392e-01_jprb,2.9566e-01_jprb/)
kao( :, 3,11,15) = (/&
&2.7735e-01_jprb,2.4270e-01_jprb,2.0805e-01_jprb,1.7500e-01_jprb,1.5257e-01_jprb,1.3417e-01_jprb,&
&1.2847e-01_jprb,1.4223e-01_jprb,2.9322e-01_jprb/)
kao( :, 4,11,15) = (/&
&2.7527e-01_jprb,2.4088e-01_jprb,2.0649e-01_jprb,1.7781e-01_jprb,1.5979e-01_jprb,1.4614e-01_jprb,&
&1.5179e-01_jprb,1.7334e-01_jprb,2.9538e-01_jprb/)
kao( :, 5,11,15) = (/&
&2.7287e-01_jprb,2.3878e-01_jprb,2.0537e-01_jprb,1.8183e-01_jprb,1.6671e-01_jprb,1.6236e-01_jprb,&
&1.7904e-01_jprb,2.0699e-01_jprb,3.0432e-01_jprb/)
kao( :, 1,12,15) = (/&
&3.1597e-01_jprb,2.7649e-01_jprb,2.3701e-01_jprb,1.9754e-01_jprb,1.5924e-01_jprb,1.3168e-01_jprb,&
&1.0585e-01_jprb,9.7375e-02_jprb,4.0358e-01_jprb/)
kao( :, 2,12,15) = (/&
&3.1432e-01_jprb,2.7505e-01_jprb,2.3578e-01_jprb,1.9654e-01_jprb,1.6498e-01_jprb,1.4094e-01_jprb,&
&1.2051e-01_jprb,1.2392e-01_jprb,3.9336e-01_jprb/)
kao( :, 3,12,15) = (/&
&3.1171e-01_jprb,2.7277e-01_jprb,2.3383e-01_jprb,1.9721e-01_jprb,1.7246e-01_jprb,1.5023e-01_jprb,&
&1.4122e-01_jprb,1.5462e-01_jprb,3.9393e-01_jprb/)
kao( :, 4,12,15) = (/&
&3.0880e-01_jprb,2.7022e-01_jprb,2.3164e-01_jprb,2.0058e-01_jprb,1.7964e-01_jprb,1.6232e-01_jprb,&
&1.6619e-01_jprb,1.8839e-01_jprb,3.9596e-01_jprb/)
kao( :, 5,12,15) = (/&
&3.0525e-01_jprb,2.6711e-01_jprb,2.3006e-01_jprb,2.0488e-01_jprb,1.8690e-01_jprb,1.7940e-01_jprb,&
&1.9528e-01_jprb,2.2516e-01_jprb,4.0079e-01_jprb/)
kao( :, 1,13,15) = (/&
&3.5411e-01_jprb,3.0986e-01_jprb,2.6562e-01_jprb,2.2137e-01_jprb,1.7962e-01_jprb,1.4841e-01_jprb,&
&1.1804e-01_jprb,1.0632e-01_jprb,4.1876e-01_jprb/)
kao( :, 2,13,15) = (/&
&3.5164e-01_jprb,3.0771e-01_jprb,2.6377e-01_jprb,2.2010e-01_jprb,1.8598e-01_jprb,1.5750e-01_jprb,&
&1.3321e-01_jprb,1.3429e-01_jprb,4.1787e-01_jprb/)
kao( :, 3,13,15) = (/&
&3.4820e-01_jprb,3.0469e-01_jprb,2.6119e-01_jprb,2.2112e-01_jprb,1.9338e-01_jprb,1.6728e-01_jprb,&
&1.5455e-01_jprb,1.6711e-01_jprb,4.2377e-01_jprb/)
kao( :, 4,13,15) = (/&
&3.4395e-01_jprb,3.0097e-01_jprb,2.5812e-01_jprb,2.2469e-01_jprb,2.0035e-01_jprb,1.7975e-01_jprb,&
&1.8098e-01_jprb,2.0337e-01_jprb,4.2831e-01_jprb/)
kao( :, 5,13,15) = (/&
&3.3896e-01_jprb,2.9661e-01_jprb,2.5572e-01_jprb,2.2897e-01_jprb,2.0809e-01_jprb,1.9725e-01_jprb,&
&2.1144e-01_jprb,2.4250e-01_jprb,4.3491e-01_jprb/)
kao( :, 1, 1,16) = (/&
&9.7171e-02_jprb,8.5148e-02_jprb,7.3125e-02_jprb,6.1102e-02_jprb,7.6485e-02_jprb,9.5172e-02_jprb,&
&1.1335e-01_jprb,1.2955e-01_jprb,1.4355e-01_jprb/)
kao( :, 2, 1,16) = (/&
&9.4236e-02_jprb,8.2602e-02_jprb,7.0968e-02_jprb,6.8035e-02_jprb,9.0374e-02_jprb,1.1244e-01_jprb,&
&1.3393e-01_jprb,1.5311e-01_jprb,1.6974e-01_jprb/)
kao( :, 3, 1,16) = (/&
&9.1543e-02_jprb,8.0273e-02_jprb,6.9003e-02_jprb,7.8791e-02_jprb,1.0469e-01_jprb,1.3025e-01_jprb,&
&1.5519e-01_jprb,1.7738e-01_jprb,1.9670e-01_jprb/)
kao( :, 4, 1,16) = (/&
&8.8644e-02_jprb,7.7768e-02_jprb,6.6893e-02_jprb,8.9756e-02_jprb,1.1926e-01_jprb,1.4844e-01_jprb,&
&1.7683e-01_jprb,2.0215e-01_jprb,2.2416e-01_jprb/)
kao( :, 5, 1,16) = (/&
&8.6144e-02_jprb,7.5584e-02_jprb,6.7875e-02_jprb,1.0078e-01_jprb,1.3394e-01_jprb,1.6670e-01_jprb,&
&1.9859e-01_jprb,2.2714e-01_jprb,2.5185e-01_jprb/)
kao( :, 1, 2,16) = (/&
&1.1053e-01_jprb,9.6812e-02_jprb,8.3097e-02_jprb,6.9381e-02_jprb,8.5062e-02_jprb,1.0587e-01_jprb,&
&1.2610e-01_jprb,1.4420e-01_jprb,1.6344e-01_jprb/)
kao( :, 2, 2,16) = (/&
&1.0742e-01_jprb,9.4110e-02_jprb,8.0803e-02_jprb,7.6274e-02_jprb,1.0134e-01_jprb,1.2610e-01_jprb,&
&1.5024e-01_jprb,1.7183e-01_jprb,1.9478e-01_jprb/)
kao( :, 3, 2,16) = (/&
&1.0452e-01_jprb,9.1604e-02_jprb,7.8683e-02_jprb,8.8937e-02_jprb,1.1819e-01_jprb,1.4709e-01_jprb,&
&1.7526e-01_jprb,2.0044e-01_jprb,2.2725e-01_jprb/)
kao( :, 4, 2,16) = (/&
&1.0156e-01_jprb,8.9034e-02_jprb,7.6513e-02_jprb,1.0188e-01_jprb,1.3537e-01_jprb,1.6848e-01_jprb,&
&2.0078e-01_jprb,2.2973e-01_jprb,2.6038e-01_jprb/)
kao( :, 5, 2,16) = (/&
&9.9221e-02_jprb,8.6974e-02_jprb,7.8015e-02_jprb,1.1491e-01_jprb,1.5271e-01_jprb,1.9010e-01_jprb,&
&2.2653e-01_jprb,2.5922e-01_jprb,2.9391e-01_jprb/)
kao( :, 1, 3,16) = (/&
&1.2741e-01_jprb,1.1157e-01_jprb,9.5716e-02_jprb,7.9867e-02_jprb,9.0261e-02_jprb,1.1233e-01_jprb,&
&1.3379e-01_jprb,1.5315e-01_jprb,1.7733e-01_jprb/)
kao( :, 2, 3,16) = (/&
&1.2407e-01_jprb,1.0865e-01_jprb,9.3240e-02_jprb,8.3066e-02_jprb,1.0895e-01_jprb,1.3559e-01_jprb,&
&1.6159e-01_jprb,1.8497e-01_jprb,2.1412e-01_jprb/)
kao( :, 3, 3,16) = (/&
&1.2077e-01_jprb,1.0579e-01_jprb,9.0806e-02_jprb,9.6664e-02_jprb,1.2848e-01_jprb,1.5988e-01_jprb,&
&1.9057e-01_jprb,2.1812e-01_jprb,2.5248e-01_jprb/)
kao( :, 4, 3,16) = (/&
&1.1796e-01_jprb,1.0334e-01_jprb,8.8711e-02_jprb,1.1167e-01_jprb,1.4847e-01_jprb,1.8483e-01_jprb,&
&2.2029e-01_jprb,2.5232e-01_jprb,2.9201e-01_jprb/)
kao( :, 5, 3,16) = (/&
&1.1579e-01_jprb,1.0144e-01_jprb,8.8938e-02_jprb,1.2695e-01_jprb,1.6868e-01_jprb,2.1009e-01_jprb,&
&2.5050e-01_jprb,2.8682e-01_jprb,3.3195e-01_jprb/)
kao( :, 1, 4,16) = (/&
&1.4795e-01_jprb,1.2951e-01_jprb,1.1108e-01_jprb,9.2642e-02_jprb,9.3362e-02_jprb,1.1620e-01_jprb,&
&1.3849e-01_jprb,1.5859e-01_jprb,1.8531e-01_jprb/)
kao( :, 2, 4,16) = (/&
&1.4437e-01_jprb,1.2639e-01_jprb,1.0842e-01_jprb,9.2423e-02_jprb,1.1442e-01_jprb,1.4252e-01_jprb,&
&1.6987e-01_jprb,1.9459e-01_jprb,2.2738e-01_jprb/)
kao( :, 3, 4,16) = (/&
&1.4082e-01_jprb,1.2330e-01_jprb,1.0578e-01_jprb,1.0327e-01_jprb,1.3669e-01_jprb,1.7021e-01_jprb,&
&2.0291e-01_jprb,2.3254e-01_jprb,2.7168e-01_jprb/)
kao( :, 4, 4,16) = (/&
&1.3812e-01_jprb,1.2094e-01_jprb,1.0376e-01_jprb,1.2016e-01_jprb,1.5971e-01_jprb,1.9884e-01_jprb,&
&2.3712e-01_jprb,2.7173e-01_jprb,3.1737e-01_jprb/)
kao( :, 5, 4,16) = (/&
&1.3617e-01_jprb,1.1924e-01_jprb,1.0266e-01_jprb,1.3775e-01_jprb,1.8312e-01_jprb,2.2801e-01_jprb,&
&2.7185e-01_jprb,3.1180e-01_jprb,3.6388e-01_jprb/)
kao( :, 1, 5,16) = (/&
&1.7254e-01_jprb,1.5104e-01_jprb,1.2954e-01_jprb,1.0804e-01_jprb,9.7033e-02_jprb,1.1821e-01_jprb,&
&1.4096e-01_jprb,1.6165e-01_jprb,1.8940e-01_jprb/)
kao( :, 2, 5,16) = (/&
&1.6864e-01_jprb,1.4763e-01_jprb,1.2663e-01_jprb,1.0583e-01_jprb,1.1845e-01_jprb,1.4755e-01_jprb,&
&1.7593e-01_jprb,2.0174e-01_jprb,2.3625e-01_jprb/)
kao( :, 3, 5,16) = (/&
&1.6515e-01_jprb,1.4456e-01_jprb,1.2397e-01_jprb,1.1290e-01_jprb,1.4346e-01_jprb,1.7861e-01_jprb,&
&2.1302e-01_jprb,2.4445e-01_jprb,2.8621e-01_jprb/)
kao( :, 4, 5,16) = (/&
&1.6266e-01_jprb,1.4239e-01_jprb,1.2212e-01_jprb,1.2793e-01_jprb,1.6939e-01_jprb,2.1102e-01_jprb,&
&2.5177e-01_jprb,2.8892e-01_jprb,3.3809e-01_jprb/)
kao( :, 5, 5,16) = (/&
&1.6070e-01_jprb,1.4068e-01_jprb,1.2066e-01_jprb,1.4743e-01_jprb,1.9603e-01_jprb,2.4421e-01_jprb,&
&2.9142e-01_jprb,3.3457e-01_jprb,3.9133e-01_jprb/)
kao( :, 1, 6,16) = (/&
&2.0388e-01_jprb,1.7849e-01_jprb,1.5310e-01_jprb,1.2771e-01_jprb,1.0526e-01_jprb,1.1860e-01_jprb,&
&1.4142e-01_jprb,1.6203e-01_jprb,1.9043e-01_jprb/)
kao( :, 2, 6,16) = (/&
&1.9953e-01_jprb,1.7470e-01_jprb,1.4986e-01_jprb,1.2501e-01_jprb,1.2166e-01_jprb,1.5016e-01_jprb,&
&1.7907e-01_jprb,2.0547e-01_jprb,2.4111e-01_jprb/)
kao( :, 3, 6,16) = (/&
&1.9494e-01_jprb,1.7068e-01_jprb,1.4642e-01_jprb,1.2626e-01_jprb,1.4789e-01_jprb,1.8422e-01_jprb,&
&2.1980e-01_jprb,2.5220e-01_jprb,2.9578e-01_jprb/)
kao( :, 4, 6,16) = (/&
&1.9206e-01_jprb,1.6810e-01_jprb,1.4414e-01_jprb,1.3841e-01_jprb,1.7663e-01_jprb,2.1999e-01_jprb,&
&2.6255e-01_jprb,3.0157e-01_jprb,3.5331e-01_jprb/)
kao( :, 5, 6,16) = (/&
&1.9005e-01_jprb,1.6635e-01_jprb,1.4264e-01_jprb,1.5606e-01_jprb,2.0643e-01_jprb,2.5713e-01_jprb,&
&3.0687e-01_jprb,3.5252e-01_jprb,4.1278e-01_jprb/)
kao( :, 1, 7,16) = (/&
&2.4312e-01_jprb,2.1282e-01_jprb,1.8252e-01_jprb,1.5222e-01_jprb,1.2192e-01_jprb,1.1888e-01_jprb,&
&1.4174e-01_jprb,1.6248e-01_jprb,1.9115e-01_jprb/)
kao( :, 2, 7,16) = (/&
&2.3797e-01_jprb,2.0832e-01_jprb,1.7867e-01_jprb,1.4904e-01_jprb,1.2994e-01_jprb,1.5302e-01_jprb,&
&1.8249e-01_jprb,2.0929e-01_jprb,2.4599e-01_jprb/)
kao( :, 3, 7,16) = (/&
&2.3255e-01_jprb,2.0359e-01_jprb,1.7463e-01_jprb,1.4575e-01_jprb,1.5275e-01_jprb,1.9023e-01_jprb,&
&2.2691e-01_jprb,2.6041e-01_jprb,3.0584e-01_jprb/)
kao( :, 4, 7,16) = (/&
&2.2807e-01_jprb,1.9965e-01_jprb,1.7122e-01_jprb,1.5317e-01_jprb,1.8432e-01_jprb,2.2969e-01_jprb,&
&2.7402e-01_jprb,3.1471e-01_jprb,3.6920e-01_jprb/)
kao( :, 5, 7,16) = (/&
&2.2498e-01_jprb,1.9692e-01_jprb,1.6887e-01_jprb,1.6865e-01_jprb,2.1725e-01_jprb,2.7068e-01_jprb,&
&3.2308e-01_jprb,3.7116e-01_jprb,4.3516e-01_jprb/)
kao( :, 1, 8,16) = (/&
&2.9068e-01_jprb,2.5442e-01_jprb,2.1816e-01_jprb,1.8190e-01_jprb,1.4564e-01_jprb,1.2041e-01_jprb,&
&1.4177e-01_jprb,1.6257e-01_jprb,1.9124e-01_jprb/)
kao( :, 2, 8,16) = (/&
&2.8457e-01_jprb,2.4908e-01_jprb,2.1359e-01_jprb,1.7807e-01_jprb,1.4515e-01_jprb,1.5579e-01_jprb,&
&1.8584e-01_jprb,2.1331e-01_jprb,2.5071e-01_jprb/)
kao( :, 3, 8,16) = (/&
&2.7790e-01_jprb,2.4325e-01_jprb,2.0861e-01_jprb,1.7396e-01_jprb,1.6105e-01_jprb,1.9656e-01_jprb,&
&2.3447e-01_jprb,2.6926e-01_jprb,3.1620e-01_jprb/)
kao( :, 4, 8,16) = (/&
&2.7204e-01_jprb,2.3812e-01_jprb,2.0420e-01_jprb,1.7391e-01_jprb,1.9266e-01_jprb,2.4008e-01_jprb,&
&2.8658e-01_jprb,3.2922e-01_jprb,3.8634e-01_jprb/)
kao( :, 5, 8,16) = (/&
&2.6773e-01_jprb,2.3434e-01_jprb,2.0095e-01_jprb,1.8582e-01_jprb,2.2918e-01_jprb,2.8567e-01_jprb,&
&3.4098e-01_jprb,3.9189e-01_jprb,4.5943e-01_jprb/)
kao( :, 1, 9,16) = (/&
&3.4732e-01_jprb,3.0397e-01_jprb,2.6061e-01_jprb,2.1726e-01_jprb,1.7390e-01_jprb,1.3271e-01_jprb,&
&1.4035e-01_jprb,1.6109e-01_jprb,1.8937e-01_jprb/)
kao( :, 2, 9,16) = (/&
&3.3981e-01_jprb,2.9740e-01_jprb,2.5499e-01_jprb,2.1257e-01_jprb,1.7017e-01_jprb,1.5746e-01_jprb,&
&1.8783e-01_jprb,2.1574e-01_jprb,2.5330e-01_jprb/)
kao( :, 3, 9,16) = (/&
&3.3164e-01_jprb,2.9026e-01_jprb,2.4888e-01_jprb,2.0750e-01_jprb,1.7718e-01_jprb,2.0179e-01_jprb,&
&2.4086e-01_jprb,2.7675e-01_jprb,3.2472e-01_jprb/)
kao( :, 4, 9,16) = (/&
&3.2434e-01_jprb,2.8387e-01_jprb,2.4340e-01_jprb,2.0299e-01_jprb,2.0166e-01_jprb,2.4979e-01_jprb,&
&2.9816e-01_jprb,3.4279e-01_jprb,4.0187e-01_jprb/)
kao( :, 5, 9,16) = (/&
&3.1856e-01_jprb,2.7881e-01_jprb,2.3907e-01_jprb,2.0909e-01_jprb,2.4079e-01_jprb,3.0025e-01_jprb,&
&3.5852e-01_jprb,4.1238e-01_jprb,4.8294e-01_jprb/)
kao( :, 1,10,16) = (/&
&4.1296e-01_jprb,3.6138e-01_jprb,3.0981e-01_jprb,2.5823e-01_jprb,2.0667e-01_jprb,1.5510e-01_jprb,&
&1.4272e-01_jprb,1.6382e-01_jprb,1.9375e-01_jprb/)
kao( :, 2,10,16) = (/&
&4.0355e-01_jprb,3.5316e-01_jprb,3.0277e-01_jprb,2.5237e-01_jprb,2.0198e-01_jprb,1.6688e-01_jprb,&
&1.9258e-01_jprb,2.2130e-01_jprb,2.5965e-01_jprb/)
kao( :, 3,10,16) = (/&
&3.9334e-01_jprb,3.4423e-01_jprb,2.9512e-01_jprb,2.4601e-01_jprb,2.0198e-01_jprb,2.0922e-01_jprb,&
&2.4978e-01_jprb,2.8734e-01_jprb,3.3649e-01_jprb/)
kao( :, 4,10,16) = (/&
&3.8468e-01_jprb,3.3665e-01_jprb,2.8862e-01_jprb,2.4064e-01_jprb,2.1892e-01_jprb,2.6187e-01_jprb,&
&3.1276e-01_jprb,3.6003e-01_jprb,4.2127e-01_jprb/)
kao( :, 5,10,16) = (/&
&3.7732e-01_jprb,3.3021e-01_jprb,2.8310e-01_jprb,2.4052e-01_jprb,2.5525e-01_jprb,3.1772e-01_jprb,&
&3.7953e-01_jprb,4.3694e-01_jprb,5.1089e-01_jprb/)
kao( :, 1,11,16) = (/&
&4.8302e-01_jprb,4.2268e-01_jprb,3.6234e-01_jprb,3.0200e-01_jprb,2.4165e-01_jprb,1.8151e-01_jprb,&
&1.6877e-01_jprb,1.9388e-01_jprb,3.3421e-01_jprb/)
kao( :, 2,11,16) = (/&
&4.7050e-01_jprb,4.1173e-01_jprb,3.5296e-01_jprb,2.9420e-01_jprb,2.3543e-01_jprb,1.9660e-01_jprb,&
&2.2543e-01_jprb,2.5921e-01_jprb,3.3179e-01_jprb/)
kao( :, 3,11,16) = (/&
&4.5896e-01_jprb,4.0163e-01_jprb,3.4431e-01_jprb,2.8698e-01_jprb,2.3627e-01_jprb,2.4234e-01_jprb,&
&2.8945e-01_jprb,3.3305e-01_jprb,3.8992e-01_jprb/)
kao( :, 4,11,16) = (/&
&4.4916e-01_jprb,3.9306e-01_jprb,3.3696e-01_jprb,2.8088e-01_jprb,2.5515e-01_jprb,3.0073e-01_jprb,&
&3.5922e-01_jprb,4.1373e-01_jprb,4.8361e-01_jprb/)
kao( :, 5,11,16) = (/&
&4.3990e-01_jprb,3.8496e-01_jprb,3.3001e-01_jprb,2.8070e-01_jprb,2.9324e-01_jprb,3.6251e-01_jprb,&
&4.3320e-01_jprb,4.9939e-01_jprb,5.8288e-01_jprb/)
kao( :, 1,12,16) = (/&
&5.5949e-01_jprb,4.8959e-01_jprb,4.1968e-01_jprb,3.4978e-01_jprb,2.7990e-01_jprb,2.1117e-01_jprb,&
&1.9846e-01_jprb,2.2823e-01_jprb,4.6485e-01_jprb/)
kao( :, 2,12,16) = (/&
&5.4466e-01_jprb,4.7661e-01_jprb,4.0856e-01_jprb,3.4053e-01_jprb,2.7248e-01_jprb,2.3023e-01_jprb,&
&2.6289e-01_jprb,3.0262e-01_jprb,4.5843e-01_jprb/)
kao( :, 3,12,16) = (/&
&5.3198e-01_jprb,4.6551e-01_jprb,3.9905e-01_jprb,3.3259e-01_jprb,2.7378e-01_jprb,2.8016e-01_jprb,&
&3.3471e-01_jprb,3.8547e-01_jprb,4.7894e-01_jprb/)
kao( :, 4,12,16) = (/&
&5.2001e-01_jprb,4.5505e-01_jprb,3.9008e-01_jprb,3.2510e-01_jprb,2.9551e-01_jprb,3.4473e-01_jprb,&
&4.1193e-01_jprb,4.7482e-01_jprb,5.5483e-01_jprb/)
kao( :, 5,12,16) = (/&
&5.0915e-01_jprb,4.4554e-01_jprb,3.8193e-01_jprb,3.2460e-01_jprb,3.3469e-01_jprb,4.1244e-01_jprb,&
&4.9294e-01_jprb,5.6854e-01_jprb,6.6308e-01_jprb/)
kao( :, 1,13,16) = (/&
&6.4209e-01_jprb,5.6185e-01_jprb,4.8161e-01_jprb,4.0138e-01_jprb,3.2111e-01_jprb,2.4405e-01_jprb,&
&2.3126e-01_jprb,2.6629e-01_jprb,5.1031e-01_jprb/)
kao( :, 2,13,16) = (/&
&6.2605e-01_jprb,5.4782e-01_jprb,4.6959e-01_jprb,3.9135e-01_jprb,3.1312e-01_jprb,2.6752e-01_jprb,&
&3.0417e-01_jprb,3.5056e-01_jprb,5.0701e-01_jprb/)
kao( :, 3,13,16) = (/&
&6.1094e-01_jprb,5.3460e-01_jprb,4.5826e-01_jprb,3.8192e-01_jprb,3.1501e-01_jprb,3.2162e-01_jprb,&
&3.8441e-01_jprb,4.4331e-01_jprb,5.4185e-01_jprb/)
kao( :, 4,13,16) = (/&
&5.9718e-01_jprb,5.2256e-01_jprb,4.4794e-01_jprb,3.7327e-01_jprb,3.3928e-01_jprb,3.9296e-01_jprb,&
&4.6976e-01_jprb,5.4198e-01_jprb,6.3180e-01_jprb/)
kao( :, 5,13,16) = (/&
&5.8381e-01_jprb,5.1086e-01_jprb,4.3791e-01_jprb,3.7153e-01_jprb,3.7939e-01_jprb,4.6700e-01_jprb,&
&5.5841e-01_jprb,6.4458e-01_jprb,7.5053e-01_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb16_a1