rrtm_kgb9_A2.F90

Go to the documentation of this file.

!OCL SCALAR
SUBROUTINE rrtm_kgb9_a2

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

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

#include "tsmbkind.h"

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

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


IMPLICIT NONE

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

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

kao( :, 1, 1, 9) = (/&
&9.5159e-01_jprb,8.6193e-01_jprb,7.8445e-01_jprb,7.0786e-01_jprb,6.2475e-01_jprb,5.4735e-01_jprb,&
&4.7357e-01_jprb,4.3191e-01_jprb,4.5105e-01_jprb,4.6500e-01_jprb,4.7768e-01_jprb/)
kao( :, 2, 1, 9) = (/&
&9.4610e-01_jprb,8.6636e-01_jprb,7.9453e-01_jprb,7.2334e-01_jprb,6.4819e-01_jprb,5.8098e-01_jprb,&
&5.1867e-01_jprb,5.0225e-01_jprb,5.3434e-01_jprb,5.5100e-01_jprb,5.6593e-01_jprb/)
kao( :, 3, 1, 9) = (/&
&9.4063e-01_jprb,8.6755e-01_jprb,8.0500e-01_jprb,7.3756e-01_jprb,6.7496e-01_jprb,6.1686e-01_jprb,&
&5.7144e-01_jprb,5.7997e-01_jprb,6.2451e-01_jprb,6.4411e-01_jprb,6.6119e-01_jprb/)
kao( :, 4, 1, 9) = (/&
&9.3410e-01_jprb,8.6712e-01_jprb,8.1423e-01_jprb,7.5391e-01_jprb,7.0437e-01_jprb,6.5593e-01_jprb,&
&6.3263e-01_jprb,6.6511e-01_jprb,7.2065e-01_jprb,7.4338e-01_jprb,7.6295e-01_jprb/)
kao( :, 5, 1, 9) = (/&
&9.2639e-01_jprb,8.6753e-01_jprb,8.2122e-01_jprb,7.7366e-01_jprb,7.3498e-01_jprb,7.0006e-01_jprb,&
&7.0131e-01_jprb,7.5726e-01_jprb,8.2266e-01_jprb,8.4882e-01_jprb,8.7078e-01_jprb/)
kao( :, 1, 2, 9) = (/&
&9.9571e-01_jprb,8.9920e-01_jprb,8.1614e-01_jprb,7.3263e-01_jprb,6.4026e-01_jprb,5.4806e-01_jprb,&
&4.6027e-01_jprb,3.9041e-01_jprb,3.9261e-01_jprb,4.0467e-01_jprb,4.1298e-01_jprb/)
kao( :, 2, 2, 9) = (/&
&9.8996e-01_jprb,9.0283e-01_jprb,8.2671e-01_jprb,7.4790e-01_jprb,6.6191e-01_jprb,5.7890e-01_jprb,&
&4.9929e-01_jprb,4.5184e-01_jprb,4.6916e-01_jprb,4.8383e-01_jprb,4.9391e-01_jprb/)
kao( :, 3, 2, 9) = (/&
&9.8376e-01_jprb,9.0392e-01_jprb,8.3729e-01_jprb,7.6239e-01_jprb,6.8599e-01_jprb,6.1186e-01_jprb,&
&5.4354e-01_jprb,5.2118e-01_jprb,5.5194e-01_jprb,5.6942e-01_jprb,5.8138e-01_jprb/)
kao( :, 4, 2, 9) = (/&
&9.7691e-01_jprb,9.0424e-01_jprb,8.4680e-01_jprb,7.7835e-01_jprb,7.1309e-01_jprb,6.4690e-01_jprb,&
&5.9506e-01_jprb,5.9772e-01_jprb,6.4088e-01_jprb,6.6141e-01_jprb,6.7534e-01_jprb/)
kao( :, 5, 2, 9) = (/&
&9.6899e-01_jprb,9.0591e-01_jprb,8.5458e-01_jprb,7.9701e-01_jprb,7.4146e-01_jprb,6.8466e-01_jprb,&
&6.5376e-01_jprb,6.8054e-01_jprb,7.3475e-01_jprb,7.5849e-01_jprb,7.7486e-01_jprb/)
kao( :, 1, 3, 9) = (/&
&1.0405e+00_jprb,9.3488e-01_jprb,8.4463e-01_jprb,7.5330e-01_jprb,6.5244e-01_jprb,5.4916e-01_jprb,&
&4.4520e-01_jprb,3.4870e-01_jprb,3.2584e-01_jprb,3.3543e-01_jprb,3.3962e-01_jprb/)
kao( :, 2, 3, 9) = (/&
&1.0349e+00_jprb,9.3892e-01_jprb,8.5534e-01_jprb,7.6913e-01_jprb,6.7395e-01_jprb,5.7625e-01_jprb,&
&4.7914e-01_jprb,3.9837e-01_jprb,3.9325e-01_jprb,4.0529e-01_jprb,4.1035e-01_jprb/)
kao( :, 3, 3, 9) = (/&
&1.0286e+00_jprb,9.4087e-01_jprb,8.6735e-01_jprb,7.8384e-01_jprb,6.9647e-01_jprb,6.0649e-01_jprb,&
&5.1617e-01_jprb,4.5626e-01_jprb,4.6701e-01_jprb,4.8157e-01_jprb,4.8769e-01_jprb/)
kao( :, 4, 3, 9) = (/&
&1.0216e+00_jprb,9.4194e-01_jprb,8.7769e-01_jprb,8.0047e-01_jprb,7.2103e-01_jprb,6.3769e-01_jprb,&
&5.5844e-01_jprb,5.2182e-01_jprb,5.4652e-01_jprb,5.6383e-01_jprb,5.7106e-01_jprb/)
kao( :, 5, 3, 9) = (/&
&1.0137e+00_jprb,9.4403e-01_jprb,8.8589e-01_jprb,8.1893e-01_jprb,7.4713e-01_jprb,6.7001e-01_jprb,&
&6.0589e-01_jprb,5.9289e-01_jprb,6.3020e-01_jprb,6.5037e-01_jprb,6.5878e-01_jprb/)
kao( :, 1, 4, 9) = (/&
&1.0880e+00_jprb,9.7313e-01_jprb,8.7384e-01_jprb,7.7222e-01_jprb,6.6520e-01_jprb,5.5149e-01_jprb,&
&4.3468e-01_jprb,3.1551e-01_jprb,2.6473e-01_jprb,2.7010e-01_jprb,2.7211e-01_jprb/)
kao( :, 2, 4, 9) = (/&
&1.0823e+00_jprb,9.7690e-01_jprb,8.8415e-01_jprb,7.9011e-01_jprb,6.8589e-01_jprb,5.7725e-01_jprb,&
&4.6480e-01_jprb,3.5528e-01_jprb,3.2290e-01_jprb,3.3154e-01_jprb,3.3402e-01_jprb/)
kao( :, 3, 4, 9) = (/&
&1.0759e+00_jprb,9.7896e-01_jprb,8.9677e-01_jprb,8.0590e-01_jprb,7.0747e-01_jprb,6.0512e-01_jprb,&
&4.9649e-01_jprb,4.0248e-01_jprb,3.8741e-01_jprb,3.9884e-01_jprb,4.0190e-01_jprb/)
kao( :, 4, 4, 9) = (/&
&1.0687e+00_jprb,9.8058e-01_jprb,9.0886e-01_jprb,8.2235e-01_jprb,7.3113e-01_jprb,6.3357e-01_jprb,&
&5.3180e-01_jprb,4.5630e-01_jprb,4.5720e-01_jprb,4.7127e-01_jprb,4.7487e-01_jprb/)
kao( :, 5, 4, 9) = (/&
&1.0611e+00_jprb,9.8340e-01_jprb,9.1796e-01_jprb,8.4063e-01_jprb,7.5604e-01_jprb,6.6259e-01_jprb,&
&5.7101e-01_jprb,5.1566e-01_jprb,5.3169e-01_jprb,5.4837e-01_jprb,5.5265e-01_jprb/)
kao( :, 1, 5, 9) = (/&
&1.1353e+00_jprb,1.0122e+00_jprb,9.0436e-01_jprb,7.9314e-01_jprb,6.7788e-01_jprb,5.5661e-01_jprb,&
&4.2870e-01_jprb,2.9193e-01_jprb,2.1579e-01_jprb,2.1412e-01_jprb,2.1527e-01_jprb/)
kao( :, 2, 5, 9) = (/&
&1.1302e+00_jprb,1.0164e+00_jprb,9.1463e-01_jprb,8.1125e-01_jprb,6.9965e-01_jprb,5.8117e-01_jprb,&
&4.5601e-01_jprb,3.2431e-01_jprb,2.6337e-01_jprb,2.6679e-01_jprb,2.6824e-01_jprb/)
kao( :, 3, 5, 9) = (/&
&1.1241e+00_jprb,1.0191e+00_jprb,9.2734e-01_jprb,8.2845e-01_jprb,7.2101e-01_jprb,6.0737e-01_jprb,&
&4.8451e-01_jprb,3.6228e-01_jprb,3.1806e-01_jprb,3.2529e-01_jprb,3.2713e-01_jprb/)
kao( :, 4, 5, 9) = (/&
&1.1173e+00_jprb,1.0209e+00_jprb,9.4019e-01_jprb,8.4617e-01_jprb,7.4384e-01_jprb,6.3435e-01_jprb,&
&5.1515e-01_jprb,4.0564e-01_jprb,3.7849e-01_jprb,3.8902e-01_jprb,3.9122e-01_jprb/)
kao( :, 5, 5, 9) = (/&
&1.1101e+00_jprb,1.0243e+00_jprb,9.5096e-01_jprb,8.6410e-01_jprb,7.6849e-01_jprb,6.6158e-01_jprb,&
&5.4858e-01_jprb,4.5511e-01_jprb,4.4484e-01_jprb,4.5817e-01_jprb,4.6081e-01_jprb/)
kao( :, 1, 6, 9) = (/&
&1.1806e+00_jprb,1.0498e+00_jprb,9.3337e-01_jprb,8.1273e-01_jprb,6.8998e-01_jprb,5.6047e-01_jprb,&
&4.2456e-01_jprb,2.7532e-01_jprb,1.7725e-01_jprb,1.6538e-01_jprb,1.6672e-01_jprb/)
kao( :, 2, 6, 9) = (/&
&1.1761e+00_jprb,1.0541e+00_jprb,9.4371e-01_jprb,8.3128e-01_jprb,7.1158e-01_jprb,5.8532e-01_jprb,&
&4.4996e-01_jprb,3.0144e-01_jprb,2.1482e-01_jprb,2.0943e-01_jprb,2.1089e-01_jprb/)
kao( :, 3, 6, 9) = (/&
&1.1706e+00_jprb,1.0579e+00_jprb,9.5635e-01_jprb,8.4936e-01_jprb,7.3343e-01_jprb,6.1037e-01_jprb,&
&4.7682e-01_jprb,3.3219e-01_jprb,2.5890e-01_jprb,2.5930e-01_jprb,2.6088e-01_jprb/)
kao( :, 4, 6, 9) = (/&
&1.1647e+00_jprb,1.0607e+00_jprb,9.7013e-01_jprb,8.6759e-01_jprb,7.5661e-01_jprb,6.3681e-01_jprb,&
&5.0490e-01_jprb,3.6744e-01_jprb,3.0939e-01_jprb,3.1452e-01_jprb,3.1634e-01_jprb/)
kao( :, 5, 6, 9) = (/&
&1.1580e+00_jprb,1.0646e+00_jprb,9.8251e-01_jprb,8.8607e-01_jprb,7.8101e-01_jprb,6.6342e-01_jprb,&
&5.3428e-01_jprb,4.0750e-01_jprb,3.6653e-01_jprb,3.7539e-01_jprb,3.7760e-01_jprb/)
kao( :, 1, 7, 9) = (/&
&1.2136e+00_jprb,1.0774e+00_jprb,9.5377e-01_jprb,8.2536e-01_jprb,6.9593e-01_jprb,5.6078e-01_jprb,&
&4.1863e-01_jprb,2.6313e-01_jprb,1.4935e-01_jprb,1.2578e-01_jprb,1.4257e-01_jprb/)
kao( :, 2, 7, 9) = (/&
&1.2100e+00_jprb,1.0820e+00_jprb,9.6432e-01_jprb,8.4363e-01_jprb,7.1756e-01_jprb,5.8508e-01_jprb,&
&4.4339e-01_jprb,2.8645e-01_jprb,1.7844e-01_jprb,1.6196e-01_jprb,1.7527e-01_jprb/)
kao( :, 3, 7, 9) = (/&
&1.2053e+00_jprb,1.0866e+00_jprb,9.7664e-01_jprb,8.6237e-01_jprb,7.3986e-01_jprb,6.1018e-01_jprb,&
&4.6912e-01_jprb,3.1223e-01_jprb,2.1332e-01_jprb,2.0363e-01_jprb,2.1371e-01_jprb/)
kao( :, 4, 7, 9) = (/&
&1.1998e+00_jprb,1.0903e+00_jprb,9.9072e-01_jprb,8.8131e-01_jprb,7.6315e-01_jprb,6.3674e-01_jprb,&
&4.9590e-01_jprb,3.4090e-01_jprb,2.5438e-01_jprb,2.5086e-01_jprb,2.5825e-01_jprb/)
kao( :, 5, 7, 9) = (/&
&1.1932e+00_jprb,1.0942e+00_jprb,1.0040e+00_jprb,9.0033e-01_jprb,7.8781e-01_jprb,6.6359e-01_jprb,&
&5.2347e-01_jprb,3.7392e-01_jprb,3.0186e-01_jprb,3.0359e-01_jprb,3.0908e-01_jprb/)
kao( :, 1, 8, 9) = (/&
&1.2316e+00_jprb,1.0924e+00_jprb,9.6349e-01_jprb,8.3019e-01_jprb,6.9548e-01_jprb,5.5575e-01_jprb,&
&4.1003e-01_jprb,2.5191e-01_jprb,1.3039e-01_jprb,9.5856e-02_jprb,1.7533e-01_jprb/)
kao( :, 2, 8, 9) = (/&
&1.2282e+00_jprb,1.0969e+00_jprb,9.7419e-01_jprb,8.4770e-01_jprb,7.1665e-01_jprb,5.7977e-01_jprb,&
&4.3430e-01_jprb,2.7347e-01_jprb,1.5278e-01_jprb,1.2456e-01_jprb,2.0121e-01_jprb/)
kao( :, 3, 8, 9) = (/&
&1.2234e+00_jprb,1.1017e+00_jprb,9.8619e-01_jprb,8.6635e-01_jprb,7.3926e-01_jprb,6.0504e-01_jprb,&
&4.5959e-01_jprb,2.9702e-01_jprb,1.8008e-01_jprb,1.5872e-01_jprb,2.2963e-01_jprb/)
kao( :, 4, 8, 9) = (/&
&1.2179e+00_jprb,1.1058e+00_jprb,1.0001e+00_jprb,8.8559e-01_jprb,7.6296e-01_jprb,6.3135e-01_jprb,&
&4.8567e-01_jprb,3.2261e-01_jprb,2.1292e-01_jprb,1.9834e-01_jprb,2.6180e-01_jprb/)
kao( :, 5, 8, 9) = (/&
&1.2113e+00_jprb,1.1100e+00_jprb,1.0138e+00_jprb,9.0571e-01_jprb,7.8768e-01_jprb,6.5815e-01_jprb,&
&5.1266e-01_jprb,3.5055e-01_jprb,2.5143e-01_jprb,2.4311e-01_jprb,2.9921e-01_jprb/)
kao( :, 1, 9, 9) = (/&
&1.2312e+00_jprb,1.0915e+00_jprb,9.6019e-01_jprb,8.2497e-01_jprb,6.8804e-01_jprb,5.4659e-01_jprb,&
&3.9889e-01_jprb,2.4010e-01_jprb,1.1745e-01_jprb,7.4115e-02_jprb,3.8570e-01_jprb/)
kao( :, 2, 9, 9) = (/&
&1.2271e+00_jprb,1.0952e+00_jprb,9.7062e-01_jprb,8.4182e-01_jprb,7.0896e-01_jprb,5.7001e-01_jprb,&
&4.2261e-01_jprb,2.6038e-01_jprb,1.3539e-01_jprb,9.6435e-02_jprb,4.2073e-01_jprb/)
kao( :, 3, 9, 9) = (/&
&1.2221e+00_jprb,1.0999e+00_jprb,9.8223e-01_jprb,8.6047e-01_jprb,7.3167e-01_jprb,5.9531e-01_jprb,&
&4.4692e-01_jprb,2.8236e-01_jprb,1.5682e-01_jprb,1.2365e-01_jprb,4.5798e-01_jprb/)
kao( :, 4, 9, 9) = (/&
&1.2168e+00_jprb,1.1048e+00_jprb,9.9655e-01_jprb,8.8042e-01_jprb,7.5597e-01_jprb,6.2078e-01_jprb,&
&4.7224e-01_jprb,3.0619e-01_jprb,1.8270e-01_jprb,1.5583e-01_jprb,4.9794e-01_jprb/)
kao( :, 5, 9, 9) = (/&
&1.2103e+00_jprb,1.1097e+00_jprb,1.0110e+00_jprb,9.0113e-01_jprb,7.8074e-01_jprb,6.4684e-01_jprb,&
&4.9870e-01_jprb,3.3189e-01_jprb,2.1333e-01_jprb,1.9294e-01_jprb,5.3980e-01_jprb/)
kao( :, 1,10, 9) = (/&
&1.2065e+00_jprb,1.0698e+00_jprb,9.3983e-01_jprb,8.0628e-01_jprb,6.7075e-01_jprb,5.3108e-01_jprb,&
&3.8524e-01_jprb,2.2846e-01_jprb,1.0759e-01_jprb,6.0114e-02_jprb,1.2134e+00_jprb/)
kao( :, 2,10, 9) = (/&
&1.2021e+00_jprb,1.0732e+00_jprb,9.5006e-01_jprb,8.2241e-01_jprb,6.9118e-01_jprb,5.5381e-01_jprb,&
&4.0835e-01_jprb,2.4753e-01_jprb,1.2339e-01_jprb,7.7390e-02_jprb,1.2525e+00_jprb/)
kao( :, 3,10, 9) = (/&
&1.1979e+00_jprb,1.0788e+00_jprb,9.6194e-01_jprb,8.4108e-01_jprb,7.1368e-01_jprb,5.7871e-01_jprb,&
&4.3197e-01_jprb,2.6832e-01_jprb,1.4165e-01_jprb,9.8913e-02_jprb,1.2959e+00_jprb/)
kao( :, 4,10, 9) = (/&
&1.1924e+00_jprb,1.0841e+00_jprb,9.7645e-01_jprb,8.6142e-01_jprb,7.3813e-01_jprb,6.0416e-01_jprb,&
&4.5629e-01_jprb,2.9111e-01_jprb,1.6279e-01_jprb,1.2496e-01_jprb,1.3457e+00_jprb/)
kao( :, 5,10, 9) = (/&
&1.1868e+00_jprb,1.0895e+00_jprb,9.9148e-01_jprb,8.8237e-01_jprb,7.6307e-01_jprb,6.3026e-01_jprb,&
&4.8193e-01_jprb,3.1564e-01_jprb,1.8743e-01_jprb,1.5518e-01_jprb,1.4010e+00_jprb/)
kao( :, 1,11, 9) = (/&
&1.1602e+00_jprb,1.0321e+00_jprb,9.0888e-01_jprb,7.8134e-01_jprb,6.5183e-01_jprb,5.1709e-01_jprb,&
&3.7632e-01_jprb,2.2357e-01_jprb,1.0454e-01_jprb,5.6265e-02_jprb,1.7556e+00_jprb/)
kao( :, 2,11, 9) = (/&
&1.1566e+00_jprb,1.0373e+00_jprb,9.1992e-01_jprb,7.9870e-01_jprb,6.7250e-01_jprb,5.3982e-01_jprb,&
&3.9883e-01_jprb,2.4238e-01_jprb,1.1972e-01_jprb,7.0995e-02_jprb,1.7896e+00_jprb/)
kao( :, 3,11, 9) = (/&
&1.1521e+00_jprb,1.0433e+00_jprb,9.3315e-01_jprb,8.1800e-01_jprb,6.9552e-01_jprb,5.6467e-01_jprb,&
&4.2241e-01_jprb,2.6285e-01_jprb,1.3701e-01_jprb,8.9495e-02_jprb,1.8345e+00_jprb/)
kao( :, 4,11, 9) = (/&
&1.1472e+00_jprb,1.0489e+00_jprb,9.4806e-01_jprb,8.3843e-01_jprb,7.1973e-01_jprb,5.9025e-01_jprb,&
&4.4701e-01_jprb,2.8499e-01_jprb,1.5648e-01_jprb,1.1176e-01_jprb,1.8895e+00_jprb/)
kao( :, 5,11, 9) = (/&
&1.1436e+00_jprb,1.0565e+00_jprb,9.6473e-01_jprb,8.6013e-01_jprb,7.4475e-01_jprb,6.1626e-01_jprb,&
&4.7243e-01_jprb,3.0896e-01_jprb,1.7805e-01_jprb,1.3759e-01_jprb,1.9545e+00_jprb/)
kao( :, 1,12, 9) = (/&
&1.0927e+00_jprb,9.7589e-01_jprb,8.6130e-01_jprb,7.4238e-01_jprb,6.2051e-01_jprb,4.9305e-01_jprb,&
&3.5975e-01_jprb,2.1463e-01_jprb,1.0064e-01_jprb,5.3171e-02_jprb,1.9140e+00_jprb/)
kao( :, 2,12, 9) = (/&
&1.0892e+00_jprb,9.8224e-01_jprb,8.7322e-01_jprb,7.6047e-01_jprb,6.4152e-01_jprb,5.1615e-01_jprb,&
&3.8192e-01_jprb,2.3322e-01_jprb,1.1514e-01_jprb,6.5840e-02_jprb,1.9498e+00_jprb/)
kao( :, 3,12, 9) = (/&
&1.0852e+00_jprb,9.8827e-01_jprb,8.8733e-01_jprb,7.7978e-01_jprb,6.6433e-01_jprb,5.4034e-01_jprb,&
&4.0501e-01_jprb,2.5357e-01_jprb,1.3154e-01_jprb,8.1554e-02_jprb,2.0010e+00_jprb/)
kao( :, 4,12, 9) = (/&
&1.0828e+00_jprb,9.9622e-01_jprb,9.0368e-01_jprb,8.0090e-01_jprb,6.8832e-01_jprb,5.6535e-01_jprb,&
&4.2922e-01_jprb,2.7541e-01_jprb,1.4957e-01_jprb,1.0036e-01_jprb,2.0646e+00_jprb/)
kao( :, 5,12, 9) = (/&
&1.0799e+00_jprb,1.0059e+00_jprb,9.2157e-01_jprb,8.2344e-01_jprb,7.1363e-01_jprb,5.9111e-01_jprb,&
&4.5461e-01_jprb,2.9875e-01_jprb,1.6950e-01_jprb,1.2252e-01_jprb,2.1387e+00_jprb/)
kao( :, 1,13, 9) = (/&
&1.0003e+00_jprb,8.9827e-01_jprb,7.9453e-01_jprb,6.8742e-01_jprb,5.7557e-01_jprb,4.5851e-01_jprb,&
&3.3514e-01_jprb,2.0061e-01_jprb,9.5403e-02_jprb,5.0265e-02_jprb,1.6361e+00_jprb/)
kao( :, 2,13, 9) = (/&
&9.9751e-01_jprb,9.0481e-01_jprb,8.0727e-01_jprb,7.0499e-01_jprb,5.9591e-01_jprb,4.8058e-01_jprb,&
&3.5629e-01_jprb,2.1887e-01_jprb,1.0898e-01_jprb,6.1395e-02_jprb,1.6789e+00_jprb/)
kao( :, 3,13, 9) = (/&
&9.9614e-01_jprb,9.1298e-01_jprb,8.2308e-01_jprb,7.2470e-01_jprb,6.1846e-01_jprb,5.0385e-01_jprb,&
&3.7856e-01_jprb,2.3882e-01_jprb,1.2434e-01_jprb,7.4760e-02_jprb,1.7343e+00_jprb/)
kao( :, 4,13, 9) = (/&
&9.9388e-01_jprb,9.2211e-01_jprb,8.4003e-01_jprb,7.4638e-01_jprb,6.4247e-01_jprb,5.2829e-01_jprb,&
&4.0218e-01_jprb,2.6010e-01_jprb,1.4124e-01_jprb,9.0738e-02_jprb,1.8018e+00_jprb/)
kao( :, 5,13, 9) = (/&
&9.9133e-01_jprb,9.3236e-01_jprb,8.5728e-01_jprb,7.6831e-01_jprb,6.6718e-01_jprb,5.5353e-01_jprb,&
&4.2726e-01_jprb,2.8267e-01_jprb,1.5974e-01_jprb,1.0946e-01_jprb,1.8787e+00_jprb/)
kao( :, 1, 1,10) = (/&
&1.4571e+00_jprb,1.2985e+00_jprb,1.1908e+00_jprb,1.0846e+00_jprb,1.0480e+00_jprb,9.7569e-01_jprb,&
&9.5294e-01_jprb,1.0946e+00_jprb,1.1970e+00_jprb,1.2341e+00_jprb,1.2515e+00_jprb/)
kao( :, 2, 1,10) = (/&
&1.4234e+00_jprb,1.2781e+00_jprb,1.1865e+00_jprb,1.1317e+00_jprb,1.1150e+00_jprb,1.0495e+00_jprb,&
&1.1148e+00_jprb,1.2924e+00_jprb,1.4136e+00_jprb,1.4576e+00_jprb,1.4767e+00_jprb/)
kao( :, 3, 1,10) = (/&
&1.3920e+00_jprb,1.2691e+00_jprb,1.1852e+00_jprb,1.1966e+00_jprb,1.1609e+00_jprb,1.1524e+00_jprb,&
&1.2953e+00_jprb,1.5017e+00_jprb,1.6423e+00_jprb,1.6923e+00_jprb,1.7109e+00_jprb/)
kao( :, 4, 1,10) = (/&
&1.3678e+00_jprb,1.2658e+00_jprb,1.2088e+00_jprb,1.2463e+00_jprb,1.2126e+00_jprb,1.2713e+00_jprb,&
&1.4845e+00_jprb,1.7225e+00_jprb,1.8842e+00_jprb,1.9406e+00_jprb,1.9546e+00_jprb/)
kao( :, 5, 1,10) = (/&
&1.3506e+00_jprb,1.2582e+00_jprb,1.2509e+00_jprb,1.2864e+00_jprb,1.2835e+00_jprb,1.4126e+00_jprb,&
&1.6783e+00_jprb,1.9484e+00_jprb,2.1328e+00_jprb,2.1974e+00_jprb,2.2094e+00_jprb/)
kao( :, 1, 2,10) = (/&
&1.5647e+00_jprb,1.3899e+00_jprb,1.2609e+00_jprb,1.1489e+00_jprb,1.0577e+00_jprb,9.7853e-01_jprb,&
&8.8718e-01_jprb,9.8958e-01_jprb,1.0824e+00_jprb,1.1177e+00_jprb,1.1363e+00_jprb/)
kao( :, 2, 2,10) = (/&
&1.5359e+00_jprb,1.3755e+00_jprb,1.2594e+00_jprb,1.1862e+00_jprb,1.1175e+00_jprb,1.0395e+00_jprb,&
&1.0286e+00_jprb,1.1844e+00_jprb,1.2956e+00_jprb,1.3363e+00_jprb,1.3552e+00_jprb/)
kao( :, 3, 2,10) = (/&
&1.5095e+00_jprb,1.3719e+00_jprb,1.2702e+00_jprb,1.2294e+00_jprb,1.1716e+00_jprb,1.1207e+00_jprb,&
&1.2069e+00_jprb,1.4002e+00_jprb,1.5313e+00_jprb,1.5789e+00_jprb,1.5968e+00_jprb/)
kao( :, 4, 2,10) = (/&
&1.4881e+00_jprb,1.3707e+00_jprb,1.2904e+00_jprb,1.2704e+00_jprb,1.2297e+00_jprb,1.2284e+00_jprb,&
&1.3999e+00_jprb,1.6237e+00_jprb,1.7765e+00_jprb,1.8314e+00_jprb,1.8527e+00_jprb/)
kao( :, 5, 2,10) = (/&
&1.4712e+00_jprb,1.3632e+00_jprb,1.3184e+00_jprb,1.3082e+00_jprb,1.2921e+00_jprb,1.3673e+00_jprb,&
&1.6066e+00_jprb,1.8637e+00_jprb,2.0388e+00_jprb,2.1005e+00_jprb,2.1202e+00_jprb/)
kao( :, 1, 3,10) = (/&
&1.6996e+00_jprb,1.5099e+00_jprb,1.3576e+00_jprb,1.2090e+00_jprb,1.0921e+00_jprb,9.6189e-01_jprb,&
&8.2495e-01_jprb,8.5120e-01_jprb,9.3114e-01_jprb,9.6079e-01_jprb,9.7144e-01_jprb/)
kao( :, 2, 3,10) = (/&
&1.6714e+00_jprb,1.4913e+00_jprb,1.3572e+00_jprb,1.2562e+00_jprb,1.1313e+00_jprb,1.0225e+00_jprb,&
&9.3378e-01_jprb,1.0377e+00_jprb,1.1351e+00_jprb,1.1715e+00_jprb,1.1847e+00_jprb/)
kao( :, 3, 3,10) = (/&
&1.6464e+00_jprb,1.4878e+00_jprb,1.3648e+00_jprb,1.2864e+00_jprb,1.1805e+00_jprb,1.0851e+00_jprb,&
&1.0848e+00_jprb,1.2467e+00_jprb,1.3633e+00_jprb,1.4058e+00_jprb,1.4211e+00_jprb/)
kao( :, 4, 3,10) = (/&
&1.6254e+00_jprb,1.4868e+00_jprb,1.3919e+00_jprb,1.3095e+00_jprb,1.2349e+00_jprb,1.1776e+00_jprb,&
&1.2699e+00_jprb,1.4722e+00_jprb,1.6102e+00_jprb,1.6602e+00_jprb,1.6774e+00_jprb/)
kao( :, 5, 3,10) = (/&
&1.6074e+00_jprb,1.4842e+00_jprb,1.4163e+00_jprb,1.3403e+00_jprb,1.2931e+00_jprb,1.3071e+00_jprb,&
&1.4856e+00_jprb,1.7228e+00_jprb,1.8845e+00_jprb,1.9421e+00_jprb,1.9615e+00_jprb/)
kao( :, 1, 4,10) = (/&
&1.8323e+00_jprb,1.6281e+00_jprb,1.4618e+00_jprb,1.2952e+00_jprb,1.1419e+00_jprb,9.7127e-01_jprb,&
&7.8485e-01_jprb,7.2735e-01_jprb,7.9434e-01_jprb,8.1908e-01_jprb,8.2678e-01_jprb/)
kao( :, 2, 4,10) = (/&
&1.8090e+00_jprb,1.6115e+00_jprb,1.4679e+00_jprb,1.3303e+00_jprb,1.1865e+00_jprb,1.0111e+00_jprb,&
&8.6551e-01_jprb,8.9427e-01_jprb,9.7752e-01_jprb,1.0078e+00_jprb,1.0171e+00_jprb/)
kao( :, 3, 4,10) = (/&
&1.7889e+00_jprb,1.6155e+00_jprb,1.4723e+00_jprb,1.3642e+00_jprb,1.2203e+00_jprb,1.0626e+00_jprb,&
&9.8912e-01_jprb,1.0844e+00_jprb,1.1852e+00_jprb,1.2230e+00_jprb,1.2342e+00_jprb/)
kao( :, 4, 4,10) = (/&
&1.7702e+00_jprb,1.6167e+00_jprb,1.4947e+00_jprb,1.3909e+00_jprb,1.2565e+00_jprb,1.1410e+00_jprb,&
&1.1388e+00_jprb,1.2955e+00_jprb,1.4168e+00_jprb,1.4624e+00_jprb,1.4761e+00_jprb/)
kao( :, 5, 4,10) = (/&
&1.7501e+00_jprb,1.6097e+00_jprb,1.5232e+00_jprb,1.4123e+00_jprb,1.3009e+00_jprb,1.2498e+00_jprb,&
&1.3238e+00_jprb,1.5313e+00_jprb,1.6751e+00_jprb,1.7296e+00_jprb,1.7455e+00_jprb/)
kao( :, 1, 5,10) = (/&
&1.9828e+00_jprb,1.7589e+00_jprb,1.5692e+00_jprb,1.3787e+00_jprb,1.1995e+00_jprb,9.9912e-01_jprb,&
&7.7673e-01_jprb,6.3208e-01_jprb,6.6656e-01_jprb,6.8788e-01_jprb,6.9344e-01_jprb/)
kao( :, 2, 5,10) = (/&
&1.9634e+00_jprb,1.7445e+00_jprb,1.5796e+00_jprb,1.4090e+00_jprb,1.2375e+00_jprb,1.0422e+00_jprb,&
&8.3265e-01_jprb,7.6892e-01_jprb,8.3508e-01_jprb,8.6158e-01_jprb,8.6855e-01_jprb/)
kao( :, 3, 5,10) = (/&
&1.9451e+00_jprb,1.7488e+00_jprb,1.5830e+00_jprb,1.4394e+00_jprb,1.2778e+00_jprb,1.0801e+00_jprb,&
&9.2394e-01_jprb,9.3676e-01_jprb,1.0236e+00_jprb,1.0564e+00_jprb,1.0650e+00_jprb/)
kao( :, 4, 5,10) = (/&
&1.9265e+00_jprb,1.7517e+00_jprb,1.6023e+00_jprb,1.4639e+00_jprb,1.3153e+00_jprb,1.1360e+00_jprb,&
&1.0450e+00_jprb,1.1261e+00_jprb,1.2312e+00_jprb,1.2708e+00_jprb,1.2815e+00_jprb/)
kao( :, 5, 5,10) = (/&
&1.9040e+00_jprb,1.7416e+00_jprb,1.6301e+00_jprb,1.4960e+00_jprb,1.3496e+00_jprb,1.2128e+00_jprb,&
&1.1890e+00_jprb,1.3318e+00_jprb,1.4563e+00_jprb,1.5043e+00_jprb,1.5161e+00_jprb/)
kao( :, 1, 6,10) = (/&
&2.1467e+00_jprb,1.9004e+00_jprb,1.6825e+00_jprb,1.4649e+00_jprb,1.2465e+00_jprb,1.0269e+00_jprb,&
&7.8605e-01_jprb,5.5785e-01_jprb,5.4603e-01_jprb,5.6364e-01_jprb,5.6772e-01_jprb/)
kao( :, 2, 6,10) = (/&
&2.1281e+00_jprb,1.8881e+00_jprb,1.6957e+00_jprb,1.4846e+00_jprb,1.2828e+00_jprb,1.0659e+00_jprb,&
&8.3980e-01_jprb,6.6949e-01_jprb,6.9629e-01_jprb,7.1873e-01_jprb,7.2407e-01_jprb/)
kao( :, 3, 6,10) = (/&
&2.1101e+00_jprb,1.8868e+00_jprb,1.6967e+00_jprb,1.5129e+00_jprb,1.3220e+00_jprb,1.1137e+00_jprb,&
&9.0037e-01_jprb,8.0396e-01_jprb,8.6638e-01_jprb,8.9449e-01_jprb,9.0065e-01_jprb/)
kao( :, 4, 6,10) = (/&
&2.0853e+00_jprb,1.8860e+00_jprb,1.7059e+00_jprb,1.5431e+00_jprb,1.3571e+00_jprb,1.1686e+00_jprb,&
&9.8228e-01_jprb,9.6588e-01_jprb,1.0545e+00_jprb,1.0886e+00_jprb,1.0960e+00_jprb/)
kao( :, 5, 6,10) = (/&
&2.0580e+00_jprb,1.8736e+00_jprb,1.7305e+00_jprb,1.5756e+00_jprb,1.3997e+00_jprb,1.2303e+00_jprb,&
&1.0965e+00_jprb,1.1472e+00_jprb,1.2529e+00_jprb,1.2937e+00_jprb,1.3014e+00_jprb/)
kao( :, 1, 7,10) = (/&
&2.2844e+00_jprb,2.0203e+00_jprb,1.7798e+00_jprb,1.5404e+00_jprb,1.2929e+00_jprb,1.0469e+00_jprb,&
&7.9236e-01_jprb,5.2961e-01_jprb,4.3906e-01_jprb,4.5269e-01_jprb,4.5518e-01_jprb/)
kao( :, 2, 7,10) = (/&
&2.2660e+00_jprb,2.0078e+00_jprb,1.7931e+00_jprb,1.5555e+00_jprb,1.3285e+00_jprb,1.0902e+00_jprb,&
&8.4669e-01_jprb,5.9963e-01_jprb,5.6851e-01_jprb,5.8633e-01_jprb,5.8943e-01_jprb/)
kao( :, 3, 7,10) = (/&
&2.2458e+00_jprb,2.0016e+00_jprb,1.7952e+00_jprb,1.5839e+00_jprb,1.3724e+00_jprb,1.1382e+00_jprb,&
&9.0788e-01_jprb,7.0219e-01_jprb,7.1570e-01_jprb,7.3889e-01_jprb,7.4245e-01_jprb/)
kao( :, 4, 7,10) = (/&
&2.2171e+00_jprb,2.0004e+00_jprb,1.8020e+00_jprb,1.6192e+00_jprb,1.4137e+00_jprb,1.1896e+00_jprb,&
&9.7833e-01_jprb,8.3274e-01_jprb,8.7925e-01_jprb,9.0812e-01_jprb,9.1193e-01_jprb/)
kao( :, 5, 7,10) = (/&
&2.1959e+00_jprb,1.9929e+00_jprb,1.8261e+00_jprb,1.6565e+00_jprb,1.4548e+00_jprb,1.2529e+00_jprb,&
&1.0566e+00_jprb,9.7505e-01_jprb,1.0516e+00_jprb,1.0862e+00_jprb,1.0907e+00_jprb/)
kao( :, 1, 8,10) = (/&
&2.3885e+00_jprb,2.1081e+00_jprb,1.8478e+00_jprb,1.5947e+00_jprb,1.3299e+00_jprb,1.0742e+00_jprb,&
&7.9832e-01_jprb,5.1485e-01_jprb,3.4910e-01_jprb,3.5166e-01_jprb,4.0882e-01_jprb/)
kao( :, 2, 8,10) = (/&
&2.3816e+00_jprb,2.1064e+00_jprb,1.8710e+00_jprb,1.6145e+00_jprb,1.3755e+00_jprb,1.1190e+00_jprb,&
&8.5217e-01_jprb,5.7569e-01_jprb,4.5136e-01_jprb,4.6418e-01_jprb,4.8409e-01_jprb/)
kao( :, 3, 8,10) = (/&
&2.3652e+00_jprb,2.1007e+00_jprb,1.8806e+00_jprb,1.6533e+00_jprb,1.4207e+00_jprb,1.1711e+00_jprb,&
&9.0846e-01_jprb,6.4219e-01_jprb,5.7508e-01_jprb,5.9368e-01_jprb,5.9892e-01_jprb/)
kao( :, 4, 8,10) = (/&
&2.3476e+00_jprb,2.1091e+00_jprb,1.8906e+00_jprb,1.6908e+00_jprb,1.4662e+00_jprb,1.2230e+00_jprb,&
&9.7637e-01_jprb,7.3139e-01_jprb,7.1362e-01_jprb,7.3716e-01_jprb,7.4183e-01_jprb/)
kao( :, 5, 8,10) = (/&
&2.3384e+00_jprb,2.1117e+00_jprb,1.9201e+00_jprb,1.7277e+00_jprb,1.5122e+00_jprb,1.2845e+00_jprb,&
&1.0504e+00_jprb,8.4237e-01_jprb,8.6471e-01_jprb,8.9254e-01_jprb,8.9924e-01_jprb/)
kao( :, 1, 9,10) = (/&
&2.5386e+00_jprb,2.2349e+00_jprb,1.9481e+00_jprb,1.6673e+00_jprb,1.3731e+00_jprb,1.0924e+00_jprb,&
&8.0108e-01_jprb,5.0383e-01_jprb,2.8431e-01_jprb,2.6546e-01_jprb,1.0078e+00_jprb/)
kao( :, 2, 9,10) = (/&
&2.5451e+00_jprb,2.2468e+00_jprb,1.9792e+00_jprb,1.6927e+00_jprb,1.4190e+00_jprb,1.1389e+00_jprb,&
&8.5564e-01_jprb,5.6069e-01_jprb,3.5715e-01_jprb,3.5572e-01_jprb,1.1000e+00_jprb/)
kao( :, 3, 9,10) = (/&
&2.5371e+00_jprb,2.2464e+00_jprb,1.9929e+00_jprb,1.7275e+00_jprb,1.4622e+00_jprb,1.1905e+00_jprb,&
&9.1694e-01_jprb,6.2032e-01_jprb,4.5328e-01_jprb,4.6281e-01_jprb,1.1964e+00_jprb/)
kao( :, 4, 9,10) = (/&
&2.5272e+00_jprb,2.2578e+00_jprb,2.0033e+00_jprb,1.7607e+00_jprb,1.5050e+00_jprb,1.2522e+00_jprb,&
&9.8282e-01_jprb,6.8556e-01_jprb,5.6762e-01_jprb,5.8509e-01_jprb,1.3014e+00_jprb/)
kao( :, 5, 9,10) = (/&
&2.5219e+00_jprb,2.2665e+00_jprb,2.0326e+00_jprb,1.7988e+00_jprb,1.5562e+00_jprb,1.3171e+00_jprb,&
&1.0492e+00_jprb,7.6013e-01_jprb,7.0072e-01_jprb,7.2284e-01_jprb,1.4121e+00_jprb/)
kao( :, 1,10,10) = (/&
&2.7032e+00_jprb,2.3752e+00_jprb,2.0666e+00_jprb,1.7582e+00_jprb,1.4376e+00_jprb,1.1282e+00_jprb,&
&8.0844e-01_jprb,4.9374e-01_jprb,2.5722e-01_jprb,2.0186e-01_jprb,3.6688e+00_jprb/)
kao( :, 2,10,10) = (/&
&2.7107e+00_jprb,2.3914e+00_jprb,2.0994e+00_jprb,1.7884e+00_jprb,1.4847e+00_jprb,1.1756e+00_jprb,&
&8.5930e-01_jprb,5.5140e-01_jprb,3.0504e-01_jprb,2.7555e-01_jprb,3.7597e+00_jprb/)
kao( :, 3,10,10) = (/&
&2.7016e+00_jprb,2.3907e+00_jprb,2.1143e+00_jprb,1.8225e+00_jprb,1.5274e+00_jprb,1.2237e+00_jprb,&
&9.2233e-01_jprb,6.0585e-01_jprb,3.7278e-01_jprb,3.6425e-01_jprb,3.8938e+00_jprb/)
kao( :, 4,10,10) = (/&
&2.6956e+00_jprb,2.4067e+00_jprb,2.1300e+00_jprb,1.8578e+00_jprb,1.5689e+00_jprb,1.2815e+00_jprb,&
&9.8969e-01_jprb,6.6341e-01_jprb,4.6317e-01_jprb,4.6656e-01_jprb,4.0246e+00_jprb/)
kao( :, 5,10,10) = (/&
&2.6869e+00_jprb,2.4172e+00_jprb,2.1621e+00_jprb,1.8987e+00_jprb,1.6181e+00_jprb,1.3422e+00_jprb,&
&1.0558e+00_jprb,7.2592e-01_jprb,5.7500e-01_jprb,5.8744e-01_jprb,4.1547e+00_jprb/)
kao( :, 1,11,10) = (/&
&2.8365e+00_jprb,2.4939e+00_jprb,2.1806e+00_jprb,1.8562e+00_jprb,1.5246e+00_jprb,1.1987e+00_jprb,&
&8.5286e-01_jprb,5.0756e-01_jprb,2.5720e-01_jprb,1.7786e-01_jprb,5.8233e+00_jprb/)
kao( :, 2,11,10) = (/&
&2.8311e+00_jprb,2.5017e+00_jprb,2.2072e+00_jprb,1.8857e+00_jprb,1.5735e+00_jprb,1.2464e+00_jprb,&
&9.0789e-01_jprb,5.6161e-01_jprb,3.0021e-01_jprb,2.4395e-01_jprb,5.8712e+00_jprb/)
kao( :, 3,11,10) = (/&
&2.8249e+00_jprb,2.5109e+00_jprb,2.2225e+00_jprb,1.9282e+00_jprb,1.6185e+00_jprb,1.2983e+00_jprb,&
&9.6627e-01_jprb,6.1528e-01_jprb,3.5612e-01_jprb,3.2409e-01_jprb,5.9730e+00_jprb/)
kao( :, 4,11,10) = (/&
&2.8199e+00_jprb,2.5320e+00_jprb,2.2523e+00_jprb,1.9711e+00_jprb,1.6696e+00_jprb,1.3539e+00_jprb,&
&1.0246e+00_jprb,6.7092e-01_jprb,4.3024e-01_jprb,4.1910e-01_jprb,6.1100e+00_jprb/)
kao( :, 5,11,10) = (/&
&2.8024e+00_jprb,2.5388e+00_jprb,2.2830e+00_jprb,2.0130e+00_jprb,1.7222e+00_jprb,1.4150e+00_jprb,&
&1.0853e+00_jprb,7.3326e-01_jprb,5.2958e-01_jprb,5.3082e-01_jprb,6.2451e+00_jprb/)
kao( :, 1,12,10) = (/&
&2.9007e+00_jprb,2.5522e+00_jprb,2.2455e+00_jprb,1.9136e+00_jprb,1.5844e+00_jprb,1.2502e+00_jprb,&
&8.9520e-01_jprb,5.2570e-01_jprb,2.5575e-01_jprb,1.5969e-01_jprb,6.7808e+00_jprb/)
kao( :, 2,12,10) = (/&
&2.8957e+00_jprb,2.5649e+00_jprb,2.2681e+00_jprb,1.9492e+00_jprb,1.6332e+00_jprb,1.2959e+00_jprb,&
&9.5066e-01_jprb,5.7358e-01_jprb,2.9740e-01_jprb,2.1707e-01_jprb,6.8136e+00_jprb/)
kao( :, 3,12,10) = (/&
&2.8959e+00_jprb,2.5923e+00_jprb,2.2942e+00_jprb,1.9975e+00_jprb,1.6818e+00_jprb,1.3548e+00_jprb,&
&1.0083e+00_jprb,6.2153e-01_jprb,3.4695e-01_jprb,2.8857e-01_jprb,6.9134e+00_jprb/)
kao( :, 4,12,10) = (/&
&2.8817e+00_jprb,2.6059e+00_jprb,2.3289e+00_jprb,2.0414e+00_jprb,1.7379e+00_jprb,1.4164e+00_jprb,&
&1.0650e+00_jprb,6.7585e-01_jprb,4.1101e-01_jprb,3.7695e-01_jprb,7.0381e+00_jprb/)
kao( :, 5,12,10) = (/&
&2.8680e+00_jprb,2.6070e+00_jprb,2.3572e+00_jprb,2.0817e+00_jprb,1.7934e+00_jprb,1.4807e+00_jprb,&
&1.1194e+00_jprb,7.3817e-01_jprb,4.8817e-01_jprb,4.7434e-01_jprb,7.1520e+00_jprb/)
kao( :, 1,13,10) = (/&
&2.8740e+00_jprb,2.5320e+00_jprb,2.2375e+00_jprb,1.9099e+00_jprb,1.5916e+00_jprb,1.2554e+00_jprb,&
&9.0824e-01_jprb,5.3705e-01_jprb,2.5121e-01_jprb,1.4664e-01_jprb,6.0411e+00_jprb/)
kao( :, 2,13,10) = (/&
&2.8792e+00_jprb,2.5659e+00_jprb,2.2680e+00_jprb,1.9609e+00_jprb,1.6438e+00_jprb,1.3095e+00_jprb,&
&9.6448e-01_jprb,5.8102e-01_jprb,2.9305e-01_jprb,1.9412e-01_jprb,6.1051e+00_jprb/)
kao( :, 3,13,10) = (/&
&2.8707e+00_jprb,2.5893e+00_jprb,2.2982e+00_jprb,2.0064e+00_jprb,1.6967e+00_jprb,1.3719e+00_jprb,&
&1.0233e+00_jprb,6.2659e-01_jprb,3.3990e-01_jprb,2.5773e-01_jprb,6.2169e+00_jprb/)
kao( :, 4,13,10) = (/&
&2.8643e+00_jprb,2.5995e+00_jprb,2.3326e+00_jprb,2.0484e+00_jprb,1.7508e+00_jprb,1.4355e+00_jprb,&
&1.0824e+00_jprb,6.7916e-01_jprb,3.9630e-01_jprb,3.3349e-01_jprb,6.3137e+00_jprb/)
kao( :, 5,13,10) = (/&
&2.8671e+00_jprb,2.6159e+00_jprb,2.3730e+00_jprb,2.0970e+00_jprb,1.8103e+00_jprb,1.4979e+00_jprb,&
&1.1399e+00_jprb,7.4021e-01_jprb,4.5873e-01_jprb,4.1936e-01_jprb,6.4289e+00_jprb/)
kao( :, 1, 1,11) = (/&
&1.6613e+00_jprb,1.4866e+00_jprb,1.3853e+00_jprb,1.3300e+00_jprb,1.2682e+00_jprb,1.2323e+00_jprb,&
&1.3863e+00_jprb,1.6088e+00_jprb,1.7596e+00_jprb,1.8112e+00_jprb,1.8168e+00_jprb/)
kao( :, 2, 1,11) = (/&
&1.6169e+00_jprb,1.4555e+00_jprb,1.4059e+00_jprb,1.3808e+00_jprb,1.3576e+00_jprb,1.4059e+00_jprb,&
&1.6502e+00_jprb,1.9162e+00_jprb,2.0970e+00_jprb,2.1595e+00_jprb,2.1711e+00_jprb/)
kao( :, 3, 1,11) = (/&
&1.5778e+00_jprb,1.4552e+00_jprb,1.4351e+00_jprb,1.4445e+00_jprb,1.4667e+00_jprb,1.6093e+00_jprb,&
&1.9164e+00_jprb,2.2262e+00_jprb,2.4366e+00_jprb,2.5118e+00_jprb,2.5357e+00_jprb/)
kao( :, 4, 1,11) = (/&
&1.5458e+00_jprb,1.4600e+00_jprb,1.4693e+00_jprb,1.5080e+00_jprb,1.5810e+00_jprb,1.8320e+00_jprb,&
&2.1847e+00_jprb,2.5375e+00_jprb,2.7777e+00_jprb,2.8639e+00_jprb,2.8977e+00_jprb/)
kao( :, 5, 1,11) = (/&
&1.5169e+00_jprb,1.4756e+00_jprb,1.5189e+00_jprb,1.5745e+00_jprb,1.7149e+00_jprb,2.0625e+00_jprb,&
&2.4598e+00_jprb,2.8572e+00_jprb,3.1271e+00_jprb,3.2233e+00_jprb,3.2607e+00_jprb/)
kao( :, 1, 2,11) = (/&
&1.7931e+00_jprb,1.6027e+00_jprb,1.4692e+00_jprb,1.3591e+00_jprb,1.3119e+00_jprb,1.2053e+00_jprb,&
&1.2920e+00_jprb,1.4995e+00_jprb,1.6403e+00_jprb,1.6893e+00_jprb,1.7029e+00_jprb/)
kao( :, 2, 2,11) = (/&
&1.7517e+00_jprb,1.5695e+00_jprb,1.4741e+00_jprb,1.4214e+00_jprb,1.3827e+00_jprb,1.3473e+00_jprb,&
&1.5430e+00_jprb,1.7916e+00_jprb,1.9609e+00_jprb,2.0211e+00_jprb,2.0410e+00_jprb/)
kao( :, 3, 2,11) = (/&
&1.7144e+00_jprb,1.5578e+00_jprb,1.4838e+00_jprb,1.5024e+00_jprb,1.4587e+00_jprb,1.5235e+00_jprb,&
&1.7953e+00_jprb,2.0852e+00_jprb,2.2826e+00_jprb,2.3530e+00_jprb,2.3802e+00_jprb/)
kao( :, 4, 2,11) = (/&
&1.6782e+00_jprb,1.5545e+00_jprb,1.5253e+00_jprb,1.5641e+00_jprb,1.5463e+00_jprb,1.7285e+00_jprb,&
&2.0611e+00_jprb,2.3939e+00_jprb,2.6193e+00_jprb,2.6996e+00_jprb,2.7281e+00_jprb/)
kao( :, 5, 2,11) = (/&
&1.6444e+00_jprb,1.5616e+00_jprb,1.5898e+00_jprb,1.6106e+00_jprb,1.6616e+00_jprb,1.9596e+00_jprb,&
&2.3378e+00_jprb,2.7154e+00_jprb,2.9704e+00_jprb,3.0605e+00_jprb,3.0919e+00_jprb/)
kao( :, 1, 3,11) = (/&
&1.9627e+00_jprb,1.7504e+00_jprb,1.5854e+00_jprb,1.4217e+00_jprb,1.3102e+00_jprb,1.1839e+00_jprb,&
&1.1622e+00_jprb,1.3310e+00_jprb,1.4543e+00_jprb,1.4985e+00_jprb,1.5140e+00_jprb/)
kao( :, 2, 3,11) = (/&
&1.9279e+00_jprb,1.7219e+00_jprb,1.5816e+00_jprb,1.4501e+00_jprb,1.3900e+00_jprb,1.2949e+00_jprb,&
&1.3876e+00_jprb,1.6085e+00_jprb,1.7572e+00_jprb,1.8110e+00_jprb,1.8300e+00_jprb/)
kao( :, 3, 3,11) = (/&
&1.8924e+00_jprb,1.7068e+00_jprb,1.5754e+00_jprb,1.5312e+00_jprb,1.4545e+00_jprb,1.4364e+00_jprb,&
&1.6346e+00_jprb,1.8944e+00_jprb,2.0697e+00_jprb,2.1336e+00_jprb,2.1557e+00_jprb/)
kao( :, 4, 3,11) = (/&
&1.8571e+00_jprb,1.6996e+00_jprb,1.5918e+00_jprb,1.6013e+00_jprb,1.5297e+00_jprb,1.6118e+00_jprb,&
&1.8962e+00_jprb,2.1972e+00_jprb,2.4008e+00_jprb,2.4733e+00_jprb,2.4988e+00_jprb/)
kao( :, 5, 3,11) = (/&
&1.8235e+00_jprb,1.6901e+00_jprb,1.6505e+00_jprb,1.6453e+00_jprb,1.6300e+00_jprb,1.8256e+00_jprb,&
&2.1737e+00_jprb,2.5187e+00_jprb,2.7529e+00_jprb,2.8347e+00_jprb,2.8622e+00_jprb/)
kao( :, 1, 4,11) = (/&
&2.1765e+00_jprb,1.9348e+00_jprb,1.7298e+00_jprb,1.5261e+00_jprb,1.3305e+00_jprb,1.1605e+00_jprb,&
&1.0551e+00_jprb,1.1346e+00_jprb,1.2370e+00_jprb,1.2757e+00_jprb,1.2869e+00_jprb/)
kao( :, 2, 4,11) = (/&
&2.1414e+00_jprb,1.9083e+00_jprb,1.7248e+00_jprb,1.5356e+00_jprb,1.3817e+00_jprb,1.2586e+00_jprb,&
&1.2309e+00_jprb,1.3912e+00_jprb,1.5177e+00_jprb,1.5661e+00_jprb,1.5799e+00_jprb/)
kao( :, 3, 4,11) = (/&
&2.1021e+00_jprb,1.8834e+00_jprb,1.7158e+00_jprb,1.5815e+00_jprb,1.4532e+00_jprb,1.3786e+00_jprb,&
&1.4439e+00_jprb,1.6656e+00_jprb,1.8177e+00_jprb,1.8749e+00_jprb,1.8912e+00_jprb/)
kao( :, 4, 4,11) = (/&
&2.0644e+00_jprb,1.8749e+00_jprb,1.7166e+00_jprb,1.6274e+00_jprb,1.5294e+00_jprb,1.5218e+00_jprb,&
&1.7000e+00_jprb,1.9644e+00_jprb,2.1444e+00_jprb,2.2100e+00_jprb,2.2304e+00_jprb/)
kao( :, 5, 4,11) = (/&
&2.0315e+00_jprb,1.8634e+00_jprb,1.7507e+00_jprb,1.6723e+00_jprb,1.6226e+00_jprb,1.7027e+00_jprb,&
&1.9800e+00_jprb,2.2880e+00_jprb,2.4977e+00_jprb,2.5739e+00_jprb,2.5981e+00_jprb/)
kao( :, 1, 5,11) = (/&
&2.3978e+00_jprb,2.1273e+00_jprb,1.8817e+00_jprb,1.6476e+00_jprb,1.4011e+00_jprb,1.1672e+00_jprb,&
&9.7083e-01_jprb,9.5214e-01_jprb,1.0369e+00_jprb,1.0689e+00_jprb,1.0768e+00_jprb/)
kao( :, 2, 5,11) = (/&
&2.3540e+00_jprb,2.0936e+00_jprb,1.8768e+00_jprb,1.6491e+00_jprb,1.4389e+00_jprb,1.2340e+00_jprb,&
&1.1149e+00_jprb,1.1831e+00_jprb,1.2889e+00_jprb,1.3291e+00_jprb,1.3391e+00_jprb/)
kao( :, 3, 5,11) = (/&
&2.3123e+00_jprb,2.0603e+00_jprb,1.8683e+00_jprb,1.6861e+00_jprb,1.4856e+00_jprb,1.3243e+00_jprb,&
&1.2879e+00_jprb,1.4387e+00_jprb,1.5683e+00_jprb,1.6173e+00_jprb,1.6292e+00_jprb/)
kao( :, 4, 5,11) = (/&
&2.2731e+00_jprb,2.0535e+00_jprb,1.8606e+00_jprb,1.7201e+00_jprb,1.5405e+00_jprb,1.4489e+00_jprb,&
&1.5047e+00_jprb,1.7253e+00_jprb,1.8810e+00_jprb,1.9395e+00_jprb,1.9546e+00_jprb/)
kao( :, 5, 5,11) = (/&
&2.2409e+00_jprb,2.0441e+00_jprb,1.8877e+00_jprb,1.7429e+00_jprb,1.6151e+00_jprb,1.6124e+00_jprb,&
&1.7700e+00_jprb,2.0422e+00_jprb,2.2271e+00_jprb,2.2953e+00_jprb,2.3139e+00_jprb/)
kao( :, 1, 6,11) = (/&
&2.5958e+00_jprb,2.2974e+00_jprb,2.0142e+00_jprb,1.7617e+00_jprb,1.4801e+00_jprb,1.2138e+00_jprb,&
&9.4381e-01_jprb,8.0769e-01_jprb,8.5699e-01_jprb,8.8288e-01_jprb,8.8884e-01_jprb/)
kao( :, 2, 6,11) = (/&
&2.5524e+00_jprb,2.2633e+00_jprb,2.0140e+00_jprb,1.7595e+00_jprb,1.5235e+00_jprb,1.2699e+00_jprb,&
&1.0358e+00_jprb,9.9995e-01_jprb,1.0855e+00_jprb,1.1188e+00_jprb,1.1263e+00_jprb/)
kao( :, 3, 6,11) = (/&
&2.5133e+00_jprb,2.2324e+00_jprb,2.0130e+00_jprb,1.7928e+00_jprb,1.5724e+00_jprb,1.3298e+00_jprb,&
&1.1740e+00_jprb,1.2292e+00_jprb,1.3373e+00_jprb,1.3782e+00_jprb,1.3885e+00_jprb/)
kao( :, 4, 6,11) = (/&
&2.4807e+00_jprb,2.2302e+00_jprb,2.0078e+00_jprb,1.8271e+00_jprb,1.6226e+00_jprb,1.4050e+00_jprb,&
&1.3553e+00_jprb,1.4899e+00_jprb,1.6221e+00_jprb,1.6724e+00_jprb,1.6846e+00_jprb/)
kao( :, 5, 6,11) = (/&
&2.4531e+00_jprb,2.2259e+00_jprb,2.0295e+00_jprb,1.8622e+00_jprb,1.6727e+00_jprb,1.5327e+00_jprb,&
&1.5693e+00_jprb,1.7819e+00_jprb,1.9432e+00_jprb,2.0038e+00_jprb,2.0198e+00_jprb/)
kao( :, 1, 7,11) = (/&
&2.7829e+00_jprb,2.4576e+00_jprb,2.1410e+00_jprb,1.8711e+00_jprb,1.5626e+00_jprb,1.2726e+00_jprb,&
&9.6771e-01_jprb,6.9895e-01_jprb,6.9406e-01_jprb,7.1533e-01_jprb,7.2033e-01_jprb/)
kao( :, 2, 7,11) = (/&
&2.7493e+00_jprb,2.4354e+00_jprb,2.1596e+00_jprb,1.8755e+00_jprb,1.6074e+00_jprb,1.3276e+00_jprb,&
&1.0391e+00_jprb,8.5593e-01_jprb,8.9783e-01_jprb,9.2606e-01_jprb,9.3225e-01_jprb/)
kao( :, 3, 7,11) = (/&
&2.7215e+00_jprb,2.4153e+00_jprb,2.1690e+00_jprb,1.9070e+00_jprb,1.6545e+00_jprb,1.3898e+00_jprb,&
&1.1226e+00_jprb,1.0453e+00_jprb,1.1294e+00_jprb,1.1648e+00_jprb,1.1728e+00_jprb/)
kao( :, 4, 7,11) = (/&
&2.6975e+00_jprb,2.4170e+00_jprb,2.1702e+00_jprb,1.9430e+00_jprb,1.7107e+00_jprb,1.4568e+00_jprb,&
&1.2495e+00_jprb,1.2760e+00_jprb,1.3906e+00_jprb,1.4345e+00_jprb,1.4450e+00_jprb/)
kao( :, 5, 7,11) = (/&
&2.6700e+00_jprb,2.4191e+00_jprb,2.1904e+00_jprb,1.9836e+00_jprb,1.7642e+00_jprb,1.5351e+00_jprb,&
&1.4268e+00_jprb,1.5390e+00_jprb,1.6803e+00_jprb,1.7334e+00_jprb,1.7463e+00_jprb/)
kao( :, 1, 8,11) = (/&
&2.9847e+00_jprb,2.6313e+00_jprb,2.2865e+00_jprb,1.9879e+00_jprb,1.6488e+00_jprb,1.3255e+00_jprb,&
&9.9877e-01_jprb,6.5722e-01_jprb,5.5701e-01_jprb,5.7433e-01_jprb,5.7952e-01_jprb/)
kao( :, 2, 8,11) = (/&
&2.9589e+00_jprb,2.6183e+00_jprb,2.3133e+00_jprb,2.0003e+00_jprb,1.6901e+00_jprb,1.3820e+00_jprb,&
&1.0665e+00_jprb,7.5791e-01_jprb,7.3569e-01_jprb,7.5906e-01_jprb,7.6418e-01_jprb/)
kao( :, 3, 8,11) = (/&
&2.9382e+00_jprb,2.6052e+00_jprb,2.3281e+00_jprb,2.0270e+00_jprb,1.7422e+00_jprb,1.4465e+00_jprb,&
&1.1457e+00_jprb,9.0969e-01_jprb,9.4197e-01_jprb,9.7232e-01_jprb,9.7875e-01_jprb/)
kao( :, 4, 8,11) = (/&
&2.9170e+00_jprb,2.6060e+00_jprb,2.3361e+00_jprb,2.0694e+00_jprb,1.8026e+00_jprb,1.5183e+00_jprb,&
&1.2312e+00_jprb,1.0984e+00_jprb,1.1773e+00_jprb,1.2154e+00_jprb,1.2236e+00_jprb/)
kao( :, 5, 8,11) = (/&
&2.8898e+00_jprb,2.6134e+00_jprb,2.3563e+00_jprb,2.1177e+00_jprb,1.8614e+00_jprb,1.5931e+00_jprb,&
&1.3477e+00_jprb,1.3211e+00_jprb,1.4373e+00_jprb,1.4847e+00_jprb,1.4939e+00_jprb/)
kao( :, 1, 9,11) = (/&
&3.1562e+00_jprb,2.7768e+00_jprb,2.4133e+00_jprb,2.0911e+00_jprb,1.7326e+00_jprb,1.3839e+00_jprb,&
&1.0276e+00_jprb,6.4719e-01_jprb,4.4660e-01_jprb,4.5187e-01_jprb,1.3511e+00_jprb/)
kao( :, 2, 9,11) = (/&
&3.1384e+00_jprb,2.7738e+00_jprb,2.4447e+00_jprb,2.1155e+00_jprb,1.7788e+00_jprb,1.4436e+00_jprb,&
&1.0888e+00_jprb,7.2585e-01_jprb,5.9330e-01_jprb,6.1102e-01_jprb,1.4527e+00_jprb/)
kao( :, 3, 9,11) = (/&
&3.1307e+00_jprb,2.7744e+00_jprb,2.4761e+00_jprb,2.1489e+00_jprb,1.8392e+00_jprb,1.5081e+00_jprb,&
&1.1726e+00_jprb,8.2343e-01_jprb,7.7078e-01_jprb,7.9585e-01_jprb,1.5858e+00_jprb/)
kao( :, 4, 9,11) = (/&
&3.1198e+00_jprb,2.7814e+00_jprb,2.4948e+00_jprb,2.2031e+00_jprb,1.9038e+00_jprb,1.5809e+00_jprb,&
&1.2536e+00_jprb,9.6368e-01_jprb,9.7557e-01_jprb,1.0082e+00_jprb,1.7168e+00_jprb/)
kao( :, 5, 9,11) = (/&
&3.0996e+00_jprb,2.7968e+00_jprb,2.5179e+00_jprb,2.2589e+00_jprb,1.9623e+00_jprb,1.6560e+00_jprb,&
&1.3493e+00_jprb,1.1417e+00_jprb,1.2025e+00_jprb,1.2431e+00_jprb,1.8589e+00_jprb/)
kao( :, 1,10,11) = (/&
&3.3334e+00_jprb,2.9275e+00_jprb,2.5435e+00_jprb,2.1899e+00_jprb,1.8099e+00_jprb,1.4340e+00_jprb,&
&1.0600e+00_jprb,6.4816e-01_jprb,3.7397e-01_jprb,3.5551e-01_jprb,5.2534e+00_jprb/)
kao( :, 2,10,11) = (/&
&3.3403e+00_jprb,2.9437e+00_jprb,2.5854e+00_jprb,2.2265e+00_jprb,1.8583e+00_jprb,1.5038e+00_jprb,&
&1.1221e+00_jprb,7.2216e-01_jprb,4.8652e-01_jprb,4.8944e-01_jprb,5.3617e+00_jprb/)
kao( :, 3,10,11) = (/&
&3.3507e+00_jprb,2.9656e+00_jprb,2.6315e+00_jprb,2.2679e+00_jprb,1.9297e+00_jprb,1.5737e+00_jprb,&
&1.2011e+00_jprb,8.0616e-01_jprb,6.2998e-01_jprb,6.4742e-01_jprb,5.5025e+00_jprb/)
kao( :, 4,10,11) = (/&
&3.3473e+00_jprb,2.9767e+00_jprb,2.6569e+00_jprb,2.3310e+00_jprb,1.9983e+00_jprb,1.6498e+00_jprb,&
&1.2844e+00_jprb,9.0267e-01_jprb,8.0194e-01_jprb,8.2874e-01_jprb,5.7004e+00_jprb/)
kao( :, 5,10,11) = (/&
&3.3392e+00_jprb,3.0005e+00_jprb,2.6833e+00_jprb,2.3869e+00_jprb,2.0631e+00_jprb,1.7311e+00_jprb,&
&1.3746e+00_jprb,1.0270e+00_jprb,9.9701e-01_jprb,1.0314e+00_jprb,5.9087e+00_jprb/)
kao( :, 1,11,11) = (/&
&3.5791e+00_jprb,3.1435e+00_jprb,2.7380e+00_jprb,2.3402e+00_jprb,1.9223e+00_jprb,1.5197e+00_jprb,&
&1.1123e+00_jprb,6.8009e-01_jprb,3.6796e-01_jprb,3.2253e-01_jprb,8.7180e+00_jprb/)
kao( :, 2,11,11) = (/&
&3.6087e+00_jprb,3.1771e+00_jprb,2.7948e+00_jprb,2.3883e+00_jprb,1.9888e+00_jprb,1.5919e+00_jprb,&
&1.1796e+00_jprb,7.5512e-01_jprb,4.5552e-01_jprb,4.4047e-01_jprb,8.8675e+00_jprb/)
kao( :, 3,11,11) = (/&
&3.6204e+00_jprb,3.2046e+00_jprb,2.8376e+00_jprb,2.4402e+00_jprb,2.0562e+00_jprb,1.6610e+00_jprb,&
&1.2640e+00_jprb,8.3788e-01_jprb,5.7436e-01_jprb,5.8089e-01_jprb,8.9648e+00_jprb/)
kao( :, 4,11,11) = (/&
&3.6182e+00_jprb,3.2254e+00_jprb,2.8581e+00_jprb,2.4960e+00_jprb,2.1196e+00_jprb,1.7427e+00_jprb,&
&1.3559e+00_jprb,9.2621e-01_jprb,7.2423e-01_jprb,7.4487e-01_jprb,9.1149e+00_jprb/)
kao( :, 5,11,11) = (/&
&3.6174e+00_jprb,3.2471e+00_jprb,2.8980e+00_jprb,2.5529e+00_jprb,2.1857e+00_jprb,1.8304e+00_jprb,&
&1.4477e+00_jprb,1.0248e+00_jprb,8.9846e-01_jprb,9.2879e-01_jprb,9.3291e+00_jprb/)
kao( :, 1,12,11) = (/&
&3.8356e+00_jprb,3.3697e+00_jprb,2.9444e+00_jprb,2.5088e+00_jprb,2.0569e+00_jprb,1.6203e+00_jprb,&
&1.1634e+00_jprb,7.0598e-01_jprb,3.6756e-01_jprb,2.8729e-01_jprb,1.0641e+01_jprb/)
kao( :, 2,12,11) = (/&
&3.8609e+00_jprb,3.3997e+00_jprb,3.0019e+00_jprb,2.5600e+00_jprb,2.1300e+00_jprb,1.6898e+00_jprb,&
&1.2364e+00_jprb,7.8348e-01_jprb,4.3743e-01_jprb,3.9283e-01_jprb,1.0771e+01_jprb/)
kao( :, 3,12,11) = (/&
&3.8613e+00_jprb,3.4230e+00_jprb,3.0314e+00_jprb,2.6152e+00_jprb,2.1935e+00_jprb,1.7589e+00_jprb,&
&1.3202e+00_jprb,8.6394e-01_jprb,5.3376e-01_jprb,5.1970e-01_jprb,1.0841e+01_jprb/)
kao( :, 4,12,11) = (/&
&3.8625e+00_jprb,3.4569e+00_jprb,3.0618e+00_jprb,2.6703e+00_jprb,2.2548e+00_jprb,1.8353e+00_jprb,&
&1.4152e+00_jprb,9.4767e-01_jprb,6.5928e-01_jprb,6.6542e-01_jprb,1.0973e+01_jprb/)
kao( :, 5,12,11) = (/&
&3.8581e+00_jprb,3.4796e+00_jprb,3.1105e+00_jprb,2.7293e+00_jprb,2.3221e+00_jprb,1.9216e+00_jprb,&
&1.5109e+00_jprb,1.0379e+00_jprb,8.1824e-01_jprb,8.3851e-01_jprb,1.1187e+01_jprb/)
kao( :, 1,13,11) = (/&
&3.9871e+00_jprb,3.5054e+00_jprb,3.0792e+00_jprb,2.6225e+00_jprb,2.1590e+00_jprb,1.6999e+00_jprb,&
&1.2116e+00_jprb,7.2436e-01_jprb,3.6726e-01_jprb,2.5477e-01_jprb,9.9516e+00_jprb/)
kao( :, 2,13,11) = (/&
&3.9908e+00_jprb,3.5178e+00_jprb,3.1201e+00_jprb,2.6682e+00_jprb,2.2282e+00_jprb,1.7642e+00_jprb,&
&1.2901e+00_jprb,8.0058e-01_jprb,4.3056e-01_jprb,3.4969e-01_jprb,1.0028e+01_jprb/)
kao( :, 3,13,11) = (/&
&3.9925e+00_jprb,3.5529e+00_jprb,3.1500e+00_jprb,2.7322e+00_jprb,2.2922e+00_jprb,1.8395e+00_jprb,&
&1.3733e+00_jprb,8.8117e-01_jprb,5.1140e-01_jprb,4.6457e-01_jprb,1.0124e+01_jprb/)
kao( :, 4,13,11) = (/&
&3.9936e+00_jprb,3.5963e+00_jprb,3.1980e+00_jprb,2.7942e+00_jprb,2.3651e+00_jprb,1.9195e+00_jprb,&
&1.4609e+00_jprb,9.6392e-01_jprb,6.1546e-01_jprb,5.9986e-01_jprb,1.0319e+01_jprb/)
kao( :, 5,13,11) = (/&
&3.9766e+00_jprb,3.6110e+00_jprb,3.2440e+00_jprb,2.8558e+00_jprb,2.4407e+00_jprb,2.0092e+00_jprb,&
&1.5546e+00_jprb,1.0530e+00_jprb,7.5480e-01_jprb,7.6043e-01_jprb,1.0517e+01_jprb/)
kao( :, 1, 1,12) = (/&
&2.0024e+00_jprb,1.8234e+00_jprb,1.7233e+00_jprb,1.6000e+00_jprb,1.5390e+00_jprb,1.6921e+00_jprb,&
&2.0059e+00_jprb,2.3183e+00_jprb,2.5294e+00_jprb,2.5972e+00_jprb,2.5881e+00_jprb/)
kao( :, 2, 1,12) = (/&
&1.9590e+00_jprb,1.7950e+00_jprb,1.7523e+00_jprb,1.6313e+00_jprb,1.6912e+00_jprb,2.0086e+00_jprb,&
&2.3854e+00_jprb,2.7609e+00_jprb,3.0136e+00_jprb,3.0926e+00_jprb,3.0692e+00_jprb/)
kao( :, 3, 1,12) = (/&
&1.9218e+00_jprb,1.7695e+00_jprb,1.7573e+00_jprb,1.7104e+00_jprb,1.9221e+00_jprb,2.3617e+00_jprb,&
&2.8084e+00_jprb,3.2536e+00_jprb,3.5528e+00_jprb,3.6452e+00_jprb,3.6033e+00_jprb/)
kao( :, 4, 1,12) = (/&
&1.8869e+00_jprb,1.7776e+00_jprb,1.7584e+00_jprb,1.8482e+00_jprb,2.2062e+00_jprb,2.7254e+00_jprb,&
&3.2420e+00_jprb,3.7568e+00_jprb,4.1037e+00_jprb,4.2125e+00_jprb,4.1721e+00_jprb/)
kao( :, 5, 1,12) = (/&
&1.8556e+00_jprb,1.7835e+00_jprb,1.7826e+00_jprb,2.0106e+00_jprb,2.5078e+00_jprb,3.0956e+00_jprb,&
&3.6815e+00_jprb,4.2658e+00_jprb,4.6607e+00_jprb,4.7891e+00_jprb,4.7658e+00_jprb/)
kao( :, 1, 2,12) = (/&
&2.1298e+00_jprb,1.9238e+00_jprb,1.7993e+00_jprb,1.6635e+00_jprb,1.5382e+00_jprb,1.6444e+00_jprb,&
&1.9357e+00_jprb,2.2355e+00_jprb,2.4380e+00_jprb,2.5040e+00_jprb,2.5099e+00_jprb/)
kao( :, 2, 2,12) = (/&
&2.0858e+00_jprb,1.8949e+00_jprb,1.8227e+00_jprb,1.6898e+00_jprb,1.7064e+00_jprb,1.9739e+00_jprb,&
&2.3396e+00_jprb,2.7042e+00_jprb,2.9505e+00_jprb,3.0304e+00_jprb,3.0347e+00_jprb/)
kao( :, 3, 2,12) = (/&
&2.0506e+00_jprb,1.8767e+00_jprb,1.8261e+00_jprb,1.7610e+00_jprb,1.9334e+00_jprb,2.3331e+00_jprb,&
&2.7675e+00_jprb,3.2005e+00_jprb,3.4937e+00_jprb,3.5905e+00_jprb,3.6006e+00_jprb/)
kao( :, 4, 2,12) = (/&
&2.0203e+00_jprb,1.8859e+00_jprb,1.8248e+00_jprb,1.8919e+00_jprb,2.2034e+00_jprb,2.7037e+00_jprb,&
&3.2087e+00_jprb,3.7127e+00_jprb,4.0556e+00_jprb,4.1705e+00_jprb,4.1872e+00_jprb/)
kao( :, 5, 2,12) = (/&
&1.9908e+00_jprb,1.8904e+00_jprb,1.8512e+00_jprb,2.0461e+00_jprb,2.4857e+00_jprb,3.0612e+00_jprb,&
&3.6347e+00_jprb,4.2084e+00_jprb,4.6000e+00_jprb,4.7320e+00_jprb,4.7545e+00_jprb/)
kao( :, 1, 3,12) = (/&
&2.3152e+00_jprb,2.0670e+00_jprb,1.8762e+00_jprb,1.7274e+00_jprb,1.5513e+00_jprb,1.5459e+00_jprb,&
&1.7613e+00_jprb,2.0324e+00_jprb,2.2184e+00_jprb,2.2809e+00_jprb,2.3001e+00_jprb/)
kao( :, 2, 3,12) = (/&
&2.2611e+00_jprb,2.0302e+00_jprb,1.8953e+00_jprb,1.7501e+00_jprb,1.6877e+00_jprb,1.8252e+00_jprb,&
&2.1469e+00_jprb,2.4814e+00_jprb,2.7105e+00_jprb,2.7886e+00_jprb,2.8127e+00_jprb/)
kao( :, 3, 3,12) = (/&
&2.2196e+00_jprb,2.0024e+00_jprb,1.9041e+00_jprb,1.8045e+00_jprb,1.8785e+00_jprb,2.1610e+00_jprb,&
&2.5580e+00_jprb,2.9591e+00_jprb,3.2348e+00_jprb,3.3294e+00_jprb,3.3602e+00_jprb/)
kao( :, 4, 3,12) = (/&
&2.1813e+00_jprb,2.0049e+00_jprb,1.9086e+00_jprb,1.9162e+00_jprb,2.1012e+00_jprb,2.5182e+00_jprb,&
&2.9831e+00_jprb,3.4549e+00_jprb,3.7770e+00_jprb,3.8911e+00_jprb,3.9291e+00_jprb/)
kao( :, 5, 3,12) = (/&
&2.1479e+00_jprb,2.0113e+00_jprb,1.9331e+00_jprb,2.0520e+00_jprb,2.3502e+00_jprb,2.8679e+00_jprb,&
&3.4008e+00_jprb,3.9406e+00_jprb,4.3094e+00_jprb,4.4428e+00_jprb,4.4869e+00_jprb/)
kao( :, 1, 4,12) = (/&
&2.5457e+00_jprb,2.2591e+00_jprb,2.0008e+00_jprb,1.7948e+00_jprb,1.5715e+00_jprb,1.4721e+00_jprb,&
&1.5451e+00_jprb,1.7860e+00_jprb,1.9513e+00_jprb,2.0089e+00_jprb,2.0285e+00_jprb/)
kao( :, 2, 4,12) = (/&
&2.4902e+00_jprb,2.2151e+00_jprb,2.0050e+00_jprb,1.8035e+00_jprb,1.6846e+00_jprb,1.6830e+00_jprb,&
&1.9079e+00_jprb,2.2087e+00_jprb,2.4143e+00_jprb,2.4852e+00_jprb,2.5099e+00_jprb/)
kao( :, 3, 4,12) = (/&
&2.4431e+00_jprb,2.1812e+00_jprb,2.0033e+00_jprb,1.8558e+00_jprb,1.8346e+00_jprb,1.9529e+00_jprb,&
&2.2983e+00_jprb,2.6628e+00_jprb,2.9108e+00_jprb,2.9983e+00_jprb,3.0280e+00_jprb/)
kao( :, 4, 4,12) = (/&
&2.3979e+00_jprb,2.1681e+00_jprb,1.9996e+00_jprb,1.9562e+00_jprb,2.0099e+00_jprb,2.2734e+00_jprb,&
&2.7005e+00_jprb,3.1310e+00_jprb,3.4248e+00_jprb,3.5296e+00_jprb,3.5651e+00_jprb/)
kao( :, 5, 4,12) = (/&
&2.3549e+00_jprb,2.1677e+00_jprb,2.0250e+00_jprb,2.0706e+00_jprb,2.2012e+00_jprb,2.6084e+00_jprb,&
&3.1023e+00_jprb,3.5987e+00_jprb,3.9377e+00_jprb,4.0590e+00_jprb,4.0984e+00_jprb/)
kao( :, 1, 5,12) = (/&
&2.7985e+00_jprb,2.4747e+00_jprb,2.1629e+00_jprb,1.9120e+00_jprb,1.6257e+00_jprb,1.4332e+00_jprb,&
&1.3851e+00_jprb,1.5480e+00_jprb,1.6917e+00_jprb,1.7423e+00_jprb,1.7595e+00_jprb/)
kao( :, 2, 5,12) = (/&
&2.7492e+00_jprb,2.4385e+00_jprb,2.1709e+00_jprb,1.9088e+00_jprb,1.7063e+00_jprb,1.6093e+00_jprb,&
&1.6827e+00_jprb,1.9416e+00_jprb,2.1228e+00_jprb,2.1868e+00_jprb,2.2077e+00_jprb/)
kao( :, 3, 5,12) = (/&
&2.7030e+00_jprb,2.4052e+00_jprb,2.1654e+00_jprb,1.9357e+00_jprb,1.8221e+00_jprb,1.8325e+00_jprb,&
&2.0441e+00_jprb,2.3696e+00_jprb,2.5914e+00_jprb,2.6707e+00_jprb,2.6969e+00_jprb/)
kao( :, 4, 5,12) = (/&
&2.6567e+00_jprb,2.3812e+00_jprb,2.1576e+00_jprb,2.0192e+00_jprb,1.9790e+00_jprb,2.0835e+00_jprb,&
&2.4268e+00_jprb,2.8144e+00_jprb,3.0796e+00_jprb,3.1741e+00_jprb,3.2046e+00_jprb/)
kao( :, 5, 5,12) = (/&
&2.6110e+00_jprb,2.3730e+00_jprb,2.1635e+00_jprb,2.1182e+00_jprb,2.1485e+00_jprb,2.3741e+00_jprb,&
&2.8181e+00_jprb,3.2699e+00_jprb,3.5786e+00_jprb,3.6897e+00_jprb,3.7249e+00_jprb/)
kao( :, 1, 6,12) = (/&
&3.0669e+00_jprb,2.7085e+00_jprb,2.3540e+00_jprb,2.0714e+00_jprb,1.7429e+00_jprb,1.4581e+00_jprb,&
&1.2708e+00_jprb,1.2992e+00_jprb,1.4199e+00_jprb,1.4638e+00_jprb,1.4769e+00_jprb/)
kao( :, 2, 6,12) = (/&
&3.0273e+00_jprb,2.6834e+00_jprb,2.3740e+00_jprb,2.0802e+00_jprb,1.7965e+00_jprb,1.5717e+00_jprb,&
&1.5052e+00_jprb,1.6583e+00_jprb,1.8132e+00_jprb,1.8699e+00_jprb,1.8859e+00_jprb/)
kao( :, 3, 6,12) = (/&
&2.9774e+00_jprb,2.6481e+00_jprb,2.3757e+00_jprb,2.0942e+00_jprb,1.8671e+00_jprb,1.7544e+00_jprb,&
&1.8026e+00_jprb,2.0622e+00_jprb,2.2566e+00_jprb,2.3275e+00_jprb,2.3474e+00_jprb/)
kao( :, 4, 6,12) = (/&
&2.9289e+00_jprb,2.6161e+00_jprb,2.3748e+00_jprb,2.1584e+00_jprb,1.9838e+00_jprb,1.9738e+00_jprb,&
&2.1469e+00_jprb,2.4888e+00_jprb,2.7236e+00_jprb,2.8101e+00_jprb,2.8355e+00_jprb/)
kao( :, 5, 6,12) = (/&
&2.8845e+00_jprb,2.6155e+00_jprb,2.3754e+00_jprb,2.2196e+00_jprb,2.1301e+00_jprb,2.2099e+00_jprb,&
&2.5314e+00_jprb,2.9385e+00_jprb,3.2168e+00_jprb,3.3176e+00_jprb,3.3483e+00_jprb/)
kao( :, 1, 7,12) = (/&
&3.3664e+00_jprb,2.9675e+00_jprb,2.5762e+00_jprb,2.2561e+00_jprb,1.8881e+00_jprb,1.5413e+00_jprb,&
&1.2170e+00_jprb,1.0953e+00_jprb,1.1799e+00_jprb,1.2170e+00_jprb,1.2273e+00_jprb/)
kao( :, 2, 7,12) = (/&
&3.3233e+00_jprb,2.9434e+00_jprb,2.5928e+00_jprb,2.2752e+00_jprb,1.9335e+00_jprb,1.6227e+00_jprb,&
&1.3832e+00_jprb,1.3998e+00_jprb,1.5310e+00_jprb,1.5791e+00_jprb,1.5922e+00_jprb/)
kao( :, 3, 7,12) = (/&
&3.2746e+00_jprb,2.9093e+00_jprb,2.6019e+00_jprb,2.2869e+00_jprb,2.0053e+00_jprb,1.7360e+00_jprb,&
&1.6231e+00_jprb,1.7636e+00_jprb,1.9299e+00_jprb,1.9918e+00_jprb,2.0082e+00_jprb/)
kao( :, 4, 7,12) = (/&
&3.2312e+00_jprb,2.8766e+00_jprb,2.6067e+00_jprb,2.3470e+00_jprb,2.0847e+00_jprb,1.8980e+00_jprb,&
&1.9031e+00_jprb,2.1576e+00_jprb,2.3620e+00_jprb,2.4387e+00_jprb,2.4578e+00_jprb/)
kao( :, 5, 7,12) = (/&
&3.1925e+00_jprb,2.8793e+00_jprb,2.6061e+00_jprb,2.4035e+00_jprb,2.1834e+00_jprb,2.1023e+00_jprb,&
&2.2418e+00_jprb,2.5923e+00_jprb,2.8385e+00_jprb,2.9297e+00_jprb,2.9542e+00_jprb/)
kao( :, 1, 8,12) = (/&
&3.6796e+00_jprb,3.2357e+00_jprb,2.8155e+00_jprb,2.4508e+00_jprb,2.0518e+00_jprb,1.6449e+00_jprb,&
&1.2564e+00_jprb,9.4794e-01_jprb,9.6423e-01_jprb,9.9527e-01_jprb,1.0031e+00_jprb/)
kao( :, 2, 8,12) = (/&
&3.6371e+00_jprb,3.2182e+00_jprb,2.8214e+00_jprb,2.4857e+00_jprb,2.0950e+00_jprb,1.7292e+00_jprb,&
&1.3545e+00_jprb,1.1961e+00_jprb,1.2815e+00_jprb,1.3224e+00_jprb,1.3335e+00_jprb/)
kao( :, 3, 8,12) = (/&
&3.5989e+00_jprb,3.1965e+00_jprb,2.8529e+00_jprb,2.5009e+00_jprb,2.1656e+00_jprb,1.8143e+00_jprb,&
&1.5162e+00_jprb,1.5048e+00_jprb,1.6425e+00_jprb,1.6953e+00_jprb,1.7094e+00_jprb/)
kao( :, 4, 8,12) = (/&
&3.5657e+00_jprb,3.1726e+00_jprb,2.8689e+00_jprb,2.5490e+00_jprb,2.2397e+00_jprb,1.9179e+00_jprb,&
&1.7462e+00_jprb,1.8651e+00_jprb,2.0421e+00_jprb,2.1078e+00_jprb,2.1252e+00_jprb/)
kao( :, 5, 8,12) = (/&
&3.5352e+00_jprb,3.1791e+00_jprb,2.8690e+00_jprb,2.6021e+00_jprb,2.3244e+00_jprb,2.0668e+00_jprb,&
&2.0251e+00_jprb,2.2682e+00_jprb,2.4843e+00_jprb,2.5643e+00_jprb,2.5857e+00_jprb/)
kao( :, 1, 9,12) = (/&
&4.0318e+00_jprb,3.5333e+00_jprb,3.0785e+00_jprb,2.6542e+00_jprb,2.2190e+00_jprb,1.7557e+00_jprb,&
&1.3174e+00_jprb,8.6677e-01_jprb,7.7038e-01_jprb,7.9546e-01_jprb,1.7542e+00_jprb/)
kao( :, 2, 9,12) = (/&
&4.0030e+00_jprb,3.5307e+00_jprb,3.0824e+00_jprb,2.7001e+00_jprb,2.2575e+00_jprb,1.8461e+00_jprb,&
&1.4064e+00_jprb,1.0445e+00_jprb,1.0532e+00_jprb,1.0871e+00_jprb,1.8981e+00_jprb/)
kao( :, 3, 9,12) = (/&
&3.9727e+00_jprb,3.5227e+00_jprb,3.1268e+00_jprb,2.7209e+00_jprb,2.3294e+00_jprb,1.9265e+00_jprb,&
&1.5119e+00_jprb,1.3023e+00_jprb,1.3838e+00_jprb,1.4291e+00_jprb,2.0473e+00_jprb/)
kao( :, 4, 9,12) = (/&
&3.9416e+00_jprb,3.5045e+00_jprb,3.1488e+00_jprb,2.7628e+00_jprb,2.4024e+00_jprb,2.0175e+00_jprb,&
&1.6727e+00_jprb,1.6129e+00_jprb,1.7549e+00_jprb,1.8115e+00_jprb,2.2264e+00_jprb/)
kao( :, 5, 9,12) = (/&
&3.9107e+00_jprb,3.5025e+00_jprb,3.1553e+00_jprb,2.8210e+00_jprb,2.4858e+00_jprb,2.1278e+00_jprb,&
&1.8886e+00_jprb,1.9733e+00_jprb,2.1611e+00_jprb,2.2311e+00_jprb,2.4535e+00_jprb/)
kao( :, 1,10,12) = (/&
&4.3955e+00_jprb,3.8477e+00_jprb,3.3521e+00_jprb,2.8767e+00_jprb,2.3926e+00_jprb,1.8785e+00_jprb,&
&1.3866e+00_jprb,8.6336e-01_jprb,6.3346e-01_jprb,6.4780e-01_jprb,7.3111e+00_jprb/)
kao( :, 2,10,12) = (/&
&4.3744e+00_jprb,3.8521e+00_jprb,3.3628e+00_jprb,2.9299e+00_jprb,2.4350e+00_jprb,1.9605e+00_jprb,&
&1.4761e+00_jprb,9.8354e-01_jprb,8.7753e-01_jprb,9.0596e-01_jprb,7.5369e+00_jprb/)
kao( :, 3,10,12) = (/&
&4.3454e+00_jprb,3.8426e+00_jprb,3.4089e+00_jprb,2.9580e+00_jprb,2.5003e+00_jprb,2.0431e+00_jprb,&
&1.5702e+00_jprb,1.1751e+00_jprb,1.1717e+00_jprb,1.2103e+00_jprb,7.6962e+00_jprb/)
kao( :, 4,10,12) = (/&
&4.3187e+00_jprb,3.8382e+00_jprb,3.4396e+00_jprb,2.9970e+00_jprb,2.5770e+00_jprb,2.1340e+00_jprb,&
&1.7005e+00_jprb,1.4326e+00_jprb,1.5105e+00_jprb,1.5607e+00_jprb,7.8986e+00_jprb/)
kao( :, 5,10,12) = (/&
&4.2903e+00_jprb,3.8382e+00_jprb,3.4516e+00_jprb,3.0612e+00_jprb,2.6632e+00_jprb,2.2380e+00_jprb,&
&1.8630e+00_jprb,1.7458e+00_jprb,1.8899e+00_jprb,1.9522e+00_jprb,8.1725e+00_jprb/)
kao( :, 1,11,12) = (/&
&4.7308e+00_jprb,4.1459e+00_jprb,3.6107e+00_jprb,3.1115e+00_jprb,2.5799e+00_jprb,2.0280e+00_jprb,&
&1.4948e+00_jprb,9.2025e-01_jprb,6.1405e-01_jprb,6.1696e-01_jprb,1.2757e+01_jprb/)
kao( :, 2,11,12) = (/&
&4.7091e+00_jprb,4.1481e+00_jprb,3.6443e+00_jprb,3.1635e+00_jprb,2.6293e+00_jprb,2.1180e+00_jprb,&
&1.5850e+00_jprb,1.0412e+00_jprb,8.3722e-01_jprb,8.6133e-01_jprb,1.3027e+01_jprb/)
kao( :, 3,11,12) = (/&
&4.6897e+00_jprb,4.1435e+00_jprb,3.6990e+00_jprb,3.1970e+00_jprb,2.7141e+00_jprb,2.2094e+00_jprb,&
&1.6909e+00_jprb,1.1958e+00_jprb,1.1123e+00_jprb,1.1498e+00_jprb,1.3314e+01_jprb/)
kao( :, 4,11,12) = (/&
&4.6692e+00_jprb,4.1531e+00_jprb,3.7297e+00_jprb,3.2622e+00_jprb,2.7974e+00_jprb,2.3063e+00_jprb,&
&1.8183e+00_jprb,1.4163e+00_jprb,1.4330e+00_jprb,1.4813e+00_jprb,1.3489e+01_jprb/)
kao( :, 5,11,12) = (/&
&4.6420e+00_jprb,4.1769e+00_jprb,3.7456e+00_jprb,3.3296e+00_jprb,2.8874e+00_jprb,2.4151e+00_jprb,&
&1.9751e+00_jprb,1.6959e+00_jprb,1.7942e+00_jprb,1.8551e+00_jprb,1.3680e+01_jprb/)
kao( :, 1,12,12) = (/&
&5.0416e+00_jprb,4.4234e+00_jprb,3.8522e+00_jprb,3.3241e+00_jprb,2.7470e+00_jprb,2.1693e+00_jprb,&
&1.6007e+00_jprb,9.8107e-01_jprb,5.9628e-01_jprb,5.7876e-01_jprb,1.6383e+01_jprb/)
kao( :, 2,12,12) = (/&
&5.0347e+00_jprb,4.4335e+00_jprb,3.9118e+00_jprb,3.3765e+00_jprb,2.8152e+00_jprb,2.2721e+00_jprb,&
&1.6921e+00_jprb,1.0981e+00_jprb,7.9216e-01_jprb,8.0484e-01_jprb,1.6695e+01_jprb/)
kao( :, 3,12,12) = (/&
&5.0354e+00_jprb,4.4439e+00_jprb,3.9725e+00_jprb,3.4283e+00_jprb,2.9170e+00_jprb,2.3708e+00_jprb,&
&1.8115e+00_jprb,1.2441e+00_jprb,1.0402e+00_jprb,1.0726e+00_jprb,1.7028e+01_jprb/)
kao( :, 4,12,12) = (/&
&5.0236e+00_jprb,4.4684e+00_jprb,4.0052e+00_jprb,3.5139e+00_jprb,3.0129e+00_jprb,2.4842e+00_jprb,&
&1.9405e+00_jprb,1.4225e+00_jprb,1.3339e+00_jprb,1.3805e+00_jprb,1.7215e+01_jprb/)
kao( :, 5,12,12) = (/&
&5.0049e+00_jprb,4.5094e+00_jprb,4.0368e+00_jprb,3.5937e+00_jprb,3.1097e+00_jprb,2.6019e+00_jprb,&
&2.0929e+00_jprb,1.6533e+00_jprb,1.6680e+00_jprb,1.7268e+00_jprb,1.7382e+01_jprb/)
kao( :, 1,13,12) = (/&
&5.3304e+00_jprb,4.6811e+00_jprb,4.0819e+00_jprb,3.5134e+00_jprb,2.8970e+00_jprb,2.2995e+00_jprb,&
&1.6906e+00_jprb,1.0389e+00_jprb,5.8422e-01_jprb,5.3149e-01_jprb,1.6186e+01_jprb/)
kao( :, 2,13,12) = (/&
&5.3554e+00_jprb,4.7152e+00_jprb,4.1740e+00_jprb,3.5813e+00_jprb,2.9917e+00_jprb,2.4106e+00_jprb,&
&1.7931e+00_jprb,1.1573e+00_jprb,7.4488e-01_jprb,7.3540e-01_jprb,1.6553e+01_jprb/)
kao( :, 3,13,12) = (/&
&5.3653e+00_jprb,4.7361e+00_jprb,4.2367e+00_jprb,3.6559e+00_jprb,3.0996e+00_jprb,2.5206e+00_jprb,&
&1.9222e+00_jprb,1.2910e+00_jprb,9.5651e-01_jprb,9.7652e-01_jprb,1.6790e+01_jprb/)
kao( :, 4,13,12) = (/&
&5.3597e+00_jprb,4.7768e+00_jprb,4.2708e+00_jprb,3.7474e+00_jprb,3.2027e+00_jprb,2.6474e+00_jprb,&
&2.0605e+00_jprb,1.4452e+00_jprb,1.2190e+00_jprb,1.2583e+00_jprb,1.6940e+01_jprb/)
kao( :, 5,13,12) = (/&
&5.3540e+00_jprb,4.8243e+00_jprb,4.3295e+00_jprb,3.8360e+00_jprb,3.3105e+00_jprb,2.7756e+00_jprb,&
&2.2095e+00_jprb,1.6297e+00_jprb,1.5189e+00_jprb,1.5724e+00_jprb,1.7194e+01_jprb/)
kao( :, 1, 1,13) = (/&
&2.4839e+00_jprb,2.2228e+00_jprb,1.9877e+00_jprb,1.9817e+00_jprb,2.1295e+00_jprb,2.6064e+00_jprb,&
&3.1026e+00_jprb,3.6009e+00_jprb,3.9384e+00_jprb,4.0531e+00_jprb,4.0630e+00_jprb/)
kao( :, 2, 1,13) = (/&
&2.4167e+00_jprb,2.1788e+00_jprb,2.0545e+00_jprb,2.1075e+00_jprb,2.4600e+00_jprb,3.0319e+00_jprb,&
&3.6075e+00_jprb,4.1850e+00_jprb,4.5773e+00_jprb,4.7124e+00_jprb,4.7383e+00_jprb/)
kao( :, 3, 1,13) = (/&
&2.3519e+00_jprb,2.1341e+00_jprb,2.1343e+00_jprb,2.2717e+00_jprb,2.8227e+00_jprb,3.4785e+00_jprb,&
&4.1394e+00_jprb,4.8027e+00_jprb,5.2528e+00_jprb,5.4080e+00_jprb,5.4468e+00_jprb/)
kao( :, 4, 1,13) = (/&
&2.2895e+00_jprb,2.0936e+00_jprb,2.2122e+00_jprb,2.4949e+00_jprb,3.2196e+00_jprb,3.9764e+00_jprb,&
&4.7367e+00_jprb,5.4979e+00_jprb,6.0151e+00_jprb,6.1897e+00_jprb,6.2191e+00_jprb/)
kao( :, 5, 1,13) = (/&
&2.2294e+00_jprb,2.0855e+00_jprb,2.2831e+00_jprb,2.7897e+00_jprb,3.6518e+00_jprb,4.5202e+00_jprb,&
&5.3909e+00_jprb,6.2623e+00_jprb,6.8525e+00_jprb,7.0478e+00_jprb,7.0466e+00_jprb/)
kao( :, 1, 2,13) = (/&
&2.6401e+00_jprb,2.3655e+00_jprb,2.1111e+00_jprb,2.0137e+00_jprb,2.0825e+00_jprb,2.5044e+00_jprb,&
&2.9828e+00_jprb,3.4624e+00_jprb,3.7882e+00_jprb,3.8997e+00_jprb,3.9250e+00_jprb/)
kao( :, 2, 2,13) = (/&
&2.5670e+00_jprb,2.3197e+00_jprb,2.1659e+00_jprb,2.1086e+00_jprb,2.3636e+00_jprb,2.9098e+00_jprb,&
&3.4676e+00_jprb,4.0262e+00_jprb,4.4056e+00_jprb,4.5331e+00_jprb,4.5625e+00_jprb/)
kao( :, 3, 2,13) = (/&
&2.4971e+00_jprb,2.2719e+00_jprb,2.2158e+00_jprb,2.2307e+00_jprb,2.7197e+00_jprb,3.3654e+00_jprb,&
&4.0138e+00_jprb,4.6621e+00_jprb,5.1023e+00_jprb,5.2462e+00_jprb,5.2684e+00_jprb/)
kao( :, 4, 2,13) = (/&
&2.4323e+00_jprb,2.2338e+00_jprb,2.2635e+00_jprb,2.4358e+00_jprb,3.1246e+00_jprb,3.8712e+00_jprb,&
&4.6205e+00_jprb,5.3694e+00_jprb,5.8768e+00_jprb,6.0401e+00_jprb,6.0554e+00_jprb/)
kao( :, 5, 2,13) = (/&
&2.3760e+00_jprb,2.2281e+00_jprb,2.3133e+00_jprb,2.7376e+00_jprb,3.5897e+00_jprb,4.4519e+00_jprb,&
&5.3157e+00_jprb,6.1803e+00_jprb,6.7635e+00_jprb,6.9497e+00_jprb,6.9610e+00_jprb/)
kao( :, 1, 3,13) = (/&
&2.8086e+00_jprb,2.5114e+00_jprb,2.2208e+00_jprb,2.0677e+00_jprb,2.0427e+00_jprb,2.3373e+00_jprb,&
&2.7874e+00_jprb,3.2384e+00_jprb,3.5440e+00_jprb,3.6445e+00_jprb,3.6749e+00_jprb/)
kao( :, 2, 3,13) = (/&
&2.7404e+00_jprb,2.4643e+00_jprb,2.2716e+00_jprb,2.1464e+00_jprb,2.2628e+00_jprb,2.7529e+00_jprb,&
&3.2849e+00_jprb,3.8172e+00_jprb,4.1782e+00_jprb,4.2940e+00_jprb,4.3270e+00_jprb/)
kao( :, 3, 3,13) = (/&
&2.6764e+00_jprb,2.4178e+00_jprb,2.3087e+00_jprb,2.2456e+00_jprb,2.5986e+00_jprb,3.2215e+00_jprb,&
&3.8463e+00_jprb,4.4711e+00_jprb,4.8938e+00_jprb,5.0274e+00_jprb,5.0645e+00_jprb/)
kao( :, 4, 3,13) = (/&
&2.6211e+00_jprb,2.3803e+00_jprb,2.3402e+00_jprb,2.4064e+00_jprb,3.0169e+00_jprb,3.7447e+00_jprb,&
&4.4738e+00_jprb,5.2031e+00_jprb,5.6949e+00_jprb,5.8469e+00_jprb,5.8866e+00_jprb/)
kao( :, 5, 3,13) = (/&
&2.5706e+00_jprb,2.3763e+00_jprb,2.3730e+00_jprb,2.6809e+00_jprb,3.4926e+00_jprb,4.3391e+00_jprb,&
&5.1873e+00_jprb,6.0352e+00_jprb,6.6054e+00_jprb,6.7799e+00_jprb,6.8242e+00_jprb/)
kao( :, 1, 4,13) = (/&
&2.9705e+00_jprb,2.6437e+00_jprb,2.3228e+00_jprb,2.1502e+00_jprb,2.0620e+00_jprb,2.1581e+00_jprb,&
&2.5548e+00_jprb,2.9693e+00_jprb,3.2504e+00_jprb,3.3452e+00_jprb,3.3799e+00_jprb/)
kao( :, 2, 4,13) = (/&
&2.9060e+00_jprb,2.6045e+00_jprb,2.3805e+00_jprb,2.2339e+00_jprb,2.2319e+00_jprb,2.5887e+00_jprb,&
&3.0909e+00_jprb,3.5931e+00_jprb,3.9330e+00_jprb,4.0437e+00_jprb,4.0869e+00_jprb/)
kao( :, 3, 4,13) = (/&
&2.8503e+00_jprb,2.5669e+00_jprb,2.4183e+00_jprb,2.3219e+00_jprb,2.5237e+00_jprb,3.0875e+00_jprb,&
&3.6882e+00_jprb,4.2895e+00_jprb,4.6950e+00_jprb,4.8250e+00_jprb,4.8772e+00_jprb/)
kao( :, 4, 4,13) = (/&
&2.8040e+00_jprb,2.5355e+00_jprb,2.4511e+00_jprb,2.4730e+00_jprb,2.9343e+00_jprb,3.6460e+00_jprb,&
&4.3587e+00_jprb,5.0710e+00_jprb,5.5512e+00_jprb,5.6975e+00_jprb,5.7609e+00_jprb/)
kao( :, 5, 4,13) = (/&
&2.7640e+00_jprb,2.5346e+00_jprb,2.4816e+00_jprb,2.7138e+00_jprb,3.4317e+00_jprb,4.2678e+00_jprb,&
&5.1048e+00_jprb,5.9414e+00_jprb,6.5038e+00_jprb,6.6733e+00_jprb,6.7499e+00_jprb/)
kao( :, 1, 5,13) = (/&
&3.2157e+00_jprb,2.8490e+00_jprb,2.4890e+00_jprb,2.2607e+00_jprb,2.1003e+00_jprb,2.0316e+00_jprb,&
&2.2821e+00_jprb,2.6531e+00_jprb,2.9050e+00_jprb,2.9914e+00_jprb,3.0227e+00_jprb/)
kao( :, 2, 5,13) = (/&
&3.1462e+00_jprb,2.8052e+00_jprb,2.5301e+00_jprb,2.3469e+00_jprb,2.2490e+00_jprb,2.3958e+00_jprb,&
&2.8314e+00_jprb,3.2925e+00_jprb,3.6050e+00_jprb,3.7092e+00_jprb,3.7515e+00_jprb/)
kao( :, 3, 5,13) = (/&
&3.0906e+00_jprb,2.7658e+00_jprb,2.5622e+00_jprb,2.4318e+00_jprb,2.4969e+00_jprb,2.8886e+00_jprb,&
&3.4523e+00_jprb,4.0155e+00_jprb,4.3974e+00_jprb,4.5211e+00_jprb,4.5746e+00_jprb/)
kao( :, 4, 5,13) = (/&
&3.0486e+00_jprb,2.7373e+00_jprb,2.5958e+00_jprb,2.5683e+00_jprb,2.8557e+00_jprb,3.4815e+00_jprb,&
&4.1633e+00_jprb,4.8446e+00_jprb,5.3051e+00_jprb,5.4504e+00_jprb,5.5199e+00_jprb/)
kao( :, 5, 5,13) = (/&
&3.0130e+00_jprb,2.7440e+00_jprb,2.6274e+00_jprb,2.8078e+00_jprb,3.3228e+00_jprb,4.1277e+00_jprb,&
&4.9382e+00_jprb,5.7481e+00_jprb,6.2955e+00_jprb,6.4701e+00_jprb,6.5508e+00_jprb/)
kao( :, 1, 6,13) = (/&
&3.5873e+00_jprb,3.1674e+00_jprb,2.7646e+00_jprb,2.4502e+00_jprb,2.1689e+00_jprb,1.9718e+00_jprb,&
&2.0147e+00_jprb,2.3234e+00_jprb,2.5447e+00_jprb,2.6195e+00_jprb,2.6494e+00_jprb/)
kao( :, 2, 6,13) = (/&
&3.5157e+00_jprb,3.1229e+00_jprb,2.7666e+00_jprb,2.5046e+00_jprb,2.2807e+00_jprb,2.2712e+00_jprb,&
&2.5407e+00_jprb,2.9561e+00_jprb,3.2371e+00_jprb,3.3302e+00_jprb,3.3702e+00_jprb/)
kao( :, 3, 6,13) = (/&
&3.4666e+00_jprb,3.0873e+00_jprb,2.7933e+00_jprb,2.5658e+00_jprb,2.5099e+00_jprb,2.6904e+00_jprb,&
&3.1624e+00_jprb,3.6822e+00_jprb,4.0323e+00_jprb,4.1466e+00_jprb,4.1994e+00_jprb/)
kao( :, 4, 6,13) = (/&
&3.4223e+00_jprb,3.0572e+00_jprb,2.8088e+00_jprb,2.6700e+00_jprb,2.8225e+00_jprb,3.2304e+00_jprb,&
&3.8614e+00_jprb,4.4961e+00_jprb,4.9248e+00_jprb,5.0662e+00_jprb,5.1277e+00_jprb/)
kao( :, 5, 6,13) = (/&
&3.3760e+00_jprb,3.0424e+00_jprb,2.8322e+00_jprb,2.8911e+00_jprb,3.2026e+00_jprb,3.8541e+00_jprb,&
&4.6128e+00_jprb,5.3710e+00_jprb,5.8848e+00_jprb,6.0557e+00_jprb,6.1288e+00_jprb/)
kao( :, 1, 7,13) = (/&
&4.0318e+00_jprb,3.5414e+00_jprb,3.1020e+00_jprb,2.7107e+00_jprb,2.3308e+00_jprb,1.9686e+00_jprb,&
&1.8437e+00_jprb,2.0053e+00_jprb,2.1966e+00_jprb,2.2625e+00_jprb,2.2876e+00_jprb/)
kao( :, 2, 7,13) = (/&
&3.9753e+00_jprb,3.5219e+00_jprb,3.0843e+00_jprb,2.7586e+00_jprb,2.3913e+00_jprb,2.2135e+00_jprb,&
&2.2792e+00_jprb,2.6148e+00_jprb,2.8647e+00_jprb,2.9486e+00_jprb,2.9838e+00_jprb/)
kao( :, 3, 7,13) = (/&
&3.9273e+00_jprb,3.4958e+00_jprb,3.1284e+00_jprb,2.7893e+00_jprb,2.5460e+00_jprb,2.5637e+00_jprb,&
&2.8433e+00_jprb,3.3088e+00_jprb,3.6254e+00_jprb,3.7327e+00_jprb,3.7756e+00_jprb/)
kao( :, 4, 7,13) = (/&
&3.8768e+00_jprb,3.4612e+00_jprb,3.1354e+00_jprb,2.8419e+00_jprb,2.8178e+00_jprb,3.0023e+00_jprb,&
&3.5065e+00_jprb,4.0831e+00_jprb,4.4749e+00_jprb,4.6081e+00_jprb,4.6607e+00_jprb/)
kao( :, 5, 7,13) = (/&
&3.8207e+00_jprb,3.4295e+00_jprb,3.1455e+00_jprb,3.0110e+00_jprb,3.1435e+00_jprb,3.5518e+00_jprb,&
&4.2303e+00_jprb,4.9268e+00_jprb,5.4004e+00_jprb,5.5634e+00_jprb,5.6245e+00_jprb/)
kao( :, 1, 8,13) = (/&
&4.5607e+00_jprb,3.9914e+00_jprb,3.4954e+00_jprb,3.0029e+00_jprb,2.5709e+00_jprb,2.0712e+00_jprb,&
&1.7381e+00_jprb,1.7156e+00_jprb,1.8751e+00_jprb,1.9316e+00_jprb,1.9534e+00_jprb/)
kao( :, 2, 8,13) = (/&
&4.5049e+00_jprb,3.9749e+00_jprb,3.4687e+00_jprb,3.0674e+00_jprb,2.6040e+00_jprb,2.2247e+00_jprb,&
&2.0925e+00_jprb,2.2663e+00_jprb,2.4833e+00_jprb,2.5592e+00_jprb,2.5867e+00_jprb/)
kao( :, 3, 8,13) = (/&
&4.4464e+00_jprb,3.9470e+00_jprb,3.5041e+00_jprb,3.0976e+00_jprb,2.6943e+00_jprb,2.4990e+00_jprb,&
&2.5535e+00_jprb,2.9086e+00_jprb,3.1877e+00_jprb,3.2861e+00_jprb,3.3201e+00_jprb/)
kao( :, 4, 8,13) = (/&
&4.3818e+00_jprb,3.9082e+00_jprb,3.5223e+00_jprb,3.1240e+00_jprb,2.8867e+00_jprb,2.8624e+00_jprb,&
&3.1305e+00_jprb,3.6344e+00_jprb,3.9841e+00_jprb,4.1071e+00_jprb,4.1503e+00_jprb/)
kao( :, 5, 8,13) = (/&
&4.3157e+00_jprb,3.8635e+00_jprb,3.5342e+00_jprb,3.2389e+00_jprb,3.1422e+00_jprb,3.3087e+00_jprb,&
&3.8133e+00_jprb,4.4423e+00_jprb,4.8694e+00_jprb,5.0203e+00_jprb,5.0730e+00_jprb/)
kao( :, 1, 9,13) = (/&
&5.1388e+00_jprb,4.4967e+00_jprb,3.9252e+00_jprb,3.3415e+00_jprb,2.8260e+00_jprb,2.2549e+00_jprb,&
&1.7301e+00_jprb,1.4899e+00_jprb,1.5781e+00_jprb,1.6272e+00_jprb,2.1902e+00_jprb/)
kao( :, 2, 9,13) = (/&
&5.0816e+00_jprb,4.4676e+00_jprb,3.8997e+00_jprb,3.4081e+00_jprb,2.8754e+00_jprb,2.3488e+00_jprb,&
&1.9883e+00_jprb,1.9458e+00_jprb,2.1210e+00_jprb,2.1876e+00_jprb,2.4675e+00_jprb/)
kao( :, 3, 9,13) = (/&
&5.0129e+00_jprb,4.4339e+00_jprb,3.9077e+00_jprb,3.4536e+00_jprb,2.9357e+00_jprb,2.5363e+00_jprb,&
&2.3438e+00_jprb,2.5133e+00_jprb,2.7551e+00_jprb,2.8417e+00_jprb,2.9456e+00_jprb/)
kao( :, 4, 9,13) = (/&
&4.9367e+00_jprb,4.3927e+00_jprb,3.9413e+00_jprb,3.4799e+00_jprb,3.0724e+00_jprb,2.8062e+00_jprb,&
&2.8193e+00_jprb,3.1848e+00_jprb,3.4916e+00_jprb,3.6009e+00_jprb,3.6428e+00_jprb/)
kao( :, 5, 9,13) = (/&
&4.8646e+00_jprb,4.3466e+00_jprb,3.9578e+00_jprb,3.5604e+00_jprb,3.2602e+00_jprb,3.1715e+00_jprb,&
&3.4132e+00_jprb,3.9460e+00_jprb,4.3263e+00_jprb,4.4628e+00_jprb,4.5130e+00_jprb/)
kao( :, 1,10,13) = (/&
&5.7351e+00_jprb,5.0184e+00_jprb,4.3590e+00_jprb,3.7061e+00_jprb,3.1107e+00_jprb,2.4665e+00_jprb,&
&1.8265e+00_jprb,1.3589e+00_jprb,1.3281e+00_jprb,1.3706e+00_jprb,9.6850e+00_jprb/)
kao( :, 2,10,13) = (/&
&5.6702e+00_jprb,4.9713e+00_jprb,4.3505e+00_jprb,3.7771e+00_jprb,3.1762e+00_jprb,2.5499e+00_jprb,&
&2.0068e+00_jprb,1.7165e+00_jprb,1.8132e+00_jprb,1.8713e+00_jprb,1.0044e+01_jprb/)
kao( :, 3,10,13) = (/&
&5.6012e+00_jprb,4.9439e+00_jprb,4.3471e+00_jprb,3.8363e+00_jprb,3.2324e+00_jprb,2.7093e+00_jprb,&
&2.2713e+00_jprb,2.1992e+00_jprb,2.3944e+00_jprb,2.4708e+00_jprb,1.0371e+01_jprb/)
kao( :, 4,10,13) = (/&
&5.5289e+00_jprb,4.9007e+00_jprb,4.3908e+00_jprb,3.8627e+00_jprb,3.3600e+00_jprb,2.8996e+00_jprb,&
&2.6404e+00_jprb,2.8075e+00_jprb,3.0779e+00_jprb,3.1762e+00_jprb,1.0595e+01_jprb/)
kao( :, 5,10,13) = (/&
&5.4567e+00_jprb,4.8683e+00_jprb,4.4123e+00_jprb,3.9290e+00_jprb,3.4997e+00_jprb,3.1758e+00_jprb,&
&3.1346e+00_jprb,3.5190e+00_jprb,3.8593e+00_jprb,3.9826e+00_jprb,1.0862e+01_jprb/)
kao( :, 1,11,13) = (/&
&6.3333e+00_jprb,5.5418e+00_jprb,4.8105e+00_jprb,4.1265e+00_jprb,3.4538e+00_jprb,2.7288e+00_jprb,&
&2.0255e+00_jprb,1.4130e+00_jprb,1.2863e+00_jprb,1.3280e+00_jprb,1.7958e+01_jprb/)
kao( :, 2,11,13) = (/&
&6.2689e+00_jprb,5.5023e+00_jprb,4.8148e+00_jprb,4.2028e+00_jprb,3.5226e+00_jprb,2.8349e+00_jprb,&
&2.1999e+00_jprb,1.7269e+00_jprb,1.7697e+00_jprb,1.8270e+00_jprb,1.8277e+01_jprb/)
kao( :, 3,11,13) = (/&
&6.2039e+00_jprb,5.4744e+00_jprb,4.8374e+00_jprb,4.2598e+00_jprb,3.5999e+00_jprb,3.0009e+00_jprb,&
&2.4146e+00_jprb,2.1815e+00_jprb,2.3423e+00_jprb,2.4181e+00_jprb,1.8696e+01_jprb/)
kao( :, 4,11,13) = (/&
&6.1388e+00_jprb,5.4345e+00_jprb,4.8963e+00_jprb,4.2927e+00_jprb,3.7367e+00_jprb,3.1778e+00_jprb,&
&2.7380e+00_jprb,2.7546e+00_jprb,3.0088e+00_jprb,3.1059e+00_jprb,1.9174e+01_jprb/)
kao( :, 5,11,13) = (/&
&6.0780e+00_jprb,5.4134e+00_jprb,4.9226e+00_jprb,4.3897e+00_jprb,3.8870e+00_jprb,3.4157e+00_jprb,&
&3.1673e+00_jprb,3.4320e+00_jprb,3.7647e+00_jprb,3.8872e+00_jprb,1.9497e+01_jprb/)
kao( :, 1,12,13) = (/&
&6.9733e+00_jprb,6.1019e+00_jprb,5.2948e+00_jprb,4.5762e+00_jprb,3.8194e+00_jprb,3.0108e+00_jprb,&
&2.2358e+00_jprb,1.4812e+00_jprb,1.2391e+00_jprb,1.2773e+00_jprb,2.4501e+01_jprb/)
kao( :, 2,12,13) = (/&
&6.9181e+00_jprb,6.0812e+00_jprb,5.3188e+00_jprb,4.6589e+00_jprb,3.8924e+00_jprb,3.1398e+00_jprb,&
&2.4112e+00_jprb,1.7577e+00_jprb,1.7083e+00_jprb,1.7645e+00_jprb,2.4773e+01_jprb/)
kao( :, 3,12,13) = (/&
&6.8566e+00_jprb,6.0530e+00_jprb,5.3874e+00_jprb,4.7146e+00_jprb,3.9882e+00_jprb,3.3020e+00_jprb,&
&2.6071e+00_jprb,2.1662e+00_jprb,2.2758e+00_jprb,2.3503e+00_jprb,2.5275e+01_jprb/)
kao( :, 4,12,13) = (/&
&6.7979e+00_jprb,6.0149e+00_jprb,5.4468e+00_jprb,4.7610e+00_jprb,4.1335e+00_jprb,3.4795e+00_jprb,&
&2.8840e+00_jprb,2.7114e+00_jprb,2.9349e+00_jprb,3.0298e+00_jprb,2.5870e+01_jprb/)
kao( :, 5,12,13) = (/&
&6.7411e+00_jprb,6.0058e+00_jprb,5.4709e+00_jprb,4.8727e+00_jprb,4.2890e+00_jprb,3.6876e+00_jprb,&
&3.2559e+00_jprb,3.3514e+00_jprb,3.6668e+00_jprb,3.7859e+00_jprb,2.6254e+01_jprb/)
kao( :, 1,13,13) = (/&
&7.6256e+00_jprb,6.6753e+00_jprb,5.7900e+00_jprb,5.0347e+00_jprb,4.1913e+00_jprb,3.3018e+00_jprb,&
&2.4527e+00_jprb,1.5669e+00_jprb,1.1934e+00_jprb,1.2215e+00_jprb,2.5519e+01_jprb/)
kao( :, 2,13,13) = (/&
&7.5682e+00_jprb,6.6598e+00_jprb,5.8333e+00_jprb,5.1240e+00_jprb,4.2715e+00_jprb,3.4570e+00_jprb,&
&2.6249e+00_jprb,1.8136e+00_jprb,1.6447e+00_jprb,1.6979e+00_jprb,2.5832e+01_jprb/)
kao( :, 3,13,13) = (/&
&7.5147e+00_jprb,6.6337e+00_jprb,5.9406e+00_jprb,5.1772e+00_jprb,4.3985e+00_jprb,3.6181e+00_jprb,&
&2.8202e+00_jprb,2.1840e+00_jprb,2.2018e+00_jprb,2.2745e+00_jprb,2.6512e+01_jprb/)
kao( :, 4,13,13) = (/&
&7.4664e+00_jprb,6.6067e+00_jprb,6.0077e+00_jprb,5.2519e+00_jprb,4.5469e+00_jprb,3.7922e+00_jprb,&
&3.0751e+00_jprb,2.6716e+00_jprb,2.8374e+00_jprb,2.9314e+00_jprb,2.7153e+01_jprb/)
kao( :, 5,13,13) = (/&
&7.4088e+00_jprb,6.6207e+00_jprb,6.0282e+00_jprb,5.3739e+00_jprb,4.7039e+00_jprb,4.0017e+00_jprb,&
&3.3998e+00_jprb,3.2768e+00_jprb,3.5575e+00_jprb,3.6746e+00_jprb,2.7529e+01_jprb/)
kao( :, 1, 1,14) = (/&
&2.8887e+00_jprb,2.5952e+00_jprb,2.4344e+00_jprb,2.7140e+00_jprb,3.5782e+00_jprb,4.4490e+00_jprb,&
&5.3193e+00_jprb,6.1891e+00_jprb,6.7728e+00_jprb,6.9450e+00_jprb,6.8281e+00_jprb/)
kao( :, 2, 1,14) = (/&
&2.8442e+00_jprb,2.6117e+00_jprb,2.5016e+00_jprb,3.2440e+00_jprb,4.2873e+00_jprb,5.3316e+00_jprb,&
&6.3758e+00_jprb,7.4184e+00_jprb,8.1189e+00_jprb,8.3231e+00_jprb,8.1685e+00_jprb/)
kao( :, 3, 1,14) = (/&
&2.8000e+00_jprb,2.6157e+00_jprb,2.7106e+00_jprb,3.8144e+00_jprb,5.0435e+00_jprb,6.2737e+00_jprb,&
&7.5035e+00_jprb,8.7311e+00_jprb,9.5570e+00_jprb,9.7945e+00_jprb,9.6021e+00_jprb/)
kao( :, 4, 1,14) = (/&
&2.7537e+00_jprb,2.6124e+00_jprb,3.0214e+00_jprb,4.4121e+00_jprb,5.8371e+00_jprb,7.2628e+00_jprb,&
&8.6899e+00_jprb,1.0113e+01_jprb,1.1069e+01_jprb,1.1344e+01_jprb,1.1112e+01_jprb/)
kao( :, 5, 1,14) = (/&
&2.7061e+00_jprb,2.6132e+00_jprb,3.3957e+00_jprb,5.0168e+00_jprb,6.6412e+00_jprb,8.2665e+00_jprb,&
&9.8911e+00_jprb,1.1513e+01_jprb,1.2604e+01_jprb,1.2922e+01_jprb,1.2679e+01_jprb/)
kao( :, 1, 2,14) = (/&
&3.0576e+00_jprb,2.7352e+00_jprb,2.5260e+00_jprb,2.7828e+00_jprb,3.6218e+00_jprb,4.5046e+00_jprb,&
&5.3876e+00_jprb,6.2699e+00_jprb,6.8610e+00_jprb,7.0352e+00_jprb,6.9906e+00_jprb/)
kao( :, 2, 2,14) = (/&
&3.0061e+00_jprb,2.7324e+00_jprb,2.6141e+00_jprb,3.3196e+00_jprb,4.3910e+00_jprb,5.4630e+00_jprb,&
&6.5356e+00_jprb,7.6067e+00_jprb,8.3258e+00_jprb,8.5350e+00_jprb,8.4749e+00_jprb/)
kao( :, 3, 2,14) = (/&
&2.9525e+00_jprb,2.7255e+00_jprb,2.8471e+00_jprb,3.9327e+00_jprb,5.2058e+00_jprb,6.4796e+00_jprb,&
&7.7532e+00_jprb,9.0260e+00_jprb,9.8805e+00_jprb,1.0131e+01_jprb,1.0067e+01_jprb/)
kao( :, 4, 2,14) = (/&
&2.8984e+00_jprb,2.7145e+00_jprb,3.1607e+00_jprb,4.5565e+00_jprb,6.0350e+00_jprb,7.5142e+00_jprb,&
&8.9933e+00_jprb,1.0470e+01_jprb,1.1465e+01_jprb,1.1763e+01_jprb,1.1703e+01_jprb/)
kao( :, 5, 2,14) = (/&
&2.8438e+00_jprb,2.7189e+00_jprb,3.5222e+00_jprb,5.1840e+00_jprb,6.8691e+00_jprb,8.5548e+00_jprb,&
&1.0241e+01_jprb,1.1924e+01_jprb,1.3058e+01_jprb,1.3402e+01_jprb,1.3350e+01_jprb/)
kao( :, 1, 3,14) = (/&
&3.2627e+00_jprb,2.9257e+00_jprb,2.6844e+00_jprb,2.7974e+00_jprb,3.4992e+00_jprb,4.3540e+00_jprb,&
&5.2086e+00_jprb,6.0626e+00_jprb,6.6362e+00_jprb,6.8051e+00_jprb,6.8438e+00_jprb/)
kao( :, 2, 3,14) = (/&
&3.2141e+00_jprb,2.9285e+00_jprb,2.7611e+00_jprb,3.2879e+00_jprb,4.2959e+00_jprb,5.3479e+00_jprb,&
&6.3996e+00_jprb,7.4507e+00_jprb,8.1567e+00_jprb,8.3690e+00_jprb,8.4216e+00_jprb/)
kao( :, 3, 3,14) = (/&
&3.1592e+00_jprb,2.9193e+00_jprb,2.9657e+00_jprb,3.8707e+00_jprb,5.1268e+00_jprb,6.3848e+00_jprb,&
&7.6422e+00_jprb,8.8991e+00_jprb,9.7445e+00_jprb,1.0003e+01_jprb,1.0068e+01_jprb/)
kao( :, 4, 3,14) = (/&
&3.1015e+00_jprb,2.9015e+00_jprb,3.2432e+00_jprb,4.5116e+00_jprb,5.9798e+00_jprb,7.4486e+00_jprb,&
&8.9182e+00_jprb,1.0386e+01_jprb,1.1375e+01_jprb,1.1682e+01_jprb,1.1760e+01_jprb/)
kao( :, 5, 3,14) = (/&
&3.0445e+00_jprb,2.9022e+00_jprb,3.5824e+00_jprb,5.1608e+00_jprb,6.8436e+00_jprb,8.5264e+00_jprb,&
&1.0210e+01_jprb,1.1891e+01_jprb,1.3025e+01_jprb,1.3379e+01_jprb,1.3473e+01_jprb/)
kao( :, 1, 4,14) = (/&
&3.5400e+00_jprb,3.1664e+00_jprb,2.9101e+00_jprb,2.8758e+00_jprb,3.3348e+00_jprb,4.1525e+00_jprb,&
&4.9718e+00_jprb,5.7899e+00_jprb,6.3397e+00_jprb,6.5008e+00_jprb,6.5768e+00_jprb/)
kao( :, 2, 4,14) = (/&
&3.4855e+00_jprb,3.1790e+00_jprb,2.9576e+00_jprb,3.2747e+00_jprb,4.1109e+00_jprb,5.1228e+00_jprb,&
&6.1348e+00_jprb,7.1442e+00_jprb,7.8249e+00_jprb,8.0301e+00_jprb,8.1227e+00_jprb/)
kao( :, 3, 4,14) = (/&
&3.4320e+00_jprb,3.1719e+00_jprb,3.1607e+00_jprb,3.7785e+00_jprb,4.9272e+00_jprb,6.1416e+00_jprb,&
&7.3563e+00_jprb,8.5691e+00_jprb,9.3880e+00_jprb,9.6426e+00_jprb,9.7500e+00_jprb/)
kao( :, 4, 4,14) = (/&
&3.3791e+00_jprb,3.1599e+00_jprb,3.3859e+00_jprb,4.3631e+00_jprb,5.7749e+00_jprb,7.1988e+00_jprb,&
&8.6228e+00_jprb,1.0046e+01_jprb,1.1007e+01_jprb,1.1312e+01_jprb,1.1439e+01_jprb/)
kao( :, 5, 4,14) = (/&
&3.3258e+00_jprb,3.1591e+00_jprb,3.6665e+00_jprb,5.0052e+00_jprb,6.6441e+00_jprb,8.2840e+00_jprb,&
&9.9242e+00_jprb,1.1564e+01_jprb,1.2671e+01_jprb,1.3030e+01_jprb,1.3170e+01_jprb/)
kao( :, 1, 5,14) = (/&
&3.8712e+00_jprb,3.4337e+00_jprb,3.1666e+00_jprb,3.0128e+00_jprb,3.2471e+00_jprb,3.9337e+00_jprb,&
&4.7121e+00_jprb,5.4892e+00_jprb,6.0120e+00_jprb,6.1700e+00_jprb,6.2549e+00_jprb/)
kao( :, 2, 5,14) = (/&
&3.8269e+00_jprb,3.4694e+00_jprb,3.1866e+00_jprb,3.3432e+00_jprb,3.9282e+00_jprb,4.8845e+00_jprb,&
&5.8524e+00_jprb,6.8187e+00_jprb,7.4706e+00_jprb,7.6730e+00_jprb,7.7736e+00_jprb/)
kao( :, 3, 5,14) = (/&
&3.7755e+00_jprb,3.4748e+00_jprb,3.3901e+00_jprb,3.7632e+00_jprb,4.7202e+00_jprb,5.8870e+00_jprb,&
&7.0546e+00_jprb,8.2214e+00_jprb,9.0082e+00_jprb,9.2591e+00_jprb,9.3759e+00_jprb/)
kao( :, 4, 5,14) = (/&
&3.7208e+00_jprb,3.4667e+00_jprb,3.6066e+00_jprb,4.2692e+00_jprb,5.5501e+00_jprb,6.9232e+00_jprb,&
&8.2967e+00_jprb,9.6704e+00_jprb,1.0598e+01_jprb,1.0900e+01_jprb,1.1032e+01_jprb/)
kao( :, 5, 5,14) = (/&
&3.6685e+00_jprb,3.4626e+00_jprb,3.8317e+00_jprb,4.8383e+00_jprb,6.4165e+00_jprb,8.0063e+00_jprb,&
&9.5964e+00_jprb,1.1185e+01_jprb,1.2259e+01_jprb,1.2606e+01_jprb,1.2759e+01_jprb/)
kao( :, 1, 6,14) = (/&
&4.2985e+00_jprb,3.7747e+00_jprb,3.4577e+00_jprb,3.1550e+00_jprb,3.2497e+00_jprb,3.6558e+00_jprb,&
&4.3601e+00_jprb,5.0812e+00_jprb,5.5670e+00_jprb,5.7208e+00_jprb,5.7987e+00_jprb/)
kao( :, 2, 6,14) = (/&
&4.2427e+00_jprb,3.8123e+00_jprb,3.4653e+00_jprb,3.4897e+00_jprb,3.8064e+00_jprb,4.5507e+00_jprb,&
&5.4535e+00_jprb,6.3569e+00_jprb,6.9669e+00_jprb,7.1637e+00_jprb,7.2558e+00_jprb/)
kao( :, 3, 6,14) = (/&
&4.1875e+00_jprb,3.8273e+00_jprb,3.6255e+00_jprb,3.8306e+00_jprb,4.4762e+00_jprb,5.5205e+00_jprb,&
&6.6168e+00_jprb,7.7121e+00_jprb,8.4537e+00_jprb,8.6967e+00_jprb,8.8046e+00_jprb/)
kao( :, 4, 6,14) = (/&
&4.1387e+00_jprb,3.8237e+00_jprb,3.8813e+00_jprb,4.2503e+00_jprb,5.2544e+00_jprb,6.5579e+00_jprb,&
&7.8608e+00_jprb,9.1631e+00_jprb,1.0044e+01_jprb,1.0331e+01_jprb,1.0461e+01_jprb/)
kao( :, 5, 6,14) = (/&
&4.0993e+00_jprb,3.8210e+00_jprb,4.0697e+00_jprb,4.7381e+00_jprb,6.1433e+00_jprb,7.6683e+00_jprb,&
&9.1923e+00_jprb,1.0715e+01_jprb,1.1746e+01_jprb,1.2082e+01_jprb,1.2233e+01_jprb/)
kao( :, 1, 7,14) = (/&
&4.8729e+00_jprb,4.2640e+00_jprb,3.8474e+00_jprb,3.3679e+00_jprb,3.3344e+00_jprb,3.4772e+00_jprb,&
&3.9641e+00_jprb,4.6207e+00_jprb,5.0642e+00_jprb,5.2074e+00_jprb,5.2771e+00_jprb/)
kao( :, 2, 7,14) = (/&
&4.7919e+00_jprb,4.2473e+00_jprb,3.8324e+00_jprb,3.6623e+00_jprb,3.7914e+00_jprb,4.2248e+00_jprb,&
&5.0116e+00_jprb,5.8421e+00_jprb,6.4042e+00_jprb,6.5890e+00_jprb,6.6727e+00_jprb/)
kao( :, 3, 7,14) = (/&
&4.7214e+00_jprb,4.2557e+00_jprb,3.9089e+00_jprb,4.0054e+00_jprb,4.3393e+00_jprb,5.1382e+00_jprb,&
&6.1595e+00_jprb,7.1803e+00_jprb,7.8713e+00_jprb,8.0973e+00_jprb,8.2014e+00_jprb/)
kao( :, 4, 7,14) = (/&
&4.6651e+00_jprb,4.2593e+00_jprb,4.1634e+00_jprb,4.3388e+00_jprb,5.0089e+00_jprb,6.1843e+00_jprb,&
&7.4141e+00_jprb,8.6442e+00_jprb,9.4748e+00_jprb,9.7461e+00_jprb,9.8717e+00_jprb/)
kao( :, 5, 7,14) = (/&
&4.6229e+00_jprb,4.2611e+00_jprb,4.3711e+00_jprb,4.7337e+00_jprb,5.8551e+00_jprb,7.3079e+00_jprb,&
&8.7620e+00_jprb,1.0215e+01_jprb,1.1197e+01_jprb,1.1518e+01_jprb,1.1668e+01_jprb/)
kao( :, 1, 8,14) = (/&
&5.5925e+00_jprb,4.8936e+00_jprb,4.3354e+00_jprb,3.7383e+00_jprb,3.4607e+00_jprb,3.3817e+00_jprb,&
&3.5604e+00_jprb,4.1011e+00_jprb,4.4961e+00_jprb,4.6277e+00_jprb,4.6848e+00_jprb/)
kao( :, 2, 8,14) = (/&
&5.4938e+00_jprb,4.8247e+00_jprb,4.3191e+00_jprb,3.9163e+00_jprb,3.8835e+00_jprb,4.0306e+00_jprb,&
&4.5806e+00_jprb,5.3399e+00_jprb,5.8538e+00_jprb,6.0240e+00_jprb,6.1006e+00_jprb/)
kao( :, 3, 8,14) = (/&
&5.4085e+00_jprb,4.8212e+00_jprb,4.3278e+00_jprb,4.2425e+00_jprb,4.3274e+00_jprb,4.8175e+00_jprb,&
&5.7136e+00_jprb,6.6616e+00_jprb,7.3038e+00_jprb,7.5143e+00_jprb,7.6111e+00_jprb/)
kao( :, 4, 8,14) = (/&
&5.3368e+00_jprb,4.8168e+00_jprb,4.5230e+00_jprb,4.5538e+00_jprb,4.8873e+00_jprb,5.8090e+00_jprb,&
&6.9627e+00_jprb,8.1174e+00_jprb,8.9008e+00_jprb,9.1580e+00_jprb,9.2752e+00_jprb/)
kao( :, 5, 8,14) = (/&
&5.2815e+00_jprb,4.8169e+00_jprb,4.7320e+00_jprb,4.8661e+00_jprb,5.6370e+00_jprb,6.9370e+00_jprb,&
&8.3184e+00_jprb,9.6982e+00_jprb,1.0633e+01_jprb,1.0941e+01_jprb,1.1084e+01_jprb/)
kao( :, 1, 9,14) = (/&
&6.4577e+00_jprb,5.6507e+00_jprb,4.9407e+00_jprb,4.2286e+00_jprb,3.7253e+00_jprb,3.3779e+00_jprb,&
&3.2319e+00_jprb,3.5421e+00_jprb,3.8831e+00_jprb,3.9990e+00_jprb,4.0498e+00_jprb/)
kao( :, 2, 9,14) = (/&
&6.3422e+00_jprb,5.5498e+00_jprb,4.9222e+00_jprb,4.3098e+00_jprb,4.0685e+00_jprb,3.8931e+00_jprb,&
&4.1244e+00_jprb,4.7547e+00_jprb,5.2133e+00_jprb,5.3678e+00_jprb,5.4322e+00_jprb/)
kao( :, 3, 9,14) = (/&
&6.2329e+00_jprb,5.5111e+00_jprb,4.9049e+00_jprb,4.5899e+00_jprb,4.4547e+00_jprb,4.5979e+00_jprb,&
&5.2352e+00_jprb,6.1039e+00_jprb,6.6924e+00_jprb,6.8898e+00_jprb,6.9747e+00_jprb/)
kao( :, 4, 9,14) = (/&
&6.1515e+00_jprb,5.4910e+00_jprb,5.0222e+00_jprb,4.8653e+00_jprb,4.9067e+00_jprb,5.4882e+00_jprb,&
&6.4831e+00_jprb,7.5599e+00_jprb,8.2895e+00_jprb,8.5312e+00_jprb,8.6396e+00_jprb/)
kao( :, 5, 9,14) = (/&
&6.0869e+00_jprb,5.4865e+00_jprb,5.2250e+00_jprb,5.1325e+00_jprb,5.5425e+00_jprb,6.5444e+00_jprb,&
&7.8337e+00_jprb,9.1350e+00_jprb,1.0015e+01_jprb,1.0307e+01_jprb,1.0438e+01_jprb/)
kao( :, 1,10,14) = (/&
&7.4443e+00_jprb,6.5140e+00_jprb,5.6562e+00_jprb,4.8450e+00_jprb,4.1266e+00_jprb,3.5478e+00_jprb,&
&3.0700e+00_jprb,3.0881e+00_jprb,3.3779e+00_jprb,3.4799e+00_jprb,1.2058e+01_jprb/)
kao( :, 2,10,14) = (/&
&7.3221e+00_jprb,6.4071e+00_jprb,5.6365e+00_jprb,4.8644e+00_jprb,4.3967e+00_jprb,3.9545e+00_jprb,&
&3.8217e+00_jprb,4.2441e+00_jprb,4.6539e+00_jprb,4.7937e+00_jprb,1.2410e+01_jprb/)
kao( :, 3,10,14) = (/&
&7.2124e+00_jprb,6.3403e+00_jprb,5.6271e+00_jprb,5.0725e+00_jprb,4.7313e+00_jprb,4.4923e+00_jprb,&
&4.8301e+00_jprb,5.5719e+00_jprb,6.1108e+00_jprb,6.2952e+00_jprb,1.2954e+01_jprb/)
kao( :, 4,10,14) = (/&
&7.1175e+00_jprb,6.3123e+00_jprb,5.6779e+00_jprb,5.3374e+00_jprb,5.0908e+00_jprb,5.2975e+00_jprb,&
&6.0440e+00_jprb,7.0430e+00_jprb,7.7247e+00_jprb,7.9559e+00_jprb,1.3387e+01_jprb/)
kao( :, 5,10,14) = (/&
&7.0366e+00_jprb,6.2756e+00_jprb,5.8648e+00_jprb,5.5670e+00_jprb,5.6360e+00_jprb,6.2965e+00_jprb,&
&7.4267e+00_jprb,8.6602e+00_jprb,9.4961e+00_jprb,9.7792e+00_jprb,1.3845e+01_jprb/)
kao( :, 1,11,14) = (/&
&8.4957e+00_jprb,7.4339e+00_jprb,6.4512e+00_jprb,5.5185e+00_jprb,4.7207e+00_jprb,3.9718e+00_jprb,&
&3.2916e+00_jprb,3.1500e+00_jprb,3.4253e+00_jprb,3.5296e+00_jprb,2.3513e+01_jprb/)
kao( :, 2,11,14) = (/&
&8.3816e+00_jprb,7.3341e+00_jprb,6.4276e+00_jprb,5.6044e+00_jprb,4.9602e+00_jprb,4.3313e+00_jprb,&
&3.9798e+00_jprb,4.2912e+00_jprb,4.7066e+00_jprb,4.8505e+00_jprb,2.3943e+01_jprb/)
kao( :, 3,11,14) = (/&
&8.2705e+00_jprb,7.2767e+00_jprb,6.4537e+00_jprb,5.8081e+00_jprb,5.2448e+00_jprb,4.8172e+00_jprb,&
&4.9716e+00_jprb,5.6457e+00_jprb,6.1916e+00_jprb,6.3804e+00_jprb,2.4436e+01_jprb/)
kao( :, 4,11,14) = (/&
&8.1691e+00_jprb,7.2418e+00_jprb,6.5336e+00_jprb,6.0302e+00_jprb,5.5871e+00_jprb,5.5776e+00_jprb,&
&6.1920e+00_jprb,7.1803e+00_jprb,7.8743e+00_jprb,8.1125e+00_jprb,2.5073e+01_jprb/)
kao( :, 5,11,14) = (/&
&8.0687e+00_jprb,7.1847e+00_jprb,6.6868e+00_jprb,6.2347e+00_jprb,6.0989e+00_jprb,6.5755e+00_jprb,&
&7.6314e+00_jprb,8.8985e+00_jprb,9.7576e+00_jprb,1.0049e+01_jprb,2.5623e+01_jprb/)
kao( :, 1,12,14) = (/&
&9.6896e+00_jprb,8.4786e+00_jprb,7.3560e+00_jprb,6.2642e+00_jprb,5.3896e+00_jprb,4.4442e+00_jprb,&
&3.5654e+00_jprb,3.2232e+00_jprb,3.4640e+00_jprb,3.5704e+00_jprb,3.3781e+01_jprb/)
kao( :, 2,12,14) = (/&
&9.5610e+00_jprb,8.3661e+00_jprb,7.3175e+00_jprb,6.4413e+00_jprb,5.6023e+00_jprb,4.7562e+00_jprb,&
&4.1907e+00_jprb,4.3435e+00_jprb,4.7515e+00_jprb,4.8976e+00_jprb,3.4305e+01_jprb/)
kao( :, 3,12,14) = (/&
&9.4357e+00_jprb,8.3098e+00_jprb,7.3390e+00_jprb,6.6507e+00_jprb,5.8481e+00_jprb,5.2296e+00_jprb,&
&5.1297e+00_jprb,5.7060e+00_jprb,6.2577e+00_jprb,6.4493e+00_jprb,3.4708e+01_jprb/)
kao( :, 4,12,14) = (/&
&9.3148e+00_jprb,8.2568e+00_jprb,7.4893e+00_jprb,6.8212e+00_jprb,6.1645e+00_jprb,5.9310e+00_jprb,&
&6.3510e+00_jprb,7.2870e+00_jprb,7.9920e+00_jprb,8.2360e+00_jprb,3.5460e+01_jprb/)
kao( :, 5,12,14) = (/&
&9.1990e+00_jprb,8.1836e+00_jprb,7.6152e+00_jprb,6.9928e+00_jprb,6.6719e+00_jprb,6.9180e+00_jprb,&
&7.8262e+00_jprb,9.0973e+00_jprb,9.9751e+00_jprb,1.0276e+01_jprb,3.6457e+01_jprb/)
kao( :, 1,13,14) = (/&
&1.0978e+01_jprb,9.6060e+00_jprb,8.3365e+00_jprb,7.0935e+00_jprb,6.1273e+00_jprb,4.9756e+00_jprb,&
&3.8881e+00_jprb,3.3072e+00_jprb,3.4820e+00_jprb,3.5899e+00_jprb,3.7314e+01_jprb/)
kao( :, 2,13,14) = (/&
&1.0837e+01_jprb,9.4874e+00_jprb,8.2842e+00_jprb,7.3253e+00_jprb,6.3404e+00_jprb,5.2568e+00_jprb,&
&4.4758e+00_jprb,4.4007e+00_jprb,4.7797e+00_jprb,4.9274e+00_jprb,3.7831e+01_jprb/)
kao( :, 3,13,14) = (/&
&1.0694e+01_jprb,9.4274e+00_jprb,8.2977e+00_jprb,7.5668e+00_jprb,6.5337e+00_jprb,5.7124e+00_jprb,&
&5.3511e+00_jprb,5.7626e+00_jprb,6.3147e+00_jprb,6.5078e+00_jprb,3.8270e+01_jprb/)
kao( :, 4,13,14) = (/&
&1.0553e+01_jprb,9.3501e+00_jprb,8.4789e+00_jprb,7.6951e+00_jprb,6.8488e+00_jprb,6.3996e+00_jprb,&
&6.5438e+00_jprb,7.3994e+00_jprb,8.1156e+00_jprb,8.3624e+00_jprb,3.9180e+01_jprb/)
kao( :, 5,13,14) = (/&
&1.0418e+01_jprb,9.2624e+00_jprb,8.6238e+00_jprb,7.8509e+00_jprb,7.3367e+00_jprb,7.3271e+00_jprb,&
&8.0317e+00_jprb,9.2713e+00_jprb,1.0168e+01_jprb,1.0477e+01_jprb,4.0242e+01_jprb/)
kao( :, 1, 1,15) = (/&
&3.4517e+00_jprb,3.0397e+00_jprb,4.3495e+00_jprb,6.5195e+00_jprb,8.6891e+00_jprb,1.0859e+01_jprb,&
&1.3028e+01_jprb,1.5192e+01_jprb,1.6642e+01_jprb,1.7045e+01_jprb,1.6592e+01_jprb/)
kao( :, 2, 1,15) = (/&
&3.3993e+00_jprb,3.1455e+00_jprb,5.0715e+00_jprb,7.6013e+00_jprb,1.0131e+01_jprb,1.2660e+01_jprb,&
&1.5190e+01_jprb,1.7713e+01_jprb,1.9405e+01_jprb,1.9876e+01_jprb,1.9373e+01_jprb/)
kao( :, 3, 1,15) = (/&
&3.3459e+00_jprb,3.3075e+00_jprb,5.7978e+00_jprb,8.6893e+00_jprb,1.1582e+01_jprb,1.4472e+01_jprb,&
&1.7361e+01_jprb,2.0250e+01_jprb,2.2182e+01_jprb,2.2727e+01_jprb,2.2178e+01_jprb/)
kao( :, 4, 1,15) = (/&
&3.2986e+00_jprb,3.5290e+00_jprb,6.5252e+00_jprb,9.7768e+00_jprb,1.3028e+01_jprb,1.6279e+01_jprb,&
&1.9527e+01_jprb,2.2769e+01_jprb,2.4943e+01_jprb,2.5561e+01_jprb,2.4969e+01_jprb/)
kao( :, 5, 1,15) = (/&
&3.2551e+00_jprb,3.7853e+00_jprb,7.2659e+00_jprb,1.0883e+01_jprb,1.4501e+01_jprb,1.8116e+01_jprb,&
&2.1727e+01_jprb,2.5337e+01_jprb,2.7748e+01_jprb,2.8418e+01_jprb,2.7723e+01_jprb/)
kao( :, 1, 2,15) = (/&
&3.6522e+00_jprb,3.2711e+00_jprb,4.5099e+00_jprb,6.6968e+00_jprb,8.9267e+00_jprb,1.1156e+01_jprb,&
&1.3385e+01_jprb,1.5605e+01_jprb,1.7100e+01_jprb,1.7534e+01_jprb,1.7404e+01_jprb/)
kao( :, 2, 2,15) = (/&
&3.6012e+00_jprb,3.4064e+00_jprb,5.2386e+00_jprb,7.8494e+00_jprb,1.0463e+01_jprb,1.3076e+01_jprb,&
&1.5688e+01_jprb,1.8292e+01_jprb,2.0045e+01_jprb,2.0557e+01_jprb,2.0412e+01_jprb/)
kao( :, 3, 2,15) = (/&
&3.5578e+00_jprb,3.5847e+00_jprb,6.0307e+00_jprb,9.0357e+00_jprb,1.2041e+01_jprb,1.5045e+01_jprb,&
&1.8047e+01_jprb,2.1044e+01_jprb,2.3057e+01_jprb,2.3640e+01_jprb,2.3465e+01_jprb/)
kao( :, 4, 2,15) = (/&
&3.5171e+00_jprb,3.8136e+00_jprb,6.8582e+00_jprb,1.0272e+01_jprb,1.3685e+01_jprb,1.7098e+01_jprb,&
&2.0508e+01_jprb,2.3916e+01_jprb,2.6198e+01_jprb,2.6851e+01_jprb,2.6618e+01_jprb/)
kao( :, 5, 2,15) = (/&
&3.4777e+00_jprb,4.0744e+00_jprb,7.7115e+00_jprb,1.1547e+01_jprb,1.5382e+01_jprb,1.9216e+01_jprb,&
&2.3048e+01_jprb,2.6876e+01_jprb,2.9437e+01_jprb,3.0161e+01_jprb,2.9874e+01_jprb/)
kao( :, 1, 3,15) = (/&
&4.0012e+00_jprb,3.5438e+00_jprb,4.5445e+00_jprb,6.5121e+00_jprb,8.6806e+00_jprb,1.0848e+01_jprb,&
&1.3016e+01_jprb,1.5179e+01_jprb,1.6635e+01_jprb,1.7074e+01_jprb,1.7180e+01_jprb/)
kao( :, 2, 3,15) = (/&
&3.9193e+00_jprb,3.6637e+00_jprb,5.2345e+00_jprb,7.7505e+00_jprb,1.0328e+01_jprb,1.2905e+01_jprb,&
&1.5480e+01_jprb,1.8051e+01_jprb,1.9781e+01_jprb,2.0289e+01_jprb,2.0415e+01_jprb/)
kao( :, 3, 3,15) = (/&
&3.8577e+00_jprb,3.8234e+00_jprb,6.0517e+00_jprb,9.0644e+00_jprb,1.2077e+01_jprb,1.5089e+01_jprb,&
&1.8099e+01_jprb,2.1106e+01_jprb,2.3127e+01_jprb,2.3709e+01_jprb,2.3850e+01_jprb/)
kao( :, 4, 3,15) = (/&
&3.8049e+00_jprb,4.0468e+00_jprb,6.9689e+00_jprb,1.0436e+01_jprb,1.3903e+01_jprb,1.7370e+01_jprb,&
&2.0836e+01_jprb,2.4295e+01_jprb,2.6620e+01_jprb,2.7290e+01_jprb,2.7443e+01_jprb/)
kao( :, 5, 3,15) = (/&
&3.7571e+00_jprb,4.3042e+00_jprb,7.9142e+00_jprb,1.1851e+01_jprb,1.5788e+01_jprb,1.9723e+01_jprb,&
&2.3657e+01_jprb,2.7583e+01_jprb,3.0223e+01_jprb,3.0982e+01_jprb,3.1151e+01_jprb/)
kao( :, 1, 4,15) = (/&
&4.5413e+00_jprb,3.9760e+00_jprb,4.5956e+00_jprb,6.1749e+00_jprb,8.2304e+00_jprb,1.0286e+01_jprb,&
&1.2342e+01_jprb,1.4394e+01_jprb,1.5775e+01_jprb,1.6197e+01_jprb,1.6378e+01_jprb/)
kao( :, 2, 4,15) = (/&
&4.4358e+00_jprb,4.0500e+00_jprb,5.2197e+00_jprb,7.4879e+00_jprb,9.9757e+00_jprb,1.2463e+01_jprb,&
&1.4950e+01_jprb,1.7428e+01_jprb,1.9103e+01_jprb,1.9604e+01_jprb,1.9831e+01_jprb/)
kao( :, 3, 4,15) = (/&
&4.3496e+00_jprb,4.1500e+00_jprb,5.9601e+00_jprb,8.9065e+00_jprb,1.1863e+01_jprb,1.4820e+01_jprb,&
&1.7774e+01_jprb,2.0728e+01_jprb,2.2708e+01_jprb,2.3295e+01_jprb,2.3568e+01_jprb/)
kao( :, 4, 4,15) = (/&
&4.2783e+00_jprb,4.3259e+00_jprb,6.9520e+00_jprb,1.0406e+01_jprb,1.3860e+01_jprb,1.7313e+01_jprb,&
&2.0763e+01_jprb,2.4211e+01_jprb,2.6527e+01_jprb,2.7194e+01_jprb,2.7525e+01_jprb/)
kao( :, 5, 4,15) = (/&
&4.2147e+00_jprb,4.5565e+00_jprb,7.9967e+00_jprb,1.1967e+01_jprb,1.5938e+01_jprb,1.9911e+01_jprb,&
&2.3877e+01_jprb,2.7842e+01_jprb,3.0498e+01_jprb,3.1272e+01_jprb,3.1647e+01_jprb/)
kao( :, 1, 5,15) = (/&
&5.1884e+00_jprb,4.5403e+00_jprb,4.7931e+00_jprb,5.8956e+00_jprb,7.7629e+00_jprb,9.7012e+00_jprb,&
&1.1639e+01_jprb,1.3574e+01_jprb,1.4878e+01_jprb,1.5273e+01_jprb,1.5485e+01_jprb/)
kao( :, 2, 5,15) = (/&
&5.0662e+00_jprb,4.5450e+00_jprb,5.3264e+00_jprb,7.1969e+00_jprb,9.5885e+00_jprb,1.1980e+01_jprb,&
&1.4371e+01_jprb,1.6762e+01_jprb,1.8366e+01_jprb,1.8844e+01_jprb,1.9112e+01_jprb/)
kao( :, 3, 5,15) = (/&
&4.9667e+00_jprb,4.6362e+00_jprb,5.9568e+00_jprb,8.7016e+00_jprb,1.1592e+01_jprb,1.4482e+01_jprb,&
&1.7370e+01_jprb,2.0252e+01_jprb,2.2194e+01_jprb,2.2764e+01_jprb,2.3092e+01_jprb/)
kao( :, 4, 5,15) = (/&
&4.8811e+00_jprb,4.7581e+00_jprb,6.8907e+00_jprb,1.0315e+01_jprb,1.3738e+01_jprb,1.7164e+01_jprb,&
&2.0588e+01_jprb,2.4000e+01_jprb,2.6296e+01_jprb,2.6966e+01_jprb,2.7352e+01_jprb/)
kao( :, 5, 5,15) = (/&
&4.8022e+00_jprb,4.9436e+00_jprb,8.0245e+00_jprb,1.2011e+01_jprb,1.5998e+01_jprb,1.9984e+01_jprb,&
&2.3970e+01_jprb,2.7945e+01_jprb,3.0615e+01_jprb,3.1395e+01_jprb,3.1854e+01_jprb/)
kao( :, 1, 6,15) = (/&
&5.9540e+00_jprb,5.2101e+00_jprb,5.1559e+00_jprb,5.7766e+00_jprb,7.2000e+00_jprb,8.9966e+00_jprb,&
&1.0790e+01_jprb,1.2585e+01_jprb,1.3788e+01_jprb,1.4160e+01_jprb,1.4369e+01_jprb/)
kao( :, 2, 6,15) = (/&
&5.8116e+00_jprb,5.1177e+00_jprb,5.5815e+00_jprb,6.8585e+00_jprb,9.1046e+00_jprb,1.1376e+01_jprb,&
&1.3646e+01_jprb,1.5913e+01_jprb,1.7437e+01_jprb,1.7895e+01_jprb,1.8166e+01_jprb/)
kao( :, 3, 6,15) = (/&
&5.6919e+00_jprb,5.2252e+00_jprb,6.1200e+00_jprb,8.4234e+00_jprb,1.1222e+01_jprb,1.4022e+01_jprb,&
&1.6819e+01_jprb,1.9613e+01_jprb,2.1489e+01_jprb,2.2041e+01_jprb,2.2387e+01_jprb/)
kao( :, 4, 6,15) = (/&
&5.5882e+00_jprb,5.3197e+00_jprb,6.8459e+00_jprb,1.0145e+01_jprb,1.3515e+01_jprb,1.6884e+01_jprb,&
&2.0253e+01_jprb,2.3617e+01_jprb,2.5877e+01_jprb,2.6539e+01_jprb,2.6957e+01_jprb/)
kao( :, 5, 6,15) = (/&
&5.4924e+00_jprb,5.4609e+00_jprb,7.9964e+00_jprb,1.1974e+01_jprb,1.5951e+01_jprb,1.9927e+01_jprb,&
&2.3903e+01_jprb,2.7873e+01_jprb,3.0539e+01_jprb,3.1317e+01_jprb,3.1808e+01_jprb/)
kao( :, 1, 7,15) = (/&
&6.8609e+00_jprb,6.0036e+00_jprb,5.6856e+00_jprb,5.8569e+00_jprb,6.6558e+00_jprb,8.2325e+00_jprb,&
&9.8779e+00_jprb,1.1519e+01_jprb,1.2625e+01_jprb,1.2957e+01_jprb,1.3161e+01_jprb/)
kao( :, 2, 7,15) = (/&
&6.6929e+00_jprb,5.8566e+00_jprb,5.9907e+00_jprb,6.7106e+00_jprb,8.5545e+00_jprb,1.0689e+01_jprb,&
&1.2823e+01_jprb,1.4953e+01_jprb,1.6388e+01_jprb,1.6819e+01_jprb,1.7084e+01_jprb/)
kao( :, 3, 7,15) = (/&
&6.5525e+00_jprb,5.8774e+00_jprb,6.4316e+00_jprb,8.0973e+00_jprb,1.0774e+01_jprb,1.3461e+01_jprb,&
&1.6147e+01_jprb,1.8828e+01_jprb,2.0635e+01_jprb,2.1172e+01_jprb,2.1511e+01_jprb/)
kao( :, 4, 7,15) = (/&
&6.4308e+00_jprb,6.0200e+00_jprb,7.0014e+00_jprb,9.9118e+00_jprb,1.3206e+01_jprb,1.6500e+01_jprb,&
&1.9791e+01_jprb,2.3078e+01_jprb,2.5291e+01_jprb,2.5943e+01_jprb,2.6365e+01_jprb/)
kao( :, 5, 7,15) = (/&
&6.3315e+00_jprb,6.1156e+00_jprb,7.9980e+00_jprb,1.1868e+01_jprb,1.5812e+01_jprb,1.9756e+01_jprb,&
&2.3696e+01_jprb,2.7636e+01_jprb,3.0283e+01_jprb,3.1063e+01_jprb,3.1573e+01_jprb/)
kao( :, 1, 8,15) = (/&
&7.8865e+00_jprb,6.9009e+00_jprb,6.2843e+00_jprb,6.1316e+00_jprb,6.3613e+00_jprb,7.5584e+00_jprb,&
&9.0686e+00_jprb,1.0577e+01_jprb,1.1592e+01_jprb,1.1900e+01_jprb,1.2089e+01_jprb/)
kao( :, 2, 8,15) = (/&
&7.6965e+00_jprb,6.7347e+00_jprb,6.5927e+00_jprb,6.8053e+00_jprb,7.9909e+00_jprb,9.9438e+00_jprb,&
&1.1929e+01_jprb,1.3913e+01_jprb,1.5248e+01_jprb,1.5655e+01_jprb,1.5901e+01_jprb/)
kao( :, 3, 8,15) = (/&
&7.5504e+00_jprb,6.6675e+00_jprb,6.9179e+00_jprb,7.9162e+00_jprb,1.0245e+01_jprb,1.2802e+01_jprb,&
&1.5357e+01_jprb,1.7910e+01_jprb,1.9627e+01_jprb,2.0148e+01_jprb,2.0469e+01_jprb/)
kao( :, 4, 8,15) = (/&
&7.4360e+00_jprb,6.7883e+00_jprb,7.3531e+00_jprb,9.6152e+00_jprb,1.2792e+01_jprb,1.5983e+01_jprb,&
&1.9172e+01_jprb,2.2359e+01_jprb,2.4505e+01_jprb,2.5152e+01_jprb,2.5554e+01_jprb/)
kao( :, 5, 8,15) = (/&
&7.3370e+00_jprb,6.9240e+00_jprb,8.1752e+00_jprb,1.1669e+01_jprb,1.5550e+01_jprb,1.9429e+01_jprb,&
&2.3306e+01_jprb,2.7182e+01_jprb,2.9790e+01_jprb,3.0576e+01_jprb,3.1067e+01_jprb/)
kao( :, 1, 9,15) = (/&
&9.0967e+00_jprb,7.9598e+00_jprb,6.9734e+00_jprb,6.6246e+00_jprb,6.3273e+00_jprb,6.9836e+00_jprb,&
&8.3234e+00_jprb,9.7073e+00_jprb,1.0640e+01_jprb,1.0924e+01_jprb,1.1099e+01_jprb/)
kao( :, 2, 9,15) = (/&
&8.8543e+00_jprb,7.7477e+00_jprb,7.2824e+00_jprb,7.1264e+00_jprb,7.6457e+00_jprb,9.2650e+00_jprb,&
&1.1116e+01_jprb,1.2965e+01_jprb,1.4208e+01_jprb,1.4588e+01_jprb,1.4820e+01_jprb/)
kao( :, 3, 9,15) = (/&
&8.7111e+00_jprb,7.6297e+00_jprb,7.5745e+00_jprb,7.9608e+00_jprb,9.6557e+00_jprb,1.2050e+01_jprb,&
&1.4456e+01_jprb,1.6860e+01_jprb,1.8477e+01_jprb,1.8971e+01_jprb,1.9271e+01_jprb/)
kao( :, 4, 9,15) = (/&
&8.5917e+00_jprb,7.6924e+00_jprb,7.9085e+00_jprb,9.4305e+00_jprb,1.2224e+01_jprb,1.5276e+01_jprb,&
&1.8326e+01_jprb,2.1371e+01_jprb,2.3421e+01_jprb,2.4055e+01_jprb,2.4428e+01_jprb/)
kao( :, 5, 9,15) = (/&
&8.4819e+00_jprb,7.8606e+00_jprb,8.5251e+00_jprb,1.1371e+01_jprb,1.5099e+01_jprb,1.8867e+01_jprb,&
&2.2635e+01_jprb,2.6398e+01_jprb,2.8934e+01_jprb,2.9714e+01_jprb,3.0176e+01_jprb/)
kao( :, 1,10,15) = (/&
&1.0579e+01_jprb,9.2563e+00_jprb,7.9515e+00_jprb,7.2414e+00_jprb,6.6262e+00_jprb,6.7533e+00_jprb,&
&7.7880e+00_jprb,9.0842e+00_jprb,9.9553e+00_jprb,1.0226e+01_jprb,1.4443e+01_jprb/)
kao( :, 2,10,15) = (/&
&1.0272e+01_jprb,8.9883e+00_jprb,8.0814e+00_jprb,7.6749e+00_jprb,7.6815e+00_jprb,8.8308e+00_jprb,&
&1.0573e+01_jprb,1.2332e+01_jprb,1.3516e+01_jprb,1.3883e+01_jprb,1.6088e+01_jprb/)
kao( :, 3,10,15) = (/&
&1.0064e+01_jprb,8.8059e+00_jprb,8.3682e+00_jprb,8.3372e+00_jprb,9.4460e+00_jprb,1.1603e+01_jprb,&
&1.3923e+01_jprb,1.6236e+01_jprb,1.7795e+01_jprb,1.8275e+01_jprb,1.8972e+01_jprb/)
kao( :, 4,10,15) = (/&
&9.9156e+00_jprb,8.7771e+00_jprb,8.6891e+00_jprb,9.5568e+00_jprb,1.1876e+01_jprb,1.4833e+01_jprb,&
&1.7796e+01_jprb,2.0756e+01_jprb,2.2749e+01_jprb,2.3365e+01_jprb,2.3730e+01_jprb/)
kao( :, 5,10,15) = (/&
&9.7815e+00_jprb,8.9122e+00_jprb,9.1420e+00_jprb,1.1360e+01_jprb,1.4761e+01_jprb,1.8450e+01_jprb,&
&2.2139e+01_jprb,2.5815e+01_jprb,2.8297e+01_jprb,2.9069e+01_jprb,2.9515e+01_jprb/)
kao( :, 1,11,15) = (/&
&1.2192e+01_jprb,1.0668e+01_jprb,9.1719e+00_jprb,8.2095e+00_jprb,7.4257e+00_jprb,7.4696e+00_jprb,&
&8.4517e+00_jprb,9.8563e+00_jprb,1.0806e+01_jprb,1.1102e+01_jprb,2.7700e+01_jprb/)
kao( :, 2,11,15) = (/&
&1.1855e+01_jprb,1.0373e+01_jprb,9.2641e+00_jprb,8.5808e+00_jprb,8.5516e+00_jprb,9.6496e+00_jprb,&
&1.1490e+01_jprb,1.3402e+01_jprb,1.4690e+01_jprb,1.5091e+01_jprb,2.8329e+01_jprb/)
kao( :, 3,11,15) = (/&
&1.1617e+01_jprb,1.0165e+01_jprb,9.4549e+00_jprb,9.2771e+00_jprb,1.0404e+01_jprb,1.2597e+01_jprb,&
&1.5113e+01_jprb,1.7627e+01_jprb,1.9321e+01_jprb,1.9850e+01_jprb,2.9277e+01_jprb/)
kao( :, 4,11,15) = (/&
&1.1419e+01_jprb,1.0101e+01_jprb,9.7647e+00_jprb,1.0584e+01_jprb,1.2914e+01_jprb,1.6054e+01_jprb,&
&1.9262e+01_jprb,2.2467e+01_jprb,2.4628e+01_jprb,2.5304e+01_jprb,3.1159e+01_jprb/)
kao( :, 5,11,15) = (/&
&1.1246e+01_jprb,1.0208e+01_jprb,1.0298e+01_jprb,1.2412e+01_jprb,1.5920e+01_jprb,1.9895e+01_jprb,&
&2.3870e+01_jprb,2.7842e+01_jprb,3.0521e+01_jprb,3.1359e+01_jprb,3.4867e+01_jprb/)
kao( :, 1,12,15) = (/&
&1.4055e+01_jprb,1.2298e+01_jprb,1.0584e+01_jprb,9.3863e+00_jprb,8.3528e+00_jprb,8.2912e+00_jprb,&
&9.1651e+00_jprb,1.0659e+01_jprb,1.1686e+01_jprb,1.2009e+01_jprb,4.0755e+01_jprb/)
kao( :, 2,12,15) = (/&
&1.3708e+01_jprb,1.1994e+01_jprb,1.0673e+01_jprb,9.6215e+00_jprb,9.5535e+00_jprb,1.0572e+01_jprb,&
&1.2442e+01_jprb,1.4512e+01_jprb,1.5909e+01_jprb,1.6350e+01_jprb,4.1783e+01_jprb/)
kao( :, 3,12,15) = (/&
&1.3432e+01_jprb,1.1753e+01_jprb,1.0809e+01_jprb,1.0365e+01_jprb,1.1475e+01_jprb,1.3634e+01_jprb,&
&1.6334e+01_jprb,1.9052e+01_jprb,2.0884e+01_jprb,2.1465e+01_jprb,4.2453e+01_jprb/)
kao( :, 4,12,15) = (/&
&1.3187e+01_jprb,1.1665e+01_jprb,1.0969e+01_jprb,1.1758e+01_jprb,1.4080e+01_jprb,1.7299e+01_jprb,&
&2.0755e+01_jprb,2.4210e+01_jprb,2.6541e+01_jprb,2.7279e+01_jprb,4.2992e+01_jprb/)
kao( :, 5,12,15) = (/&
&1.2971e+01_jprb,1.1732e+01_jprb,1.1607e+01_jprb,1.3640e+01_jprb,1.7148e+01_jprb,2.1366e+01_jprb,&
&2.5637e+01_jprb,2.9905e+01_jprb,3.2783e+01_jprb,3.3705e+01_jprb,4.4626e+01_jprb/)
kao( :, 1,13,15) = (/&
&1.6228e+01_jprb,1.4199e+01_jprb,1.2230e+01_jprb,1.0748e+01_jprb,9.4009e+00_jprb,9.2214e+00_jprb,&
&9.9389e+00_jprb,1.1470e+01_jprb,1.2574e+01_jprb,1.2929e+01_jprb,4.6698e+01_jprb/)
kao( :, 2,13,15) = (/&
&1.5839e+01_jprb,1.3859e+01_jprb,1.2304e+01_jprb,1.0893e+01_jprb,1.0661e+01_jprb,1.1572e+01_jprb,&
&1.3374e+01_jprb,1.5600e+01_jprb,1.7103e+01_jprb,1.7585e+01_jprb,4.7783e+01_jprb/)
kao( :, 3,13,15) = (/&
&1.5511e+01_jprb,1.3574e+01_jprb,1.2374e+01_jprb,1.1617e+01_jprb,1.2687e+01_jprb,1.4735e+01_jprb,&
&1.7515e+01_jprb,2.0432e+01_jprb,2.2399e+01_jprb,2.3033e+01_jprb,4.8488e+01_jprb/)
kao( :, 4,13,15) = (/&
&1.5222e+01_jprb,1.3473e+01_jprb,1.2471e+01_jprb,1.3097e+01_jprb,1.5327e+01_jprb,1.8511e+01_jprb,&
&2.2200e+01_jprb,2.5897e+01_jprb,2.8394e+01_jprb,2.9197e+01_jprb,4.9013e+01_jprb/)
kao( :, 5,13,15) = (/&
&1.4970e+01_jprb,1.3493e+01_jprb,1.3069e+01_jprb,1.5022e+01_jprb,1.8478e+01_jprb,2.2815e+01_jprb,&
&2.7375e+01_jprb,3.1933e+01_jprb,3.5007e+01_jprb,3.5995e+01_jprb,5.0755e+01_jprb/)
kao( :, 1, 1,16) = (/&
&3.6978e+00_jprb,3.2359e+00_jprb,5.8520e+00_jprb,8.7722e+00_jprb,1.1692e+01_jprb,1.4611e+01_jprb,&
&1.7529e+01_jprb,2.0434e+01_jprb,2.2353e+01_jprb,2.2771e+01_jprb,2.1591e+01_jprb/)
kao( :, 2, 1,16) = (/&
&3.6499e+00_jprb,3.4722e+00_jprb,6.9301e+00_jprb,1.0388e+01_jprb,1.3844e+01_jprb,1.7300e+01_jprb,&
&2.0752e+01_jprb,2.4192e+01_jprb,2.6475e+01_jprb,2.6965e+01_jprb,2.5577e+01_jprb/)
kao( :, 3, 1,16) = (/&
&3.5975e+00_jprb,4.0332e+00_jprb,8.0476e+00_jprb,1.2062e+01_jprb,1.6074e+01_jprb,2.0086e+01_jprb,&
&2.4094e+01_jprb,2.8087e+01_jprb,3.0726e+01_jprb,3.1309e+01_jprb,2.9700e+01_jprb/)
kao( :, 4, 1,16) = (/&
&3.5405e+00_jprb,4.6049e+00_jprb,9.1863e+00_jprb,1.3767e+01_jprb,1.8347e+01_jprb,2.2925e+01_jprb,&
&2.7499e+01_jprb,3.2055e+01_jprb,3.5076e+01_jprb,3.5737e+01_jprb,3.3906e+01_jprb/)
kao( :, 5, 1,16) = (/&
&3.4814e+00_jprb,5.1822e+00_jprb,1.0334e+01_jprb,1.5485e+01_jprb,2.0637e+01_jprb,2.5785e+01_jprb,&
&3.0929e+01_jprb,3.6054e+01_jprb,3.9459e+01_jprb,4.0196e+01_jprb,3.8155e+01_jprb/)
kao( :, 1, 2,16) = (/&
&4.0520e+00_jprb,3.5458e+00_jprb,6.5231e+00_jprb,9.7790e+00_jprb,1.3034e+01_jprb,1.6288e+01_jprb,&
&1.9539e+01_jprb,2.2778e+01_jprb,2.4923e+01_jprb,2.5395e+01_jprb,2.4752e+01_jprb/)
kao( :, 2, 2,16) = (/&
&3.9931e+00_jprb,3.9027e+00_jprb,7.7909e+00_jprb,1.1679e+01_jprb,1.5566e+01_jprb,1.9451e+01_jprb,&
&2.3333e+01_jprb,2.7200e+01_jprb,2.9762e+01_jprb,3.0330e+01_jprb,2.9565e+01_jprb/)
kao( :, 3, 2,16) = (/&
&3.9308e+00_jprb,4.5630e+00_jprb,9.1069e+00_jprb,1.3651e+01_jprb,1.8193e+01_jprb,2.2734e+01_jprb,&
&2.7271e+01_jprb,3.1793e+01_jprb,3.4788e+01_jprb,3.5457e+01_jprb,3.4565e+01_jprb/)
kao( :, 4, 2,16) = (/&
&3.8638e+00_jprb,5.2409e+00_jprb,1.0457e+01_jprb,1.5672e+01_jprb,2.0886e+01_jprb,2.6099e+01_jprb,&
&3.1306e+01_jprb,3.6497e+01_jprb,3.9942e+01_jprb,4.0702e+01_jprb,3.9688e+01_jprb/)
kao( :, 5, 2,16) = (/&
&3.7925e+00_jprb,5.9258e+00_jprb,1.1820e+01_jprb,1.7713e+01_jprb,2.3607e+01_jprb,2.9498e+01_jprb,&
&3.5387e+01_jprb,4.1252e+01_jprb,4.5136e+01_jprb,4.6007e+01_jprb,4.4885e+01_jprb/)
kao( :, 1, 3,16) = (/&
&4.4902e+00_jprb,3.9291e+00_jprb,6.9369e+00_jprb,1.0400e+01_jprb,1.3863e+01_jprb,1.7324e+01_jprb,&
&2.0784e+01_jprb,2.4230e+01_jprb,2.6510e+01_jprb,2.7027e+01_jprb,2.7042e+01_jprb/)
kao( :, 2, 3,16) = (/&
&4.4190e+00_jprb,4.2063e+00_jprb,8.3989e+00_jprb,1.2591e+01_jprb,1.6783e+01_jprb,2.0972e+01_jprb,&
&2.5161e+01_jprb,2.9338e+01_jprb,3.2094e+01_jprb,3.2723e+01_jprb,3.2745e+01_jprb/)
kao( :, 3, 3,16) = (/&
&4.3422e+00_jprb,4.9746e+00_jprb,9.9306e+00_jprb,1.4886e+01_jprb,1.9841e+01_jprb,2.4793e+01_jprb,&
&2.9742e+01_jprb,3.4667e+01_jprb,3.7936e+01_jprb,3.8674e+01_jprb,3.8715e+01_jprb/)
kao( :, 4, 3,16) = (/&
&4.2611e+00_jprb,5.7667e+00_jprb,1.1509e+01_jprb,1.7250e+01_jprb,2.2991e+01_jprb,2.8729e+01_jprb,&
&3.4468e+01_jprb,4.0180e+01_jprb,4.3962e+01_jprb,4.4836e+01_jprb,4.4863e+01_jprb/)
kao( :, 5, 3,16) = (/&
&4.1760e+00_jprb,6.5736e+00_jprb,1.3115e+01_jprb,1.9656e+01_jprb,2.6196e+01_jprb,3.2733e+01_jprb,&
&3.9264e+01_jprb,4.5777e+01_jprb,5.0083e+01_jprb,5.1074e+01_jprb,5.1136e+01_jprb/)
kao( :, 1, 4,16) = (/&
&5.0258e+00_jprb,4.3977e+00_jprb,7.1969e+00_jprb,1.0791e+01_jprb,1.4383e+01_jprb,1.7975e+01_jprb,&
&2.1569e+01_jprb,2.5144e+01_jprb,2.7520e+01_jprb,2.8065e+01_jprb,2.8444e+01_jprb/)
kao( :, 2, 4,16) = (/&
&4.9390e+00_jprb,4.4372e+00_jprb,8.8585e+00_jprb,1.3281e+01_jprb,1.7703e+01_jprb,2.2123e+01_jprb,&
&2.6539e+01_jprb,3.0949e+01_jprb,3.3856e+01_jprb,3.4541e+01_jprb,3.4994e+01_jprb/)
kao( :, 3, 4,16) = (/&
&4.8457e+00_jprb,5.3158e+00_jprb,1.0614e+01_jprb,1.5912e+01_jprb,2.1209e+01_jprb,2.6503e+01_jprb,&
&3.1793e+01_jprb,3.7075e+01_jprb,4.0567e+01_jprb,4.1384e+01_jprb,4.1940e+01_jprb/)
kao( :, 4, 4,16) = (/&
&4.7474e+00_jprb,6.2334e+00_jprb,1.2443e+01_jprb,1.8652e+01_jprb,2.4860e+01_jprb,3.1065e+01_jprb,&
&3.7265e+01_jprb,4.3443e+01_jprb,4.7539e+01_jprb,4.8495e+01_jprb,4.9142e+01_jprb/)
kao( :, 5, 4,16) = (/&
&4.6434e+00_jprb,7.1705e+00_jprb,1.4309e+01_jprb,2.1448e+01_jprb,2.8585e+01_jprb,3.5719e+01_jprb,&
&4.2858e+01_jprb,4.9961e+01_jprb,5.4666e+01_jprb,5.5776e+01_jprb,5.6532e+01_jprb/)
kao( :, 1, 5,16) = (/&
&5.9530e+00_jprb,5.2090e+00_jprb,7.3637e+00_jprb,1.1041e+01_jprb,1.4718e+01_jprb,1.8396e+01_jprb,&
&2.2069e+01_jprb,2.5729e+01_jprb,2.8163e+01_jprb,2.8740e+01_jprb,2.9269e+01_jprb/)
kao( :, 2, 5,16) = (/&
&5.7866e+00_jprb,5.0634e+00_jprb,9.2276e+00_jprb,1.3835e+01_jprb,1.8442e+01_jprb,2.3049e+01_jprb,&
&2.7650e+01_jprb,3.2234e+01_jprb,3.5276e+01_jprb,3.5999e+01_jprb,3.6669e+01_jprb/)
kao( :, 3, 5,16) = (/&
&5.6302e+00_jprb,5.6178e+00_jprb,1.1219e+01_jprb,1.6821e+01_jprb,2.2421e+01_jprb,2.8019e+01_jprb,&
&3.3616e+01_jprb,3.9189e+01_jprb,4.2893e+01_jprb,4.3778e+01_jprb,4.4575e+01_jprb/)
kao( :, 4, 5,16) = (/&
&5.4798e+00_jprb,6.6656e+00_jprb,1.3308e+01_jprb,1.9950e+01_jprb,2.6591e+01_jprb,3.3229e+01_jprb,&
&3.9862e+01_jprb,4.6471e+01_jprb,5.0866e+01_jprb,5.1930e+01_jprb,5.2869e+01_jprb/)
kao( :, 5, 5,16) = (/&
&5.3354e+00_jprb,7.7467e+00_jprb,1.5462e+01_jprb,2.3177e+01_jprb,3.0891e+01_jprb,3.8601e+01_jprb,&
&4.6304e+01_jprb,5.3986e+01_jprb,5.9081e+01_jprb,6.0310e+01_jprb,6.1426e+01_jprb/)
kao( :, 1, 6,16) = (/&
&7.2738e+00_jprb,6.3646e+00_jprb,7.3570e+00_jprb,1.1032e+01_jprb,1.4706e+01_jprb,1.8378e+01_jprb,&
&2.2046e+01_jprb,2.5711e+01_jprb,2.8141e+01_jprb,2.8729e+01_jprb,2.9318e+01_jprb/)
kao( :, 2, 6,16) = (/&
&7.0648e+00_jprb,6.1818e+00_jprb,9.4107e+00_jprb,1.4112e+01_jprb,1.8811e+01_jprb,2.3508e+01_jprb,&
&2.8203e+01_jprb,3.2879e+01_jprb,3.5997e+01_jprb,3.6754e+01_jprb,3.7506e+01_jprb/)
kao( :, 3, 6,16) = (/&
&6.8590e+00_jprb,6.0610e+00_jprb,1.1637e+01_jprb,1.7447e+01_jprb,2.3256e+01_jprb,2.9066e+01_jprb,&
&3.4869e+01_jprb,4.0663e+01_jprb,4.4507e+01_jprb,4.5454e+01_jprb,4.6382e+01_jprb/)
kao( :, 4, 6,16) = (/&
&6.6613e+00_jprb,7.0109e+00_jprb,1.4000e+01_jprb,2.0989e+01_jprb,2.7977e+01_jprb,3.4961e+01_jprb,&
&4.1942e+01_jprb,4.8903e+01_jprb,5.3535e+01_jprb,5.4670e+01_jprb,5.5779e+01_jprb/)
kao( :, 5, 6,16) = (/&
&6.4832e+00_jprb,8.2415e+00_jprb,1.6453e+01_jprb,2.4664e+01_jprb,3.2878e+01_jprb,4.1086e+01_jprb,&
&4.9286e+01_jprb,5.7462e+01_jprb,6.2904e+01_jprb,6.4241e+01_jprb,6.5559e+01_jprb/)
kao( :, 1, 7,16) = (/&
&8.8732e+00_jprb,7.7641e+00_jprb,7.2311e+00_jprb,1.0833e+01_jprb,1.4441e+01_jprb,1.8048e+01_jprb,&
&2.1653e+01_jprb,2.5247e+01_jprb,2.7641e+01_jprb,2.8229e+01_jprb,2.8832e+01_jprb/)
kao( :, 2, 7,16) = (/&
&8.6143e+00_jprb,7.5376e+00_jprb,9.4585e+00_jprb,1.4183e+01_jprb,1.8907e+01_jprb,2.3629e+01_jprb,&
&2.8346e+01_jprb,3.3048e+01_jprb,3.6188e+01_jprb,3.6968e+01_jprb,3.7763e+01_jprb/)
kao( :, 3, 7,16) = (/&
&8.3664e+00_jprb,7.3209e+00_jprb,1.1919e+01_jprb,1.7872e+01_jprb,2.3823e+01_jprb,2.9773e+01_jprb,&
&3.5718e+01_jprb,4.1638e+01_jprb,4.5593e+01_jprb,4.6590e+01_jprb,4.7567e+01_jprb/)
kao( :, 4, 7,16) = (/&
&8.1390e+00_jprb,7.4468e+00_jprb,1.4558e+01_jprb,2.1826e+01_jprb,2.9093e+01_jprb,3.6357e+01_jprb,&
&4.3619e+01_jprb,5.0854e+01_jprb,5.5680e+01_jprb,5.6904e+01_jprb,5.8098e+01_jprb/)
kao( :, 5, 7,16) = (/&
&7.9265e+00_jprb,8.6774e+00_jprb,1.7326e+01_jprb,2.5975e+01_jprb,3.4621e+01_jprb,4.3265e+01_jprb,&
&5.1911e+01_jprb,6.0538e+01_jprb,6.6258e+01_jprb,6.7733e+01_jprb,6.9141e+01_jprb/)
kao( :, 1, 8,16) = (/&
&1.0788e+01_jprb,9.4395e+00_jprb,8.0910e+00_jprb,1.0487e+01_jprb,1.3981e+01_jprb,1.7474e+01_jprb,&
&2.0958e+01_jprb,2.4442e+01_jprb,2.6758e+01_jprb,2.7356e+01_jprb,2.7940e+01_jprb/)
kao( :, 2, 8,16) = (/&
&1.0475e+01_jprb,9.1659e+00_jprb,9.3873e+00_jprb,1.4077e+01_jprb,1.8765e+01_jprb,2.3452e+01_jprb,&
&2.8149e+01_jprb,3.2822e+01_jprb,3.5937e+01_jprb,3.6740e+01_jprb,3.7513e+01_jprb/)
kao( :, 3, 8,16) = (/&
&1.0193e+01_jprb,8.9191e+00_jprb,1.2075e+01_jprb,1.8106e+01_jprb,2.4136e+01_jprb,3.0164e+01_jprb,&
&3.6189e+01_jprb,4.2205e+01_jprb,4.6208e+01_jprb,4.7253e+01_jprb,4.8244e+01_jprb/)
kao( :, 4, 8,16) = (/&
&9.9289e+00_jprb,8.6882e+00_jprb,1.4994e+01_jprb,2.2482e+01_jprb,2.9968e+01_jprb,3.7453e+01_jprb,&
&4.4932e+01_jprb,5.2391e+01_jprb,5.7371e+01_jprb,5.8661e+01_jprb,5.9909e+01_jprb/)
kao( :, 5, 8,16) = (/&
&9.6775e+00_jprb,9.2158e+00_jprb,1.8085e+01_jprb,2.7113e+01_jprb,3.6140e+01_jprb,4.5163e+01_jprb,&
&5.4184e+01_jprb,6.3203e+01_jprb,6.9206e+01_jprb,7.0757e+01_jprb,7.2247e+01_jprb/)
kao( :, 1, 9,16) = (/&
&1.3069e+01_jprb,1.1436e+01_jprb,9.8022e+00_jprb,9.9694e+00_jprb,1.3291e+01_jprb,1.6611e+01_jprb,&
&1.9930e+01_jprb,2.3243e+01_jprb,2.5447e+01_jprb,2.6029e+01_jprb,2.6580e+01_jprb/)
kao( :, 2, 9,16) = (/&
&1.2725e+01_jprb,1.1134e+01_jprb,9.8753e+00_jprb,1.3769e+01_jprb,1.8356e+01_jprb,2.2942e+01_jprb,&
&2.7527e+01_jprb,3.2095e+01_jprb,3.5151e+01_jprb,3.5948e+01_jprb,3.6707e+01_jprb/)
kao( :, 3, 9,16) = (/&
&1.2400e+01_jprb,1.0851e+01_jprb,1.2076e+01_jprb,1.8109e+01_jprb,2.4141e+01_jprb,3.0170e+01_jprb,&
&3.6196e+01_jprb,4.2203e+01_jprb,4.6216e+01_jprb,4.7284e+01_jprb,4.8252e+01_jprb/)
kao( :, 4, 9,16) = (/&
&1.2089e+01_jprb,1.0578e+01_jprb,1.5258e+01_jprb,2.2878e+01_jprb,3.0500e+01_jprb,3.8117e+01_jprb,&
&4.5731e+01_jprb,5.3326e+01_jprb,5.8402e+01_jprb,5.9748e+01_jprb,6.0995e+01_jprb/)
kao( :, 5, 9,16) = (/&
&1.1789e+01_jprb,1.0434e+01_jprb,1.8677e+01_jprb,2.8005e+01_jprb,3.7330e+01_jprb,4.6652e+01_jprb,&
&5.5969e+01_jprb,6.5258e+01_jprb,7.1468e+01_jprb,7.3124e+01_jprb,7.4629e+01_jprb/)
kao( :, 1,10,16) = (/&
&1.5771e+01_jprb,1.3799e+01_jprb,1.1828e+01_jprb,1.0379e+01_jprb,1.2776e+01_jprb,1.5968e+01_jprb,&
&1.9158e+01_jprb,2.2340e+01_jprb,2.4469e+01_jprb,2.5039e+01_jprb,2.5553e+01_jprb/)
kao( :, 2,10,16) = (/&
&1.5386e+01_jprb,1.3463e+01_jprb,1.1540e+01_jprb,1.3590e+01_jprb,1.8117e+01_jprb,2.2643e+01_jprb,&
&2.7166e+01_jprb,3.1679e+01_jprb,3.4682e+01_jprb,3.5507e+01_jprb,3.6231e+01_jprb/)
kao( :, 3,10,16) = (/&
&1.5014e+01_jprb,1.3138e+01_jprb,1.2638e+01_jprb,1.8229e+01_jprb,2.4305e+01_jprb,3.0376e+01_jprb,&
&3.6447e+01_jprb,4.2507e+01_jprb,4.6554e+01_jprb,4.7660e+01_jprb,4.8617e+01_jprb/)
kao( :, 4,10,16) = (/&
&1.4647e+01_jprb,1.2816e+01_jprb,1.5618e+01_jprb,2.3419e+01_jprb,3.1218e+01_jprb,3.9016e+01_jprb,&
&4.6807e+01_jprb,5.4591e+01_jprb,5.9795e+01_jprb,6.1215e+01_jprb,6.2420e+01_jprb/)
kao( :, 5,10,16) = (/&
&1.4280e+01_jprb,1.2495e+01_jprb,1.9355e+01_jprb,2.9020e+01_jprb,3.8692e+01_jprb,4.8365e+01_jprb,&
&5.8042e+01_jprb,6.7684e+01_jprb,7.4123e+01_jprb,7.5902e+01_jprb,7.7369e+01_jprb/)
kao( :, 1,11,16) = (/&
&1.8786e+01_jprb,1.6438e+01_jprb,1.4090e+01_jprb,1.2331e+01_jprb,1.4530e+01_jprb,1.8160e+01_jprb,&
&2.1788e+01_jprb,2.5406e+01_jprb,2.7840e+01_jprb,2.8505e+01_jprb,3.1090e+01_jprb/)
kao( :, 2,11,16) = (/&
&1.8352e+01_jprb,1.6058e+01_jprb,1.3764e+01_jprb,1.5493e+01_jprb,2.0554e+01_jprb,2.5688e+01_jprb,&
&3.0819e+01_jprb,3.5940e+01_jprb,3.9370e+01_jprb,4.0314e+01_jprb,4.1103e+01_jprb/)
kao( :, 3,11,16) = (/&
&1.7913e+01_jprb,1.5674e+01_jprb,1.4890e+01_jprb,2.0637e+01_jprb,2.7511e+01_jprb,3.4389e+01_jprb,&
&4.1261e+01_jprb,4.8114e+01_jprb,5.2700e+01_jprb,5.3986e+01_jprb,5.5030e+01_jprb/)
kao( :, 4,11,16) = (/&
&1.7463e+01_jprb,1.5280e+01_jprb,1.7784e+01_jprb,2.6445e+01_jprb,3.5253e+01_jprb,4.4066e+01_jprb,&
&5.2867e+01_jprb,6.1654e+01_jprb,6.7542e+01_jprb,6.9213e+01_jprb,7.0519e+01_jprb/)
kao( :, 5,11,16) = (/&
&1.7011e+01_jprb,1.4885e+01_jprb,2.1813e+01_jprb,3.2706e+01_jprb,4.3599e+01_jprb,5.4495e+01_jprb,&
&6.5377e+01_jprb,7.6235e+01_jprb,8.3536e+01_jprb,8.5586e+01_jprb,8.7197e+01_jprb/)
kao( :, 1,12,16) = (/&
&2.2316e+01_jprb,1.9527e+01_jprb,1.6737e+01_jprb,1.4596e+01_jprb,1.6461e+01_jprb,2.0474e+01_jprb,&
&2.4566e+01_jprb,2.8661e+01_jprb,3.1410e+01_jprb,3.2180e+01_jprb,4.4855e+01_jprb/)
kao( :, 2,12,16) = (/&
&2.1794e+01_jprb,1.9070e+01_jprb,1.6346e+01_jprb,1.7861e+01_jprb,2.3106e+01_jprb,2.8879e+01_jprb,&
&3.4647e+01_jprb,4.0407e+01_jprb,4.4277e+01_jprb,4.5382e+01_jprb,4.9760e+01_jprb/)
kao( :, 3,12,16) = (/&
&2.1250e+01_jprb,1.8594e+01_jprb,1.7508e+01_jprb,2.3135e+01_jprb,3.0842e+01_jprb,3.8557e+01_jprb,&
&4.6258e+01_jprb,5.3944e+01_jprb,5.9113e+01_jprb,6.0595e+01_jprb,6.2174e+01_jprb/)
kao( :, 4,12,16) = (/&
&2.0691e+01_jprb,1.8105e+01_jprb,2.0448e+01_jprb,2.9564e+01_jprb,3.9416e+01_jprb,4.9267e+01_jprb,&
&5.9115e+01_jprb,6.8938e+01_jprb,7.5537e+01_jprb,7.7449e+01_jprb,7.8830e+01_jprb/)
kao( :, 5,12,16) = (/&
&2.0116e+01_jprb,1.7618e+01_jprb,2.4414e+01_jprb,3.6468e+01_jprb,4.8613e+01_jprb,6.0754e+01_jprb,&
&7.2909e+01_jprb,8.5015e+01_jprb,9.3174e+01_jprb,9.5539e+01_jprb,9.7222e+01_jprb/)
kao( :, 1,13,16) = (/&
&2.6369e+01_jprb,2.3073e+01_jprb,1.9777e+01_jprb,1.7264e+01_jprb,1.8821e+01_jprb,2.2830e+01_jprb,&
&2.7390e+01_jprb,3.1940e+01_jprb,3.5002e+01_jprb,3.5903e+01_jprb,5.1967e+01_jprb/)
kao( :, 2,13,16) = (/&
&2.5711e+01_jprb,2.2497e+01_jprb,1.9315e+01_jprb,2.0637e+01_jprb,2.5666e+01_jprb,3.2078e+01_jprb,&
&3.8490e+01_jprb,4.4893e+01_jprb,4.9192e+01_jprb,5.0468e+01_jprb,5.7721e+01_jprb/)
kao( :, 3,13,16) = (/&
&2.5020e+01_jprb,2.1893e+01_jprb,2.0597e+01_jprb,2.5898e+01_jprb,3.4157e+01_jprb,4.2689e+01_jprb,&
&5.1216e+01_jprb,5.9737e+01_jprb,6.5448e+01_jprb,6.7176e+01_jprb,7.0449e+01_jprb/)
kao( :, 4,13,16) = (/&
&2.4297e+01_jprb,2.1260e+01_jprb,2.3512e+01_jprb,3.2642e+01_jprb,4.3514e+01_jprb,5.4385e+01_jprb,&
&6.5247e+01_jprb,7.6086e+01_jprb,8.3406e+01_jprb,8.5607e+01_jprb,8.7331e+01_jprb/)
kao( :, 5,13,16) = (/&
&2.3576e+01_jprb,2.0739e+01_jprb,2.7492e+01_jprb,4.0149e+01_jprb,5.3519e+01_jprb,6.6886e+01_jprb,&
&8.0252e+01_jprb,9.3599e+01_jprb,1.0259e+02_jprb,1.0529e+02_jprb,1.0701e+02_jprb/)


!     -----------------------------------------------------------------
RETURN
END SUBROUTINE rrtm_kgb9_a2